Jump to content

Assista tectoy.png

ACBrIBPTax : Informação Básica para Utilização


carlos_augusto
Go to solution Solved by Daniel Simoes,
  • Este tópico foi criado há 1278 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Prezados
Companheiros

Recentemente recebi solicitação de cliente para implementar cálculo do Valor Aproximado dos Tributos da NFE utilizando a Tabela do IBPT.

Minha missão portanto é tentar baixar o arquivo da Tabela IBPT mais recente ( versão atual 191.A ) disponível no Site.
Depois, o objetivo é ler o arquivo baixado e finalmente gravar suas informações em banco de dados.

Verifiquei que os senhores criaram um componente do ACBR ( ACBrIBPTax ) que, aparentemente me permitirá realizar automaticamente estas tarefas.

Utilizando como base um exemplo que encontrei no Blog do Sr. Regys , criei um pequeno programa para testar as funcionalidades do : ACBrIBPTax ( inclusive estou utilizando

provisoriamente a Url que o Sr.Regys sugere para teste ) .

Porém restaram as seguintes dúvidas:
1)-A função DownloadTabela é a encarregada de baixar arquivo da tabela  do Servidor da IBPT gravando fisicamente na hd ?
2)-Como configurar que desejo baixar somente a última versão disponível no Site da IBPT?


   
Assim estou disponibilizando o meu código-fonte para os companheiros me orientarem sobre a forma mais precisa de atingir meus objetivos.

Grato por sua atenção.

Carlos Augusto
Franca-Sp

CÓDIGO-FONTE:
procedure TForm1.btn1Click(Sender: TObject);
var
  I: Integer;
  stUrl : string;
begin
  with cdsSelecao do
    begin
      if Active then
        Close;
      CreateDataSet;
    end;
  stUrl := 'https://regys.com.br/arquivos/AcspDeOlhoNoImpostoIbptV.0.0.1.csv';
  if Trim(stURL) <> '' then
    ACBrIBPTax1.URLDownload := Trim(stURL);
  try
    ACBrIBPTax1.DownloadTabela;
    edtVersaoArquivo.Text := ACBrIBPTax1.VersaoArquivo;

    cdsSelecao.DisableControls;
    try
      for I := 0 to ACBrIBPTax1.Itens.Count - 1 do
      begin
        cdsSelecao.Append;
        cdsSelecaoNCM.AsString              := ACBrIBPTax1.Itens.NCM;
        cdsSelecaoEx.AsString               := ACBrIBPTax1.Itens.Excecao;
        cdsSelecaoTabela.AsInteger          := Integer(ACBrIBPTax1.Itens.Tabela);
        cdsSelecaoAliqNacional.AsFloat      := ACBrIBPTax1.Itens.FederalNacional;
        cdsSelecaoAliqInternacional.AsFloat := ACBrIBPTax1.Itens.FederalImportado;
        cdsSelecao.Post;
      end;
    finally
      cdsSelecao.First;
      cdsSelecao.EnableControls;
    end;
  except
  end;
end;

  • Thanks 1
Link to comment
Share on other sites

Sr. Daniel

No Programa-Exemplo existem recursos somente para :

1)-Ler um arquivo de tabela previamente gravado na hd
2)-Exportar informações do AcbrIBPTax para os formatos : CSV , DSV, XML, HTML e TXT
3)-Consultar situação de uma NCM específica ( função : API_ConsultarProduto), passando os valores:
   - NCM
   - EX TIPI
   - etc..
4)-Consultar informação previamente gravada no componente ( função : Procurar )

Esta são as ações exemplificadas no programa :
   \\acbr\trunk2\Exemplos\ACBrTCP\ACBrIBPTax\Delphi\Project1.dpr
   
A questão é a seguinte :
Eu preciso de recurso para interagir com web service do Site da IBPT e efetuar download
da Tabela IBPT mais recente ( versão 19.1.A , por exemplo ).

O Sr. pode me dizer se é possível fazer este trabalho através do componente AcbrIBPTax?

Estou questionando isto porque encontrei a Função : DownloadTabela que existe no componente e não está no Programa Exemplo.

Grato

Link to comment
Share on other sites

  • Fundadores
  • Solution

Eu acho que o IBPT, dificultou esse acesso... pois hoje eles exigem que cada CNPJ seja cadastrado...
Creio que o @Régys Silveira, possa nos dar mais detalhes...

No nosso sistema (DJPDV)..nos baixamos as tabelas, e subimos para o nosso site... e baixamos de lá com uma rotina própria...

  • Like 2
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

  • Administradores

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 1278 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.