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

Public Class rptQRSendung_VerwahrungApp
    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
    Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = 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, SND As VERAG_PROG_ALLGEMEIN.cSendungen)

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

        Me.AVISO = AVISO
        Me.SND = SND

        ' 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

        Dim tblSnd_SendungID = -1
        If SND IsNot Nothing Then
            tblSnd_SendungID = SND.tblSnd_SendungID
        End If

        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 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?avisoid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) & "&sendungsid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(SND.tblSnd_SendungID) & "&timestamp=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Now.ToString("ddMMyyyy_HHmm")))

        Dim token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("avisoid=" & (AVISO.AvisoID) & "&sendungsid=" & (tblSnd_SendungID) & "&timestamp=" & Now.ToString("ddMMyyyy_HHmm") & "&nation=" & If(AVISO.LKW_Nationalitaet, ""))
        'MsgBox(token)
        'MsgBox(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(token))
        QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?token=" & token)
        picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.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


End Class