Busca a última query executada via BeginSql / EndSql

Exemplo da Rotina:

aDados := GetLastQuery() //[1] = Alias, [2] = Query

Exemplo 1- Executando uma consulta, e após fechá-la pegando a query:

	//Construindo a consulta
	BeginSql Alias "SQL_SBM"
		SELECT    
			BM_GRUPO,
			BM_DESC
		FROM
			%table:SBM% SBM 
		WHERE
			BM_FILIAL  = %xFilial:SBM%
			AND SBM.%notDel%
	EndSql
	
	//Fecha a consulta
	SQL_SBM->(DbCloseArea())
	
	//Pega as informações da última query
	aDados := GetLastQuery()
	
	//Mostra mensagem com todas as informações capturadas
	cMensagem := ""
	cMensagem += "* cAlias - " + aDados[1] + Chr(13) + Chr(10)
	cMensagem += "* cQuery - " + aDados[2]
	MsgInfo(cMensagem, "Atenção")

 

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

 

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