56 lines
1.6 KiB
VB.net
56 lines
1.6 KiB
VB.net
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
|