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.
...