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
T4,30,20,60,Parametros
*- 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


VARIAVEL z_15    = MemoRead(r_siga-"RPT\CCOBM01.LST')
VARIAVEL z_30    = MemoRead(r_siga-"RPT\CCOBM02.LST')
VARIAVEL z_40    = MemoRead(r_siga-"RPT\CCOBM03.LST')
VARIAVEL z_45    = MemoRead(r_siga-"RPT\CCOBM04.LST')

VARIAVEL z_txt1  = ""
VARIAVEL z_dias  = "  "
VARIAVEL z_nl    = chr(13)+chr(10)
VARIAVEL lst_tp  = 999

FILTRO  geracarta( sccrcli->(recno()) , "T", z_dias )
COMANDO DURANTE z_ndias = date() - sccrdup->cr_dt_venc
COMANDO DURANTE pag=0
COMANDO DURANTE Z_NUMPED  = rtrim(sccrdup->cr_num_ped)
COMANDO DURANTE Z_DTEMIS  = dtoc(sccrdup->cr_dt_emis)
COMANDO DURANTE Z_VALEMIS = ltrim(transform(sccrdup->cr_valor,"@E 999,999,999.99"))
COMANDO DURANTE Z_DTVENC  = dtoc(sccrdup->cr_dt_venc)
COMANDO DURANTE Z_DIASV   = ltrim(str(z_ndias,3))

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

INCLUDE CCOBF00.LST
