Histórico da Página

...

1. A utilização desta classe está disponível em ambientes Microsiga Protheus® 10 e Microsiga Protheus® 11, que possuam o fonte FwQrCode.prw com data igual ou superior à 31/07/12;
2. Está condicionada à utilização do pacote de Binário de referência igual ou superior a superior à 7.00.120420A - JUL 26 2012.

...

Exemplo:
oQrCode := FwQrCode():New({25,25,200,200},oDlg,"http://www.totvs.com") 

SetCodeBar

Descrição: Método que define o código (string) a ser utilizado na geração do código de barras QRCode, quando este não for informado por meio do parâmetro cCodigo do método New.

...

Exemplo:
oQrCode:SetCodeBar("http://www.totvs.com") 

GetCodeBar

Descrição:  Retorna o código (string) utilizado no QRCode exibido.

...

cCodigo := oQrCode:GetCodeBar()  

Refresh

Descrição: Atualiza o objeto a partir das últimas definições realizadas. Pode ser utilizado em conjunto com o método SetCodeBar, para atualizar um código recém-definido.

...

1. Nil
   Não há retorno definido para este método

Exemplo: 

oQrCode:Refresh()

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

Image Added