Histórico da Página

A classe FwQRCode permite que seja adicionado um componente gráfico em videovídeo, capaz de exibir um grafico gráfico do tipo QRCode.

O Código QR (Quick Response) é um código de barras bidimensional que pode ser escaneado usando a maioria dos celulares modernos equipados com câmera. Esse código pode ser convertido em pedaço de texto (interativo), endereço URL, número de telefone, localização georreferenciada, e-mail, contato, mensagem SMS, informações de controle de inventário, entre outros. Inicialmente criado pela empresa japonesa Denso-Wave em 1994 para identificar peças na indústria automobilística, seu uso é livre de qualquer licença, sendo definido e publicado como um padrão ISO.

...

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.

...

1. aCoord
   Permite que sejam definidas as coordenadas iniciais do objeto em relação a à Dialog/Window, sendo:
             1  - nLeft - Coordenada inicial em relação ao lado esquerdo do vídeo;
             2 - nTop - Coodenada Coordenada inicial em relação ao topo do vídeo (parte superior);
             3 - nWidth - Largura em pixels do objeto;
             4 - nHeight - Altura em pixels do objeto;
   
   
2. oDlg
   Objeto tipo Dialog ou Window utilizado como base para a criação do componente FwQrCode
   
   
3. cCodigo
   String contemplando o código (URL,texto, número, etc.) a ser utilizado como referência na criação do QRCode.

...

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.

Retorno:

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