Boleto API impressã qrcode

[rpaulogio]

Olá senhores,

Me tira uma duvida por favor, após eu enviar o boleto para a api do banco do brasil eu chamo uma rotina para gerar o pdf para enviar via e-mail, acontece que o boleto após ser enviado não mostra o qrcode na impressão:

 

Função que envia o boleto para api:

  Boleto.Configuracoes.WebService.Operacao := tpInclui;
  Boleto.EnviarBoleto; 

Função Gerar pdf:

    Boleto.ACBrBoletoFC.NomeArquivo:= CaminhoDir + '\DOCS\FATURAS\' + FormatFloat('000000', qryBoletos.FieldByName('CODIGOFATURAS').AsInteger)+'Boleto.pdf';
    Boleto.GerarPDF;
 

o que eu posso fazer para o qrcode aparecer na impressão?

[Juliomar Marchetti]

está checkado a opção PIX?

[rpaulogio]

1 hora atrás, Juliomar Marchetti disse:

está checkado a opção PIX?

sim:

BeneficiarioWS.IndicadorPix := True;

[Juliomar Marchetti]

46 minutos atrás, rpaulogio disse:

sim:

BeneficiarioWS.IndicadorPix := True;

então vou pedir para que teste com o exemplo do svn e seus dados. ele deve gerar o tx para funcionar.  roda e coloca todas as configurações nele e inclui um titulo

 

[rpaulogio]

13 horas atrás, Juliomar Marchetti disse:

então vou pedir para que teste com o exemplo do svn e seus dados. ele deve gerar o tx para funcionar.  roda e coloca todas as configurações nele e inclui um titulo

 

Juliomar, com certeza o exemplo de do svn deve funcionar, eu não consigo rodar ele, pois não tenho o acbr instalado uso uma classe que herda do acbr e no meu sistema faço tudo em tempo de execução, crio o componente dessa forma:

  Boleto   := TACBrBoleto.Create(Self);
  BoletoFC := TACBrBoletoFCFR.Create(Self);

Incluir titulo:

Titulo := Boleto.CriarTituloNaLista;

Titulo.Sacado.Numero ..assim por diante.

Você não tem nenhuma ideia do que pode ser? creio que após enviar o titulo:

  //Função de Envio
  Boleto.Configuracoes.WebService.Operacao := tpInclui;
  Boleto.EnviarBoleto;

o componente deveria ser atualizado com o dados do retorno?

 

[Juliomar Marchetti]

1 hora atrás, rpaulogio disse:

Juliomar, com certeza o exemplo de do svn deve funcionar, eu não consigo rodar ele, pois não tenho o acbr instalado uso uma classe que herda do acbr e no meu sistema faço tudo em tempo de execução, crio o componente dessa forma:

  Boleto   := TACBrBoleto.Create(Self);
  BoletoFC := TACBrBoletoFCFR.Create(Self);

Incluir titulo:

Titulo := Boleto.CriarTituloNaLista;

Titulo.Sacado.Numero ..assim por diante.

Você não tem nenhuma ideia do que pode ser? creio que após enviar o titulo:

  //Função de Envio
  Boleto.Configuracoes.WebService.Operacao := tpInclui;
  Boleto.EnviarBoleto;

o componente deveria ser atualizado com o dados do retorno?

 

Preciso que use o exemplo do svn para vermos se tem problema.

por favor rode o mesmo para que possa testar

[Victor H. Gonzales - Panda]

Boa tarde,

Não gerou o QRCode porque o EMV não está carregado no titulo.

você tem que salvar o EMV tanto na emissão como na reimpressão para sair o boleto hibrido

[rpaulogio]

34 minutos atrás, Victor H. Gonzales - Panda disse:

Boa tarde,

Não gerou o QRCode porque o EMV não está carregado no titulo.

você tem que salvar o EMV tanto na emissão como na reimpressão para sair o boleto hibrido

Victor, após enviar o titulo eu pego o EMV e atualizo no componente, certo?

[Victor H. Gonzales - Panda]

no envio se não der nenhum erro na consulta do emv, você não precisaria se preocupar, se der erro no registro foi problema com a API.

mas se a API registrou você tem os outros metodos para consultar, registrar etc.. o pix.

var ListaRetornoWeb: TListaRetEnvio;

ACBrBoleto.EnviarBoleto;
ListaRetornoWeb := ACBrBoleto.ListaRetornoWeb;
if ListaRetornoWeb.Count > 0 then
  for k:= 0 to Pred(ListaRetornoWeb.Count) do
  begin

    xWS_EMV   := ListaRetornoWeb[k].DadosRet.TituloRet.EMV;
    xEMV_URL  := ListaRetornoWeb[k].DadosRet.TituloRet.UrlPix;
    xEMV_TXID := ListaRetornoWeb[k].DadosRet.TituloRet.TxId;
  	//sua regra de negocio
  end;

tenta algo assim passando essas 3 variáveis na reimpressão