Verwahrung, Mitarbeiter, Fakt, etc.

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -103,8 +103,7 @@ Public Class cMitarbeiter
     Property mit_SchalterID As Object = Nothing
     Property mit_Funktion As Object = Nothing
     Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS
-
-
+    Property mit_EMailbenachrichtigungen As Object = Nothing
 
 
     Dim SQL As New SQL
@@ -224,6 +223,7 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_terminalTimasId", mit_terminalTimasId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EMailbenachrichtigungen", mit_EMailbenachrichtigungen))
 
 
 
@@ -436,6 +436,7 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
                             If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion")
                             If Not dr.Item("mit_terminalTimasId") Is DBNull.Value Then Me.mit_terminalTimasId = dr.Item("mit_terminalTimasId")
+                            If Not dr.Item("mit_EMailbenachrichtigungen") Is DBNull.Value Then Me.mit_EMailbenachrichtigungen = dr.Item("mit_EMailbenachrichtigungen")
 
 
                         Catch ex As Exception
@@ -488,4 +489,20 @@ Public Class cMitarbeiter
         Return Value
     End Function
 
+
+    Public Shared Function GetEMailRecipientForEmailNotification(NotificationObject As String, Optional Firma_ID As Integer = -1) As String
+        Dim dt As New DataTable
+        Dim mailString As String = ""
+        dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select distinct(m.mit_email) FROM ADMIN.dbo.tblMitarbeiter m CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s
+          Join ADMIN.dbo.tblEMailbenachrichtigungen e  On TRY_CAST(s.value AS INT) = e.mb_id
+            WHERE e.mb_object = '" & NotificationObject & "' and isnull(m.mit_email,'') <> '' " & IIf(Firma_ID > 0, " AND e.mb_firmaID = " & Firma_ID & "", ""), "ADMIN")
+
+        For Each r As DataRow In dt.Rows
+            If r.Item("mit_email") <> "" Then mailString &= r.Item("mit_email") & ";"
+        Next
+
+        Return mailString
+
+    End Function
+
 End Class