Ibptax 0.0.2

[Cantu]

Acabei de receber a nova versão da tabela IBPTax (0.0.2), e percebi que adicionaram uma nova coluna chamada Descrição. Provavelmente o componente do ACBr terá que ser atualizado pra conseguir usar essa nova estrutura do csv.

[EMBarbosa]

Cantu,

  Já até anexaram no fórum a tabela. Olha aí:

[andersonh]

Ja foi anexado no fórum o novo layout e a tabela atualizada, e nesse mesmo link que o EMBarbosa postou anexei o fonte com a alteração necessaria para ler a nova tabela.

[Cantu]

Putz, pior que eu tinha pesquisado antes de abrir o tópico, e não tinha encontrado nada. Fiz inclusive busca por 0.0.2 e não retornou nada... zzzZZ. Mas blz...

[EMBarbosa]

Putz, pior que eu tinha pesquisado antes de abrir o tópico, e não tinha encontrado nada. Fiz inclusive busca por 0.0.2 e não retornou nada... zzzZZ. Mas blz...

 

Provavelmente não deu tempo pro robozinho do Google atualizar a pesquisa. Estamos até mais eficientes que o pessoal deles!

[armando.boza]

Como a coluna da descrição não serve pra nada pra mim eu apenas deletei ela e o componente leu normal o arquivo.

[Régys Silveira]

Como a coluna da descrição não serve pra nada pra mim eu apenas deletei ela e o componente leu normal o arquivo.

Se você atualizar o ACBr vai ter problemas, porque agora ele considera a coluna, então os itens sairão deslocados ou será gerado erro.

[arce]

Régys, acabei de realizar o download e compilei o ACBr (pacote TCP) mas não consta a atualização da Descricao

[arce]

Fiz as alterações no componente e funcionou. Obrigado

[arce]

Outra questão. 

O versão 0.0.2 traz outro valor pra coluna "tabela" (0,1 e 2). Pelas descrições dos registros com o valor da tabela = 2  também se classificam como serviços.

 

Agora fica a dúvida, será que surgirão novos valores para a coluna "tabela"?

[Régys Silveira]

Régys, acabei de realizar o download e compilei o ACBr (pacote TCP) mas não consta a atualização da Descricao

Você está utilizando o endereço novo para atualização do ACBr?

[Régys Silveira]

Outra questão. 

O versão 0.0.2 traz outro valor pra coluna "tabela" (0,1 e 2). Pelas descrições dos registros com o valor da tabela = 2  também se classificam como serviços.

 

Agora fica a dúvida, será que surgirão novos valores para a coluna "tabela"?

Também já foi acertado, o que aumentou foi o tipo 2 que corresponde a tabela de serviços usando a Lei Complementar 116, ainda foi mantida a tabela de serviços NBS (Tipo 1) e a tabela de NCM para mercadorias (Tipo 0).

[arce]

Muito obrigado Régys. Já estou atualizando o componente.

[fppp09]

como baixar pelo componente a tabela de serviços? no exemplo não baixa todos.

[Régys Silveira]

como baixar pelo componente a tabela de serviços? no exemplo não baixa todos.

O componente baixa tudo que está na tabela IBPT, se o código do serviço não estiver lá você precisa entrar em contato como IBPT informando o código.

Agora verifique pois o IBPT colocou dois padrões de legislação de produtos na tabela, acho complicado não ter o código lá.

 

Veja o manual do IBPT para maiores informações, adiantando o campo tabela terá 3 valores:

0: NCM - Mercadorias

1: NBS - Serviços

2: LC 116 - Serviços

 

Veja se o código que deseja utiliza o tipo de tabela 1 ou 2, depende.

[Emerson Luis]

Olá Regys.

 

Alterei a função procurar para retornar a descrição do ncm, se achar interessante coloque nos fontes...

 

com a mudança do svn o link da tabela tbm mudou: svn://svn.code.sf.net/p/acbr/code/trunk/Exemplos/ACBrIBPTax/tabela/AcspDeOlhoNoImpostoIbptV.0.0.2.csv

tem que alterar o exemplo..

 

Segue Codigo Alterado.

 

função botao pesquisar:

 

procedure TForm1.btnPesquisarClick(Sender: TObject);

var

  ex, Descricao: String;

  tabela: Integer;

  aliqNac, aliqImp: Double;

