*OUTROARQ SCCRCLI
OUTROARQ sccrdup sccrdup strzero(cr_cod_cli,5)+dtos(cr_dt_emis)

VARIAVEL LST_TP = 62
VARIAVEL Z_UN = 0
VARIAVEL Z_UN1 = 0
VARIAVEL Z_DIAS = 0
VARIAVEL z_rua   = space(35)
VARIAVEL z_bairro= space(20)
VARIAVEL z_cidade= space(20)
VARIAVEL z_uf    = "  "

* VARIAVEL z_selauto="S"
VARIAVEL Z_TIPO  = " "
T8,5,16,78,Parametros

T2,2,Emito Cartas para Titulos com mais quantos dias de Atraso.. ?,3,z_dias,999,;z_dias>0;
T4,2,Rua....:,35,z_rua,@S35
T5,2,Bairro.:,20,z_bairro,@s20
T6,2,Cidade.:,20,z_cidade,@s20
T7,2,UF.....:,2,z_uf,@s2

FILTRO
*- FILTRO geracarta( sccrcli->(recno()) , "M", z_dias )

FILTRO  z_rua=space(35) .or. alltrim(z_rua)$cr_rua
FILTRO  z_bairro=space(20) .or. z_bairro=cr_bairro
FILTRO  z_cidade=space(20) .or. z_cidade=cr_cidade
FILTRO  z_uf="  " .or. z_uf=cr_uf


* COMANDO DURANTE Sccrcli->(DbGoto(Sd_Clicb->Cr_cod_Cli))
COMANDO DURANTE Z_UN = Z_UN + 1
COMANDO DURANTE Z_UN1 = Z_UN1 + sccrdup->cr_valor

CRelacao de Clientes com Cartas de Cobranca para Hoje, emitida em [s_datual] as [time()]hs       Pag[pag 999]
C*** Selecionados Clientes com titulos com atrasos a partir de [z_dias 999] dias
C===================================================================================================================================
CNome do Cliente                        Abertas Quant    Desde Tip DtUlti     Rua                                   Bairro
C===================================================================================================================================
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXX   XXXXXXXXXXXX   XXX
D[Sccrcli->cr_nome @s35] [z_abertas 999,999.99] ([Z_NC 999]) [z_mais_ant] [cr_tip_car] [cr_dt_cart] [sccrcli->cr_Rua] [SccrCli->Cr_Bairro]
ULTPAG
ULTPAG===================================================================================================================================
ULTPAG Total de Clientes ====> [z_un 9999]        Total em Dinheiro =====> [z_un1 @E 999,999,999.99]
ULTPAG===================================================================================================================================
ULTPAG
