SG_PRDLJ;("Lj:"+Str(sg_rtml->ploja)+" "+alltrim(sg_rtml->ptipo))+" "+alltrim(sg_rtml->pref)+" "+Alltrim(sg_rtml->pmarcamode);skip_blk(x);7;3;20;79;padrao;;
:SKEL
VARIAVEL W_CHAVE = sg_rtml->ptipo+sg_rtml->PREF+sg_rtml->pmarcamode+Str(sg_rtml->Ploja,2)
VARIAVEL W_MENSAGEM = "Sem mais "+sg_rtml->ptipo+sg_rtml->PREF+sg_rtml->pmarcamode+Str(sg_rtml->Ploja,2)
VARIAVEL W_BLOCK = { || W_CHAVE <> ptipo+PREF+pmarcamode+Str(ploja,2) }
VARIAVEL Z_BLOCKP = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
COMANDO ANTES ABRA("0",R_SIGA,SE_PROD,"SE_PROD",SEIP_C,"PCOD")
COMANDO ANTES DBSELECTAREA("SG_PRDLJ")
COMANDO ANTES Z_NIL = DbSetFilter( {||peatual>0}, "peatual>0")
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\sg_prdl0")
COMANDO DEPOIS Z_NIL = Se_Prod->( DbCloseArea() )
:TBMT
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 47;displsdse(ploja,pcod);/-Demanda ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 67;tb_locate(D_OB);C-Continua ;
 84;tb_locate(D_OB);T-Trecho ;
 76;tb_locate(D_OB);L-Iniciais ;
:TBFI
Cod;PCOD;N;99999;  5;;
Descricao;eval(z_blockp,pcod);C;@s35;35;N;
Ref.Fab;se_prod->preffab;C;@s10;10;N;
Saldo;PEATUAL;N;9999;  4;;
PrVend;PVLUVENDA;N;999.99;  8;;
Tipo;Ptipo;C;@S5; 5;;
Marca;PREF;C;@S15; 15;;
Modelo;PMARCAMODE;C;@S20; 20;;
Lj;PLOJA;N;99;  2;;
