VARIAVEL Z_CLIENTE = 0
VARIAVEL Z_CODCLIENTE = 0
VARIAVEL Z_TIPOLQD = 0
VARIAVEL Z_USUARIO = 0
VARIAVEL Z_NUMLQDS = 0
VARIAVEL Z_VALORTOTAL = 0

T10,10,15,42,Informe o Cliente
T2,2,Codigo do Cliente:,5,Z_CODCLIENTE,99999

FILTRO (CR_COD_CLI=Z_CODCLIENTE)

OUTROARQ SCCRCLI

COMANDO ANTES SCCRCLI->(DBGOTO(Z_CODCLIENTE))
COMANDO ANTES Z_CLIENTE = SCCRCLI->CR_NOME

*COMANDO ANTES IF(CR_TIP_DUP="QP",Z_TIPOLQD="Quitacao Parcial",Z_TIPOLQD="Quitacao Total")

COMANDO DURANTE Z_NUMLQDS = Z_NUMLQDS + 1
COMANDO DURANTE Z_VALORTOTAL = Z_VALORTOTAL + CR_VAL_LQD

C[SISTEMA]                                                         [DATE()]
CRelatorio de Acompanhamento de Liquidacoes de Clientes            [TIME()]
CRelatorio para o Cliente:[Z_CODCLIENTE]-[Z_CLIENTE]
C
CTipo Controle   Data Lqd.  Hora Lqd. DebNoMomento  ValorLqd. Usuario
*XX   XXXXXXXX   YY/YY/YY   YY:YY:XX         X,XXX.XX   XXYYYYYY YYYYXXXXXXXXXXYYYYYYYYYYXXXXXXXXXX
C[REPL("=",80)]
D[CR_TIP_DUP @S2]   [CR_NUM_PED @S9]  [CR_DT_LQD]  [CR_HORA]  [CR_VALOR 999,999.99] [CR_VAL_LQD 99,999.99]    [CR_USUARIO @S8]
ULTPAG
ULTPAG[REPL("=",80)]
ULTPAG  Total de Liquidacoes: [Z_NUMLQDS]
ULTPAG  Valor Total das Liquidacoes: [Z_VALORTOTAL]
ULTPAG







