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