OUTROARQ BAL_DUP
VARIAVEL Z_DE = DATE()

VARIAVEL Z_TOTANT = 0
VARIAVEL Z_FATDIA = 0
VARIAVEL Z_CHDEVD = 0
VARIAVEL Z_LQDDIA = 0
VARIAVEL Z_jurdia = 0
VARIAVEL Z_dscdia = 0
VARIAVEL Z_AbertaFinal = 0

COMANDO ANTES BAL_DUP->( DBGOBOTTOM() )
COMANDO ANTES Z_FGALTER = BAL_DUP->( CR_DATA<>DATE() )
COMANDO ANTES Z_NIL = IF(!Z_FGALTER, BAL_DUP->(DBSKIP(-1)), "")
COMANDO ANTES z_totant = BAL_DUP->ARECEBER

COMANDO DURANTE Z_FATDIA = Z_FATDIA + IF(LEFT(CR_NUM_PED,2)<>"CH".AND.CR_DT_EMIS=Z_DE, CR_VALOR, 0)
COMANDO DURANTE Z_CHDEVD = Z_CHDEVD + IF(LEFT(CR_NUM_PED,2)="CH".AND.CR_data=Z_DE, CR_VALOR, 0)
COMANDO DURANTE Z_LQDDIA = Z_LQDDIA + IF(CR_DATA=DATE().AND.DAY(CR_dT_LQD)>0, CR_VAL_LQD, 0)
COMANDO DURANTE Z_jurDIA = Z_jurDIA + IF(CR_DATA=DATE().AND.CR_VALOR>0.AND.DAY(CR_dT_LQD)>0.and.cr_valor<cr_val_lqd, CR_VAL_LQD-cr_valor, 0)
COMANDO DURANTE Z_dscDIA = Z_dscDIA + IF(CR_DATA=DATE().AND.CR_VALOR>0.AND.DAY(CR_dT_LQD)>0.and.cr_valor>cr_val_lqd, cr_valor-CR_VAL_LQD, 0)
COMANDO DURANTE Z_AbertaFinal = Z_AbertaFinal + IF( DAY(CR_DT_LQD)=0.AND.CR_VALOR>CR_VAL_LQD, CR_VALOR-CR_VAL_LQD, 0)

COMANDO DEPOIS BAL_DUP->( DBGOBOTTOM() )
COMANDO DEPOIS Z_FGALTER = BAL_DUP->( CR_DATA<>DATE() )
COMANDO DEPOIS Z_NIL = IF(Z_FGALTER, BAL_DUP->(APPENDBLANK()) , "")
COMANDO DEPOIS BAL_DUP->(REGLOCK())
COMANDO DEPOIS BAL_DUP->(PUT_VAR("ARECEBER",Z_AbertaFinal))
COMANDO DEPOIS BAL_DUP->(PUT_VAR("CR_DATA",DATE()))
COMANDO DEPOIS BAL_DUP->(DBCOMMIT())

COMANDO DEPOIS Z_SALDOPEND = Z_TOTANT+Z_FATDIA+Z_CHDEVD+Z_JURDIA - Z_DSCDIA
COMANDO DEPOIS Z_VALPRESUMIDO =  Z_SALDOPEND-Z_AbertaFinal - (Z_FATDIA+Z_CHDEVD+Z_JURDIA-Z_DSCDIA)
COMANDO DEPOIS Z_strdif =  if(Z_VALPRESUMIDO>0,"Faltando","Sobrando")

ULTPAG
ULTPAG Balanco Financeiro em [date()]
ULTPAG
ULTPAG Saldo Anterior a Receber............: [z_totant @e 999,999,999.99]
ULTPAG Faturamento no Dia..................: [z_fatdia @e 999,999,999.99]
ULTPAG Cheques Devolvidos no Dia...........: [z_chdevd @e 999,999,999.99]
ULTPAG Total Liquidado no Dia..............: [z_lqddia @e 999,999,999.99]
ULTPAG Juros Recebidos no Dia..............: [z_jurdia @e 999,999,999.99]
ULTPAG Descontos Concedidos nas Liquidacoes: [z_dscdia @e 999,999,999.99]
ULTPAG
ULTPAG Saldo Pendente a Receber de Clientes no Final do dia: [Z_AbertaFinal @e 999,999,999.99]
ULTPAG Saldo Que Realmente Deveria estar Pendente .........: [Z_SaldoPend @e 999,999,999.99]
ULTPAG
ULTPAG Valor a ser Prestado Contas ([Z_strdif]).............: [Z_VALPRESUMIDO @e 999,999,999.99]
ULTPAG
