Alteração no AcbrPicPay

[djinfope]

Boa tarde pessoal, fiz uma pequena alteração no componente AcbrPicPay para retornar o QRCode em texto, adicionei uma property chamada QRCodeText, desta formar se chamar a propriedade QRCode que ja existia antes ele pega o png retornado no Json, e se chamar o QRCodeText ele traz o link do QRCode retornado no Json, dessa forma podendo passar o texto para o AcbrPosPrinter para imprimir o qrcode de forma simples.

Estou deixando a unit em anexo;

ACBrPicpay.pas

[Daniel Simoes]

@EMBarbosa, pode analisar essa contribuição ?

muito Obrigado @djinfope...

[djinfope]

2 horas atrás, Daniel Simoes disse:

@EMBarbosa, pode analisar essa contribuição ?

muito Obrigado @djinfope...

Por nada, se precisar envio as imagens de como fica o envio do qrcode ao posprinter, como faço em meu sistema.

[EMBarbosa]

23 horas atrás, Daniel Simoes disse:

@EMBarbosa, pode analisar essa contribuição ?

muito Obrigado @djinfope...

@djinfope

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  27755.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[djinfope]

Em 09/12/2022 at 18:53, EMBarbosa disse:

@djinfope

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  27755.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

Por nada, todos os testes feitos aqui e o componente está funcionando tranquilo.

muito obrigado.

Para quem tem interesse em saber como mando a impressão dos qrcode para o posprinter tando do pix como do picpay estou deixando o código aqui em baixo.

mImp.Clear;
  mImp.Lines.Add('</zera>');
  mImp.Lines.Add('</linha_dupla>');
  mImp.Lines.Add('<qrcode_tipo>'+IntToStr(FormVenda.ACBrPosPrinter1.ConfigQRCode.Tipo)+'</qrcode_tipo>');
  mImp.Lines.Add('<qrcode_largura>'+IntToStr(FormVenda.ACBrPosPrinter1.ConfigQRCode.LarguraModulo)+'</qrcode_largura>');
  mImp.Lines.Add('<qrcode_error>'+IntToStr(FormVenda.ACBrPosPrinter1.ConfigQRCode.ErrorLevel)+'</qrcode_error>');

  mImp.Lines.Add('</fn></ce><qrcode_error>0</qrcode_error><qrcode>'+FQrTxt+'</qrcode>');

  mImp.Lines.Add('');
  mImp.Lines.Add('</fn></ce>'+AnsiUpperCase(ComboBox1.Text));
  mImp.Lines.Add('</fn></ce>R$ '+AnsiUpperCase(LabelValor.Caption));
  mImp.Lines.Add('</linha_dupla>');
  mImp.Lines.Add('</corte_total>');

  FormVenda.ACBrPosPrinter1.Buffer.Text := mImp.Lines.Text;
  FormVenda.ACBrPosPrinter1.Imprimir;

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.