SE_PRDLJ;("Loja:"+Str(se_rtml->ploja)+" "+alltrim(se_rtml->ptipo)+" "+alltrim(Se_Rtml->pmarcamode));skip_blk(x); 4;12;22;79;x;;
:SKEL
VARIAVEL W_CHAVE = Str(Se_Rtml->ploja,2)+se_rtml->pref+se_rtml->ptipo+Se_Rtml->pmarcamode
VARIAVEL W_MENSAGEM = "Sem mais "+se_rtml->pref+se_rtml->ptipo+Se_Rtml->pmarcamode+" na Loja "+Str(Se_Rtml->ploja,2)
VARIAVEL W_BLOCK = { || W_CHAVE <> Str(ploja,2)+pref+ptipo+pmarcamode }
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\se_prdl1")
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","se_prod","seip_c","pcod")
COMANDO DEPOIS Z_NIL = IF(SELE("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
:TBMT
 13;displsdse(ploja,pcod);Enter-Demanda ;
:TBFI
Lj;PLOJA;N;99;  2;;
Cod;PCOD;N;99999;  5;;
Desc;eval(z_block,pcod);C;@s35;35;N;
Saldo;PEATUAL;N;9999;  4;;
PrVend;PVLUVENDA;N;999.99;  8;;
