OpenTable

A função OpenTable recebe o número de uma tabela e, caso esta tabela não esteja aberta, abre a tabela.

Tipo de Retorno

Boolean

Pacote

A função OpenTable está definida dentro do pacote OpenTable.pkg.

Sintaxe

Move (OpenTable({hTabela})) to {bRet}

Onde:

  • {hTabela} é o número da tabela no filelist que se deseja abrir, sendo possível usar a representação Tabela.File_Number;
  • {bRet} recebe o retorno da execução da função, sendo que True indica que a tabela já estava aberta antes da execução da função e False indica que a tabela não estava aberta.

Exemplo

Um exemplo de uso da função pode ser encontrado dentro da Workspace de Exemplo na view View.vw.

Procedure OnExecute Variant vCommandBarControl
    Boolean bOpened
    
    Forward Send OnExecute vCommandBarControl
    
    Move (OpenTable(USUARIO.File_Number)) to bOpened
 
    Clear USUARIO
    Move "U" to USUARIO.Tp_Usuario
    Find Gt USUARIO by Index.3
    While (USUARIO.Tp_Usuario = "U" and Found)
        If (USUARIO.Fl_Desativada <> "S") Begin
Send AdicionaItem of oDestinatariosList ;
USUARIO.Id_Usuario USUARIO.Nm_Nome
End
        Find Gt USUARIO by Index.3
    Loop
    
    If (not(bOpened)) Close USUARIO
End_Procedure // OnExecute 

Observações

  • Esta função é particulamente útil em situações onde uma tabela será aberta para utilização por um curto período de tempo e, caso não estivesse aberta antes de sua utilização, será fechada ao final.

Tópicos relacionados