OUTROARQ SCCRCLI

VARIAVEL Z_DE = DATE()
VARIAVEL Z_ATE = DATE()
VARIAVEL Z_REGINI = 1
VARIAVEL Z_CLIENTE = 1
VARIAVEL Z_TOTG = 0
VARIAVEL Z_TOTGL = 0

T10,10,17,60,Parametros
T2,2,Data Inicial:,8,z_de,99.99.99
T3,2,Data Final..:,8,z_ate,99.99.99
T4,2,Cliente.....:,4,z_cliente,9999
T5,2,Reg.Inicial.:,6,z_regini,999999

COMANDO ANTES DBGOTO(Z_REGINI)
FILTRO (z_cliente=0.or.cr_cod_Cli=z_cliente).and.CR_DT_LQD>=Z_DE .AND. CR_DT_LQD<=Z_ATE .AND. !CR_TIP_DUP$"/ES/CT/CH/"

COMANDO DURANTE Z_CLI = CR_COD_CLI
COMANDO DURANTE SCCRCLI->(DBGOTO(Z_CLI))
COMANDO DURANTE Z_NOME = SCCRCLI->CR_NOME
COMANDO DURANTE Z_TOTG = Z_TOTG + CR_VALOR
COMANDO DURANTE Z_TOTGL = Z_TOTGL + CR_VAL_LQD
COMANDO DURANTE Z_JD = CR_VALOR-CR_VAL_LQD
COMANDO DURANTE Z_STRJD = STR(ABS(Z_JD),8,2)+"("+IF(Z_JD>0,"Juros","Desct")+")"

CExtrato de Liquidacoes de um Cliente
CCliente: ([z_cliente 9999]) [z_nome]
C
C QuemLqd  Data    Hora    Cliente         Tipo Val_Orig    Val_Lqd   Juro/Desc  Pz
C
D[CR_USUARIO] [CR_DATA] [CR_HORA @S5] [cr_tip_dup] [CR_VALOR 99,999.99] [CR_VAL_LQD 99,999.99] [Z_strJD] [cr_obs] [cr_cod_Cli 9999] [z_nome]

ULTPAG 
ULTPAG TOTAL GERAL QUITADO..........: [z_totG @E 9,999,999.99]
ULTPAG TOTAL GERAL LIQUIDO RECEBIDO.: [z_totGl @E 9,999,999.99]
