CloseTable

O procedimento CloseTable recebe o número de uma tabela e um booleano que indica se a tabela deve ser mantida aberta (True) ou fechada (False).

Ele foi criado para ser usado em conjunto com a função OpenTable.

Pacote

O procedimento CloseTable está definido dentro do pacote CloseTable.pkg.

Sintaxe

Send CloseTable {hTabela} {bOpenedBefore}

Onde:

  • {hTabela} é o número da tabela no filelist que se deseja fechar, sendo possível usar a representação Tabela.File_Number;
  • {bOpenedBefore} é um booleano que indica se a tabela estava ou não aberta. Se for True, a tabela será mantida aberta. Se for False, será fechada. Normalmente este booleano será o resultado da utilização da função OpenTable.

Exemplo

Vários exemplos de uso deste procedimento podem ser encontrados nos pacotes do próprio MenuFlex. Abaixo um trecho que mostra

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
    
    Send CloseTable Ususario.File_Number bOpened
End_Procedure // OnExecute 

Observação

  • Esta função é particularmente ú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