INDEX SCCPPEDD DTOS(CP_DT_VENC)
OUTROARQ SCCPFOR
VARIAVEL LST_TP = 58
VARIAVEL Z_TOTPG = 0
VARIAVEL z_de = date()
VARIAVEL z_ate = date()

T10,10,16,60,Parametros
T2,2,Data Inicial:,8,z_de,99.99.99
T3,2,Data Final..:,8,z_ate,99.99.99

FILTRO CP_DT_VENC>=Z_DE.AND.CP_DT_VENC<=Z_ATE

COMANDO DURANTE SCCPFOR->( DBGOTO ( SCCPPED->CP_COD_FOR ))
COMANDO DURANTE Z_TOTPG = Z_TOTPG + CP_VALOR

C
C[empresa]
CRELACAO DOS CONTAS A PAGAR NO DE [Z_DE] ATE [Z_ATE]               Pag [pag 9999]
C[REPL("-",80)]
CDtVenc   DtEmis   Fornecedor                 Observacao                    Valor 
C[REPL("-",80)]
D[CP_DT_VENC] [CP_DT_EMIS] [SCCPFOR->CP_nome @S26] [cp_desc @S25] [CP_VALOR @E 99,999.99]
ULTPAG[REPL("-",80)]
ULTPAG                                                  Total A Pagar.....: [z_totpg @e 999,999.99]
ULTPAG

