Timas und Mitarbeiter (Sprache)

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -79,6 +79,9 @@ Public Class frmMitarbDetails
         MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL")
         MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
 
+
+        lbSprachen.fillWithSQL("SELECT [wert], [bezeichnung]  FROM [dbo].[tblSprachen]", False, "ADMIN")
+
         cboDPFirma.Items.Clear()
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
@@ -125,7 +128,6 @@ Public Class frmMitarbDetails
         cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ENGLISCH", "EN"))
 
 
-
         cboFirma.Items.Clear()
         cboFirma.Items.Add("VERAG")
         cboFirma.Items.Add("ATILLA")
@@ -332,6 +334,16 @@ Public Class frmMitarbDetails
             Next
         End If
 
+        If mitarbeiter.mit_Sprachkentnisse IsNot Nothing AndAlso mitarbeiter.mit_Sprachkentnisse <> "" Then
+            For Each f In mitarbeiter.mit_Sprachkentnisse.ToString.Split(",")
+                For i = 0 To lbSprachen.Items.Count - 1
+                    If DirectCast(lbSprachen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
+                        lbSprachen.SetSelected(i, True)
+                    End If
+                Next
+            Next
+        End If
+
 
         If mitarbeiter.mit_einstiegsdatum = "" Then
             cbxEinsteigsDat.Checked = False
@@ -601,6 +613,24 @@ Public Class frmMitarbDetails
 
 
 
+        mitarbeiter.mit_Sprachkentnisse = ""
+        'For Each a In lbSprachen.SelectedItems
+        '    If DirectCast(a, VERAG_PROG_ALLGEMEIN.MyListItem).Value = "DE" Then
+        '        mitarbeiter.mit_Sprachkentnisse = "DE"
+        '        Exit For
+        '    End If
+        'Next
+        If mitarbeiter.mit_Sprachkentnisse = "" Then
+            For Each i In lbSprachen.SelectedItems
+                mitarbeiter.mit_Sprachkentnisse &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
+            Next
+        End If
+        If mitarbeiter.mit_Sprachkentnisse <> "" And mitarbeiter.mit_Sprachkentnisse.ToString.EndsWith(",") Then
+            mitarbeiter.mit_Sprachkentnisse = mitarbeiter.mit_Sprachkentnisse.ToString.Substring(0, mitarbeiter.mit_Sprachkentnisse.ToString.Length - 1)
+        End If
+
+
+
 
         mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch = cbxSpedBuch.Checked
         mitarbeiter.mit_FMZollPersIDSpedBuch = Nothing