* Voce esta na area do SCCRDUP
*
INDEX         sccrdupl dtos(cr_dt_lqd)

OUTROARQ      vales temp001 dtos(dtfdcx)

VARIAVEL      z_juros   = 0
VARIAVEL      z_desconto= 0
VARIAVEL      z_vlantes = 0
VARIAVEL      z_dia     = date()
VARIAVEL      z_ven_esp = 0
VARIAVEL      z_ven_chd = 0
VARIAVEL      z_ven_chp = 0
VARIAVEL      z_ven_ctd = 0
VARIAVEL      z_ven_ctp = 0
VARIAVEL      z_ven_cov = 0
VARIAVEL      z_out_rec = 0
VARIAVEL      Z_TOT_LIQ = 0
COMANDO DEPOIS  z_tot_liq = z_ven_esp+z_ven_chd+z_ven_chp+z_ven_ctd+z_ven_ctp+z_ven_cov+z_out_rec

T10,10,14,60,Entre com a Data
T2,2,Data a Processar:,8,z_dia,99.99.99

COMANDO ANTES vales->( DbSeek(dtos(z_dia),.T.))
COMANDO ANTES vales->( Dbskip (-1) )
COMANDO ANTES z_vlantes = z_vlantes + if( vales->dtfdcx < z_dia, vales->VLFDCX,0)
*COMANDO ANTES devout( chr(15) )
COMANDO ANTES Dbseek(dtos(z_dia))

REPITA ENQUANTO z_dia = cr_dt_lqd

COMANDO DURANTE  z_ven_esp = z_ven_esp + iif(cr_tip_dup = "ES", cr_val_lqd,0)
COMANDO DURANTE  z_ven_chd = z_ven_chd + iif(cr_tip_dup = "CH" .and. cr_dt_doc = z_dia, cr_val_lqd,0)
COMANDO DURANTE  z_ven_chp = z_ven_chp + iif(cr_tip_dup = "CH" .and. cr_dt_doc <> z_dia, cr_val_lqd,0)
COMANDO DURANTE  z_ven_ctd = z_ven_ctd + iif(cr_tip_dup = "CT" .and. cr_dt_doc = z_dia, cr_val_lqd,0)
COMANDO DURANTE  z_ven_ctp = z_ven_ctp + iif(cr_tip_dup = "CT" .and. cr_dt_doc <> z_dia, cr_val_lqd,0)
COMANDO DURANTE  z_ven_cov = z_ven_cov + iif(cr_tip_dup = "CV", cr_val_lqd,0)
COMANDO DURANTE  z_juros   = z_juros   + iif(cr_val_lqd > cr_valor, cr_val_lqd - cr_valor,0)
COMANDO DURANTE  z_desconto= z_desconto+ iif(cr_val_lqd < cr_valor, cr_valor   - cr_val_lqd,0)
COMANDO DURANTE  z_out_rec = z_out_rec + iif(cr_tip_dup = "QT" .or. cr_tip_dup = "CA", cr_val_lqd,0)

ULTPAG [CHR(15)+Empresa]                            Data [Date()]
ULTPAG [Sistema]                                            Hora [Time()]
ULTPAG Recebimentos Referente ao Dia :  [z_dia]                          Pag [Pag 9999]
ULTPAG
ULTPAG +-------------------------------------------------------------------------+
ULTPAG |   R E S U M O    D O S    R E C E B I M E N T O S     D O     D I A     |
ULTPAG +-------------------------------------------------------------------------+
ULTPAG
ULTPAG Fundo de Caixa Dia Anterior..: [z_vlantes @E 9,999,999.99]  ******
ULTPAG
ULTPAG Valores em Especie...........: [z_ven_esp @E 9,999,999.99]
ULTPAG
ULTPAG Valores em Cheque do Dia.....: [z_ven_chd @E 9,999,999.99]
ULTPAG Valores em Cheque Pre-Datados: [z_ven_chp @E 9,999,999.99] Total dos Cheques: [z_ven_chd+z_ven_chp @E 9,999,999.99]
ULTPAG
ULTPAG Valores no Cartao do Dia.....: [z_ven_ctd @E 9,999,999.99]
ULTPAG Valores no Cartao Pre-Datados: [z_ven_ctp @E 9,999,999.99] Total dos Cartoes: [z_ven_ctd+z_ven_ctp @E 9,999,999.99]
ULTPAG
ULTPAG Valores no Fiado/Convenio....: [z_ven_cov @E 9,999,999.99]
ULTPAG                                             Total dos Juros..: [z_juros @E 9,999,999.99]
ULTPAG Outros Recebimentos..........: [z_out_rec @E 9,999,999.99] Total de Desconto: [z_desconto @E 9,999,999.99]
ULTPAG
ULTPAG TOTAL GERAL LIQUIDO RECEBIDO.: [z_tot_liq @E 9,999,999.99]
