Boa tarde,
algum de vocês conseguiu gerar o QRCODE com a classe FwQRCod, que seja adicionado um componente gráfico em vídeo, capaz de exibir um gráfico do tipo QRCode. OU o método Qrcode na Classe FwMsprinter
Na empresa em que trabalho eles tem uma necessidade de gerar um QRCODE na OP, e um diferente no item da OP?
Obrigado a todos!
Já utilizei o da FwMsPrinter e funcionou perfeitamente. Segue exemplo:
#Include "PROTHEUS.CH"
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"
User Function QRCode()
Local oPrinter
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"
oPrinter := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)
oPrinter:Setup()
oPrinter:setDevice(IMP_PDF)
oPrinter:cPathPDF :="C:\"
oPrinter:QRCode(150,150,"QR Code gerado com sucesso", 100)
oPrinter:EndPage()
oPrinter:Preview()
FreeObj(oPrinter)
oPrinter := Nil
RESET ENVIRONMENT
Return