Verwahrung, Mitarbeiter, Fakt, etc.

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1,5 +1,6 @@
 
 Imports System.Text.RegularExpressions
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
@@ -149,18 +150,6 @@ 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()
@@ -177,6 +166,7 @@ Public Class frmMitarbDetails
 
         cbxClientTimas.SelectedIndex = 0
 
+        loadBenachrichtiungenListe()
 
         cboFirma.Items.Clear()
         cboFirma.Items.Add("VERAG")
@@ -1875,5 +1865,39 @@ Public Class frmMitarbDetails
 
 
     End Sub
+
+    Private Sub cbxeigeneFirma_CheckedChanged(sender As Object, e As EventArgs) Handles cbxeigeneFirma.CheckedChanged
+        If cbxeigeneFirma.Checked Then
+
+            If cboFirmaFMZOLL._value <> "" AndAlso IsNumeric(cboFirmaFMZOLL._value) Then
+                loadBenachrichtiungenListe(CInt(cboFirmaFMZOLL._value))
+
+            Else
+
+                loadBenachrichtiungenListe()
+
+            End If
+        Else
+            loadBenachrichtiungenListe()
+        End If
+
+    End Sub
+
+    Private Sub loadBenachrichtiungenListe(Optional FIRMAID As Integer = -1)
+
+        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" & IIf(FIRMAID > 0, " AND [tblFirma].Firma_ID = " & FIRMAID, ""), "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
+
+    End Sub
 End Class