112 lines
4.8 KiB
VB.net
112 lines
4.8 KiB
VB.net
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) & "×tamp=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Now.ToString("ddMMyyyy_HHmm")))
|
|
|
|
Dim token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("avisoid=" & (AVISO.AvisoID) & "&sendungsid=" & (tblSnd_SendungID) & "×tamp=" & 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
|