* Voce esta na area do SCCRCLI
*

OUTROARQ sccrdup sccrdup strzero(cr_cod_cli,5)+dtos(cr_dt_emis)
OUTROARQ lojas

VARIAVEL z_cli   = 0
VARIAVEL z_d1    = 15
VARIAVEL z_d2    = 30
VARIAVEL z_d3    = 40
VARIAVEL z_d4    = 45
VARIAVEL z_15    = ""
VARIAVEL z_15_2  = ""
VARIAVEL z_30    = ""
VARIAVEL z_40    = ""
VARIAVEL z_45    = ""
VARIAVEL z_txt1  = ""
VARIAVEL z_dias  = "15"
VARIAVEL z_newline = chr(13)+chr(10)

T4,30,20,60,Informacoes
*T2,2,Informe o Codigo do Cliente
*T3,2,para o qual deseja impressao de
*T4,2,Cartas de Cobranca.
*T6,2,As cartas serao impressas apenas
*T7,2,se houver duplicatas vencidas ha
*T8,2,uma quantidade de dias igual a
*T9,2,discriminada abaixo:

T06,2,Cliente:,5,z_cli,99999
T08,2,Atraso 1 em Dias...:,2,z_d1,99
T09,2,Atraso 2 em Dias...:,2,z_d2,99
T10,2,Atraso 3 em Dias...:,2,z_d3,99
T11,2,Atraso 4 em Dias...:,2,z_d4,99

COMANDO ANTES DbGoto(z_cli)
COMANDO ANTES z_dias = str(z_d1,2)+"/"+str(z_d2,2)+"/"+str(z_d3,2)+"/"+str(z_d4,2)

REPITA ENQUANTO z_cli == recno()
FILTRO  geracarta( z_cli , "T", z_dias )

COMANDO DURANTE z_ndias  = date() - sccrdup->cr_dt_venc

COMANDO DURANTE z_15 =        "NÆo tendo o prezado cliente efetuado o pagamento "
COMANDO DURANTE z_15 = z_15 + "da duplicata n§ "+ltrim(sccrdup->cr_num_ped)+", emitida em "+dtoc( sccrdup->cr_dt_emis )+", no valor "
COMANDO DURANTE z_15 = z_15 + "de R$ "+ltrim(transform( sccrdup->cr_valor, "@E 999,999,999.99"))+" e com vencimento em "+dtoc(sccrdup->cr_dt_venc)
COMANDO DURANTE z_15 = z_15 + ", consequentemente j   com "+ltrim(str(z_ndias,3))+" dias em atrazo, o que acreditamos "
COMANDO DURANTE z_15 = z_15 + "tenha ocorrido por um pequeno descuido, vimos manifestar "
COMANDO DURANTE z_15 = z_15 + "nossa satisfaÆo em receber a sua visita nos pr¢ximos dias."
COMANDO DURANTE z_15 = z_15 + z_newline+z_newline
COMANDO DURANTE z_15 = z_15 + "Conforme Art. 42 da Lei 8078."
COMANDO DURANTE z_15 = z_15 + z_newline+z_newline
COMANDO DURANTE z_15 = z_15 + "OBS.: *** Caso V.Sa. j  tenha pago, mesmo assim, "
COMANDO DURANTE z_15 = z_15 + "pedimos que comparea em nossa loja, ou entre "
COMANDO DURANTE z_15 = z_15 + "em contato pelos nossos telefone (083) 222-2648, "
COMANDO DURANTE z_15 = z_15 + "(083) 222-0823, (083) 222-4841, para que com "
COMANDO DURANTE z_15 = z_15 + "muita satisfaÆo, possamos regularizar este "
COMANDO DURANTE z_15 = z_15 + "impasse. ***"

COMANDO DURANTE z_30 =        "Em face do nÆo cumprimento por parte de V.Sa. das "
COMANDO DURANTE z_30 = z_30 + "condiäes estabelecidas no TAD-TERMO, n§ "+ltrim(sccrdup->cr_num_ped)+", emitida "
COMANDO DURANTE z_30 = z_30 + "em "+dtoc( sccrdup->cr_dt_emis )+", no valor de R$ "+ltrim(transform( sccrdup->cr_valor, "@E 999,999,999.99"))+" e com vencimento "
COMANDO DURANTE z_30 = z_30 + "em "+dtoc(sccrdup->cr_dt_venc)+", consequentemente j  com "+ltrim(str(z_ndias,3))+" dias em "
COMANDO DURANTE z_30 = z_30 + "atrazo, TAD-TERMO este, assinado por V.Sa.. Solicitamos pois "
COMANDO DURANTE z_30 = z_30 + "o seu urgente comparecimento no sentido de  atualizar  esta "
COMANDO DURANTE z_30 = z_30 + "prestaÆo."
COMANDO DURANTE z_30 = z_30 + z_newline
COMANDO DURANTE z_30 = z_30 + "Conforme Art. 42 da Lei 8078."
COMANDO DURANTE z_30 = z_30 + z_newline
COMANDO DURANTE z_30 = z_30 + "OBS.: ***  Continuamos pedindo que, caso V.Sa. j  "
COMANDO DURANTE z_30 = z_30 + "tenha ou nÆo pago esta prestaÆo, que comparea ou "
COMANDO DURANTE z_30 = z_30 + "entre em contato pelos nossos telefone (083) 222-2648 "
COMANDO DURANTE z_30 = z_30 + "(083) 222-0823, (083) 222-4841, para que com "
COMANDO DURANTE z_30 = z_30 + "muita satisfaÆo, possamos regularizar este "
COMANDO DURANTE z_30 = z_30 + "impasse. ***"

