Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - Impressão de QRCODE

Tempo aproximado para leitura: 00:01:00 min

Dúvida
O Protheus possui alguma função para impressão do QRCODE ?

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução
Para gerar o QRCODE utilizamos a classe FwQRCode.

A classe FwQRCode permite que seja adicionado um componente gráfico em vídeo, capaz de exibir um gráfico do tipo QRCode. Temos também o método Qrcode na Classe FwMsprinter

Exemplo

#INCLUDE "PROTHEUS.CH"

//Consulte: http://tdn.totvs.com.br/display/mp/FwQrCode
User Function TstQrCode()
Local oDLG := Nil
Local cCodigo := "http://www.totvs.com.br" + Space(60)
Private oQrCode

//Cria a Dialog
DEFINE MSDIALOG oDlg TITLE "RDMAKE para teste da classe FwQrCode" FROM 0,0 TO 400,800 PIXEL

//Cria o objeto FwQrCode
oQrCode := FwQrCode():New({25,25,200,200},oDlg,cCodigo)

//Get com o codigo exibido
@25,150 GET oGet VAR cCodigo OF oDlg SIZE 200,10 PIXEL

//Botao Gerar
@45,150 BUTTON "Gerar" SIZE 30,20 PIXEL OF oDlg ACTION MsgRun("Gerando QRCode","Aguarde",{|| U_MyRefresh(cCodigo)}) PIXEL

//Exibe a Dialog em Video
ACTIVATE MSDIALOG oDlg CENTERED

Return

User Function MyRefresh(cNewCod)
oQrCode:SetCodeBar(cNewCod)
oQrCode:Refresh()
Return