SG_RTL;("Marcas de "+alltrim(SG_lt->ptipo)+" da loja "+str(SG_lt->ploja,2));skip_blk(x);2;23;22;79;x;;
:SKEL
VARIAVEL W_CHAVE = Str(SG_lt->ploja,2)+SG_lt->ptipo
VARIAVEL W_MENSAGEM = "Sem mais marcas de "+SG_lt->ptipo+" da loja "+Str(SG_lt->ploja,2)
VARIAVEL W_BLOCK = { || W_CHAVE <> Str(ploja,2)+ptipo }
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\SG_ltr")
:TBMT
 13;Cibrow("SG_RTML",,"SG_TLRM");Enter-Modelos ;
 47;displsdse(ploja,pref+ptipo,"T");/-Demanda ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Lj;ploja;N;99;2;;
Tipo;ptipo;C;@s5;5;;
Marca;pref;C;@s15;15;;
Saldo;PEATUAL;N;999999;  6;;
Pr Venda;PVLUVENDA;N;9999,999.99;11;;
Grps;PITENS;N;9999;  4;;
