SE_PROD;Cadastro de Produtos;sys_tbbrow; 8; 0;18;79;se_prod;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL zQtd = 1
VARIAVEL zTelaVendedorQtd = "1; 10; 12;15;40;Quantidade;"+chr(13)+chr(10)+":TFIE"+chr(13)+chr(10)
VARIAVEL zTelaVendedorQtd = zTelaVendedorQtd + "1;2;4;Garcom....:;P; 3;wOperador;999;;psq_brow;sf_vend;psfvend;N;N;;"+chr(13)+chr(10)
VARIAVEL zTelaVendedorQtd = zTelaVendedorQtd + "1;3;4;Quantidade:;P;3;zQtd;999;;;"
VARIAVEL zbGetOpQtd = {|| QuickDialog("vb_get_vdqtd","Quantidade Pedida",zTelaVendedorQtd), { {pcod,zQtd,pvluvenda,wOperador} } }
:TBMT
 13;StartMesa("lanca_produto", eVal(zbGetOpQtd));Enter-Add_Produto ;
 65;tb_update(D_OB);A-Altera Registro ;
 22;upd_prod(1,"PROD_T0");Ins-CadastraProduto ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 67;tb_locate(D_OB);C-Continua ;
 84;tb_locate(D_OB);T-Trecho;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Descricao;PDESC;C;@s35;35;N;
PrVenda;PVLUVENDA;N;9999.99;7;S;
EAtual;PEATUAL;N;999.999;7;S;
Cod;PCOD;N;999999;6;N;
Cod Barras;Pdic6;N;99999999999999;14;N;
Un;PUNIDADE;C;xx;2;;
CF;pcategoria;C;!!;2;S;
Div;PDIVISAO;C;xxxx;  4;;
G;Pgpreco;C;X;  1;;
Prc Cust;PVLUVEN3;N;99999.99;  8;;
Peso;PeanPeso;C;@S5;4;S;
%Dsc;Pdesconto;N;999.99;6;;
%Prm;Pdescprom;N;999.99;6;;
DataPrec;Pdataalter;D;;10;N;
Tipo;Ptipo;C;@S5;5;S;
%IPI;Pipient;N;999.99;6;S;
*;IIF(PCPRODFORN>0,"","*");C;X;  1;;
Prc Sug.;PVLUsug;N;99999.99;  8;S;
Ref.Fabr;Preffab;C;@S8;8;S;;
Marca/Fabric;Pref;C;@S10;10;S;
Modelo;pmarcamode;C;@s10;11;S;
E Contr;PEATx;N;9999999;  7;;
E Min;PEMIN;N;999999;  6;;
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;;
