107 lines
3.5 KiB
VB.net
107 lines
3.5 KiB
VB.net
|
|
Public Class frmCheckIn
|
|
Dim cAvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
|
Dim LAN = "DE"
|
|
|
|
Private Sub frmInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim cOptionenDAL As New SDL.cOptionenDAL
|
|
If Not cOptionenDAL.checkLogin("CHECKIN", "CHECKIN", "AVISO") Then 'XXXXXX Or true
|
|
Me.Close()
|
|
End If
|
|
|
|
'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
|
|
'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"
|
|
|
|
SET_WELCOME()
|
|
|
|
End Sub
|
|
|
|
|
|
Public Sub SET_WELCOME()
|
|
LAN = "DE"
|
|
Panel.Visible = True
|
|
btnResetSearch.Visible = False
|
|
FlowLayoutPanel.Visible = False
|
|
' PictureBox1.Visible = False
|
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
|
Dim USRCNTL As New usrCntlWelcome(Me)
|
|
setPos(USRCNTL)
|
|
Panel3.Controls.Add(USRCNTL)
|
|
End Sub
|
|
|
|
Public Sub SET_LANGUAGE(LAN)
|
|
Me.LAN = LAN
|
|
End Sub
|
|
|
|
Public Sub SET_SEARCH()
|
|
Panel.Visible = False
|
|
btnResetSearch.Visible = True
|
|
FlowLayoutPanel.Visible = True
|
|
' PictureBox1.Visible = True
|
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
|
Dim USRCNTL As New usrCntlSearch(Me)
|
|
setPos(USRCNTL)
|
|
Panel3.Controls.Add(USRCNTL)
|
|
End Sub
|
|
|
|
Public Sub SET_FOUND(AvisoId)
|
|
Panel.Visible = False
|
|
btnResetSearch.Visible = True
|
|
FlowLayoutPanel.Visible = True
|
|
' PictureBox1.Visible = True
|
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
|
Dim USRCNTL As New usrCntlFound(Me, cAvisoDAL.LesenAviso(AvisoId, ""))
|
|
setPos(USRCNTL)
|
|
Panel3.Controls.Add(USRCNTL)
|
|
End Sub
|
|
|
|
Public Sub SET_FINISH(AVISO)
|
|
Panel.Visible = False
|
|
btnResetSearch.Visible = True
|
|
FlowLayoutPanel.Visible = True
|
|
' PictureBox1.Visible = True
|
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
|
Dim USRCNTL As New usrCntlFinish(Me, AVISO)
|
|
setPos(USRCNTL, True)
|
|
Panel3.Controls.Add(USRCNTL)
|
|
End Sub
|
|
|
|
Public Sub TRANSLATE(CNTL As Control, Optional forceDETraslation As Boolean = False)
|
|
If LAN = "DE" And Not forceDETraslation Then Exit Sub
|
|
Exit Sub 'TEST
|
|
For Each c As Control In CNTL.Controls
|
|
If c.Controls.Count > 0 Then
|
|
TRANSLATE(c)
|
|
Else
|
|
Select Case c.GetType.ToString
|
|
Case GetType(TextBox).ToString
|
|
'NIX
|
|
Case GetType(Label).ToString, GetType(CheckBox).ToString, GetType(Button).ToString
|
|
c.Text = "OOO"
|
|
End Select
|
|
End If
|
|
|
|
Next
|
|
End Sub
|
|
|
|
Sub setPos(ByRef USRCNTL As Control, Optional fill As Boolean = False)
|
|
If fill Then
|
|
USRCNTL.Dock = DockStyle.Fill
|
|
Else
|
|
USRCNTL.Left = (Panel3.Width - USRCNTL.Width) / 2
|
|
USRCNTL.Top = 0
|
|
USRCNTL.Height = Panel3.Height
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
|
|
SET_WELCOME()
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
|
|
LAN = sender.tag
|
|
TRANSLATE(Me)
|
|
End Sub '
|
|
End Class
|