ZE mehrere Firmen

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1,6 +1,7 @@
 
 Imports System.Text.RegularExpressions
 Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmMitarbDetails
 
@@ -112,6 +113,13 @@ Public Class frmMitarbDetails
         cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
         cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ENGLISCH", "EN"))
 
+        clbTimasMehreFirmen.Items.Clear()
+        clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FO"))
+        clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
+
 
         cboFirma.Items.Clear()
         cboFirma.Items.Add("VERAG")
@@ -384,6 +392,19 @@ Public Class frmMitarbDetails
         cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False)
 
         initFoto()
+
+        cbxTimasMehrereFirmen.Checked = mitarbeiter.mit_timasMehrereFirmen
+
+        If mitarbeiter.mit_timasFirmen IsNot Nothing AndAlso mitarbeiter.mit_timasFirmen <> "" Then
+            For Each f In mitarbeiter.mit_timasFirmen.ToString.Split(",")
+                For i = 0 To clbTimasMehreFirmen.Items.Count - 1
+                    If DirectCast(clbTimasMehreFirmen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
+                        clbTimasMehreFirmen.SetItemChecked(i, True)
+                    End If
+                Next
+            Next
+        End If
+
         ' picFoto.ImageLocation = mitarbeiter.mit_foto
     End Sub
 
@@ -683,6 +704,18 @@ Public Class frmMitarbDetails
         'If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
         initFoto()
         mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
+        mitarbeiter.mit_timasMehrereFirmen = cbxTimasMehrereFirmen.Checked
+
+        mitarbeiter.mit_timasFirmen = ""
+        If mitarbeiter.mit_timasFirmen = "" Then
+            For Each i In clbTimasMehreFirmen.CheckedItems
+                mitarbeiter.mit_timasFirmen &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
+            Next
+        End If
+        If mitarbeiter.mit_timasFirmen <> "" And mitarbeiter.mit_timasFirmen.ToString.EndsWith(",") Then
+            mitarbeiter.mit_timasFirmen = mitarbeiter.mit_timasFirmen.ToString.Substring(0, mitarbeiter.mit_timasFirmen.ToString.Length - 1)
+        End If
+
 
     End Sub
 
@@ -1510,5 +1543,18 @@ Public Class frmMitarbDetails
 
     End Sub
 
+    Private Sub cbxTimasMehrereFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTimasMehrereFirmen.CheckedChanged
+
+        clbTimasMehreFirmen.Enabled = cbxTimasMehrereFirmen.Checked
+        If Not clbTimasMehreFirmen.Enabled Then
+            For i = 0 To clbTimasMehreFirmen.Items.Count - 1
+
+                clbTimasMehreFirmen.SetItemChecked(i, False)
+
+            Next
+        End If
+
+
+    End Sub
 End Class