SE_PRDLJ;("Cod"+Str(se_Prod->pcod,5)+" ("+alltrim(Se_Prod->Pdesc)+") por lojas");skip_blk(x); 1;35;23;79;x;;
:SKEL
VARIAVEL W_CHAVE = SE_prod->pcod
VARIAVEL W_MENSAGEM = "Sem mais Saldos do Cod"+Str(se_Prod->pcod,5)
VARIAVEL W_BLOCK = { || W_CHAVE <> pcod }
COMANDO ANTES Z_NIL = DbSetFilter( {||peatual>0}, "peatual>0")
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\sg_prdlj")
:TBMT
 47;displsdse(ploja,pcod);/-Demanda ;
:TBFI
Lj;PLOJA;N;99;  2;;
Saldo;PEATUAL;N;9999;  4;;
PrVend;PVLUVENDA;N;999.99;  8;;
Cod;PCOD;N;99999;  5;;
