ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

De olho no imposto API (TIdHTTP e RJson)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
rafaelmch
Novato
Novato


Registrado: Terça-Feira, 26 de Fevereiro de 2019
Mensagens: 1

MensagemEnviada: Ter Fev 26, 2019 2:37 pm    Assunto: De olho no imposto API (TIdHTTP e RJson) Responder com Citação

Boa tarde, pessoal!

Tudo bem?
Sou novo aqui e esse é meu primeiro post!

Gostaria de pedir ajuda com um erro.
Estou utilizando a API "De olho no imposto"
https://deolhonoimposto.ibpt.org.br/Site/API#!//Produtos_Get
Delphi Berlim.

Está dando o serguinte erro:
socket error 10054

Estou anexando aqui meu fonte para que possam me ajudar. Desde já, agradeço!

Código:
UrlIbpt:=TIdURI.URLEncode('https://apidoni.ibpt.org.br/api/v1/produtos');
      PostData:=TStringList.Create;
      PostData.Add('token=LEWz2yub8njqX-cstqzZMRkaTx1u5Hk0GE7x-YEZIZpAok23aCFl2zRpwDbXsWHn');
      PostData.Add('cnpj=00068326000150');
      PostData.Add('codigo='+DMala.QItensFatIBPTncm.AsString);
      PostData.Add('uf='+FrmDadosADO.qempresaceendest.AsString);
      PostData.Add('ex=0');
      PostData.Add('codigoInterno='+DMala.QItensFatIBPTcodbarra.AsString);
      PostData.Add('descricao='+DMala.QItensFatIBPTdescricao.AsString);
      PostData.Add('unidadeMedida='+DMala.QItensFatIBPTunidade.AsString);
      PostData.Add('valor='+virgula(DMala.QItensFatIBPTtotal.AsString));
      PostData.Add('gtin='+Gtin);

      try
        //Comunica API IBPT
        FrmLogoEmpresas.IdHTTPAPI.Request.Clear;
        FrmLogoEmpresas.IdHTTPAPI.Request.ContentType := 'application/json';
        FrmLogoEmpresas.IdHTTPAPI.Request.Charset := 'utf-8';
        FrmLogoEmpresas.IdHTTPAPI.Request.BasicAuthentication := true;
        FrmLogoEmpresas.IdHTTPAPI.Request.ContentType:= 'application/json;odata=light;charset=utf-8;';
        FrmLogoEmpresas.IdHTTPAPI.Request.Connection:='keep-alive';
        FrmLogoEmpresas.IdHTTPAPI.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
        FrmLogoEmpresas.IdHTTPAPI.Request.AcceptEncoding:='gzip, deflate';
        FrmLogoEmpresas.IdHTTPAPI.Request.AcceptLanguage:='pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
        FrmLogoEmpresas.IdHTTPAPI.Request.CacheControl:='no-cache';
        FrmLogoEmpresas.IdHTTPAPI.HandleRedirects:=True;
        FrmLogoEmpresas.IdHTTPAPI.IOHandler:=FrmLogoEmpresas.IdSSLIOHandlerSocketOpenSSL1;
        Resposta:=FrmLogoEmpresas.IdHTTPAPI.Post(UrlIbpt, PostData);

        //Tratar Json
        MyRJson.LoadFromString(Resposta);
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
gerpiruk
Novato
Novato


Registrado: Quinta-Feira, 11 de Outubro de 2012
Mensagens: 43

MensagemEnviada: Sex Set 27, 2019 3:02 pm    Assunto: Re: De olho no imposto API (TIdHTTP e RJson) Responder com Citação

Conseguiu resolver? Também estou atras disso!
Sei que o ACBrIBPTax faz isso, mas queria encontrar um meio mais simples, sem instalação de componentes.
_________________
Nada poderá nos separar do amor de Deus, que está em Cristo Jesus nosso Senhor.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 8901
Localização: Sinop-MT

MensagemEnviada: Sex Set 27, 2019 3:25 pm    Assunto: Re: De olho no imposto API (TIdHTTP e RJson) Responder com Citação

rafaelmch escreveu:
Boa tarde, pessoal!

Tudo bem?
Sou novo aqui e esse é meu primeiro post!

Gostaria de pedir ajuda com um erro.
Estou utilizando a API "De olho no imposto"
https://deolhonoimposto.ibpt.org.br/Site/API#!//Produtos_Get
Delphi Berlim.

Está dando o serguinte erro:
socket error 10054

Estou anexando aqui meu fonte para que possam me ajudar. Desde já, agradeço!

Código:
UrlIbpt:=TIdURI.URLEncode('https://apidoni.ibpt.org.br/api/v1/produtos');
      PostData:=TStringList.Create;
      PostData.Add('token=LEWz2yub8njqX-cstqzZMRkaTx1u5Hk0GE7x-YEZIZpAok23aCFl2zRpwDbXsWHn');
      PostData.Add('cnpj=00068326000150');
      PostData.Add('codigo='+DMala.QItensFatIBPTncm.AsString);
      PostData.Add('uf='+FrmDadosADO.qempresaceendest.AsString);
      PostData.Add('ex=0');
      PostData.Add('codigoInterno='+DMala.QItensFatIBPTcodbarra.AsString);
      PostData.Add('descricao='+DMala.QItensFatIBPTdescricao.AsString);
      PostData.Add('unidadeMedida='+DMala.QItensFatIBPTunidade.AsString);
      PostData.Add('valor='+virgula(DMala.QItensFatIBPTtotal.AsString));
      PostData.Add('gtin='+Gtin);

      try
        //Comunica API IBPT
        FrmLogoEmpresas.IdHTTPAPI.Request.Clear;
        FrmLogoEmpresas.IdHTTPAPI.Request.ContentType := 'application/json';
        FrmLogoEmpresas.IdHTTPAPI.Request.Charset := 'utf-8';
        FrmLogoEmpresas.IdHTTPAPI.Request.BasicAuthentication := true;
        FrmLogoEmpresas.IdHTTPAPI.Request.ContentType:= 'application/json;odata=light;charset=utf-8;';
        FrmLogoEmpresas.IdHTTPAPI.Request.Connection:='keep-alive';
        FrmLogoEmpresas.IdHTTPAPI.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
        FrmLogoEmpresas.IdHTTPAPI.Request.AcceptEncoding:='gzip, deflate';
        FrmLogoEmpresas.IdHTTPAPI.Request.AcceptLanguage:='pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
        FrmLogoEmpresas.IdHTTPAPI.Request.CacheControl:='no-cache';
        FrmLogoEmpresas.IdHTTPAPI.HandleRedirects:=True;
        FrmLogoEmpresas.IdHTTPAPI.IOHandler:=FrmLogoEmpresas.IdSSLIOHandlerSocketOpenSSL1;
        Resposta:=FrmLogoEmpresas.IdHTTPAPI.Post(UrlIbpt, PostData);

        //Tratar Json
        MyRJson.LoadFromString(Resposta);


bem vindo ao forum amigo,
entra em um dos nossos grupos no whats. la tem mais gente pra ajudar

https://chat.whatsapp.com/F46VWWPYQyE9ysvqDXMljD

https://chat.whatsapp.com/invite/FI454X4kR8SDKU30Y7U3nA#
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB