SE_PROD;("Refs.de Fabrica de "+alltrim(sg_rt->ptipo)+" "+alltrim(sg_rt->pref)+" "+alltrim(sg_rtm->pmarcamode));skip_blk(x);3;0;22;79;padrao;;
:SKEL
VARIAVEL W_CHAVE = sg_Rt->PREF+sg_rtm->pmarcamode+sg_rt->ptipo
VARIAVEL W_MENSAGEM = "Sem mais "+sg_rt->pref+sg_rtm->pmarcamode+sg_rt->ptipo
VARIAVEL W_BLOCK = { || W_CHAVE <> PREF+pmarcamode+ptipo }
COMANDO ANTES Z_NIL = DbSetFilter( {||peatual>0}, "peatual>0")
COMANDO ANTES Z_NIL = DbClearIndex()
COMANDO ANTES Z_FGCRIA = !file(r_siga+"ntx\seip_rmt"+ordbagext()).or.SIMNAO(24,0,"Reclassifico Produtos por Referencias?  ","Sim ","Nao ",2,0)
COMANDO ANTES Z_NIL = if(Z_FGCRIA,Mensagem("Aguarde...Selecionando Referencias do Produto..."),.f.)
COMANDO ANTES Z_NIL = if(Z_FGCRIA,ordCreate(r_siga+"ntx\seip_rmt",,"PREF+pmarcamode+ptipo",_CreateBlock('PREF+pmarcamode+ptipo')),"")
COMANDO ANTES Z_NIL = DbSetIndex(r_siga+"ntx\seip_rmt")
// 69;ext_screen(pcod);Barra-Extrato ;
:TBMT
 13;doget(d_Ob);Enter-Edita ;
 32;Cibrow("SG_PRDLJ",,"SG_PRDLJ");Barra-Est.Lojas ;
 69;troca_rmt(ptipo,pref,pmarcamode,pdesc);Barra-Atualiza ;
 47;disp_sdse(pcod);/-Demanda;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 67;tb_locate(D_OB);C-Continua Pesquisa;
 84;tb_locate(D_OB);T-Localiza Trecho;
 76;tb_locate(D_OB);L-Localiza Iniciais;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Descricao;PDESC;C;@s21;21;S;
Saldo;PEATUAL;N;99999;5;N;
Ref.Fabr;Preffab;C;@S10;10;S;;
Cod;PCOD;N;99999;5;N;
PrCust;PVLUVEN3;N;9999.99;  8;;
PrPrazo;PVLUVENDA;N;9999.99;7;S;
Desct;pdesconto;N;999.9%;  6;;
PrVista;PVLUVENDA*(1-PDESCONTO/100);N;9999.99;7;N;
Margem;if(pvluvenda>0,100*((PVLUVENDA*(1-PDESCONTO/100))-PVLUVEN3)/(PVLUVENDA*(1-PDESCONTO/100)),0);N;999.9%;  6;N;
Div;PDIVISAO;C;xxxx;  4;;
Marca;Pref;C;@s15;15;S;
Tipo;ptipo;C;@S5;5;S;
Modelo;Pmarcamode;C;@s20;20;S;
Cor;Pcor;C;@s12;12;S;
Tamanho;Ptam;C;@s10;10;S;
G;Pgpreco;C;X;  1;;
CF;pcategoria;C;!!!;2;S;
E Contr;PEATx;N;9999999;  7;;
E Min;PEMIN;N;999999;  6;;
Un;PUNIDADE;C;xxxxx;  5;;
Fracao;PITENS;N;9999;  4;;
Fabr;PPRINCFORN;N;999;  3;;
E Max;PEMAX;N;999999;  6;;
CO;PCODORI;N;9;  1;;
L Prc;PFGLPRE;C;x;  1;;
Em Prom;PFGPROM;C;x;  1;;
