Ir para conteúdo
  • Cadastre-se

dev botao

Ibptax 0.0.2


Cantu
  • Este tópico foi criado há 3920 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Cantu,

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

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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.

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, CT-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

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! :D

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

  • Curtir 1

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

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"?

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...

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

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Consultores

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í.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3920 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.