Histórico da Página

...

User Function F820Qry()

Local cCond cCond  := ParamIXB // Condição (cláusula WHERE da query) padrão para geração dos movimentos financeiros LCDPR.

Local cSelect := ParamIXB[2] // Campos da consulta
Local aRet     := {}
Local cSelUsr := " " // Padrão:  SUBSTRING(E5_DATA,7,2) DIA, SUBSTRING(E5_DATA, 5, 2) || SUBSTRING(E5_DATA, 1, 4) MES_ANO, E5_DATA DDATA, "
            // TRFIL.COD FILCOD, FVV.FVV_PARTIC AS PERC, TRBCO.COD BANCO, E5_PREFIXO, E5_NUMERO NUMDOC, E5_HISTOR HIST, SA1.A1_CGC CNPJCLI, SA2.A2_CGC CNPJFOR, " 
            // E5_TIPODOC TPDOC, E5_TIPO, E5_RECPAG RECPAG, E1_VALOR, E2_VALOR, E1_SALDO SLDREC, E2_SALDO SLDPAG, E5_MOTBX, SE5.R_E_C_N_O_ REC, E5_CLIFOR CLIFOR, "
            // E5_VALOR AS VALOR "

            // , E5_CGC (a partir do leiaute 1.3)

aRet := {}
cCond := " E5_NATUREZ = 'NTLCDPRESP' "

aAdd(aRet, cCond)
aAdd(aRet, " E5_BENEF + ' - ' + E5_IDORIG ") // Parâmetro que substitui a impressão do histórico do título (campo E5_HISTOR).

aAdd(aRet, " cSelUsr ") // Parâmetro para definir tratativas na consulta principal do relatório, sempre respeitando a estrutura padrão dos campos da consulta.

Return aRet

Onde o 'cCond' recebido por parâmetro é a cláusula Where padrão do Extrator LCDPR. 

...