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

carlos_augusto · 29 Janeiro, 2019

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;

carlos_augusto · 29 Janeiro, 2019

Outra questão :

Qual a URL correta que deve ser utilizada?

Obrigado

Daniel Simoes · 29 Janeiro, 2019

Por favor use os exemplos do ACBr... Pasta Exemplos

carlos_augusto · 29 Janeiro, 2019

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

Daniel Simoes · 29 Janeiro, 2019

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