* Voce esta na area do SCCRDUP
*
*INDEX SCCRD_em Cr_dt_emis
INDEX sccrdupl dtos(cr_dt_EMIS)

VARIAVEL DATA_E = DATE()
VARIAVEL TIPO1 = 0
VARIAVEL TIPO2 = 0
VARIAVEL TIPO3 = 0
VARIAVEL TIPO4 = 0
VARIAVEL TOTAL = 0
VARIAVEL      z_desconto= 0
COMANDO DEPOIS TOTAL = TIPO1+TIPO2+TIPO3+TIPO4

COMANDO DURANTE DATA_E = CR_DT_EMIS
COMANDO DURANTE  tipo1 = TIPO1 + iif(cr_tip_dup = "ES", cr_valor,0 )
COMANDO DURANTE  tipo2 = tipo2 + iif(cr_tip_dup = "CH", cr_valor,0 )
COMANDO DURANTE  tipo3 = tipo3 + iif(cr_tip_dup = "CT", cr_valor,0 )
COMANDO DURANTE  tipo4 = tipo4 + iif(cr_tip_dup = "CV", cr_valor,0 )
COMANDO DURANTE  z_desconto= z_desconto+ iif(cr_val_lqd < cr_valor, cr_valor   - cr_val_lqd,0)

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

*D [CR_VALOR] [CR_TIP_DUP]
*ULTPAG [CHR(15)+Empresa]                            Data [Date()]
*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 Valores em Especie...........: [TIPO1 @E 9,999,999.99]
ULTPAG
ULTPAG Valores em Cheque............: [TIPO2 @E 9,999,999.99]
ULTPAG
ULTPAG Valores no Cartao............: [TIPO3 @E 9,999,999.99]
ULTPAG
ULTPAG Valores no Fiado/Convenio....: [TIPO4 @E 9,999,999.99]
ULTPAG                                                          [Z_DESCONTO]
ULTPAG TOTAL GERAL LIQUIDO RECEBIDO.: [TOTAL @E 9,999,999.99]
