//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 =     'DevPos(12,43),DevOut("%Marg Ult.C (Ultima Compra):"+str((m_pvluvenda-m_pvluven3)/m_pvluvenda*100,5,2)+"%"),'
variavel zNIL =zNIL+'DevPos(13,43),DevOut("%Marg Ult.C Apos Descontos :"+str((m_pvluvenda-m_pvluven3)/m_pvluvenda*100-m_PDESCONTO-m_pdescfarm,5,2)+"%"),'
variavel zNIL =zNIL+'DevPos(15,43),DevOut("%Marg Pr.Aq (Pr. Aquisicao):"+str((m_pvluvenda-m_pvlu)/m_pvluvenda*100,5,2)+"%"),'
variavel zNIL =zNIL+'DevPos(16,43),DevOut("%Marg Pr.Aq Apos Descontos :"+str((m_pvluvenda-m_pvlu)/m_pvluvenda*100-m_PDESCONTO-m_pdescfarm,5,2)+"%"),.t.'
variavel zBlkMarg =_createblock(zNIL)
variavel zNIL =''
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 1;Descricao.:;C;30;PDESC;@s30;;alltrim(m_pdesc)<>"";;;N;; 0; 0;;;
 1; 2;50;Codigo....:;N; 5;PCOD;99999;.f.;;;;S;; 0; 0;;;

// 1; 5; 1;Fabricante:;N; 4;PPRINCFORN;9999;.f.;lastkey()=5 .or. psq_brow;sccpfab;psccpfab;N;N; 5;20;cp_fantasi;@s25;
// 1; 7; 1;Cod Barras:;N;13;pdic6;9999999999999;.f.;;;;N;; 0; 0;;;
 1; 4; 2;Preco Ultima Compra:;N;8;PVLUVEN3;99999.99;.f.;;;;N;; 0; 0;;;
 1; 5; 2;Preco Embalg Compra:;N;8;PVLUtab;99999.99;.f.;;;;N;; 0; 0;;;
 1; 6; 2;Custo de Aquisicao.:;N;8;PVLU;99999.99;.f.;;;;N;; 0; 0;;;
 1; 7; 2;Custo Medio Fiscal.:;N;8;Pcustovar;99999.99;.f.;;;;N;; 0; 0;;;

 1; 4;60;CategFisc:;C; 3;PCATEGORIA;!!!;.f.;;;;N;; 0; 0;;;
 1; 5;60;Lista Pis:;C; 1;PnegPos;!;.f.;;;;N;; 0; 0;;;
 1; 6;60;Divisao..:;C; 4;PDIVISAO;xxxx;.f.;lastkey()=5 .or. psq_brow;se_subd;psesubd;N;S; 4;20;sddesc;@s25;
 1; 7;60;%Ipi Cpra:;N; 5;Pipient;99.99;.f.;;;;N;; 0; 0;;;

 1; 9; 2;%Desconto Permitido na Venda:;N; 7;PDESCONTO;99.99;;eval(zBlkMarg);;;N;; 0; 0;;;
 1;10; 2;Desconto So para o Gerente..?;C; 1;PBLOQVENDA;x;;eval(zBlkMarg);;;N;; 0; 0;;;
 1;11; 2;%Desc Adicional da Gerencia.:;N; 5;pdescfarm;99.99;;eval(zBlkMarg);;;N;; 0; 0;;;
 1;12; 2;%Desc Minimo em Planos Pagto:;N; 5;pdscminimo;99.99;;;;;N;; 0; 0;;;
 1;13; 2;%Desc para Venda em Dinheiro:;N; 5;PDESCBON;99.99;;;;;N;; 0; 0;;;
 1;15; 2;Preco de Venda.........:;N;8;PVLUVENDA;99999.99;eval(zBlkMarg);eval(zBlkMarg);;;N;; 0; 0;;;
 1;16; 2;Preco Promocional......:;N; 7;pvluven2;9999.99;;;;;N;; 0; 0;;;
 1;17; 2;Preco Promoc Valido Ate:;D; 8;pdataprog;;;;;;N;; 0; 0;;;
 1;16;43;Preco de Atacado.....:;N;8;PVLUVEN4;99999.99;;;;;N;; 0; 0;;;
 1;17;43;Qtd Minima Pr Atacado:;N;2;pQuantAtac;99;;;;;N;; 0; 0;;;

 1; 4;38;Grupo Preco:;C; 3;PGPRECO;x;;lastkey()=5 .or. psq_brow;se_gpre;psegpre;N;S; 
 1; 5;38;Embal Compr:;N;4;pitens;9999;;;;;N;; 0; 0;;;
 1; 6;38;%Comis Vist:;N;5;PCOMISVIS;99.99;;;;;N;; 0; 0;;;
 1; 7;38;%Comis Praz:;N;5;PCOMISPRA;99.99;;;;;N;; 0; 0;;;
