Importação Tabela Ibpt

[dluca]

Prezados amigos

 

Atualizei o acbr total, fiz a recompilação do projeto, e estou tentando importar a nova tabela do IBPTax - TabelaIBPTaxSP14.2.a.csv

 

simplismente o componente nao importa nenhum registro. o arquivo fica zerado.

 

tem algum detalhe a observar ? alguem ja fez esta importação?

 

segue parte do codigo:

 

    if ibpt.AbrirTabela(abrir.FileName) then

    begin

    for I := 0 to ibpt.Itens.Count -1 do

    begin

      tbl_ncm.Insert;

      tbl_ncmid_ibpt.AsInteger := contador;

      tbl_ncmncm_ibpt.AsString := IBPT.Itens.NCM;

      tbl_ncmdescricao.AsString := RetiraAcentos(uppercase(TrimLeft(ibpt.Itens.Descricao)));

      tbl_ncmex_ibpt.AsString  := IBPT.Itens.Excecao;

      tbl_ncmtabela_ibpt.AsString := inttostr(integer(ibpt.Itens.Tabela));

      tbl_ncmaliqNacional_ibpt.AsFloat := ibpt.Itens.FederalNacional;

      tbl_ncmaliqInternacional_ibpt.AsFloat := ibpt.Itens.FederalImportado;

      tbl_ncmaliqEstadual_ibpt.AsFloat := ibpt.Itens.Estadual;

      tbl_ncmaliqMunicipal_ibpt.AsFloat := ibpt.Itens.Municipal;

      tbl_ncm.ApplyUpdates(0);

      tbl_ncm.CommitUpdates();

      contador := contador + 1;

      progresso.Position := progresso.Position + 1;

    end;

  end;  

 

 

 

obrigado

Claudinei de Luca

 

 

[Régys Silveira]

Claudinei, ao menos um erro ele deveria dar, você tentou abrir o mesmo arquivo com o Demo?

Você está certo também que está utilizando a última versão da tabela, pois ela foi alterada alguns dias atrás, conforme pode ser visto aqui neste artigo que escrevi: http://regys.com.br/alteracoes-na-tabela-ibpt-lei-12-741-2012/

[dluca]

Resolvido com a colaboração do amigo Regys Silveira. 

Verificar se consta na ultima coluna do cabeçalho - "FONTE - IBPT"

Retirar esta coluna, ou fazer download da tabela diretamente pelo site do IBPT 

http://deolhonoimposto.ibpt.org.br/?

 

Versao da tabela: 14.2.a

Editado 24 Novembro, 2014 por dluca

[medeiros.sunsystem]

Poderia colocar a tabela ibpt atualizada, para download ?

 

Grato