API BANCO INTER V3

[Daniel InfoCotidiano]

4 minutos atrás, Antonio Gomes disse:

Esse trecho marcado, so existe, no retorno da consulta apos eu ter a solicitacao: o erro ocorre ali na linha LJsonObjectItem.AsJSONObject['boleto'].

Perfeito, um usuario ficou de me enviar as credenciais para que possamos testar.
Vou adiantar isso e aguardar as credenciais.

[Gabriel Mororó]

7 minutos atrás, Antonio Gomes disse:

Sim, pois ainda está tentando pegar dados de boleto, sem poder...

Esse trecho marcado, so existe, no retorno da consulta apos eu ter a solicitacao: o erro ocorre ali na linha LJsonObjectItem.AsJSONObject['boleto'].

Retorno do enviar (primeiro comando)

 

E na consulta detalhe, eu passo esse numero ali, a partir dai, sim, terei o objeto boleto.

 

entendi sua ideia, deixar o app controlar o primeiro envio, e eu ter o recibo (codigosolicitacao) a partir dai, eu consulto, entao, vou comentar aquela tentativa ali de ler o retorno do boleto, pois ele so tem, quando operacao = consultar

Tbm pensei em automatizar a consulta, mas acabei desistindo. Pego o codigosolicitacao e depois faço a consulta detalhada.

[Antonio Gomes]

58 minutos atrás, Daniel InfoCotidiano disse:

Perfeito, um usuario ficou de me enviar as credenciais para que possamos testar.
Vou adiantar isso e aguardar as credenciais.

Daniel, tem algo a mais que eu preciso olhar, no leitor de json base?

olha isso: Nao acha o elemento

[Antonio Gomes]

1 hora atrás, Gabriel Mororó disse:

Tbm pensei em automatizar a consulta, mas acabei desistindo. Pego o codigosolicitacao e depois faço a consulta detalhada.

Então Gabriel, ela não sendo sincrono, até daria, no modulo de NF-e, tem um negocio lá, do delay entre transmissão e pedido de retorno do lote.
mas como não sabemos o comportamento dessa api do inter, estou mudando a logica minha, para fazer posterior, o chato, é ter que implementar no emissor de boleto, um "buscar retorno"... usuario pode cair no esquecimento, desse posterior, ou, a gente implantar isso via robô.

[Daniel InfoCotidiano]

2 horas atrás, Antonio Gomes disse:

Daniel, tem algo a mais que eu preciso olhar, no leitor de json base?

Tente assim por favor

[Antonio Gomes]

Finalizado os ajustes:

Notei que: a url do pix, existem 3 casos:

   property EMV: String read Femv write Femv; // inter está aqui
    property UrlPix: String read FurlPix write FurlPix; // nao carrega aqui c

Achei confuso, pq tem os 2?

Testado envio v2 e v3 ok

Cancelamento: v2 e v3.ACBrBoletoRet_Inter_API.pasACBrBoletoW_Inter_API.pas

baixa, será testado no cliente, não tenho como fazer no momento, mas, havendo divergência, e o fonte estiver ok, eu corrijo.

Sobre o erro do parse que o json ficava vazio, era o create, e parse logo apos, é preciso dar o parse direto, sem o create...

Segue fontes anexo
 

[Daniel InfoCotidiano]

Bom dia @Antonio Gomes
Vou verificar com as credenciais enviadas de outro usuario.
Se mudar algo envio aqui p vc, muito obrigado por testar com suas credenciais.

[Antonio Gomes]

3 horas atrás, Daniel InfoCotidiano disse:

Bom dia @Antonio Gomes
Vou verificar com as credenciais enviadas de outro usuario.
Se mudar algo envio aqui p vc, muito obrigado por testar com suas credenciais.

a propósito, o modo de usar, implementei ao meu modo, nao automatizei o componente, segue como dica para quem for trocar:

