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