* ¨
Voce ¨
esta ¨
na ¨
area ¨
do ¨
SCCRDU¨
P
* 
INDEX ¨
      ¨
  ¨
SCCRDU¨
P ¨
strzer¨
o(cr_c¨
od_cli¨
,5)+dt¨
os(cr_¨
dt_Ven¨
c)

OUTROA¨
RQ ¨
sccrcl¨
i
VARIAV¨
EL ¨
LST_TP¨
 = 65
VARIAV¨
EL ¨
z_aber¨
tas = ¨
0
VARIAV¨
EL ¨
z_cli ¨
    = ¨
0
VARIAV¨
EL ¨
z_taxa¨
    = ¨
0
VARIAV¨
EL ¨
z_juro¨
s   = ¨
0
VARIAV¨
EL ¨
MESES ¨
    = ¨
SUBSTR¨
("JANE¨
IRO  ¨
FEVERE¨
IROMAR¨
CO    ¨
ABRIL ¨
   ¨
MAIO  ¨
   ¨
JUNHO ¨
   ¨
JULHO ¨
   ¨
AGOSTO¨
   ¨
SETEMB¨
RO ¨
OUTUBR¨
O  ¨
NOVEMB¨
RO ¨
DEZEMB¨
RO ¨
",MONT¨
H(S_DA¨
TUAL)*¨
9-8,9)¨

REM ¨
VARIAV¨
EL ¨
DTAEXT¨
 = ¨
