Projektdateien hinzufügen.

Aviso/frmLKWTicket.vb

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