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

VARIAVEL z_cli   = 0
VARIAVEL z_t1    = MemoRead(r_siga-"RPT\CCOBM01.LST")
VARIAVEL z_t2    = MemoRead(r_siga-"RPT\CCOBM02.LST")
VARIAVEL z_t3    = MemoRead(r_siga-"RPT\CCOBM03.LST")
VARIAVEL z_t4    = MemoRead(r_siga-"RPT\CCOBM04.LST")
VARIAVEL z_txt1  = ""
VARIAVEL Z_ProxTipo = 0
VARIAVEL lst_tp  = 999

VARIAVEL z_selauto="S"
VARIAVEL Z_TIPO  = " "
VARIAVEL z_update = "N"
VARIAVEL z_NDIASPROX = 0
VARIAVEL Z_DIAS = 0

T6,5,16,78,Parametros
T2,2,Seleciona automaticamente o tipo de carta...................?,1,z_selauto,!
T3,2,Imprime apenas o modelo seguinte (sem reprogramar novo tipo):,1,z_tipo,9,z_selauto<>"S";
T4,2,Atualiza na ficha do cliente o tipo de carta que foi enviado?,1,z_update,!,z_selauto="S";
T5,2,Reprograma envio do proximo tipo para quantos dias .........?,2,z_NDIASPROX,99,z_update="S";

T7,2,Emito Cartas para Titulos com mais quantos dias de Atraso.. ?,3,z_dias,999,;z_dias>0;

COMANDO ANTES Z_ProxTipo = If( Val(Z_Tipo)>0, 1, 0)
FILTRO Z_TIPO=" " .OR. CR_TIP_CART=Z_TIPO
FILTRO geracarta( sd_clicb->cr_cod_cli , "M", z_dias )
*- FILTRO geracarta( sccrcli->(recno()) , "M", z_dias )

COMANDO DURANTE Z_CLI     = CR_COD_CLI
COMANDO DURANTE SCCRCLI->( DbGoto( z_cli ) )
COMANDO DURANTE z_ndias = date() - sccrdup->cr_dt_venc
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( val(cr_tip_car)+1-Z_ProxTipo=1, eval_line(z_t1), z_txt1)
COMANDO DURANTE z_txt1 = iif( val(cr_tip_car)+1-Z_ProxTipo=2, eval_line(z_t2), z_txt1)
COMANDO DURANTE z_txt1 = iif( val(cr_tip_car)+1-Z_ProxTipo=3, eval_line(z_t3), z_txt1)
COMANDO DURANTE z_txt1 = iif( val(cr_tip_car)+1-Z_ProxTipo=4, eval_line(z_t4), z_txt1)

INCLUDE CCOBF00.LST
D[CHR(12)]
