Projektdateien hinzufügen.

Aviso/frmLKWBericht.vb

@@ -0,0 +1,41 @@
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmLKWBericht
+    Public AvisoID As Integer = -1
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnTan_Click(sender As Object, e As EventArgs) Handles btnTan.Click
+        Try
+            Dim report As rptLKWBericht = New rptLKWBericht
+            report.AvisoID = AvisoID
+            report.erstelltVon = cGlobal.AktiverMitarbeiter.Mitarbeitername
+
+            Dim REPORTPRNT As New frmDruck(report)
+            REPORTPRNT.Show()
+            REPORTPRNT.WindowState = FormWindowState.Maximized
+            AddHandler REPORTPRNT.FormClosed, Sub()
+                                                  Me.Close()
+                                              End Sub
+        Catch ex As Exception
+            MsgBox("Beim erstellen des Berichtes ist ein Fehler aufgetreten: " & vbCrLf & ex.Message)
+            Exit Sub
+        End Try
+    End Sub
+
+    Private Sub frmLKWBericht_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If cGlobal.Aktive_ID <= 0 Then
+            MsgBox("Es ist kein LKW ausgewählt!")
+            Me.Close()
+        Else
+
+            AvisoID = cGlobal.Aktive_ID
+            Label1.Text = "Berichtes für: " & (New cAvisoDAL).LesenAviso(AvisoID, "").LKW_Nr
+        End If
+    End Sub
+
+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
+
+    End Sub
+End Class