AcbrIBPTTax

[AlexBecker]

Bom dia a todos, pessoal no ACBR ibpttax tenho a rotina:

 

var
  Retorno: TACBrIBPTaxProdutoDTO;
begin
  ACBrIBPTax1.CNPJEmpresa := edtCNPJ.Text;
  ACBrIBPTax1.Token       := edtToken.Text;

  StrNCM := InputBox('NCM', 'Informe o NCM (8 dígitos):', StrNCM);
  StrUF := InputBox('UF', 'Informe a UF (Sigla):', StrUF);
  StrEX_TIPI := InputBox('Exceção', 'Informe a exceção da TIPI (0 para nenhuma)', StrEX_TIPI);
  StrCodInterno := InputBox('Código interno', 'Informe o código interno (opcional)', StrCodInterno);
  StrDescricao := InputBox('Descrição', 'Informe a descrição do item:', StrDescricao);
  StrUnidade := InputBox('Unidade de medida', 'Informe a unidade de medida', StrUnidade);
  StrValor := InputBox('Valor', 'Informe o valor', StrValor);
  StrGTIN := InputBox('GTIN', 'Informe o GTIN', 'SEM GTIN');

  Retorno := ACBrIBPTax1.API_ConsultarProduto(StrNCM
    , StrUF
    , StrToInt(StrEX_TIPI)
    , StrCodInterno
    , StrDescricao
    , StrUnidade
    , StringToFloatDef(StrValor, 0)
    , StrGTIN
    );

  Memo2.Clear;
  Memo2.Lines.Add('Codigo : ' + Retorno.Codigo);
  Memo2.Lines.Add('UF : ' + Retorno.UF);
  Memo2.Lines.Add('EX : ' + IntToStr(Retorno.EX));
  Memo2.Lines.Add('Descricao : ' + Retorno.Descricao);
  Memo2.Lines.Add('Aliq. Nacional : ' + FloatToStr(Retorno.Nacional));
  Memo2.Lines.Add('Aliq. Estadual : ' + FloatToStr(Retorno.Estadual));
  Memo2.Lines.Add('Aliq. Municipal: ' + FloatToStr(Retorno.Municipal));
  Memo2.Lines.Add('Aliq. Importado : ' + FloatToStr(Retorno.Importado));
  Memo2.Lines.Add('Início Vigência: ' + DateToStr(Retorno.VigenciaInicio));
  Memo2.Lines.Add('Fim Vigência: ' + DateToStr(Retorno.VigenciaFim));
  Memo2.Lines.Add('Versão: ' + Retorno.Versao);
  Memo2.Lines.Add('Chave: ' + Retorno.Chave);
  Memo2.Lines.Add('Fonte: ' + Retorno.Fonte);
  Memo2.Lines.Add('Valor : ' + FloatToStr(Retorno.Valor));
  Memo2.Lines.Add('Valor Tributo Nacional : ' + FloatToStr(Retorno.ValorTributoNacional));
  Memo2.Lines.Add('Valor Tributo Estadual : ' + FloatToStr(Retorno.ValorTributoEstadual));
  Memo2.Lines.Add('Valor Tributo Municipal: ' + FloatToStr(Retorno.ValorTributoMunicipal));
  Memo2.Lines.Add('Valor Tributo Importado : ' + FloatToStr(Retorno.ValorTributoImportado));
  Memo2.Lines.Add('JSON : ' + Retorno.JSON);
end;

 

Fiz algumas consultas online lá mas não tive sucesso ( utilizando os dados de um cliente daqui do estado: PR ), em alguns tópicos vi algum comentário informando que preciso cadastrar o CNPJ do cliente para consulta, é correto isto? se sim onde devo cadastrar isto ? para as demais consultas do componente devo converter a planilha excel para CSV e consultar local? 

[BigWings]

1 hora atrás, AlexBecker disse:

Fiz algumas consultas online lá mas não tive sucesso ( utilizando os dados de um cliente daqui do estado: PR ), em alguns tópicos vi algum comentário informando que preciso cadastrar o CNPJ do cliente para consulta, é correto isto? se sim onde devo cadastrar isto ? para as demais consultas do componente devo converter a planilha excel para CSV e consultar local? 

As tabelas do IBPT já são em formato CSV, não precisa converter, basta carregar o arquivo no componente.

Pra usar via API precisa do token da empresa que você registra no site do IBPT.

https://deolhonoimposto.ibpt.org.br/

Eu prefiro usar pela tabela, para agilizar as consultas e ter um cache local pra não precisar estar sempre online.

https://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrTCP/ACBrIBPTax/tabela

[AlexBecker]

Em 14/06/2022 at 09:44, BigWings disse:

As tabelas do IBPT já são em formato CSV, não precisa converter, basta carregar o arquivo no componente.

Pra usar via API precisa do token da empresa que você registra no site do IBPT.

https://deolhonoimposto.ibpt.org.br/

Eu prefiro usar pela tabela, para agilizar as consultas e ter um cache local pra não precisar estar sempre online.

https://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrTCP/ACBrIBPTax/tabela

vLW muito obrigado! cadastrei lá e consegui mesmo fazer a consulta com o token, porém realmente melhor continuar baixando a tabela e incluindo no banco mais prático.... muito obrigado a todos, tópico resolvido!

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.