Timas Abfrage optimiert

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -9,6 +9,7 @@ Public Class frmMitarbTimas
     Dim emp As cTimasEmployee
     Dim timas As cTimasAPI
     Dim dtTimas As New DataTable
+    Dim dtcustomFields As New DataTable
 
     Sub New()
 
@@ -44,6 +45,7 @@ Public Class frmMitarbTimas
         emp = timas.getEmployee(mid)
         avisoEmp = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(emp.externid)
 
+
         timas.getAllGroups(dtTimas)
 
         initDGV(dtTimas)
@@ -99,6 +101,7 @@ Public Class frmMitarbTimas
             cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
         End If
 
+        initcheckedlistbox(timas.getEmployeecustomFields(mid))
 
     End Sub
 
@@ -337,7 +340,7 @@ Public Class frmMitarbTimas
 
                 If avisoEmp.mit_emailprivat <> "" Then
                     txtEmail.Text = avisoEmp.mit_emailprivat
-                ElseIf avisoEmp.mit_email <> ""Then
+                ElseIf avisoEmp.mit_email <> "" Then
                     txtEmail.Text = avisoEmp.mit_email
                 End If
 
@@ -351,5 +354,16 @@ Public Class frmMitarbTimas
             End If
         End If
     End Sub
+
+    Private Sub initcheckedlistbox(dt As DataTable)
+
+        For Each row As DataRow In dt.Rows
+            If row.Item("type").ToString.ToLower = "boolean" Then
+                CheckedListBox1.Items.Add(row.Item("name"), IIf(row.Item("value") = "true", True, False))
+            End If
+        Next
+
+
+    End Sub
 End Class