OUTROARQ SCCRDUP SCCRDUP StrZero(cr_cod_cli,6)+dtos(cr_dt_emis)
OUTROARQ SF_VEND 
VARIAVEL LST_TP = 58
VARIAVEL ZTOTAL = 0
VARIAVEL Z_TOTVAL = 0
VARIAVEL ZTOTLQD = 0
VARIAVEL ZNDUPS = 0
VARIAVEL Z_VENCIDO = 0
VARIAVEL Z_AVENCER = 0
VARIAVEL Z_DUPHOJE = 0
VARIAVEL Z_CLI = 0

T10,10,16,60,Parametros
T2,2,DEBITO DE CERTO CLIENTE:,6,z_CLI,999999

SUBLIST SCCRDUP

COMANDO ANTES DBSEEK(STRZERO(SCCRCLI->CR_COD_CLI,6)) 
COMANDO ANTES ZTOTAL = 0 
COMANDO ANTES ZTOTLQD = 0
COMANDO ANTES ZNDUPS = 0 
˙˙˙ 
REPITA ENQUANTO CR_COD_CLI=SCCRCLI->CR_COD_CLI
FILTRO CR_VALOR>0.AND.DAY(CR_DT_LQD)=0.and.CR_COD_CLI=Z_CLI.OR.Z_CLI=0

COMANDO DURANTE ZNDUPS = ZNDUPS + 1

COMANDO DURANTE ZTOTAL = ZTOTAL + CR_VALOR
COMANDO DURANTE ZTOTLQD = ZTOTLQD + CR_VAL_LQD
COMANDO DURANTE SF_VEND->( DBGOTO(VAL(SCCRDUP->CR_ZONA) ))
COMANDO DURANTE Z_TOTVAL = Z_TOTVAL + (CR_VALOR-CR_VAL_LQD)
COMANDO DURANTE Z_VENCIDO = Z_VENCIDO  + iif((DATE()-CR_DT_VENC)>0, cr_valOR-CR_VAL_LQD,0)
COMANDO DURANTE Z_AVENCER = Z_AVENCER  + iif((DATE()-CR_DT_VENC)<0, cr_valOR-CR_VAL_LQD,0)
COMANDO DURANTE Z_DUPHOJE = Z_DUPHOJE  + iif((DATE()-CR_DT_VENC)=0, cr_valOR-CR_VAL_LQD,0)

C
C[EMPRESA]              Relatorio em [DATE()] as [time()]   Pag [pag 9999]
CRelacao Geral das Duplicatas Vencidas e a Vencer por Cliente
C[REPL("=",80)]
CN§PEDIDO  TipV  EMISSAO  VENCIMENTO       VALOR  VAL.PAGO  VAL.PEND. Vendedor
C[REPL("=",80)]
C
FILTROIMP ZNDUPS = 1
DCliente..: [SCCRCLI->CR_COD_CLI 999999]˙ [SCCRCLI->CR_NOME]
˙ 
FILTROIMP DATE()-CR_DT_VENC=0
D[CR_NUM_PED] [CR_TIP_DUP] [CR_DT_EMIS] [CR_DT_VENC] VcHoje [CR_VALOR @E 99, 999.99] [CR_VAL_LQD @E 99,999.99] [CR_VALOR-CR_VAL_LQD @E 99,999.99] CAIXA [STRZERO(SI_CAIXA,2)]
FILTROIMP DATE()-CR_DT_VENC<0
D[CR_NUM_PED] [CR_TIP_DUP] [CR_DT_EMIS] [CR_DT_VENC] [(DATE()-CR_DT_VENC)*-1 @E 9999]AV [CR_VALOR @E 99, 999.99] [CR_VAL_LQD @E 99,999.99] [CR_VALOR-CR_VAL_LQD @E 99,999.99] CAIXA [STRZERO(SI_CAIXA,2)]
FILTROIMP DATE()-CR_DT_VENC>0
D[CR_NUM_PED] [CR_TIP_DUP] [CR_DT_EMIS] [CR_DT_VENC] [DATE()-CR_DT_VENC @E 9999]VC [CR_VALOR @E 99, 999.99] [CR_VAL_LQD @E 99,999.99] [CR_VALOR-CR_VAL_LQD @E 99,999.99] CAIXA [STRZERO(SI_CAIXA,2)]

FILTROIMP ZTOTAL > 0 .OR. ZTOTLQD>0
ULTPAG                    Total em Aberto..: ˙[ztotal @E 99,999.99] [ZTOTLQD @E 99,999.99] [ZTOTAL-ZTOTLQD @E 99,999.99]
FILTROIMP ZTOTAL > 0 .OR. ZTOTLQD>0
ULTPAG[REPL("-",80)]
FILTROIMP ZTOTAL > 0 .OR. ZTOTLQD>0
FIM SUBLIST
ULTPAG[REPL(".",80)]
ULTPAG               TOTAL DE DUPLICATAS PARA RECEBIMENTO NO DIA..: [Z_DUPHOJE @E 999,999,999.99]
ULTPAG               TOTAL DE DUPLICATAS VENCIDAS.................: [Z_VENCIDO @E 999,999,999.99]
ULTPAG               TOTAL DE DUPLICATAS A VENCER.................: [Z_AVENCER @E 999,999,999.99]
ULTPAG                                                              --------------
ULTPAG               TOTAL GERAL DAS DUPLICATAS EM ABERTO.........: [Z_TOTVAL @E 999,999,999.99]
ULTPAG
