Aggille Sistemas de Gestão

esse provedor IPM é o pior que já vi...

Bom dia.. o Sicredi lançou um novo manual de integração com a API, agora baseado no OpenAPI.. mudam os endereços e agora sem um sandbox para homologação. MInha dúvida: Modificamos o componente atual, ou criamos um novo banco SicrediOpenApi ( por exemplo )? Segue em anexo o manual.. posso desenvolver qualquer uma das opções, só dependo da opinião dos moderadores.. O manual é muito grande pra postar aqui, mesmo compactado dá mais de 2mb, que é o limite dos arquivos.. quem quiser me pede no particular.. sds

@Victor H. Gonzales - Panda , boa tarde.. consegue analisar a pequena correção feita acima para colocar na fila do trunk ? Grato

eu faço desta forma.. e vêm retorno em todos os fitros... // em aberto por vencimento aFiltros[0] := TACBrBoletoWSFiltroConsulta.Create; aFiltros[0].Clear; aFiltros[0].indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbAberto; aFiltros[0].boletoVencido := ibvSim; aFiltros[0].dataVencimento.DataInicio := AInicio; aFiltros[0].dataVencimento.DataFinal := AFinal; // em aberto por emissao aFiltros[1] := TACBrBoletoWSFiltroConsulta.Create; aFiltros[1].Clear; aFiltros[1].indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbAberto; aFiltros[1].dataRegistro.DataInicio := AInicio; aFiltros[1].dataRegistro.DataFinal := aFinal; aFiltros[1].boletoVencido := ibvSim; // liquidados aFiltros[2] := TACBrBoletoWSFiltroConsulta.Create; aFiltros[2].Clear; aFiltros[2].indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbBaixado; aFiltros[2].dataMovimento.DataInicio := AInicio; aFiltros[2].dataMovimento.DataFinal := AFinal;

tinha um erro na unit ACBrBoletoW_Inter_API;, nas linhas 265 e 266.. ali ele estava fazendo o filtro por Vencimento mas usando as datas de Movimento.. segue unit alterada.. ACBrBoletoW_Inter_API.pas

Nesse tópico tem a explicação de como configurar corretamente o componente para todos os bancos.. sds,

o erro 400 ( bad format ) ocorre quando faltam os arquivos de certificado... .key e .crt

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...