terça-feira, 2 de julho de 2013

Embedded SQL - Trabalhando com arquivos

Ir para o final dos metadados
Ir para o início dos metadados
O objetivo do Embedded SQL é facilitar a escrita e leitura de query’s. Foi definida uma sintaxe para que se possa escrever a query diretamente no código ADVPL, sem a necessidade de ficar concatenando pedaços de string para compor a string final.

Recomenda-se que novas querys sejam desenvolvidas utilizando-se deste novo recurso.

// EmbeddedSQLQuery.prw
#INCLUDE "TOTVS.CH"

Function EmbeddedSQLQuery()
BeginSQL Alias cAliasTrb
       SELECT R_E_C_N_O_ RECNOSN1
             FROM %Table:SN1%
       WHERE N1_FILIAL = %XFilial:SN1%     AND
                           N1_CBASE >= %Exp:MV_PAR01%    AND
                           N1_CBASE <= %Exp:MV_PAR02%    AND
                           N1_ITEM  >= %Exp:MV_PAR03%    AND
                           N1_ITEM  <= %Exp:MV_PAR04%    AND
                           N1_GRUPO >= %Exp:MV_PAR05%    AND
                           N1_GRUPO <= %Exp:MV_PAR06%    AND
                           N1_AQUISIC >= %Exp:MV_PAR07%  AND                
                           N1_AQUISIC <= %Exp:MV_PAR08%  AND
                           %Exp:cWhere% AND
                           %NotDel%
EndSQL
Return