//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 0;18;79;Inclusao de Produto na Tabela;;;;;
:SKEL
VARIAVEL zCpFantasi := ""
VARIAVEL zpGpreco   := ""
VARIAVEL zpCategoria:= ""
VARIAVEL zPdescprom := 0
VARIAVEL zpVluVenda := 0
VARIAVEL zpVluVen3  := 0
VARIAVEL zpVluVen2  := 0
VARIAVEL zPDataProg := 0
VARIAVEL zBlDisplay = #TEXTO_FONTE
   zCpFantasi := ( Sccpfor->(DbGoto(se_prod->PprincForn)), AllTrim(Str(Se_Prod->Pprincforn,4)+" "+sccpfor->cp_fantasi) )
   zpGpreco   := Se_Prod->PgPreco   
   zpCategoria:= Se_Prod->Pcategoria
   zPdescprom := Se_Prod->Pdesconto 
   zpVluVenda := Se_Prod->pvluvenda
   zpVluVen3  := Se_Prod->Pvluven3 
   zpVluVen2  := Se_Prod->Pvluven2 
   zPDataProg := Se_Prod->PdataProg
   m_pvluVen2 := if( m_pvluVen2=0, se_prod->pVluVenda, m_pvluVen2)
   m_Pdescprom:= if( m_Pdescprom=0, se_prod->pDesconto, m_Pdescprom)
   m_cr_tabela := if(vb_preco->cr_tabela=0,vb_preco->(Recno()),vb_preco->cr_tabela)
   Return RefreshGetList()
#FIM_TEXTO_FONTE
VARIAVEL zInitTabela := {|| m_cr_tabela:=if(m_cr_tabela=0,vb_preco->Cr_Tabela,m_cr_tabela), RefreshGetList(), .f.}
: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().and.eval(zBlDisplay);se_prod;pseprod;N;S; 2;35;pdesc;@s35;
 1; 3; 3;Numero da Tabela..:;N;3;cr_tabela;999;eVal(zInitTabela);
 1; 4; 3;Preco na Tabela...:;N;8;PVLUVEN2;99999.99;;;
 1; 5; 3;Desconto na Tabela:;N;6;Pdescprom;999.99;;;

 1; 7;2;Preco de Venda..:;P;11;zpVluVenda;99999999.99;.f.;;
 1; 8;2;Preco de Fabrica:;P;11;zpVluVen3;99999999.99;.f.;;
 1; 9;2;Preco Promocao..:;P;11;zpVluVen2;99999999.99;.f.;;
 1;10;2;Termino Promocao:;P;11;zPDataProg;99.99.9999;.f.;;

 1; 7;34;Desconto Maximo.:;P;6;zPdescprom;999.99;.f.;;
 1; 8;34;Grupo de Precos.:;P;3;zpGpreco;XXX;.f.;;
 1; 9;34;Categoria Fiscal:;P;3;zpCategoria;XXX;.f.;;
 1;10;34;Fabricante......:;P;23;zCpFantasi;@S23;.f.;;