SE_RTML;(alltrim(se_rt->ptipo)+" "+alltrim(se_r->pref)+" "+alltrim(se_rtm->pmarcamode)+" por Lojas");skip_blk(x);3;40;22;77;x;;
:SKEL
VARIAVEL W_CHAVE = SE_R->PREF+se_rt->ptipo+se_rtm->pmarcamode
VARIAVEL W_MENSAGEM = "Sem mais "+se_r->pref+se_rt->ptipo+se_rtm->pmarcamode
VARIAVEL W_BLOCK = { || W_CHAVE <> PREF+ptipo+pmarcamode }
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\se_rtml")
:TBMT
 13;Cibrow("SE_PRDLJ",,"SE_PRDL1");Enter-Refs.Fabr. ;
 47;displsdse(ploja,pref+ptipo+pmarcamode,"M");/-Demanda ;
:TBFI
Lj;Ploja;N;99;2;;
Saldo;PEATUAL;N;999999;  6;;
Pr Venda;PVLUVENDA;N;9999,999.99; 11;;
Refs;PITENS;N;9999;  4;;
