div. Änderungen

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -149,6 +149,20 @@ Public Class frmMitarbDetails
         clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
         clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
 
+        clInterneMailBenachrichtigungen.Items.Clear()
+        Dim dt_Bebachrichtigungen As DataTable = SQL.loadDgvBySql("SELECT  mb_object +
+                                           CASE 
+                                              WHEN mb_firmaID IS NULL THEN ' (ALLE)'
+                                              ELSE ' (' + [tblFirma].Firma_Bez + ')'
+                                          END as mb_object, mb_id
+
+                                        FROM [ADMIN].[dbo].[tblEMailbenachrichtigungen]
+                                        inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID", "ADMIN")
+        For Each r As DataRow In dt_Bebachrichtigungen.Rows
+            clInterneMailBenachrichtigungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.Item("mb_object"), r.Item("mb_id")))
+        Next
+
+
         cbxClientTimas.Items.Clear()
         cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
@@ -454,6 +468,17 @@ Public Class frmMitarbDetails
             Next
         End If
 
+
+        If mitarbeiter.mit_EMailbenachrichtigungen IsNot Nothing AndAlso mitarbeiter.mit_EMailbenachrichtigungen <> "" Then
+            For Each f In mitarbeiter.mit_EMailbenachrichtigungen.ToString.Split(",")
+                For i = 0 To clInterneMailBenachrichtigungen.Items.Count - 1
+                    If DirectCast(clInterneMailBenachrichtigungen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
+                        clInterneMailBenachrichtigungen.SetItemChecked(i, True)
+                    End If
+                Next
+            Next
+        End If
+
         ' picFoto.ImageLocation = mitarbeiter.mit_foto
     End Sub
 
@@ -773,6 +798,16 @@ Public Class frmMitarbDetails
             mitarbeiter.mit_timasFirmen = mitarbeiter.mit_timasFirmen.ToString.Substring(0, mitarbeiter.mit_timasFirmen.ToString.Length - 1)
         End If
 
+        mitarbeiter.mit_EMailbenachrichtigungen = ""
+        If mitarbeiter.mit_EMailbenachrichtigungen = "" Then
+            For Each i In clInterneMailBenachrichtigungen.CheckedItems
+                mitarbeiter.mit_EMailbenachrichtigungen &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
+            Next
+        End If
+        If mitarbeiter.mit_EMailbenachrichtigungen <> "" And mitarbeiter.mit_EMailbenachrichtigungen.ToString.EndsWith(",") Then
+            mitarbeiter.mit_EMailbenachrichtigungen = mitarbeiter.mit_EMailbenachrichtigungen.ToString.Substring(0, mitarbeiter.mit_EMailbenachrichtigungen.ToString.Length - 1)
+        End If
+
 
     End Sub