//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 5;18;75;Inclusao de Produto na Tabela;;;;;
:SKEL
VARIAVEL Z_BlkDisp = #TEXTO_FONTE
   sccpfab->(DbGoto(se_prod->PprincForn))
   (DevPos(13,08),DevOut("Fabricante......: "+Str(Se_Prod->Pprincforn,3)+" "+sccpfab->cp_fantasi))
   (DevPos(14,08),DevOut("Grupo de Precos.: "+Se_Prod->PgPreco))
   (DevPos(15,08),DevOut("Categoria Fiscal: "+Se_Prod->Pcategoria))
   (DevPos(16,08),DevOut("Desconto Maximo.: "+Str(Se_Prod->Pdesconto,6,2)+"%"))
   (DevPos(13,45),DevOut("Preco de Venda..: "+Str(Se_Prod->pvluvenda,8,2)))
   (DevPos(14,45),DevOut("Preco de Fabrica: "+Str(Se_Prod->Pvluven3,8,2)))
   (DevPos(15,45),DevOut("Preco Promocao..: "+Str(Se_Prod->Pvluven2,8,2)))
   (DevPos(16,45),DevOut("Termino Promocao: "+Dtoc(Se_Prod->PdataProg)))
   Return .t.
#FIM_TEXTO_FONTE
VARIAVEL m_cr_cod_cli := if(type("m_fcli")<>"U", m_fcli, m_cr_cod_cli)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Produto:;N;6;Pcod;999999;;psq_brow;se_prod;pseprod;N;S; 2;23;pdesc;@s35;
 1; 3; 3;Valida Apenas para o Cliente.:;N;6;cr_cod_cli;99999;;Chk_LastKey(5).or.m_cr_cod_cli=0.or.psq_brow();sccrcli;psccrcli;N;N;;;;;
 1; 4; 3;Apenas para o Plano Pagamento:;N;3;cr_tabela;99999;;Chk_LastKey(5).or.(m_cr_cod_cli+m_cr_tabela)>0.or.(Alert("Voce precisa indicar um cliente"+chr(59)+"ou uma Tabela ou Plano de Pagamento",,"B/W"),.f.);
 1; 5; 3;Preco para o Plano/Cliente...:;N;8;PVLUVEN2;99999.99;sGuiMode.or.eval(z_blkdisp);;;;N;; 0; 0;;;
 1; 6; 3;Desconto no Plano/Cliente....:;N;6;Pdescprom;9999.99;(m_Pdescprom:=if(m_PVLUVEN2>0.and.se_prod->pVluVenda>0, 100*se_prod->((pVluVenda-m_PVLUVEN2)/pVluVenda), m_Pdescprom), RefreshGetList(), m_PVLUVEN2=0);(m_PVLUVEN2:=se_prod->pVluVenda*(1-m_Pdescprom/100),RefreshGetList());;;N;; 0; 0;;;