//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8;24;20;79;Item de Orcamento;;;;;
:SKEL 
VARIAVEL m_mvalor=0
VARIAVEL z_blkmvalor=_CreateBlock("m_mvalor:=m_MQUANT*m_PVLUVENDA,.f.")

VARIAVEL z_xBlk = "zok:=(m_pcod<>0),m_pdesc:=if(zok,se_prod->pdesc,m_pdesc),"
VARIAVEL z_xBlk = z_xBlk+"m_PUNIDADE:=if(zok,se_prod->PUNIDADE,m_PUNIDADE),"
VARIAVEL z_xBlk = z_xBlk+"m_PVLUVENDA:=if(zok,se_prod->PVLUVENDA,m_PVLUVENDA),zok"
VARIAVEL zblkPdesc = _CreateBlock( z_xBlk )
VARIAVEL z_xBlk = ""

COMANDO DEPOIS reglock()
COMANDO DEPOIS put_var("ACESSO",zACESSO)
COMANDO DEPOIS put_var("CP_COD_FOR",zCP_COD_FOR)
COMANDO DEPOIS put_var("CP_FANTASI",zCP_FANTASI)
COMANDO DEPOIS put_var("CP_DESC",zCP_DESC)
COMANDO DEPOIS put_var("DATA",s_datual)
COMANDO DEPOIS put_var("pprecoant",se_prod->PVLUVENDA)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 1;38;Acesso:;P; 6;zACESSO;999999;.f.;;;;N;; 0; 0;;;
 1; 2; 2;Assunto.:;P;40;zCP_DESC;@S40;.f.;;
 1; 3; 2;Fantasia:;P;15;zCP_FANTASI;@!15;.f.;
 
 1; 5; 2;Produto.....:;N; 5;PCOD;99999;;psq_brow;se_prod;PSEPROD;N;S; 0; 0;;;
 1; 6; 2;Descricao...:;C;30;Pdesc;@!30;eval(zblkPdesc);;;;N;; 0; 0;;;
 1; 7; 2;Unid. Compra:;C; 6;PUNIDADE;@S6;;;;;N;; 0; 0;;; 
 1; 8; 2;Ultimo Preco:;N;10;PVLUVENDA;9999999.99;;;;;N;; 0; 0;;;
 1; 9; 2;Quantidade..:;N;10;MQUANT;9999999.99;;m_mquant>0;;;N;; 0; 0;;;
 1;10; 2;Preco Total.:;P;10;m_mvalor;9999999.99;eval(z_blkmvalor);;;;N;; 0; 0;;;
 1;11; 2;%IPI Compra.:;N; 6;pipient;999.99;;
