Imports System.Web
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports ThoughtWorks.QRCode.Codec

Public Class rptQRAviso
    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing

    Sub New(AvisoId As Integer)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Sub New(Aviso As VERAG_PROG_ALLGEMEIN.cAviso)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.AVISO = Aviso

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.


    End Sub

    Private Sub rptEABeleg_PrintProgress(sender As Object, e As EventArgs) Handles Me.PrintProgress
        ' QR.Location = New PointF(QR.Location.X, 4.5) 'QR.Location.Y + lblStorno.Height)

    End Sub

    Private Sub rptEABeleg_PageStart(sender As Object, e As EventArgs) Handles ReportFooter1.BeforePrint
        '   QR.Location = New PointF(QR.Location.X, 5.5) 'QR.Location.Y + lblStorno.Height)



    End Sub

    Private Sub rptQRAviso_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
        If AVISO Is Nothing Then Exit Sub

        lblSachbearbeiter.Text = AVISO.letzterMitarbeiter
        txtLKW.Text = AVISO.LKW_Nr
        lblDatum.Text = AVISO.Ankunft.ToShortDateString & " " & AVISO.Ankunft.ToShortTimeString
        lblNr.Text = AVISO.AvisoID
        txtGrenze.Text = AVISO.Grenzstelle
        txtFraechter.Text = AVISO.Frä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))

        picQRAviso.Image = getBARCODEAviso(AVISO.AvisoID)


        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "VERAG"
                lblFirma_Name.Text = "VERAG Spedition AG"
                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                    Case "SBG"
                        lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
                        lblFirma_Details.Text &= "D 83435 Bad Reichenhall  |  Europaplatz 8"
                    Case "WAI"
                        lblFirma_Details.Text = "Niederlassung: Waidhaus"
                        lblFirma_Details.Text &= "D 92726 Waidhaus  |  Am Autohof 3"
                    Case "NKD"
                        lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
                        lblFirma_Details.Text &= "A 2425 Nickelsdorf  |  Neue Teilung 1"
                    Case "NEU"
                        lblFirma_Details.Text = "Niederlassung: Neuhaus"
                        lblFirma_Details.Text &= "D 94152 Neuhaus am Inn  |  Hartham 6"
                    Case Else
                        lblFirma_Details.Text = "A 4975 Suben  |  Suben 14"
                End Select
            Case "IMEX"
                picVERAG.Image = My.Resources.IMEX_LOGO_simple
                lblFirma_Name.Text = "IMEX Customs Service GmbH"
                lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
            Case "UNISPED"
                picVERAG.Image = My.Resources.Unisped_logo
                lblFirma_Name.Text = "UNISPED Speditions GmbH"
                lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"

            Case "FRONTOFFICE"
                picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
                lblFirma_Name.Text = "Front-Office Suben eG"
                lblFirma_Details.Text = "A 4975 Suben  |  Suben 14"
            Case "ATILLA"
                picVERAG.Image = My.Resources.Atilla
                lblFirma_Name.Text = "ATILLA Spedition GmbH"
                lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
            Case Else
        End Select

    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