BeginSQL … EndSQL

Exemplo de utilização de query SQL com Embedded SQL.

Exemplo da Rotina:

BeginSql Alias "SEU_ALIAS"
	//Comandos para a consulta SQL
EndSql

Exemplo 1- Criando consulta para a SB1 e percorrendo:

//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()
	Local cWhere := "%B1_TIPO = 'PI' AND B1_LOCPAD = '01'%"
	Local nRegs  := 0
	
	//Construindo a consulta
	BeginSql Alias "SQL_SB1"
		//COLUMN CAMPO AS DATE //Deve se usar isso para transformar o campo em data
		  
		SELECT	
			B1_COD,
			B1_DESC
		FROM
			%table:SB1% SB1 
		WHERE
			B1_FILIAL  = %xFilial:SB1%
			AND B1_MSBLQL != '1'
			AND %Exp:cWhere%
			AND SB1.%notDel%
	EndSql
	
	//Enquanto houver registros
	While ! SQL_SB1->(EoF())
		nRegs++
		
		SQL_SB1->(DbSkip())
	EndDo
	SQL_SB1->(DbCloseArea())
	
	MsgInfo("Foram processados "+cValToChar(nRegs)+" produtos.", "Atenção")
	
	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