Public Class frmLKWTicket

    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
    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
    Sub New(AvisoID As Integer)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        If AvisoID > 0 Then
            AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoID, "")
        End If

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        Dim rpt As New rptTicketLKW
        rpt.lblLKW.Text = txtKennzeichen.Text
        rpt.txtFraechter.Text = txtFraechter.Text
        rpt.txtDatum.Text = txtDatum.Text
        rpt.txtGrenzstelle.Text = txtGrenzstelle.Text
        rpt.TextBox5.Text = Now.ToString("dd.MM.yyyy HH:mm:ss")
        rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
        If SDL.cProgramFunctions.printRpt(rpt, cboPrinter.Text) Then
            Me.Close()
        End If

    End Sub

    Private Sub frmLKWTicket_Load(sender As Object, e As EventArgs) Handles Me.Load
        If AVISO IsNot Nothing Then
            txtKennzeichen.Text = If(AVISO.LKW_Nr, "")
            txtFraechter.Text = If(AVISO.Frächter, "")
            txtDatum.Text = Now.ToShortDateString
            txtGrenzstelle.Text = "Waidhaus"
            'Select Case AVISO.Grenzstelle
            '    Case "SUB" : txtGrenzstelle.Text = "Suben"
            '    Case "SBG" : txtGrenzstelle.Text = "Bad Reichenhall"
            '    Case "WAI" : txtGrenzstelle.Text = "Waidhaus"
            'End Select
        End If
    End Sub

    Private Sub frmLKWTicket_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        SDL.cProgramFunctions.initDrucker(cboPrinter, "TICKET")
    End Sub
End Class