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 lst_tp  = 999
VARIAVEL Z_TIPO  = " "
VARIAVEL Z_DIAS  = 0

*T4,30,20,60,Parametros
*T2,2,Emitir carta Apenas para Cliente.:,5,z_cli,99999
*T3,2,Modelo de Carta a Emitir.........:,1,z_tipo,9
*T4,2,Dias apos emissao da Ultima Carta:,3,z_dias,999

* MANDO ANTES DbGoto(z_cli)
* 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<=1, eval_line(z_t1), z_txt1)
COMANDO DURANTE z_txt1 = iif( val(cr_tip_car)+1=2, eval_line(z_t3), z_txt1)
COMANDO DURANTE z_txt1 = iif( val(cr_tip_car)+1=3, eval_line(z_t4), z_txt1)
COMANDO DURANTE z_txt1 = iif( val(cr_tip_car)+1=4, eval_line(z_t4), z_txt1)

INCLUDE CCOBF00.LST
