Dificuldade Com Acbribptax

[j2c9m7]

Senhores

 

Atualizei hoje pelo svn

 

e tive de modificar a "popularitens" no componente

 

onde era

          with Itens.New do
          begin
            NCM           := Item.Strings[0];
            Excecao       := Item.Strings[1];
            Tabela        := TACBrIBPTaxTabela(StrToInt(Trim(Item.Strings[2]))) ;
            Descricao     := Item.Strings[3];
            AliqNacional  := StringToFloatDef(Item.Strings[4], 0.00);
            AliqImportado := StringToFloatDef(Item.Strings[5], 0.00);
            
          end;

ficou assim

          with Itens.New do
          begin
            NCM           := Item.Strings[0];
            Excecao       := Item.Strings[1];
            Tabela        := TACBrIBPTaxTabela(StrToInt(Trim(Item.Strings[2]))) ;
            AliqNacional  := StringToFloatDef(Item.Strings[3], 0.00);
            AliqImportado := StringToFloatDef(Item.Strings[4], 0.00);
            Descricao     := Item.Strings[5];
          end;

Para ficar compativel com o arquivo exportado em CSV

 

Abraços

 

[Régys Silveira]

Não entendi a modificação, porque todos estão utilizando e testei aqui e está correto não tem erros, você fala compatibilizar com qual arquivo CSV, o gerado pela IBPT ou pelo próprio componente, veja são situações diferentes.

 

O componente vai ler do IBPT e esse ele está fazendo correto.

[j2c9m7]

Não entendi a modificação, porque todos estão utilizando e testei aqui e está correto não tem erros, você fala compatibilizar com qual arquivo CSV, o gerado pela IBPT ou pelo próprio componente, veja são situações diferentes.

 

O componente vai ler do IBPT e esse ele está fazendo correto.

 

Regys

 

O que estou tentando explicar, eh que a rotina de exportacao, pra CSV e outros, esta com o campo "DESCRICAO" na ultima coluna (coluna 6), conforme rotina de "exportacao" abaixo:

  for I := 0 to Itens.Count - 1 do
  begin
    Texto := Texto +
      AddQuoted(Itens[I].NCM) + ADelimitador +
      AddQuoted(Itens[I].Excecao) + ADelimitador +
      AddQuoted(IntToStr(Integer(Itens[I].Tabela))) + ADelimitador +
      AddQuoted(FloatToString(Itens[I].AliqNacional)) + ADelimitador +
      AddQuoted(FloatToString(Itens[I].AliqImportado)) + ADelimitador +
=>    AddQuoted(Itens[I].Descricao) + ADelimitador +
      sLineBreak;
  end;

Ate ai esta tudo correto!

 

E quando voce carrega o CSV gerado pelo componente, ele esta lendo a coluna 4 como sendo "DESCRICAO", que na verdade eh o campo "ALIQNACIONAL"  conforme rotina "popularitens" abaixo:

with Itens.New do
begin
   NCM           := Item.Strings[0];
   Excecao       := Item.Strings[1];
   Tabela        := TACBrIBPTaxTabela(StrToInt(Trim(Item.Strings[2]))) ;
=> Descricao     := Item.Strings[3];
   AliqNacional  := StringToFloatDef(Item.Strings[4], 0.00);
   AliqImportado := StringToFloatDef(Item.Strings[5], 0.00);
end;

Por isso tive de fazer a modificação, carregando o campo "DESCRICAO" no final conforme rotina abaixo:

with Itens.New do
begin
   NCM           := Item.Strings[0];
   Excecao       := Item.Strings[1];
   Tabela        := TACBrIBPTaxTabela(StrToInt(Trim(Item.Strings[2]))) ;
   AliqNacional  := StringToFloatDef(Item.Strings[3], 0.00);
   AliqImportado := StringToFloatDef(Item.Strings[4], 0.00);
=> Descricao     := Item.Strings[5];
end;

Mas se para voces esta funcionando, OK

 

Devo estar com outro problema aqui!

 

Abraços

Editado 21 Junho, 2013 por j2c9m7

[Régys Silveira]

A rotina de exportação como disse nada tem a ver com a rotina de leitura, foi feita intencionalmente diferente, você não vai ler um arquivo gerado pelas rotinas de geração, deve ler diretamente pelo arquivo disponibilizado pelo IBPT.

 

Leitura = usar arquivo IBPT

Exportação = usar se precisar enviar para outro aplicativo que não conheça o padrão IBPT, por isso existem vários tipos: XML, CSV, TXT, etc, etc.

[j2c9m7]

A rotina de exportação como disse nada tem a ver com a rotina de leitura, foi feita intencionalmente diferente, você não vai ler um arquivo gerado pelas rotinas de geração, deve ler diretamente pelo arquivo disponibilizado pelo IBPT.

 

Leitura = usar arquivo IBPT

Exportação = usar se precisar enviar para outro aplicativo que não conheça o padrão IBPT, por isso existem vários tipos: XML, CSV, TXT, etc, etc.

 

 

Regys

 

Entendi, obrigado pela explicaçao!

 

Abraços

[Emerson Luis]

nao daria pra exportar no formato da ibpt?????

[Régys Silveira]

nao daria pra exportar no formato da ibpt?????

Não tem porque exportar no formato IBPT se você já tem ele, o componente lê do arquivo IBPT que está no formato IBPT, para que vou ler para dentro do componente e gerar novamente?

Bastaria usar o arquivo original então.

[tathianam]

Pessoal, 

 

Estou tentando importar o arquivo TabelaIBPTaxSP14.2.a.csv porém ele contem um número maior de colunas devido aos campos de imposto estadual e municipal. Baixei hoje do SVN a última versão do projeto. 

 

Existe alguma outra rotina para importar os arquivos por estado?

 

Vlw !

[tathianam]

PS: O erro ref a quantidade de colunas aconteceu na função function TACBrIBPTax.PopularItens: Integer; 

[EMBarbosa]

Pessoal,

Estou tentando importar o arquivo TabelaIBPTaxSP14.2.a.csv porém ele contem um número maior de colunas devido aos campos de imposto estadual e municipal. Baixei hoje do SVN a última versão do projeto.

Existe alguma outra rotina para importar os arquivos por estado?

Vlw !

O componente ainda não foi atualizado para trabalhar com as novas tabelas. Veja esse tópico:

[Régys Silveira]

O componente foi atualizado, bem como o demo demonstrando os novos campos, basta atualizar e testar, aproveitei e adicionei as tabelas de todos os estados ao repositorio SVN também, as tabelas se encontram no diretório: "<ACBr>\Exemplos\ACBrIBPTax\tabela\"