Embedded SQL - Trabalhando com arquivos

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