// Anterior
        LCodigoSolicitacaoTmp := PCodigoSolicitacao;
        AMsgErro              := '';
        LFlagEnviar           := True;

        if (FDSServBanc.FieldByName('API_CONS_APOS_INCLUIR_SER').AsString = 'S') and (PCodigoSolicitacao <> '') then // inter v3
        begin
          // Se deu erro anterior, mas gravou o recibo de solicitacao, consultar - inter tem isso = se ja foi enviado, nao pode mandar de novo
          Boleto.Configuracoes.WebService.Operacao := TOperacao.tpConsultaDetalhe;
          Boleto.Enviar;
          AMsgErro    := LerRetornoDeAPI(Boleto);
          LFlagEnviar := False; // não enviar de novo
        end;

        // TODOS DEMAIS BANCOS, interv2 ou interv3, se nao tiver ainda o recibo
        if (AMsgErro = '') and LFlagEnviar then
        begin
          Boleto.Configuracoes.WebService.Operacao := TOperacao.tpInclui;
          Boleto.Enviar;
          AMsgErro := LerRetornoDeAPI(Boleto);
        end;

        // esperar entre transmissao
        if LFlagEnviar and (FDSServBanc.FieldByName('API_CONS_APOS_INCLUIR_SER').AsString = 'S') and
         (FDSServBanc.FieldByName('API_TEMPO_CONS_SER').AsInteger > 0) then
        begin
          Sleep(FDSServBanc.FieldByName('API_TEMPO_CONS_SER').AsInteger);
        end;

        // inter: Se antes nao tinha solicitacao, agora tem, e ainda nao pegou o retorno do boleto, pegar
        if (AMsgErro = '') and (FDSServBanc.FieldByName('API_CONS_APOS_INCLUIR_SER').AsString = 'S') and // inter v3
         (LCodigoSolicitacaoTmp = '') and (PCodigoSolicitacao <> '') then
        begin
          Boleto.Configuracoes.WebService.Operacao := TOperacao.tpConsultaDetalhe;
          Boleto.Enviar;
          AMsgErro := LerRetornoDeAPI(Boleto);
        end;

 

Aberto a sugestões de melhoras no codigo, a função LerRetornoDeAPI só avalia o vetor de erros e muda as variaveis de retorno, tipo "PCodigoSolicitacao" , se teve recusa, já deixei no meu sistema o modo sleep, tipo tem la na nfe, caso api comece a ficar lenta.

Editado 28 Março por Antonio Gomes

[Antonio Gomes]

Olá @Daniel InfoCotidiano

Bão também...

Conseguiu analisar o fonte ali em cima?

 

[Daniel InfoCotidiano]

5 minutos atrás, Antonio Gomes disse:

Conseguiu analisar o fonte ali em cima?

Bom dia !
So estamos fazendo alguns testes para consulta automatica qdo pix, provavelmente subimos esta semana.

[Antonio Gomes]

Em 03/04/2024 at 10:07, Daniel InfoCotidiano disse:

Bom dia !
So estamos fazendo alguns testes para consulta automatica qdo pix, provavelmente subimos esta semana.

oi subiu?

[Daniel InfoCotidiano]

Estou trabalhando nele neste exato momento. assim q subir ja te aviso

[Daniel InfoCotidiano]

Bom dia !
Segue anexo a alteração API com boleto híbrido para testes.
Para V3( cobranca pix) Informar o IndicadorPIX.
Ele vai alimentar a propriedade NossoNumeroCorrespondente (titulo.NossoNumeroCorrespondente) com o codigodeSolicitação devolvida pelo banco.
Guarde o valor desta propriedade NossoNumeroCorrespondente para futuras consultas e cancelamento da versao PIX;
Quando vc realiza a inclusão com indicador PIX, ele identifica codigodeSolicitação  e consulta utilizando NossoNumeroCorrespondente e devolve a consulta detalhe do titulo.
lembrando, como existem 2 APIS, qdo estiver marcada Indicador pix, Inclusao e consulta vai ser realizada na API PIX. desmarcada permenece a original, sem pix.

InterAPIQrCode.zip

[Daniel InfoCotidiano]

@Antonio Gomes
Boa tarde!
Fizemos um ajuste para tratamento do retorno automatico
 

API-InterQrCODE18042024.zip

[Antonio Gomes]

Em 18/04/2024 at 17:35, Daniel InfoCotidiano disse:

@Antonio Gomes
Boa tarde!
Fizemos um ajuste para tratamento do retorno automatico
 

API-InterQrCODE18042024.zip 11.68 kB · 0 downloads

oi daniel, farei os testes. []s