//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;5;8;19;74;Item de Orcamento;;;;;
:SKEL 
Variavel m_idCotacao := sx_orc_d->IdCotacao
Variavel m_cp_desc := sx_orc_d->cp_desc
VARIAVEL m_mvalor := 0

VARIAVEL zbDadosProd := {|| se_prod->(m_pdesc:=pdesc,m_PUNIDADE:=PUNIDADE,m_pVluVen3:=pVluVen3),RefreshGetList()}
VARIAVEL zbmValor := {||m_mvalor:=m_MQUANT*m_pVluVen3,RefreshGetList()}

COMANDO DEPOIS reglock()
COMANDO DEPOIS put_var("DATA",s_datual)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo da  Cotacao:;N; 6;IdCotacao;999999;.f.;
 1; 3; 2;Assunto da Cotacao:;C;40;CP_DESC;@S40;.f.;;

 1; 5; 2;Codigo do Produto:;N; 6;PCOD;999999;;psq_brow().and.eVal(zbDadosProd);se_prod;PSEPROD;N;S; 0; 0;;;
 1; 6; 2;Descricao do Item:;C;30;Pdesc;@!30;m_pCod=0;
 1; 7; 2;Unidade de Compra:;C; 6;PUNIDADE;@S6;m_pCod=0;

 1; 9; 2;Quantidade a ser Comprada......:;N;10;MQUANT;9999999.99;;m_mquant>0.and.eVal(zbmValor);;;N;; 0; 0;;;
 1;10; 2;Ultimo Preco Unit. de Aquisicao:;N;10;pVluVen3;9999999.99;;;;;N;; 0; 0;;;
 1;11; 2;Valor Total pela Ultima Compra.:;P;10;m_mvalor;9999999.99;.f.;;
 1;12; 2;%IPI na Compra...:;N; 6;pipient;999.99;;
