20200108

Aviso/frmLKWBericht.vb

@@ -2,6 +2,23 @@
 
 Public Class frmLKWBericht
     Public AvisoID As Integer = -1
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub New(AvisoID)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AvisoID = AvisoID
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Me.Close()
     End Sub
@@ -25,12 +42,13 @@ Public Class frmLKWBericht
     End Sub
 
     Private Sub frmLKWBericht_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If cGlobal.Aktive_ID <= 0 Then
+        If AvisoID < 0 Then AvisoID = cGlobal.Aktive_ID
+        If AvisoID <= 0 Then
             MsgBox("Es ist kein LKW ausgewählt!")
             Me.Close()
         Else
 
-            AvisoID = cGlobal.Aktive_ID
+            ' AvisoID = cGlobal.Aktive_ID
             Label1.Text = "Berichtes für: " & (New cAvisoDAL).LesenAviso(AvisoID, "").LKW_Nr
         End If
     End Sub