Active Reports 18 (from 18..)

2025-06-23 09:24:59 +02:00
parent 1fee9a7c80
commit 3442a8a243
118 changed files with 29468 additions and 32441 deletions
--- a/Aviso/ARConverterBackup/AvisoReports/rptQRAviso.vb
+++ b/Aviso/ARConverterBackup/AvisoReports/rptQRAviso.vb
@@ -0,0 +1,105 @@
+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<EFBFBD>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