//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;  3; 0;23;79;Inclusao de Produto ;;preget_prd();;posinc_prd();
:SKEL
VARIAVEL znil = if( select("tabela")=0, Abra("0",r_siga,"TABELA","TABELA","tabela3","val(med_abc)","tabela2","med_princi","tabela","med_des") ,"")
VARIAVEL znil = dbselectarea("se_prod")

VARIAVEL xFgPco1 = ( tabela->(fieldpos("Med_Pco1"))>0 )
VARIAVEL zb1Pdesc = _CreateBlock("m_pdesc:=if(m_pdic5>0.and.empty(m_pdesc),pad(tabela->(alltrim(med_des)+' '+alltrim(med_apr)),len(se_prod->pdesc)),m_pdesc),.t.")
VARIAVEL zb2pdic6 = _CreateBlock("m_pdic6:=if(m_pdic5>0.and.empty(m_pdic6),tabela->med_barra,m_pdic6),.t.")
VARIAVEL zb3PNegPos = _CreateBlock('m_PNegPos:=if(m_pdic5>0.and.empty(m_PNegPos),Tabela->( if(MED_NEGPOS="SIM","+",if(MED_NEGPOS="NAO".and.MED_NEUTRO<>"SIM","-","N") ) ),m_PNegPos),.t.')
VARIAVEL zb4Pgenerico = _CreateBlock('m_Pgenerico:=if(m_pdic5>0.and.empty(m_Pgenerico),if(Tabela->Med_Gene="GEN","S","N"),m_Pgenerico),.t.')
VARIAVEL zb5Pprecolib = _CreateBlock('m_Pprecolib:=if(m_pdic5>0.and.empty(m_Pprecolib),if(Tabela->Med_Ctr="M","S","N"),m_Pprecolib),.t.')
VARIAVEL zb7pprincipio = _CreateBlock('m_pprincipio:=if(m_pdic5>0.and.empty(m_pprincipio),tabela->med_princi,m_pprincipio),.t.')
VARIAVEL zb8pVluVen3 = _CreateBlock('m_pVluVen3:=if(m_pdic5>0.and.empty(m_pVluVen3),if( xFgPco1, Tabela->Med_Pla1, Tabela->Med_Pla17),m_pVluVen3),.t.')
VARIAVEL zb9pVluVenda= _CreateBlock('m_pVluVenda:=if(m_pdic5>0.and.empty(m_pVluVenda),if( xFgPco1, Tabela->Med_Pco1, Tabela->Med_Pco17),m_pVluVenda),.t.')
VARIAVEL zb0PvluTab = _CreateBlock('m_PvluTab:=if(empty(m_PvluTab),m_pVluVen3,m_PvluTab),.t.')
comando saida TABELA->(DbCloseArea())
comando saida dbselectarea("se_prod")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 1;50;C.ABCfarma:;N; 8;pdic5;99999999;;m_pdic5=0.or.psq_brow;tabela;ptabela;N;S;;;;;;val(med_abc);

 1; 2; 1;Descricao.:;C;30;PDESC;@s30;eval(zb1Pdesc);alltrim(m_pdesc)<>"";;;N;; 0; 0;;;
 1; 3; 1;Cod Barras:;N;13;pdic6;9999999999999;eval(zb2pdic6);;;;N;; 0; 0;;;

 1; 2;50;Codigo....:;N; 5;PCOD;99999;.f.;;;;S;; 0; 0;;;

 1; 4; 1;Divisao...:;C; 4;PDIVISAO;xxxx;;lastkey()=5 .or. psq_brow;se_subd;psesubd;N;S; 4;20;sddesc;@s25;
 1; 5; 1;Fabricante:;N; 4;PPRINCFORN;9999;;lastkey()=5 .or. psq_brow;sccpfab;psccpfab;N;N; 5;20;cp_fantasi;@s25;
 1; 6; 1;Gp Precos.:;C; 3;PGPRECO;x;;lastkey()=5 .or. psq_brow;se_gpre;psegpre;N;S; 6;20;descricao;@s25;   

 1; 8; 1;Pco Venda.:;N;8;PVLUVENDA;99999.99;eval(zb9pVluVenda);;;;N;; 0; 0;;;
 1; 9; 1;Pco Custo.:;N;8;PVLUVEN3;99999.99;eval(zb8pVluVen3);;;;N;; 0; 0;;;
 1;10; 1;Pco Compra:;N;8;PVLUtab;99999.99;eval(zb0PvluTab);;;;N;; 0; 0;;;
 1;11; 1;%Margem...:;N;8;Pdescvar;999.99;;;;;N;; 0; 0;;;
 
 1;12; 1;%Dsc Compr:;N;8;PdscCompr;999.99;;;;;N;; 0; 0;;;
 1;14;1;Posicao...:;C; 5;PPOSICAO;XXXXX;;lastkey()=5.or.psq_brow;se_posi;pseposi;N;S;;;;;
 
 1;15;1;Est. Min..:;N; 5;Pemin;99.99;;;;;N;; 0; 0;;;
 1;16;1;Est. Max..:;N; 5;Pemax;99.99;;;;;N;; 0; 0;;;
 1;17;1;Dias Estoq:;N; 3;PREPOSICAO;999;;;;;N;; 0; 0;;; 

 1; 4;38;Und.......:;C; 5;PUNIDADE;xxxxx;;;;;N;; 0; 0;;;
 1; 5;38;Fracao.....;N; 4;PITENS;9999;;;;;N;; 0; 0;;;
 1; 6;38;Vnd Bloq..?;C; 1;PBLOQVENDA;x;;;;;N;; 0; 0;;;

 1; 8;25;NCM/SH ....:;N; 8;pCodClaFis;99999999;;;;;
 1;10;25;Desc Permit:;N; 7;PDESCONTO;99.99;;;;;N;; 0; 0;;;
 1;11;25;Desc Sacrif:;N; 5;pdescfarm;99.99;;;;;N;; 0; 0;;;
 1;12;25;Desc Compra:;N; 5;pdesccomp;99.99;;;;;N;; 0; 0;;;
 1;13;25;Desc Minimo:;N; 5;pdscminimo;99.99;;;;;N;; 0; 0;;;
 1;14;25;Desc Avista:;N; 5;PDESCBON;99.99;;;;;N;; 0; 0;;;
 1;15;25;Pr.Promocao:;N; 7;pvluven2;9999.99;;;;;N;; 0; 0;;;
 1;16;25;Dt Promocao:;D; 8;pdataprog;;;;;;N;; 0; 0;;;

 1; 4;60;CategFisc:;C; 3;PCATEGORIA;!!!;;;;;N;; 0; 0;;;
 1; 5;60;Lista Pis:;C; 1;PnegPos;!;eval(zb3PNegPos);;;;N;; 0; 0;;;
 1; 6;60;%repasse.:;N; 5;Prepasse;99.99;;;;;N;; 0; 0;;;
 1; 7;60;%Ipi Cpra:;N; 5;Pipient;99.99;;;;;N;; 0; 0;;;

 1; 9;55;%Comis Vis:;N;5;PCOMISVIS;99.99;;;;;N;; 0; 0;;;
 1;10;55;%Comis Prz:;N;5;PCOMISPRA;99.99;;;;;N;; 0; 0;;;
 1;12;55;Pede Lote  ?;C; 1;ppedelote;;;;;;N;; 0; 0;;;
 1;13;55;Controlado ?;C; 1;pfgcontrol;X;;;;;N;;;;;;
 1;14;55;ValeMais   :;C;1;pvalemais;;;;;N;; 0; 0;;;
 1;15;55;Sub.Fpop...:;N;8;psubsidio;9999.99;;;;;N;; 0; 0;;;
 1;16;55;Aplicacoes.:;N;4;PqtdAplic;9999;;;;;N;; 0; 0;;;
 1;17;54;M.S.:;C;17;pregms;9.9999.9999.999-9;;;;;N;; 0; 0;;;
