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_30    = ""
VARIAVEL z_40    = ""
VARIAVEL z_45    = ""
VARIAVEL z_txt1  = ""
VARIAVEL z_dias  = "  "
VARIAVEL z_newline = chr(13)+chr(10)
VARIAVEL lst_tp = 61
VARIAVEL z_un  = 0
VARIAVEL z_un1 = 0

FILTRO  geracarta( sccrcli->(recno()) , "T", z_dias )

COMANDO DURANTE z_ndias  = date() - sccrdup->cr_dt_venc
COMANDO DURANTE z_un = z_un + 1
COMANDO DURANTE z_un1 = z_un1 + sccrdup->cr_valor

C [Lojas->cr_nome]                        Data [Date()]
C [Lojas->cr_ender]                        Hora [Time()]
C [Lojas->cr_bairro] [Lojas->cr_cep]    
C [Lojas->cr_cidade] [Lojas->cr_uf]
C
C Rela‡Æo dos Clientes com Carta de Cobran‡a
C
C ===============================================================================                                                              
C Nome do Cliente                      Duplicata  Vencimento    Valor R$     ATZ
C ===============================================================================
* XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXXX   XXXXXXXX   XXXXXXXXXXXX   XXX
D [cr_nome @s35]  [(sccrdup->cr_num_ped) xxxxxxxxx]  [dtoc(sccrdup->cr_dt_venc) 99.99.99]  [(sccrdup->cr_valor) @E 999,999,999.99]  [str(z_ndias,3) 999]
ULTPAG
ULTPAG ===============================================================================
ULTPAG Total de T¡tulos ====> [z_un 9999]        Total em Dinheiro =====> [z_un1 @E 999,999,999.99]
ULTPAG ===============================================================================
ULTPAG