Public Class frmLKWTicketInfo
    Dim txt_info = "WAI_Parkplatz_Info"
    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 rptTicketLKWInfo
        rpt.lblInfo.Text = RichTextBox.Text
        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
        MyComboBox1.fillWithSQL("SELECT distinct([txt_sprache])  FROM [tblTextkonserve] where txt_bezeichnung='" & txt_info & "' ORDER BY [txt_sprache]", False, "FMZOLL")
        If AVISO IsNot Nothing AndAlso AVISO.LKW_Nationalitaet IsNot Nothing AndAlso AVISO.LKW_Nationalitaet <> "" Then
            MyComboBox1.changeItem(AVISO.LKW_Nationalitaet)
        End If
        If MyComboBox1.Text = "" Then MyComboBox1.changeItem("TR")
    End Sub

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

    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
        RichTextBox.Text = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT TOP 1 [txt_text]  FROM [tblTextkonserve] where txt_bezeichnung='" & txt_info & "' AND txt_sprache='" & MyComboBox1.Text & "' ORDER BY [txt_sprache]", "FMZOLL")
        If MyComboBox1.Text = "BG" Then
            RichTextBox.Text = "Това НЕ Е обществен паркинг !!
Паркирането е строго ЗАБРАНЕНО за автомобили / камиони без митническо оформяне !!
ГЛОБА 50 EUR !!

Паркинга принадлежи на: 
SPEDITION VERAG GmbH"
        End If
    End Sub
End Class