[Numero da nota Componente ACBRNFSEx]

Bom dia...

Quando transmito uma NFS pelo ACBRNFSEx, o componente não está preenchendo o numero da nota e o codigo de verificação.. ele baixa o xml normalmente, que aparentemente está correto..
Provedor IPM, Novo Hanburgo / RS Modo de envio Automatico..

Segue em anexo xml retornado e a foto abaixo é de FNFSe.notasfiscais.items[0].Nfse depois do envio e impressão do danfe ( que sai sem o número ) ...

 

sds,

 

16613-nfse.xml

[Banco Inter via API não envia instruções de Juros e Multa]

eu faço dessa forma.. e funciona.. sempre mando valor por dia.. em todas carteiras...

        if( FCarteira.CODIGOMORA > '0' ) then
          begin
            CodigoMoraJuros := cjValorDia;
            ValorMoraJuros  := TFuncoes.new.Numericas.Arredondar ( 2,( ValorDocumento * ( FCarteira.Taxa_Juros / 100 ) ) / 30 );
            if( FCarteira.MULTA_ATRASO ) > 0 then
              begin
                PercentualMulta   :=  TFuncoes.new.Numericas.Arredondar ( 2,ValorDocumento * ( FCarteira.MULTA_ATRASO/ 100 ));
              end
            else
              begin

              end;
          end
        else
          begin
//            PercentualMulta := 0;
//            ValorMoraJuros  := 0;
            CodigoMoraJuros := cjIsento;
          end;
 

[Novo provedor em Novo Hamburgo]

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

[Novo Manual API Sicredi]

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

[Retorno via API do Banco Inter sem resultado]

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

Grato

[Retorno via API do Banco Inter sem resultado]

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;

[Retorno via API do Banco Inter sem resultado]

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

[Retorno via API do Banco Inter sem resultado]

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

sds,

 

[Retorno via API do Banco Inter sem resultado]

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

[Banco Inter via API - Faltando escopos necessários.]

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

[API Banco Inter]

Bom dia..

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

[API Banco Inter]

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

[API Banco Inter]

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

 

[API Banco Inter]

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

 

[API Banco Inter]

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';
 

[API Banco Inter]

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

[API Banco Inter]

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;
 

[API Banco Inter]

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

[API Banco Inter]

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

[API Banco Inter]

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

 

[API Banco Inter]

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

[API Banco Inter]

Qual enum ?

[API Banco Inter]

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

[API Banco Inter]

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 :'
 

[API Banco Inter]

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);