//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 1;19;79;Entrada de Mercadorias;;;;posinc_mov("E");
:SKEL
VARIAVEL m_pdic6 = 0
VARIAVEL zBlkPcod = {|x| m_pcod:=se_prod->pcod,.f. }
COMANDO ANTES m_mdata = IF(X_OPERACAO=1,s_datual,M_MDATA)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Cod.Barras..:;P;13;M_PDIC6;9999999999999;;m_pdic6>0.and.psq_brow;se_prod;PSEPRODB;N;S; 0; 0;;;
 1; 3; 2;Cod.Reduzido:;N; 5;PCOD;99999;eval(zBlkPcod);;;;N;S; 0; 0;;;
 1; 4; 2;Data........:;D; 8;MDATA;;gmov_e(.f.,0,9,35,14,77);;;;N;; 0; 0;;;
 1; 5; 2;Quantidade..:;N; 7;MQUANT;9999999;;lastkey()=5 .or. m_mquant>0;;;N;; 0; 0;;;
 1; 6; 2;Valor.......:;N;14;MVALOR;999999999.99;gmov_e(m_mquant,2);;;;N;; 0; 0;;;
 1; 8; 2;Fornecedor..:;N; 4;MCODFORC;9999;;gmov_e(m_mcodforc,1) .and. psq_brow;sccpfor;PSCCPFOR;N;N; 8;30;Cp_nome;@s35;
 1; 9; 2;Num Pedido..:;N; 6;FNUMPED;999999;;lastkey()=5 .or. m_fnumped>0;;;N;; 0; 0;;;
 1;10; 2;N.F. .......:;N; 6;MFNUM;999999;;lastkey()=5 .or. m_mfnum>0;;;N;; 0; 0;;;
