OpenTable

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

Boolean

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

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.

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

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.