Aggille Sistemas de Gestão

eu imprimo o boleto direto pelo acbr.. funciona perfeitamente..

Bom dia.. Testes de registro, cancelamento e consultas realizados com sucesso..

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