SG_RTL;("Marcas de "+alltrim(SG_lt->ptipo)+" na loja "+str(SG_lt->ploja,2));skip_blk(x);2;5;22;79;x;;
:SKEL
VARIAVEL W_CHAVE = SG_lt->ptipo+Str(SG_lt->ploja,2)
VARIAVEL W_MENSAGEM = "Sem mais marcas de "+SG_lt->ptipo+" na loja "+Str(SG_lt->ploja,2)
VARIAVEL W_BLOCK = { || W_CHAVE <> ptipo+Str(ploja,2) }
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\SG_TLR_V")
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\SG_TLR")
:TBMT
 13;Cibrow("SG_RTML",,"SG_TLRM");Enter-Modelos ;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 47;displsdse(ploja,pref+ptipo,"I");/-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
Marca;pref;C;@s15;15;;
Saldo;PEATUAL;N;@E 999,999;  7;;
Val_Custo;PVLUVEN3;N;@E 99999,999;9;;
%Marg;if(Pvluvenda>0,100*(Pvluvenda-PVLUVEN3)/Pvluvenda,0);N;@E 999.9%;6;;
PmVen;if(peatual>0,PVLUVENDA/Peatual,0);N;@E 9999.99;7;;
Val_Venda;PVLUVENDA;N;99,999,999;10;;
Tipo;ptipo;C;@s5;5;;
Lj;ploja;N;99;2;;
Grps;PITENS;N;9999;  4;;
