SE_PROD;Precos THIAGO Calcados;sys_tbbrow; 8; 0;18;79;se_prod;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
COMANDO ANTES Z_AREAORIG = SELECT()
COMANDO ANTES DbCloseAll()
COMANDO ANTES Abra(z_areaorig,"\global\","se_prod","se_prod",seip_c,"pcod",seip_n,"pdesc","seip_r","preffab")
COMANDO ANTES Abra("0","\global\","se_preco","se_preco","se_prcc","pcod","se_prcn","dtos(pdataalter)+pdivisao+pdesc")
COMANDO ANTES DbSelectArea(Z_areaorig)
:TBMT
 13;gpreco(pcod,D_ob);Enter-Preco_Thiago ;
 32;calc_ndesc(D_ob,,"THIAGO");Barra-Preco_Pz_Vista ;
 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;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 69;ext_screen(pcod,pdatabal);E-Extrato ;
:TBFI
Cod;PCOD;N;99999;5;N;
Descricao;PDESC;C;@s22;22;S;
PrVenda;PVLUVENDA;N;9999.99;7;S;
PrVista;PVLUVENDA*(1-pdesconto/100);N;9999.99;7;N;
Alterado;PdataAlter;D;;8;N;
%Mundo;PdescMundo;N;99.99;5;S;
%Dsc;Pdesconto;N;99.99;5;S;
EAtual;PEATUAL;N;99999;5;N;
Ref.Fabr;Preffab;C;@S8;8;S;;
Tipo;Ptipo;C;@S5;5;S;
Marca/Fabric;Pref;C;@S10;10;S;
Modelo;pmarcamode;C;@s10;11;S;
Prc Cust;PVLUVEN3;N;99999.99;  8;;
Div;PDIVISAO;C;xxxx;  4;;
CF;pcategoria;C;!!!;2;S;
Un;PUNIDADE;C;xxxxx;  5;;
Fracao;PITENS;N;9999;  4;;
CO;PCODORI;N;9;  1;;
