FATF_ICM;Notas de Entrada;sys_tbbrow; 8; 0;21;79;padrao;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL w_browrel=.t.
VARIAVEL w_chave = alias()
VARIAVEL Z_SKIPBLK = .F.
VARIAVEL Z_REL = "lst_exec('NFE05')"
VARIAVEL Z_BLOCKPPO =  'zalias:=alias(),z_recn:=recno(),Relat(Z_REL,"nb"),DbCloseAll(),Abra_Arq(zalias), dbgoto(z_recn)'
VARIAVEL Z_BLOCKPPO = _CreateBlock(Z_BlockPpo)
COMANDO ANTES Z_NIL = dbSetFilter( {||pfnum>0}, 'pfnum>0' )
COMANDO ANTES Z_NIL = dbGoBottom()
COMANDO ANTES Z_NIL = dbSkip(-8)

*13;Eval(_CreateBlock("Relat("lst_exec('NFE05')",'nb')"));Enter-Imprime ;
:TBMT
 13;Eval(Z_BlockPpo);Enter-Imprime ;
  7;tb_del(D_ob);DEL-DELeta ;
 32;doget(d_ob);Barra-Edita ;
 65;tb_update(D_OB);A-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
:TBFI
Con;pfconcilia;C;X; 	1;S;
Forn;PFFOR;N;99999;5;;
N.F.;PFNUM;N;999999;6;;
DataCheg;PFDATACHE;D;;  8;;
CFOP;PFCODOP;C;xxxxx;  5;;
ValContab;PFVAL;N;999999.99; 9;;
ICM;PFTAXAICMS;N;999;3;;
Cred.Norm;PFICMNORMA;N;99999.99; 8;;
Cred.Font;PFICMFONTE;N;999999.99; 9;;
BsNaoTrib;PF2ICMNORM;N;999999.99; 9;;
bsFonte;PFICMBFONT;N;999999.99; 9;;
bsNormal;PFICMBNorm;N;999999.99; 9;;
bsIsenta;PFICMISENT;N;999999.99; 9;;
Base ICMS;PFBASEICMS;N;999999.99; 9;;
Tot ICMS;PFTOTICMS;N;999999.99; 9;;
ICM Substituto;PFVALRET;N;999999.99; 9;;
Serie e Sub;PFSERIESUB;C;xxx;  3;;
DataEmis;PFDATAEMI;D;;  8;;
BaseRepasse;PFBASEREP;N;999999.99; 9;;
Val Repasse;PFVALREP;N;999999999.99; 14;;
Desconto;PFVALDES;N;999999999.99; 14;;
Outros;PFOUTROS;N;999999999.99; 14;;
ValTot;PFVALTOT;N;9999999999.99; 15;;
%IPI;PFTAXAIPI;N;999.99;  8;;
Tot IPI;PFTOTIPI;N;999999999.99; 14;;
Data Ped;PFDATAPED;D;;  8;;
TEnc;PFTIPOENC;N;99;  2;;
Parcelas;PFNUMDUP;N;999;  3;;
Venc 1a;PFDATVENC;D;;  8;;
Interv;PFPERIODIC;N;999;  3;;
Ind Corr;PFINDICE;N;99;  2;;
Port;PFLOCAL;N;99;  2;;
Sit;PFSITUACAO;N;99;  2;;
Parc?;PFFGPARCEL;C;x;  1;;
Vista?;PFFGVISTA;C;x;  1;;
Cond;PFCONDICAO;N;999.99;  8;;
ValPri;PFVALPRI;N;9999999999.99; 15;;

ICM entrada;PFICMISENT;N;9;  1;;
Outras;PFICMOUTRO;N;9;  1;;
Isencao IPI;PFIPIISENT;N;9;  1;;
Outras IPI;PFIPIOUTRO;N;9;  1;;
Ativid;PFATIVIDAD;C;@S6;  6;;
ISS;PFISS;N;9;  1;;
Client;PFCLIENTE;N;99999;  5;;
Fat?;FG_FAT;C;x;  1;;
Pedido;PFNUMPED;N;999999;  6;;
ValVenda;PFVALDIA;N;999999.99; 9;;
%Desc;if(pfvaldia>0,(PFVALDIA-pfval)/pfvaldia*100,0);N;999.9;5;;
