Projektdateien hinzufügen.

Aviso/frmLKWTicketInfo.vb

@@ -0,0 +1,61 @@
+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