neu

2020-11-27 22:56:38 +01:00
parent 24dd462073
commit 65ee38135e
72 changed files with 16680 additions and 587 deletions
--- a/AVISO_CHECKIN/frmCheckIn.vb
+++ b/AVISO_CHECKIN/frmCheckIn.vb
@@ -0,0 +1,106 @@
+
+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