neu

AVISO_CHECKIN/usrCntlFinish.vb

@@ -0,0 +1,55 @@
+Imports AVISO
+
+Public Class usrCntlFinish
+
+    Dim MAIN As frmCheckIn
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
+
+    Sub New(MAIN, AVISO)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        Me.AVISO = AVISO
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MAIN.TRANSLATE(Me)
+        If AVISO IsNot Nothing Then
+
+            Dim printerINFO = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+            Dim printerStandard = SDL.cProgramFunctions.getDruckernameBySearch("XXXXXXX", True)
+
+            ' If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Then
+            Dim rpt As New rptQRAviso(AVISO)
+            If printerINFO <> "" Then
+                SDL.cProgramFunctions.printRpt(rpt, printerINFO, True)
+            Else
+                SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
+            End If
+            'End If
+
+            SDL.FormularManagerNEU.Sammelakt_CheckIn(AVISO, Nothing, True, printerStandard)
+
+        Else
+            MAIN.SET_WELCOME()
+        End If
+
+
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        MAIN.SET_WELCOME()
+    End Sub
+
+    Dim cnt = 30
+    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+        If cnt = 0 Then
+            MAIN.SET_WELCOME()
+        End If
+        btn.Text = "RESET (" & cnt & ")"
+        cnt -= 1
+    End Sub
+End Class