SE_PROD;Cadastro de Produtos;sys_tbbrow; 8; 0;18;79;se_prod;;
//WINDOWS 1;1;298;45;Tecle Esc para Retornar;0;0;0;0;S;
:SKEL
VARIAVEL W_COLSEP = " "+chr(179)
:TBMT
 13;se_doget(D_ob);Enter-Edita Campo;
  7;tb_del(d_ob);Del-Apaga Registro;
 32;tb_cons();Barra-Exibe Registro;
 65;tb_update(D_OB);A-Altera Registro;
 22;upd_prod(1,"T1");Ins-Inclui Registro;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 79;tb_index(D_OB);O-Ordena ;
 -5;vb_prdfalta();F6-Lanca_Falta ;
 73;lst_alias(D_OB);I-Imprime ;
 93;disp_sdse(pcod);]-Demanda;
 69;ext_screen(pcod,pdatabal);E-Extrato ;
:TBFI
Descricao;PDESC;C;@s25;25;N;
Cod;PCOD;N;99999;5;N;
Fabr;PPRINCFORN;N;9999;  4;S;
Div;PDIVISAO;C;xxxx;  4;;
Gp;pgpreco;C;!!;2;S;
CtF;pcategoria;C;!!!;3;S;
L;PnegPos;C;!;1;S;
Pos;PPOSICAO;N;9999;4;S;
Prc Venda;PVLUVENDA;N;999.99;  6;S;
Estoq;PEATUAL;N;999;  3;N;
Principio;Pprincipio;C;@s30;30;S;
Prc Unit;PVLUVEN3;N;999.99;  6;S;
CodFil;PCODFIL;N;99999;5;S;
%Rep;Prepasse;N;99.99; 5; 0;N;
DtAlt;PDATAALTER;D;99/99/99;8;S;
Un;PUNIDADE;C;xx;  3;;N;
VB;pbloqvenda;N;X;  1;S;
*L;PnegPos;C;!;1;S;
*CtF;pcategoria;C;!!!;3;S;
MargemVF;(pvluvenda-pvluven3)/pvluvenda*100;C;999.99%;7;N;
Prc Fab;PVLUtab;N;999.99;  6;N;
*Fabr;PPRINCFORN;N;999;  3;S;
PedeReceita;Preceita;C;x;11;S;
Aplicacoes;PqtdAplic;N;9999;10;S;
Dias;PEATUAL/PEMINCL;N;999;  3;N;
MarkupVF;pvluvenda/pvluven3*100-100;C;999.99%;8;N;
*Gp;pgpreco;C;!!;2;S;
ComV;PCOMISVIS;N;99.99; 5; 0;N;
ComP;PCOMISPRA;N;99.99; 5; 0;N;
MarkupGP;(MarkupPrd(PgPreco)-1)*100;N;999.99%;8;N;
MargemPr;PdescVar;N;999.99%;8;S;
PrecoLb;pPrecoLib;C;!;7;S;
*;IIF(PCPRODFORN>0,"","*");C;X;  1;;
E;pepreco;C;X;1;S;
E Contr;PEATx;N;9999999;  7;;
E Min;PEMIN;N;999999;  6;;
Fracao;PITENS;N;9999;  4;;
Fabr;PPRINCFORN;N;999;  3;;
DtVnd;PDATAVEND;D;99/99/99;8;S;
*Div;PDIVISAO;C;xxxx;  4;;
Ref;PREF;C;XXXX;  4;;
E Max;PEMAX;N;999999;  6;;
CodHAB;PCPRODFORN;N;999999;  6;;
CodABC;PDIC5;N;99999999;  8;;
Cod Barra;Pdic6;N;9999999999999;13;S;
CO;PCODORI;N;9;  1;;
L Prc;PFGLPRE;C;x;5;S;
Em Prom;PFGPROM;C;x;  1;;
Controlado;PFGCONTROL;C;x;  1;;
PrdGener;pGenerico;C;!;8;S;
