//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;  3; 0;23;79;Inclusao de Produto ;;preget_prd();;posinc_prd();
:SKEL
*- Para que o bloco de codigo abaixo funcione eh preciso que os indices do
*- se_prod no alt+8 estejam na ordem: seip_c, seip_n, seip_dc6

VARIAVEL z_xBlk =          "Z_recn:=Recno(),"
VARIAVEL z_xBlk = z_xBlk + "DbSetOrder(3),"
VARIAVEL z_xBlk = z_xBlk + "z_fgExistCod:=DbSeek(x_pdic6).and.z_recn<>recn(),"
VARIAVEL z_xBlk = z_xBlk + "z_nil:=if(z_fgExistCod,Mensagem('Esse Codigo de Barras JA ESTA CADASTRADO !',1),''),"
VARIAVEL z_xBlk = z_xBlk + "DbSetOrder(1),DbGoto(Z_recn),!z_fgExistCod.or.x_pdic6=0"
VARIAVEL zb_PeanOk = _CreateBlock( z_xBlk, {"x_pdic6"} )
VARIAVEL z_xBlk = ""
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Descricao.:;C;30;PDESC;@s30;;alltrim(m_pdesc)<>"";;;N;; 0; 0;;;
 1; 2;50;Codigo....:;N; 5;PCOD;99999;.f.;;;;S;; 0; 0;;;
 1; 3; 3;Principo Ativo.:;C;35;Pprincipio;@s35;;;;;N;; 0; 0;;;
 1; 4; 3;Divisao...:;C; 4;PDIVISAO;xxxx;;lastkey()=5 .or. psq_brow;se_subd;psesubd;N;S; 4;23;sddesc;@s25;
 1; 5; 3;Fabricante:;N; 4;PPRINCFORN;9999;;lastkey()=5 .or. psq_brow;sccpfor;psccpfor;N;N; 5;23;cp_fantasi;@s25;
 1; 6; 3;Gp Precos.:;C; 3;PGPRECO;x;;lastkey()=5 .or. psq_brow;se_gpre;psegpre;N;S; 6;23;descricao;@s25;
 1; 7; 3;Cat Fiscal:;C; 3;PCATEGORIA;!!!;;;;;N;; 0; 0;;;

 1; 4;45;Fracao.....;N; 4;PITENS;9999;;;;;N;; 0; 0;;;
 1; 5;45;Und.......:;C; 5;PUNIDADE;xxxxx;;;;;N;; 0; 0;;;
 1; 6;45;Cod Barras:;N;13;pdic6;9999999999999;;eval(zb_PeanOk,m_pdic6);;;N;; 0; 0;;;
 1; 7;45;Cod Fabric:;N; 4;PCPRODFORN;9999;;;;;N;; 0; 0;;;

 1; 9; 3;Preco Tabela Fabricante:;N;8;PVLUTAB;99999.99;;;;;N;; 0; 0;;;
 1;10; 3;%Desconto Tabela Fabric:;N;6;PDscCompr;99.99%;;;;;N;; 0; 0;;;
 1;11; 3;%Desconto Composto.....:;N;11;PDscString;@s11;;;;;N;; 0; 0;;;
 1;12; 3;%Desconto Repasse ICMS.:;N;6;Prepasse;99.99%;;;;;N;; 0; 0;;;
 1;13; 3;%IPI na Compra.........:;N;6;PipiEnt;99.99%;;;;;N;; 0; 0;;;
 1;14; 3;Preco de Custo.........:;N;8;PVLUVEN3;99999.99;;;;;N;; 0; 0;;;
 1;15; 3;Preco de Venda.........:;N;8;PVLUVENDA;99999.99;;;;;N;; 0; 0;;;
 1;16; 3;%Varejo (%Venda/Custo) :;N; 6;PDESCVAR;99.99%;;;;;N;; 0; 0;;;
 1;17; 3;Bloqueia %Desc na Venda?;C; 1;PBLOQVENDA;x;;;;;N;; 0; 0;;;

 1; 9;45;Desc Max. Venda a Prazo:;N; 7;PDESCONTO;99.99%;;;;;N;; 0; 0;;;
 1;10;45;Desc Max. Venda a Vista:;N; 5;PDESCBON;99.99%;;;;;N;; 0; 0;;;
 1;11;45;Preco Promocional......:;N; 7;pvluven2;9999.99;;;;;N;; 0; 0;;;
 1;12;45;Validade do Preco Prom.:;D; 8;pdataprog;;;;;;N;; 0; 0;;;
 1;13;45;Comis. Venda Vista:;N;5;PCOMISVIS;99.99;;;;;N;; 0; 0;;;
 1;14;45;Comis. Venda Prazo:;N;5;PCOMISPRA;99.99;;;;;N;; 0; 0;;;
 1;15;45;Dias Transito.....:;N; 3;Ptransito;999;;;;;N;; 0; 0;;;
 1;16;45;Dias Reposicao....:;N; 3;PREPOSICAO;999;;;;;N;; 0; 0;;;
 1;17;45;Controlado ANVISA ?;C; 1;pfgcontrol;X;;;;;N;;;;;;
 1;18;45;Posicao Prateleira::;C; 5;PPOSICAO;XXXXX;;;;;N;; 0; 0;;;
