Impressão Qr Code - Argox

Discussão em 'Progress 4GL' iniciado por Marcos Frasson, Setembro 14, 2022.

  1. Marcos Frasson

    Marcos Frasson Membro Participativo

    Bom Dia Pessoal,

    Estou trabalhando em um projeto, e cheguei no ponto de gerar Qr Code para imprimir em um impressora Argox.

    A Geração do Qr Code, estou conseguindo certinho, com fonte abaixo.

    USING ThoughtWorks.QRCode.Codec.*.
    USING System.Drawing.*.
    DEF VAR c-local AS CHAR INITIAL "C:\marcos".
    DEFINE VARIABLE c-QrCode AS ThoughtWorks.QRCode.Codec.QRCodeEncoder NO-UNDO.
    DEFINE VARIABLE c-imagem AS System.Drawing.Image NO-UNDO.
    c-QrCode = NEW QRCodeEncoder().
    c-QrCode:QRCodeVersion = 0.
    c-imagem = c-QrCode:Encode("87432574" + ";" + "150.800-9" + ";" + "001" + ";" + "cc10" + ";" + "2" + ";" + "2").
    DELETE OBJECT c-QrCode.
    c-imagem:Save(c-local + "\qrcode_2.png",System.Drawing.Imaging.ImageFormat:png).


    O problema é com a dimensão do Qr Code, não está ficando certinho na etiqueta, precisava trabalhar com a posição e dimensão desse dessa imagem Qr Code na etiqueta.

    Alguém já precisou de algo parecido e poderia ajudar?
  2. Marcos Frasson

    Marcos Frasson Membro Participativo

    Resolvi Pessoal, a minha saída foi criar o modelo da etiqueta no Bartender e depois gerar o código da programação da impressora em .txt e a partir disso adaptar no Progress.
    jdchaves curtiu isso.

Compartilhe esta Página