Erro Ao Instalar O Ibptax

[Daniel Paixão-Cascavel]

Galera, estou tendo problemas ao instalar o IBPTax. Ta dizendo que a função IntToString não existe. Onde fica essa funcao?

[Daniel Paixão-Cascavel]

Ops, desculpa, é a função FloatToString.

[Régys Silveira]

Essa função existe no ACBrUtil.pas, ou você está com ele desatualizado, ou está com alguma compilação antiga dele (.dcu), recompile os pacotes base do ACBr para não ter problemas.

[Daniel Paixão-Cascavel]

Desculpa Regys. Já achei o problema.

[madalozzo]

Estou tentando atualiza o ACBRTCP mais está dizendo que não foi declarada a função "DecodeToSys".

 

ACBRSocket

 

    RespHTTP.Text := acbrutil.DecodeToSys( RespHTTP.Text, (pos('utf-8', CT) > 0) );

[Régys Silveira]

Verifique se o arquivo não está com problemas de atualização.

A quanto tempo você não atualiza o seu ACBr, qual é a mensagem de erro?

[wilson_jr]

Boa tarde a todos,

 

Quando tento usar o IBPTax ocorre este erro (ProxyPort), só de abrir o exemplo do ACBr apresenta a mesma mensagem.

 

Algém sabe o porque?

 

O meu ACBr foi atualizado hoje, compilei e instalei novamente.

 

Ah, eu uso o delphi 2006.

Att,

 

Wilson

[Régys Silveira]

Recompile o pacote ACBrTCP.DPK, antes tenha certeza que não existe nenhum versão antiga dele em outro diretório da máquina.

Tente usar o ACBrInstall para recompilar seu ACBr.

[wilson_jr]

Boa tarde Régys,

 

Após nova recompilação utilizando o ACBrInstall deu certo.

 

Obrigado.

[amarildolacerda]

Incluido a descrição no IBPTax e o arquivo da versão 0.0.2 passou a ter 7 posições ao invés de 6 como estava previsto. Estava dando erro na sequencia dos registro em função do deslocamento de colunas.

 

 

procedure TACBrIBPTax.PopularItens;

var

  Item: TStringList;

  I: Integer;

begin

  if Arquivo.Count <= 0 then

    raise EACBrIBPTax.Create('Arquivo de itens não foi baixado!');

  FVersaoArquivo := '';

  Itens.Clear;

  Item := TStringList.Create;

  try

    Item.Delimiter := ';';

    // primeira linha contem os cabecalhos de campo e versão do arquivo

    Item.DelimitedText := Arquivo.Strings[0];

    if Item.Count = 7 then

      FVersaoArquivo := Item.Strings[6];

    // proximas linhas contem os registros

    for I := 1 to Arquivo.Count - 1 do

    begin

      Item.DelimitedText := Arquivo.Strings;

      if Item.Count >= 6 then

      begin

        with Itens.New do

        begin

          NCM           := Item.Strings[0];

          Excecao       := Item.Strings[1];

          Descricao    := Item.Strings[3];

          AliqNacional  := StringToFloatDef(Item.Strings[4], 0.00);

          AliqImportado := StringToFloatDef(Item.Strings[5], 0.00);

          Tabela        := TACBrIBPTaxTabela(StrToInt(Trim(Item.Strings[2])));

        end;

      end;

    end;

  finally

    Item.Free;

  end;

end;

Editado 10 Junho, 2013 por amarildolacerda

[Régys Silveira]

Por favor gente, estou cansado de dizer, primeiro, sigam o foco do tópico, segundo procurem antes de postar, já é o quinto que posta esse acerto, e os fontes foram acertados logo cedo, minha gente vamos respeitar todo mundo, ta ficando complicado.

[Régys Silveira]

Por favor atualizem os seus repositórios antes de postar acertos.

 

Verifiquem se vocês já alteraram para o novo endereço antes: