Aggille Sistemas de Gestão

Consegui fazer os ajustes.. fiz consultas, inclusoes e cancelamentos.. nas consultas o método RequisicaoConsultanão é mais necessário.. , pois é so definir os parametros no método DefinirURL que funciona .. segue em anexo fonte alterado.. sds, ACBrBoletoRet_Inter_API.pas ACBrBoletoW_Inter_API.pas

na consulta, os parametros são por Query.. ou seja, vão na URL.. estou alterando..

Consegui.. la na API do banco Inter.. no Método GerarTokenAutenticacao tem que colocar como Payload := true dai ele consegue pegar o token certinho OAUth.Payload := true; Result := inherited GerarTokenAutenticacao; Consegui incluir e cancelar titulos.. estou vendo a consulta agora...

baixei os arquivos e tenho como retorno erro 400.. como se nao tivesse os arquivos CRT e KEY Estou passando os arquivos dessa forma... FACBRBoleto.Configuracoes.WebService.ArquivoCRT := FCarteira.ArquivoCRT;// 'E:\\INTER\\Certificados\\Inter API_Certificado.crt'; FACBRBoleto.Configuracoes.WebService.ArquivoKEY := FCarteira.ArquivoKEY;//'E:\\INTER\\Certificados\\Inter API_Chave.key';

as operações consigo fazer normalente... so nao consigo pegar o token.. vou pegar esse codigo pra pegar o token

Bom dia... ainda não consegui pegar o token do banco inter com FHTTPSend.. segue abaixo o codigo que estou usando.. baseado na classe TOAuth.. os parametros estão corretos, confirmei na depuração, os arquivos de certificados tambem... testei com postman, e em outras linguagens e a api está funcionando...pelo FHHTPSend retorna erro 500, conforme o manual da api esse erro é quando os parâmetros não estão corretos.. os parametros devem ir dentro do Body da requisição... consigo pegar o token com Indy... FParams := 'grant_type=' + 'client_credentials' + '&scope=' + Boleto.Cedente.CedenteWS.Scope + '&client_id=' +Boleto.Cedente.CedenteWS.ClientID + '&client_secret=' + Boleto.Cedente.CedenteWS.ClientSecret ; FHTTPSend := THTTPSend.Create; FHTTPSend.Sock.SSL.CertificateFile := Boleto.Configuracoes.WebService.ArquivoCRT; FHTTPSend.Sock.SSL.PrivateKeyFile := Boleto.Configuracoes.WebService.ArquivoKEY; FHTTPSend.Headers.Clear; LHeaders := TStringList.Create; try LHeaders.Add( 'content-type' + ': ' + 'application/x-www-form-urlencoded' ); LHeaders.Add( 'accept' + ': ' + 'application/json'); FHTTPSend.Headers.AddStrings(LHeaders); finally LHeaders.Free; end; try FHTTPSend.Document.Position:= 0; WriteStrToStream(FHTTPSend.Document, AnsiString(FParams)); FHTTPSend.HTTPMethod(MetodoHTTPToStr(htPOST), C_URL_OAUTH_PROD); FHTTPSend.Document.Position:= 0; FToken := ReadStrFromStream(FHTTPSend.Document, FHTTPSend.Document.Size ) ; finally end;

tem um limite de conexões pra pegar o token, 5 chamadas por minuto... tem que pegar o Token no inicio e enviar todos os boletos.. cada token vale por 1 hora... utilizando o Indy consigo pegar normalmente, mas usando THTTPSend ainda não consegui...sigo na tentativa...

a proposito.. os parametros não vão na linha de comando.. vão como parâmetros no body da requisição post...

Bom dia.. estou utilizando TOAuth para tentar pegar o token.. porém no método TOAuth.Executar, aonde monta os parametros, não vejo os parametros client_id e cliente_secret, que são necessários para pegar o token do banco inter.. scope e grant_type estão lá... FParams:= C_GRANT_TYPE + '=' + GrantType + '&' + C_SCOPE + '=' + Scope; nessa linha deveria estar os parametros.. não coloquei por não sei a extensão da alteração nos outros bancos...

ok.. estava justamente revendo o uso dessa opção.. a o indy eu só esqueci de remover do Uses.. dentro dos métodos já havia sido removido.. estou vendo também a questão dos arquivos de certificado..

Qual enum ?

fiz os testes e tudo funcionou.. segue uns pequenos ajustes que tive que fazer ... a unit ACBRBoletoWS.PAS é a mesma que tu enviou acima... as demais fiz pequenos ajustes... ACBrBoleto.pas ACBrBoletoRet_Inter_API.pas ACBrBoletoW_Inter_API.pas ACBrBoletoWS.pas

