OUTROARQ SCCRCLI
OUTROARQ lojas

VARIAVEL z_cli   = 0
VARIAVEL z_t1    = MemoRead(r_siga-"rpt\CCOBMT1.LST")
VARIAVEL z_t3    = MemoRead(r_siga-"rpt\CCOBMT2.LST")
VARIAVEL z_t4    = MemoRead(r_siga-"RPT\CCOBMT3.LST")
VARIAVEL z_t4    = MemoRead(r_siga-"RPT\CCOBMT4.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
T8,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";

COMANDO ANTES Z_ProxTipo = If( Val(Z_Tipo)>0, 1, 0)
FILTRO Z_TIPO=" " .OR. CR_TIP_CART=Z_TIPO
FILTRO (DAY(CR_DT_PCAR)=0.OR.CR_DT_PCAR<=S_DATUAL).and.cr_dt_cart<CR_DT_PCAR

* FILTRO day(cr_dt_cart)=0.or.cr_dt_cart+z_dias<=s_datual

COMANDO DURANTE Z_CLI     = CR_COD_CLI
COMANDO DURANTE Z_NIL     = SCCRCLI->( DbGoto( z_cli ) )
COMANDO DURANTE Z_DTEMIS  = dtoc(Z_MAIS_ANT)
COMANDO DURANTE Z_VALEMIS = ltrim(transform(Z_ABERTAS,"@E 999,999,999.99"))
COMANDO DURANTE Z_DTVENC  = dtoc(Z_MAIS_ANT)
COMANDO DURANTE Z_DIASV   = ltrim(str(S_DATUAL-Z_MAIS_ANT,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)]
