Função que fecha uma tabela / query aberta.

Exemplo da Rotina:

(ALIAS)->(DbCloseArea()

Exemplo 1- Fechando uma tabela aberta:

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea    := GetArea()
	
	DbSelectArea('SB1')
	
	//Fechando a tabela de Produtos
	SB1->(DbCloseArea())
	
	RestArea(aArea)
Return

Exemplo 2- Fechando uma consulta SQL aberta:

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea    := GetArea()
	Local cQryAux  := ""

	//Montando a consulta
	cQryAux := " SELECT A1_NOME FROM "+RetSQLName('SA1')+" SA1 WHERE SA1.D_E_L_E_T_ = ' ' "
	TCQuery cQryAux New Alias "QRY_SA1"
	
	//Fechando a consulta
	QRY_SA1->(DbCloseArea())
	
	RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN
– Universo AdvPL