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

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;

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

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

Dessa forma: 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; Gera Inválido

Não consigo gerar um QrCode válido no boleto do Inter: if Titulo.NossoNumeroCorrespondente <> '' then begin dm.Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; dm.Boleto.Enviar; if dm.Boleto.ListaRetornoWeb[0].HTTPResultCode = 200 then begin if Trim(dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.NossoNumeroCorrespondente) <> '' then begin lSituacao := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.CodigoEstadoTituloCobranca; if dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.IDBoleto <> '' then lCodigoSolicitacao := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.IDBoleto; lNossoNumeroFormatado := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.NossoNum; lCodigoBarras := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.CodBarras; lLinhaDigitavel := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.LinhaDig; lUrl := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.URL; lTxPIX := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.TxId; lUrlPIX := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.EMV; if lUrlPIX = '' then lUrlPIX := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.UrlPIX; if lCodigoSolicitacao = '' then lCodigoSolicitacao := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.NossoNumeroCorrespondente; // e na hora de imprimir, atribui no titulo, se tiver pix - gravado no seu receber a url, claro if ACBrBoletoPIXQRCode = Nil then ACBrBoletoPIXQRCode := TACBrBoletoPIXQRCode.Create; ACBrBoletoPIXQRCode.url := lUrlPix; ACBrBoletoPIXQRCode.txId := lTxPix; ACBrBoletoPIXQRCode.emv := ''; //lCodigoSolicitacao; ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lUrlPIX, lTxPIX, Titulo); Titulo.NossoNumero := lNossoNumeroFormatado; Titulo.QrCode := ACBrBoletoPixQRCode; end; end; end; Levando em consideração que para o banco Inter a UrlPix vem dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.EMV dá erro: raised exception class EACBrPixException with message 'O tamanho máximo para conteúdo EMV é 99'. Se fizer assim: ACBrBoletoPIXQRCode.url := lCodigoSolicitacao; // NossoNumeroCorrespondente ACBrBoletoPIXQRCode.txId := lTxPix; ACBrBoletoPIXQRCode.emv := lCodigoSolicitacao; // NossoNumeroCorrespondente ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lUrlPIX, lTxPIX, Titulo); Gera um QrCode Inválido Alguém pode me mostrar o erro?

Obrigado Antonio Gomes, vou estudar aqui sua postagem com exemplo. Grato

Como consultar o título usando o NossoCodigoCorrespondente? Quando gero o boleto ele vem com o QrCode PIX porém quando vou pagar ele exibe: "chave PIX Identificada" e ao tentar pagar ele reporta: "Chave não cadastrada no PIX" Seria o mesmo problema o meu retorno exibem "EM_PROCESSAMENTO"

Muito Obrigado Ítalo, Como sempre. Você é "oh Cara" Grato

Boa tarde, Favor atualizar o arquivo: ACBrNFSeXServicos.ini com provedor para Caeté MG. Testes feitos em regime de produção com resultado positivo. [3110004] ; Atualizado em 04/06/2025 Nome=Caete UF=MG Provedor=Pronim Versao=2.02 ProRecepcionar=http://caete.govbr.cloud/nfse.portal.integracao/services.svc Grato,

Testado e certinho. Muito obrigado.

Boa tarde, Erro na Unit ACBrEPCBloco_C_Class.pas linhas: 876 e 896 Subistituir: if DT_INI >= StrToDate('01/05/2015') then Por: if DT_INI >= EncodeDate(2015,05,01) then Agir igual na linha 971 "if DT_INI >= EncodeDate(2012,07,01) then" Grato

Achei aquí. é -> Registro1.Servico.FormaLancamento := flPagamentoContas;

PagFor como definir Forma de Lançamento 11 - Código de barras?

Olá, Alguém conseguiu gerar um boleto Dinâmico para o Banco Inter? Ou no exemplo de Homologação do Banco do Brasil?