STR(DA¨
Y(DATE¨
(),2)

T10,10¨
,14,60¨
,Param¨
etros
T2,2,C¨
odigo ¨
do ¨
Client¨
e:,8,z¨
_cli,9¨
999
REM ¨
T3,2,T¨
axa ¨
de ¨
Juros.¨
...:,6¨
,z_tax¨
a,999.¨
99%

COMAND¨
O ¨
ANTES ¨
sccrcl¨
i->( ¨
DbGoto¨
(z_cli¨
) )
COMAND¨
O ¨
ANTES ¨
Dbseek¨
( ¨
strzer¨
o(z_cl¨
i,5) ¨
)
COMAND¨
O ¨
DURANT¨
E ¨
z_aber¨
tas = ¨
z_aber¨
tas + ¨
iif( ¨
day(cr¨
_dt_lq¨
d)=0, ¨
cr_val¨
or, 0 ¨
)
REM ¨
COMAND¨
O ¨
DURANT¨
E ¨
z_juro¨
s = ¨
z_juro¨
s + ¨
if(dat¨
e()>cr¨
_dt_ve¨
nc,dat¨
e()-cr¨
_dt_ve¨
nc,0)*¨
cr_val¨
or*z_t¨
axa/10¨
0/30

REPITA¨
 ENQUA¨
NTO ¨
z_cli ¨
= ¨
cr_cod¨
_cli

FILTRO¨
   ¨
day(cr¨
_dt_lq¨
d) = ¨
0 ¨
.and. ¨
left(c¨
r_num_¨
ped,1)¨
<>"-" ¨
.AND. ¨
S_DATU¨
AL>CR_¨
DT_VEN¨
C

FORMUL¨
A     ¨
  ¨
z_ven_¨
esp = ¨
z_ven_¨
esp + ¨
iif(cr¨
_tip_d¨
up = ¨
"ES", ¨
cr_val¨
_lqd,0¨
)

C     ¨
      ¨
      ¨
 [chr(¨
27)+'(¨
s14V']¨
Depart¨
amento¨
 de ¨
Cobran¨
ca
C     ¨
      ¨
      ¨
 [chr(¨
27)+'(¨
s7V']
C     ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
CABEDE¨
LO(PB)¨
, ¨
[DAY(S¨
_DATUA¨
L)] ¨
DE ¨
[MESES¨
] DE ¨
[YEAR(¨
S_DATU¨
AL)]
C
C
C
C
CCREDO¨
R.....¨
.: H. ¨
A. ¨
BRITO ¨
COMERC¨
IO ¨
S/A
CSACAD¨
O.....¨
.: ¨
[sccrc¨
li->cr¨
_nome]¨
      ¨
     
CENDER¨
ECO...¨
.: ¨
[sccrc¨
li->cr¨
_rua]B¨
AIRRO.¨
.: ¨
[sccrc¨
li->cr¨
_BAIRR¨
O]
CPROCE¨
SSO...¨
.: ¨
[Z_CLI¨
 9999]¨
      ¨
      ¨
   ¨
CIDADE¨
..: ¨
[sccrc¨
li->cr¨
_cidad¨
e]UF..¨
: ¨
[SCCRC¨
LI->CR¨
_UF]
C
C
CPreza¨
do ¨
(a) ¨
Senhor¨
 (a)
C
C     ¨
  ¨
Vimos ¨
pela ¨
presen¨
te, ¨
comuni¨
car a ¨
V. ¨
Sa. ¨
que ¨
encont¨
ra-se ¨
em ¨
aberto¨
 por ¨
falta ¨
de 
Cpagam¨
ento ¨
os ¨
titulo¨
s ¨
abaixo¨
 relac¨
ionado¨
s de ¨
sua ¨
respon¨
sabili¨
dade.
C
C
C     ¨
      ¨
      ¨
TITULO¨
S No. ¨
 VENCI¨
MENTO ¨
      ¨
   ¨
VALOR
C

D     ¨
      ¨
      ¨
[if(le¨
ft(cr_¨
num_pe¨
d,2)="¨
CH","C¨
H","DP¨
")] ¨
[cr_nu¨
m_ped]¨
  ¨
[cr_dt¨
_venc]¨
    ¨
[cr_va¨
lor ¨
@E ¨
9,999,¨
999.99¨
]

ULTPAG¨

ULTPAG¨
 
ULTPAG¨
      ¨
  Por ¨
outro ¨
lado, ¨
faz-se¨
  ¨
necess¨
ario  ¨
 salie¨
ntar  ¨
que ¨
devido¨
 o ¨
nao  ¨
cumpri¨
mento
ULTPAG¨
 dos ¨
pagame¨
ntos ¨
nos ¨
respec¨
tivos ¨
 venci¨
mentos¨
,  o ¨
total ¨
do  ¨
seu   ¨
debito¨
   ¨
encont¨
ra-se ¨

ULTPAG¨
 regis¨
trado ¨
em ¨
nossa ¨
lista ¨
de ¨
inadim¨
plente¨
s, o ¨
que  ¨
signif¨
ica   ¨
que  ¨
V. ¨
Sa. ¨
esta' ¨
com 
ULTPAG¨
 Restr¨
icoes ¨
de ¨
Credit¨
o ¨
perant¨
e a ¨
nossa ¨
empres¨
a.
ULTPAG¨
      ¨
   ¨
Assim ¨
sendo,¨
 fica ¨
desde ¨
ja' ¨
V. ¨
Sa. ¨
com a ¨
 prese¨
nte  ¨
notifi¨
cacao,¨
 convi¨
dado ¨
a 
ULTPAG¨
 compa¨
recer ¨
no  ¨
prazo ¨
de 72 ¨
hs  ¨
ao  ¨
nosso ¨
 Depar¨
tament¨
o  de ¨
 Credi¨
to e ¨
Cobran¨
ca, ¨
onde 
ULTPAG¨
 aguar¨
daremo¨
s ¨
suas ¨
provid¨
encias¨
 no ¨
que ¨
se ¨
refere¨
  a  ¨
imedia¨
ta ¨
regula¨
rizaca¨
o  de ¨
  sua ¨

ULTPAG¨
 situa¨
cao.
ULTPAG¨
      ¨
   ¨
Por ¨
oportu¨
no,adi¨
antamo¨
s que ¨
o nao ¨
compar¨
ecimen¨
to ou ¨
desate¨
ncao ¨
a ¨
este ¨
aviso,¨

ULTPAG¨
 nos ¨
levara¨
' a ¨
tomar ¨
outras¨
 medid¨
as ¨
cabive¨
is  ¨
para  ¨
resgat¨
e  do ¨
 nosso¨
  ¨
credit¨
o.
ULTPAG¨

ULTPAG¨

ULTPAG¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
 Sem ¨
outro ¨
motivo¨
, ¨
firman¨
o-nos.¨

ULTPAG¨

ULTPAG¨

ULTPAG¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
 Atenc¨
iosame¨
nte,
ULTPAG¨

ULTPAG¨

ULTPAG¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
 -----¨
------¨
------¨
-----
ULTPAG¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
      ¨
  ¨
GERENC¨
IA DE ¨
COBRAN¨
CA