[Error] Acbribptax.pas(211): Undeclared Identifier: 'quebrarlinha'

[Geromin]

Boa tarde pessoal,

 

Fiz o upload dos arquivos atualizados do svn://svn.code.sf.net/p/acbr/code/trunk .

Fui compilar e de o erro [Error] ACBrIBPTax.pas(211): Undeclared identifier: 'QuebrarLinha'

 

Pelo que entendi na versão anterior ele realizava essa quebra por "Item.DelimitedText " e nessa atualização foi criado essa função.

 

Alguem teve este problema ?

 

Agradeço a atenção,

Alexandre

[Régys Silveira]

Seu ACBr não está totalmente atualizado ou existem arquivos da versão antiga em algum path.

[Geromin]

Prezado Regys, obrigado pelo retorno.

 

Baixei todos os arquivos novamente em uma nova pasta, porem permanece o mesmo erro.

Estou baixando os arquivos dentro de  svn://svn.code.sf.net/p/acbr/code/trunk  

[Régys Silveira]

Você precisa antes verificar se não existem arquivos .dcu ou .bpl antigos, para depois recompilar o repositório novo.

[Geromin]

Caro Regys, pesquisei 100% dos arquivos antigos, nao encontrei nada. Fiz o download 4 vezes em pastas diferentes e o erro permanece. Teria mais alguma dica para me salvar ?

 

Obrigado

[Régys Silveira]

Sinceramente, só pode ter algo antigo, porque aqui está tudo normal e tenho o ACBr instalado em 6 máquinas virtuais diferentes em diferentes versões do Delphi.

Você está recompilando todos os pacotes na ordem correto ou esta utilizando o ACBrInstall para isso?

[Geromin]

Estou utilizando o ACBrInstall 

[Régys Silveira]

Anexa o log do ACBrInstall.

[Geromin]

Régys, consegui resolver fazendo uma limpeza nas bibliotecas e desistalando o acbr antigo. 

 

Agora utilizando o componente ocorreu mais um problema e duvida, não sei se preciso abrir outro topico, caso precisar eu crio sem problemas ..

Quando o componente baixa a tabela ele faz a exportação para o csv com usando o codigo

Texto := Texto +

      AddAspasDuplas(Itens.NCM) + ',' +

      AddAspasDuplas(Itens.Excecao) + ',' +

      AddAspasDuplas(IntToStr(Integer(Itens.Tabela))) + ',' +

      AddAspasDuplas(FloatToString(Itens.AliqNacional)) + ',' +

      AddAspasDuplas(FloatToString(Itens.AliqImportado)) + ',' +

      AddAspasDuplas(Itens.Descricao) +

      sLineBreak;

 

resultando em:    "1012100";"";"0";"26.75";"27.35";"Reprodutores de raça pura";

 

Porem na hora de consumir esses dados (TACBrIBPTax.PopularItens;)

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);

 

Dessa forma da erro quando ele tenta converter o Item.Strings[5]. O correto não seria ser da forma abaixo ?

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];

[Régys Silveira]

Essa dúvida já existe no site, são duas coisas diferentes, a leitura dos dados de um arquivo .csv deve ser no padrão IBPT, ou seja, usar o arquivo disponibilizado pelo IBPT.

O método para gerar o .CSV já é diferente do padrão IBPT justamente para diferenciar, esse método de gerar para um .CSV deve ser usado para exporta a tabela para um outro aplicativo.

[Geromin]

Perfeito Régys.

 

Deixei sem o exportar, mantendo desta forma

if ACBrIBPTax1.DownloadTabela then

   ACBrIBPTax1.Arquivo.SaveToFile('c:\temp\IBPTax_v2.csv');

 

E tudo ficou 100%.

 

Muito obrigado pela ajuda.

Abraços

[Régys Silveira]

Isso dessa forma você salva o arquivo original.