Boleto API inter Retorno (Produção)

[Filippe Maymone]

@Anadilson o qrcod é bem onde esta comentado ai 
ACBrBoletoPIXQRCode.emv

 

E ele sta em Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV

 

Tem que receber algo parecido com isso .. 

Titulo.QrCode.emv := '00020101021226870014br.gov.bcb.pix2565qrcodepix-h.bb.com.br/pix/v2/22657e83-ecac-4631-a767-65e16fc56bff5204000053039865802BR5925EMPRORT AMBIENTAL        6008BRASILIA62070503***6304BD3D';

 

 

@Anadilson o qrcod é bem onde esta comentado ai 
ACBrBoletoPIXQRCode.emv

 

E ele sta em Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV

 

Tem que receber algo parecido com isso .. 

Titulo.QrCode.emv := '00020101021226870014br.gov.bcb.pix2565qrcodepix-h.bb.com.br/pix/v2/22657e83-ecac-4631-a767-65e16fc56bff5204000053039865802BR5925EMPRORT AMBIENTAL        6008BRASILIA62070503***6304BD3D';

 

 

[Anadilson]

Sim, ele gera semelhante a isso, mas ao lêr o QrCdode para pagar dá como inválido

 

 

[Filippe Maymone]

esta gerando o PIX dinâmico ?? 

eu não uso essa parte de pix dinamico .. 

 

 

[Anadilson]

Para eu gerar o QrCode no boleto:   BoletoPIX.fr3 do FastReport

 

[Anadilson]

Bem, consegui @Filippe Maymone 

O erro estava na linha comentada:

if ACBrBoletoPIXQRCode = Nil then
                  ACBrBoletoPIXQRCode := TACBrBoletoPIXQRCode.Create;

                ACBrBoletoPIXQRCode.url  := lUrlPix;
                ACBrBoletoPIXQRCode.txId := lTxPix;
                ACBrBoletoPIXQRCode.emv  := lCodigoSolicitacao;

                ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lCodigoSolicitacao, lTxPIX, Titulo);
                Titulo.NossoNumero    := lNossoNumeroFormatado;
                //Titulo.QrCode         := ACBrBoletoPixQRCode;
                Titulo.QrCode.emv     := lUrlPix;

[Anadilson]

Resumindo. Para o banco Inter preciso só disso:

 

          if Titulo.NossoNumeroCorrespondente <> '' then
          begin
            dm.Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;

            dm.Boleto.Enviar;

            if dm.Boleto.ListaRetornoWeb[0].HTTPResultCode = 200 then
            begin
              Titulo.QrCode.emv := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.EMV;
            end;
          end;

 

E funciona perfeitamente. "Para o Banco Inter" que o retorno é em: dm.Boleto.ListaRetornoWeb[0].Dados.Ret.TituloRet.EMV  considerando um título apenas na lista