ATB QR

Aviso/AvisoReports/rptQRAviso.vb

@@ -52,9 +52,9 @@ Public Class rptQRAviso
         txtGrenze.Text = AVISO.Grenzstelle
         txtFraechter.Text = AVISO.Fr<EFBFBD>chter
         ' QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
-        QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
+        QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
 
-        picQRAviso.Image = getBARCODEAviso(AVISO.AvisoID)
+        picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
 
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -98,41 +98,5 @@ Public Class rptQRAviso
 
     End Sub
 
-    Function getQRCode(QRtext As String, Optional QZSize As Integer = 4, Optional QRVersion As Integer = 7, Optional CorrectionLevel As QRCodeEncoder.ERROR_CORRECTION = QRCodeEncoder.ERROR_CORRECTION.M, Optional encoding As QRCodeEncoder.ENCODE_MODE = QRCodeEncoder.ENCODE_MODE.BYTE) As Image
-        Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder()
-
-        qrCodeEncoder.QRCodeEncodeMode = encoding
-
-        Try
-            Dim scale As Integer = Convert.ToInt16(QZSize)
-            qrCodeEncoder.QRCodeScale = scale
-        Catch ex As Exception
-            MessageBox.Show("Invalid size!")
-            Return Nothing
-        End Try
-
-        Try
-            Dim version As Integer = Convert.ToInt16(QRVersion)
-            qrCodeEncoder.QRCodeVersion = version
-        Catch ex As Exception
-            MessageBox.Show("Invalid version !")
-        End Try
-
-        Dim errorCorrect As String = CorrectionLevel
-
-        qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
-
-        Dim image As Image
-        Dim data As String = QRtext
-        image = qrCodeEncoder.Encode(data)
-        Return image
-    End Function
-
-    Function getBARCODEAviso(AvisoID As String) As Image
-        Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & AvisoID & "/", 1, True, 25)
-        '  barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
-
-        Return barcode
-    End Function
 
 End Class