Imports VERAG_PROG_ALLGEMEIN

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

    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 AvisoID < 0 Then AvisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
        If AvisoID <= 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