ALIAS SCCRDUP
INDEX    Sccrdup StrZero(Cr_Cod_Cli,6)+cr_num_ped 
OUTROARQ Sccrcli 

VARIAVEL      LST_TP    = 55
VARIAVEL      z_abertas = 0
VARIAVEL      znabertas = 0
VARIAVEL      znparcelas= 0
VARIAVEL      z_cli     = 0
VARIAVEL      Z_TAXA    = 9
VARIAVEL      Z_TJUROS  = 0
VARIAVEL      z_sovencidas  = "N"
VARIAVEL      z_comQuitadas = "N"
VARIAVEL      zcabdtlqd = ""
VARIAVEL      ztipolst  = "* * * RELACAO DE TITULOS * * *"
VARIAVEL      Z_data    = date()
VARIAVEL      zspcmargem = ""
VARIAVEL      zFgJurosCapitalizados:="N"

T10,10,19,60,Parametros
T2,2,Codigo do Cliente......:,4,z_cli,999999
T3,2,Taxa de Juros..........:,5,z_taxa,999.99
T4,2,Juros Capitalizados....?,5,zFgJurosCapitalizados,!
T5,2,Listo Apenas Vencidas..?,1,z_sovencidas,!
T6,2,Listo Ultimas Quitacoes?,1,z_comQuitadas,!
T7,2,Vencimentos Ate........:,8,z_data,99.99.99

COMANDO ANTES ztipolst = ztipolst + if(z_sovencidas="S","** Apenas Titulos Vencidos **","")
COMANDO ANTES ztipolst = ztipolst + if(z_comQuitadas="S","** Listagem com ultimas quitacoes **","")
COMANDO ANTES zcabdtlqd = if(z_comQuitadas="S","Dt_Lqd  Val_Lqd","")
COMANDO ANTES zspcmargem = if(z_comQuitadas="S","",space(5))
COMANDO ANTES sccrcli->( DbGoto(z_cli) )
COMANDO ANTES Dbseek( strzero(z_cli,6) )

REPITA ENQUANTO z_cli = cr_cod_cli

FILTRO   day(cr_dt_lqd) = 0 .or. z_comQuitadas="S"
FILTRO z_sovencidas="N" .or. cr_dt_venc<=z_data .or. z_comQuitadas="S"
* FILTRO   day(cr_dt_lqd) = 0 .and. left(cr_num_ped,1)<>"-"
* FILTRO if(z_sovencidas="S",.t., CR_DT_VENC<=S_DATUAL)

COMANDO DURANTE z_abertas = z_abertas + iif( day(cr_dt_lqd)=0, cr_valor, 0 )
COMANDO DURANTE Znabertas = Znabertas + iif( day(cr_dt_lqd)=0, 1, 0 )
COMANDO DURANTE X_DIAS = S_DATUAL - CR_DT_VENC

T4,2,Juros Capitalizados....?,5,zFgJurosCapitalizados,!

COMANDO DURANTE X_JUROS = (CR_VALOR-CR_VAL_LQD)* if(zFgJurosCapitalizados<>"N", (1+z_taxa/100)**(x_dias/30) , (Z_TAXA/100)/30*X_DIAS)

COMANDO DURANTE X_JUROS = IF(X_JUROS>0,X_JUROS,0)
COMANDO DURANTE Z_TJUROS = Z_TJUROS + X_JUROS
COMANDO DURANTE Z_DIAS = STR(ABS(X_DIAS),4)+IF(X_DIAS>0,"VC","AV")
COMANDO DURANTE Z_DTVENC = left(dtoc(cr_dt_venc),6)+str(year(cr_dt_venc),4)
COMANDO DURANTE Z_DTEMIS = left(dtoc(cr_dt_EMIS),6)+str(year(cr_dt_EMIS),4)
COMANDO DURANTE zdtlqd = if(z_comQuitadas="S".and.day(cr_dt_lqd)>0,dtoc(cr_dt_lqd)+" "+Str(Cr_Val_lqd,8,2),"")

C     Data Emissao: [date()]
C     [repl("_",72)]
C                            Bordero de Cobranca  
C     [repl("-",72)]
C     Cliente...: [sccrcli->cr_nome]    Cod: [z_cli 999999]
C     Endereco..: [sccrcli->cr_rua] CEP: [SCCRCLI->CR_CEP]
C     Cidade....: [sccrcli->cr_cidade]     [sccrcli->cr_bairro @s20]    UF: [sccrcli->cr_uf]
C     Fone......: [sccrcli->cr_fone]
*Contato: [sccrcli->cr_contato]

comando antes zcTipoDeJuros:= if(zFgJurosCapitalizados<>"N","             ","JUROS SIMPLES")

C     CNPJ......: [sccrcli->cr_cgc]       [zcTipoDeJuros]      Taxa:[Z_TAXA @E99]%
C
C
C[padc(ztipolst,78)]
C
C[zspcmargem]TDoc NumTit     Dt Emis    Dt Venc     Principal  Atraso     Juros  [zcabdtlqd]
C
D[zspcmargem][cr_tip_dup] [cr_num_ped]  [Z_dtemis]  [Z_dtvenc]  [cr_valor @E9,999,999.99]  [Z_dias] [X_JUROS @E 99,999.99] [zdtlqd]

COMANDO DEPOIS Z_DEBATUAL = z_abertas+z_tjuros
ULTPAG
ULTPAG              Valor do Principal em Aberto..: [z_abertas @E 9,999,999.99] ([Znabertas 9999] parcelas)
ULTPAG              Total dos Juros sobre Vencidas: [z_tjuros @E 9,999,999.99]
ULTPAG              Debito Principal + Juros......: [z_debAtuAL @E 9,999,999.99] 
ULTPAG                    
