//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 3;21;79;Ficha de Nota de Entrada;;;;;
:SKEL
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Fornecedor..........:;N; 5;PFFOR;99999;;
 1; 3; 2;Cliente (Devolucao).:;N; 5;PFCLIENTE;99999;;;
 1; 4; 2;Numero da N.F.......:;N; 9;PFNUM;999999999;;
 1; 4;42;Serie e Subserie.:;C; 3;PFSERIESUB;xxx;;;;
 1; 5; 2;Cod Operacao Fiscal.:;C; 5;PFCODOP;XXXXX;;right(m_pfcodop,1)<>" ".and.psq_brow;SF_CODOP;psfcodop;N;S; 0; 0;;;
 1; 7; 2;Data da Chegada.....:;D; 8;PFDATACHE;;;
 1; 7;42;Data da Emissao..:;D; 8;PFDATAEMI;;;
 1; 9; 2;Valor Contabil......:;N;11;PFVAL;99999999.99;;;
 1;10; 2;Valor dos Produtos..:;N;11;PFVALTOT;99999999.99;;
 1; 9;42;Total do IPI.....:;N;11;PFTOTIPI;99999999.99;;
 1;10;42;Valor do Frete...:;N;11;PFfrete;99999999.99;;
 1;12; 2;Base de Cal. do ICMS:;N;11;PFBASEICMS;99999999.99;;
 1;13; 2;Taxa do ICMS........:;N; 8;PFTAXAICMS;999.99;;;
 1;14; 2;Total do ICMS.......:;N;11;PFTOTICMS;99999999.99;(m_PFTOTICMS:=m_pfbaseicms*m_PFTAXAICMS/100,.t.);
 1;15; 2;Total de Isentas....:;N;10;ficmisenta;9999999.99;;;;
 1;16; 2;Total de Outras.....:;N;10;ficmoutras;9999999.99;(m_ficmoutras:=(m_pfval-m_pfbaseicms-m_ficmisenta),.t.);;;
 1;12;42;Observacoes......:;M;10;PFOBS;9Memo];;Editor(@m_PFOBS,"Observacoes da Nota de Entrada ",3,0,22,79);;;N;;0;0;;;
 1;13;42;(Rtrim(Memoline(m_pfobs,38,1)));
 1;14;42;(Rtrim(Memoline(m_pfobs,38,2)));
 1;15;42;(Rtrim(Memoline(m_pfobs,38,3)));
 1;16;42;(Rtrim(Memoline(m_pfobs,38,4)));
 