Guardar o QRCode em ficheiro de texto   

Boa tarde Vitor

partilho aqui uma resposta que a primavera me deu relativamente a isto, efectivamente a v9 não gera o texto do qrcode por vba. O que pode é caso veja a fazer o vitor a função que gere essa string com as regras da AT depois utilizar o desenvolvimento abaixo para gerar a imagem do QRCode

Public Function GeraQRCode(ByVal Modulo As String, ByVal Filial As String, ByVal Tipodoc As String, ByVal Serie As String, ByVal NumDoc As Long) As String
Dim strQRCode           As String
Dim strNomeFicheiro     As String
Dim strFicheiro         As String

On Error GoTo Erro:

strQRCode = DaDadosQRCode(Modulo, Filial, Tipodoc, Serie, NumDoc)

If LenB(strQRCode) <> 0 Then

strNomeFicheiro = MotorLE.DSO.Plat.Strings.Formata("@1@_QRCode_@2@_@3@_@4@_@5@_@[email protected]", MotorLE.Contexto.CodEmp, Modulo, Filial, Tipodoc, Serie, NumDoc)

strFicheiro = DaImagemQRCode(strQRCode, strNomeFicheiro)

End If

GeraQRCode = strFicheiro

Exit Function

Erro:

Err.Raise Err.Number, "_GeraQRCode", Err.Description
End Function

Private Function DaImagemQRCode(strQRCode As String, strNomeFicheiro As String) As String
Dim objService      As Object
Dim strFullPath     As String

On Error GoTo Erro:

Set objService = CreateObject("Primavera.Controls.BarCodes.BarcodesHelper")

'Set objService = New Primavera_Controls_BarCodes.BarcodesHelper

strFullPath = GetWindowsTemp() + "" + strNomeFicheiro

objService.GenerateQRCodeImage strQRCode, strFullPath

DaImagemQRCode = strFullPath

Set objService = Nothing
Exit Function

Erro:

Set objService = Nothing
Err.Raise Err.Number, "_DaImagemQRCode", Err.Description

End Function

Eu próprio no caso optei pelo upgrade para a v10 em vez de contruir a funçao para obter o texto com todas as regras e condicionantes.

Bom dia,

O método da V10 não está disponível para tradução para o VBA?

Ou é possível disponibilizar?

Na v9 não existe o método para guardar o QRCode de um documento para um ficheiro de texto, contrariamente à V10. Dessa forma para o fazer tem que implementar o método para gerar o texto.