106 lines
3.9 KiB
VB.net
106 lines
3.9 KiB
VB.net
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 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
|
|
|
|
|
|
|
|
|
|
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
|