COMANDO DURANTE z_40 =        "NÆo tendo V.Sa. atendido aos nossos avisos, solicitando "
COMANDO DURANTE z_40 = z_40 + "a regularizaÆo da duplicata n§ "+ltrim(sccrdup->cr_num_ped)+", emitida "
COMANDO DURANTE z_40 = z_40 + "em "+dtoc( sccrdup->cr_dt_emis )+", no valor de R$ "+ltrim(transform( sccrdup->cr_valor, "@E 999,999,999.99"))+" e com vencimento "
COMANDO DURANTE z_40 = z_40 + "em "+dtoc(sccrdup->cr_dt_venc)+", consequentemente j   com "+ltrim(str(z_ndias,3))+" dias em "
COMANDO DURANTE z_40 = z_40 + "atrazo, junto a nossa empresa, informamos que poderemos tomar "
COMANDO DURANTE z_40 = z_40 + "as medidas legais permiss¡veis: Registro  no S.P.C., o "
COMANDO DURANTE z_40 = z_40 + "o que impossibilitar  a realizaÆo de novas compras no comrcio "
COMANDO DURANTE z_40 = z_40 + "cio e impedir  o acesso as instituiäes financeiras."
COMANDO DURANTE z_40 = z_40 + z_newline
COMANDO DURANTE z_40 = z_40 + "Conforme Art. 42 da Lei 8078."
COMANDO DURANTE z_40 = z_40 + z_newline
COMANDO DURANTE z_40 = z_40 + "OBS.: ** Estamos prontos a restabelecer seu crdito "
COMANDO DURANTE z_40 = z_40 + "na praa caso ocorra a liquidaÆo da d¡vida  em "
COMANDO DURANTE z_40 = z_40 + "72 HORAS. ** pedimos ainda que, caso j  tenha pago "
COMANDO DURANTE z_40 = z_40 + "comparea em nossa loja ou entre em contato  pelos "
COMANDO DURANTE z_40 = z_40 + "nossos telefone (083) 222-2648, (083) 222-0823, "
COMANDO DURANTE z_40 = z_40 + "(083) 222-4841, afim de que seja poss¡vel a regularizar "
COMANDO DURANTE z_40 = z_40 + "da melhor maneira este impasse."

COMANDO DURANTE z_45 =        "Conforme notificaÆo j  enviada sobre o atrazo da "
COMANDO DURANTE z_45 = z_45 + "duplicata n§ "+ltrim(sccrdup->cr_num_ped)+", emitida em "+dtoc( sccrdup->cr_dt_emis )+", no valor "
COMANDO DURANTE z_45 = z_45 + "de R$ "+transform( sccrdup->cr_valor, "@E 999,999,999.99")+" e com vencimento em "+dtoc(sccrdup->cr_dt_venc)+",consequentemente"
COMANDO DURANTE z_45 = z_45 + "j  com "+str(z_ndias,3)+" dias em atrazo, lamentamos informar-lhe "
COMANDO DURANTE z_45 = z_45 + "que o seu nome j  foi incluido na lista de registro "
COMANDO DURANTE z_45 = z_45 + "do S.P.C. - SERVIO DE PROTEÇO AO CRDITO, impossibilitando-o "
COMANDO DURANTE z_45 = z_45 + "de realizar neg¢cios comrciais e financeiros."
COMANDO DURANTE z_45 = z_45 + "Solicitamos, pois seu urgente comparecimento ao "
COMANDO DURANTE z_45 = z_45 + "nosso Setor de Cobrana, para podermos atende-lo da melhor "
COMANDO DURANTE z_45 = z_45 + "maneira poss¡vel."
COMANDO DURANTE z_45 = z_45 + z_newline
COMANDO DURANTE z_45 = z_45 + "Ap¢s o prazo exigido por lei, estaremos remetendo "
COMANDO DURANTE z_45 = z_45 + "seu titulo acima discriminado, para o setor jur¡dico, o que "
COMANDO DURANTE z_45 = z_45 + "poder  tornar dif¡cil um acordo amig vel."
COMANDO DURANTE z_45 = z_45 + "A sua presena, com a pronta soluÆo, restabelece"
COMANDO DURANTE z_45 = z_45 + "o seu crdito na pr¢pria loja, po¡s temos interesse em man-"
COMANDO DURANTE z_45 = z_45 + "te-lo sempre como nosso cliente."

COMANDO DURANTE z_txt1 = ""
COMANDO DURANTE z_txt1 = iif( z_ndias==z_d1, z_15, z_txt1)
COMANDO DURANTE z_txt1 = iif( z_ndias==z_d2, z_30, z_txt1)
COMANDO DURANTE z_txt1 = iif( z_ndias==z_d3, z_40, z_txt1)
COMANDO DURANTE z_txt1 = iif( z_ndias==z_d4, z_45, z_txt1)

C
D                             [Dia_Ext(DATE())]
D
D
D
D
DPrezado Cliente: [cr_nome]
D                 [cr_rua]
D                 [cr_bairro]
D                 [cr_cidade] [Cr_uf]
D
D
D
D[txt_prt(z_txt1,10,62)]
D
D
D
DNossa Loja: [lojas->cr_nome]
D            [lojas->cr_ender]
D            [lojas->cr_bairro] [lojas->cr_cep]
D            [lojas->cr_cidade] [lojas->cr_uf+chr(12)]