essa era minha segunda opção... Outra coisa.. na unit httpsend, ele inicia MimeType como 'text/html', e adiciona o ContentType como 'application/json', e o banco inter retorna erro dizendo que conteúdo [text/html,application/json] 'é inválido, deveria ir somente 'application/json'... Essa é a mensagem de erro retornada... 'Content Type [text/html,application/json] not allowed. Allowed types: [application/json] de Valor :'

Adicionei essas linhas.. FBoletoWS.ArquivoCRT := FBoletoWS.FBoleto.Configuracoes.WebService.ArquivoCRT; FBoletoWS.ArquivoKEY := FBoletoWS.FBoleto.Configuracoes.WebService.ArquivoKEY; antes de criar o FOAuth.. e a principio funcionou.. estou testando mais algumas .. não encontrei aonde informar esses campos direto na classe TBoletoW_Inter_API... FOAuth := TOAuth.Create(FHTTPSend, FBoletoWS.FBoleto.Configuracoes.WebService.Ambiente, FBoletoWS.FBoleto.Cedente.CedenteWS.ClientID, FBoletoWS.FBoleto.Cedente.CedenteWS.ClientSecret, FBoletoWS.FBoleto.Cedente.CedenteWS.Scope, FBoletoWS.ArquivoCRT, FBoletoWS.ArquivoKEY);

Pelo que pude notar, nessa abordagem ,é o método THTTPSend.HTTPMethod que faz a transmissão.. porém não encontrei ali aonde está a informação dos arquivos de certificado...

Retornando erro 400... provavel erro nos certificados.. vou depurar...

Bom dia... TBoletoWSClassMetodo Gerar Remessa nao Implementado Esse foi o erro retornado..

perfeito... ficamos no aguardo...

bom dia @Victor H. Gonzales - Panda Feliz 2023 pra todos ai no projeto ACBR.. muito sucesso pra todos... Como está o andamento essa demanda ? sds,

De uns dias pra cá comecei a ter o seguinte erro no registro de duplicatas no BB via API: retorna erro "Para tipo de multa = 0 ( DISPENSADO ) , não informar valor ou percentual" conferi o json gerado e de fato não estava indo percentual, nem valor, porém estava indo a data.. Removi a data e o envio deu certo... Segue fonte com a correção... Aleração efetuada na linha 706.. sds, ACBrBoletoW_BancoBrasil_API.pas

Bom dia @Juliana Tamizou... Esse tópico foi fechado... porém, aquela solução que colocamos ali, não foi pro problema do tópico.. foi somente uma configuração que mandei pra outro colega... A questão do tópico estava para ser debatida no sprint da semana passada... creio que aquela questão ainda não está resolvida...

boa tarde...a configuração é a mesma dos outros bancos.. a diferença é que tem os arquivos dos certificados... minha rotina é assim FACBRBoleto.Configuracoes.WebService.ArquivoCRT := FCarteira.ArquivoCRT;// 'E:\\INTER\\Certificados\\Inter API_Certificado.crt'; FACBRBoleto.Configuracoes.WebService.ArquivoKEY := FCarteira.ArquivoKEY;//'E:\\INTER\\Certificados\\Inter API_Chave.key'; FACBRBoleto.Configuracoes.WebService.SSLHttpLib := httpOpenSSL; FACBRBoleto.Configuracoes.WebService.SSLHttpLib := httpOpenSSL; FACBRBoleto.Configuracoes.WebService.SSLCryptLib := cryOpenSSL; FACBRBoleto.Configuracoes.WebService.SSLXmlSignLib := xsLibXml2; FACBRBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2; FACBRBoleto.Configuracoes.WebService.UseCertificateHTTP := false; FACBRBoleto.Configuracoes.WebService.TimeOut := 10000; FACBRBoleto.Configuracoes.WebService.ArquivoPFX := FCarteira.CERTIFICADO_DIGITAL; FACBRBoleto.Configuracoes.WebService.Senha := FCarteira.SENHA_CERTIFICADO

ok... obrigado pelo retorno..sim.. de fato adicionei algumas linhas na unit ACBrDFeHttpOpenSSL ... até agora, aqui no meu sistema não teve interferência nenhuma nas rotinas de documentos fiscais

bom dia @Victor H. Gonzales - Panda .. conseguiu dar uma olhada nessas alterações..? Grato;;;

bom dia... minha sugestão é que espere se implementação no ACBR... não sei como as alterações que fiz se comportariam no D7... O exemplo do ACBR é bem simples... por ali tenho certeza que tu vais conseguir se encontrar..