begin

  if ACBrIBPTax1.Procurar(edNCM.Text, ex, Descricao, tabela, aliqNac, aliqImp, ckbBuscaNCMParcial.Checked) then

  begin

    ShowMessage(

      'Código: '   + edNCM.Text  + sLineBreak +

      'Descricao: ' + Descricao + sLineBreak +

      'Exceção: '  + ex + sLineBreak +

      'Tabela: '   + IntToStr(tabela) + sLineBreak +

      'Aliq Nac: ' + FloatToStr(aliqNac) + sLineBreak +

      'Aliq Imp: ' + FloatToStr(aliqImp)

    );

  end

  else

    showmessage('Código não encontrado!');

end;

 

 

e função procurar

 

 

function TACBrIBPTax.Procurar(const ACodigo: String; var ex, Descricao: String;

  var tabela: Integer; var aliqNac, aliqImp: Double;

  const BuscaParcial: Boolean): Boolean;

var

  I: Integer;

  Igual: Boolean;

begin

  if Itens.Count <= 0 then

    EACBrIBPTax.Create('Tabela de itens ainda não foi aberta!');

 

  Result := False;

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

  begin

    if BuscaParcial then

      Igual := Pos(Trim(ACodigo), Trim(Itens.NCM)) > 0 //CompareText(Trim(ACodigo), Trim(Itens.NCM)) < 0

    else

      Igual := SameText(Trim(ACodigo), Trim(Itens.NCM));

 

    if Igual Then

     begin

       ex        := Itens.Excecao ;

       tabela    := Integer(Itens.Tabela) ;

       aliqNac   := Itens.AliqNacional ;

       aliqImp   := Itens.AliqImportado ;

       Descricao := Itens.Descricao;

 

       Result := True;

       Exit;

     end;

  end;

end;

 

 

att Obrigado

[Régys Silveira]

Atualizado, obrigado pela ajuda.

[Sérgio Assunção]

Olá amigos, boa tarde ... só não entendi a questão da BuscaParcial. Alguem pode explicar ?

Obrigado.

 

Sérgio

[Régys Silveira]

Alguns usuários quando não tem o NCM que precisam jogam no NCM mais próximo, usando os níveis do código NCM.

 

Olá amigos, boa tarde ... só não entendi a questão da BuscaParcial. Alguem pode explicar ?

Obrigado.

 

Sérgio

[Emerson Luis]

Alguns usuários quando não tem o NCM que precisam jogam no NCM mais próximo, usando os níveis do código NCM.

Boa Tarde Regys

 

Ao tentar abrir o arquivo da tabela ibpt já gravado no disco, o componente apresenta erro na conversão de string para float.

o erro dá na função popular itens.

imagino que seja a ordem de passar o stringlist, pois esta passando a descrição para a aliquota.

 

obs: quando faz o download do arquivo funciona corretamente..

 

Att

[Régys Silveira]

Você está desatualizado, provavelmente não trocou o endereço do seu repositório ACBr, veja na minha assinatura como proceder.

[Emerson Luis]

Você está desatualizado, provavelmente não trocou o endereço do seu repositório ACBr, veja na minha assinatura como proceder.

Olá Regys.

 

Já fiz a alteração do repositorio, estou usando a revision 5541 do dia 4/7/13

 

abraços

[EMBarbosa]

Boa Tarde Regys

 

Ao tentar abrir o arquivo da tabela ibpt já gravado no disco, o componente apresenta erro na conversão de string para float.

o erro dá na função popular itens.

imagino que seja a ordem de passar o stringlist, pois esta passando a descrição para a aliquota.

 

obs: quando faz o download do arquivo funciona corretamente..

 

Att

Será que não está tentando carregar um arquivo exportado pelo ibtax? Veja:

 

A propósito, queira da próxima vez criar um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto". Logicamente, pesquise antes de criar o tópico.

[Emerson Luis]

Será que não está tentando carregar um arquivo exportado pelo ibtax? Veja:

 

A propósito, queira da próxima vez criar um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto". Logicamente, pesquise antes de criar o tópico.

Olá EmBarbosa.

 

É esse mesmo o problema...

 

Postei aqui pois havia enviado alteracoes neste topico, me desculpe nao tive intenção de quebras as regras do forum

 

Abraços e Obrigado

[EMBarbosa]

Olá EmBarbosa.

 

É esse mesmo o problema...

 

Postei aqui pois havia enviado alteracoes neste topico, me desculpe nao tive intenção de quebras as regras do forum

 

Abraços e Obrigado

Belezinha.

Bom trabalho aí.