Duvida com o ACBrIBPTax

[bacalajr]

Existe alguma forma de  fazer o download automatico direto do site deolhonoimposto.ibpt.org.br, ou preciso fazer o download manualmente descompactar o arquivo e colocar numa pasta no ftp?

Codigo que uso?

 ACBrIBPTax1.Itens.Clear;
  ACBrIBPTax1.Token := 'ajMc7MUvUUgMutQTcEuYooYSd5IA6dUvhqLnOs_nty5yT58h9TsHTzwUgyyVupAs';
  ACBrIBPTax1.URLDownload := Trim('http://deolhonoimposto.ibpt.org.br/');
  ACBrIBPTax1.DownloadTabela;

Esse erro acontece quando testo.

[BigWings]

Que saiba o IBPT não disponibiliza o download direto do arquivo.

Precisa de cadastro e download manual.

A partir daí você envia para o teu site e pode usar o URLDownload e DownloadTabela.

[bacalajr]

Entendi obrigado

 

[Ricardo Rohde]

o token é pra vc consultar a api deles

 

vc tem q fazer +- isso

te dar um pequeno passo

 

UrlConsulta := 'https://apidoni.ibpt.org.br/api/v1/produtos' +
	'?token=' + Self.AjustaParam(FToken) +
	'&cnpj=' + Self.AjustaParam(OnlyNumber(FCNPJEmpresa)) +
	'&codigo=' + Self.AjustaParam(ANCM) +
	'&uf=' + Self.AjustaParam(AUF) +
	'&ex=' + Self.AjustaParam(IntToStr(AExcecao)) +
	'&descricao=' + Self.AjustaParam(ADescricaoProduto) +
	'&unidadeMedida=' + Self.AjustaParam(AUnidadeMedida) +
	'&valor=' + Self.AjustaParam(FloatToString(AValorUnitario, '.', '0.##')) +
	'&gtin=' + Self.AjustaParam(AGtin);
	// parâmetros opcionais
	if Trim(ACodigoProprio) <> '' then
	UrlConsulta := UrlConsulta + '&codigoInterno=' + Self.AjustaParam(ACodigoProprio);
	// enviar consulta
	Self.HTTPGet(TraduzStrToAnsi(UrlConsulta));
	// retorno em JSON
	Result.JSON := TraduzStrToAnsi(Self.RespHTTP.Text);