edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fiskaltrust, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-23 16:00:32 +02:00
parent c790359533
commit 63b96fb490
18 changed files with 482 additions and 317 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.vb
View File

@@ -1,4 +1,5 @@
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Windows.Forms
Public Class frminterneEmailBenachrichtigungen
@@ -15,23 +16,20 @@ Public Class frminterneEmailBenachrichtigungen
cboFirma.fillWithSQL("SELECT distinct(Firma_Bez) FROM [tblFirma] order by Firma_Bez", False, "FMZOLL", True)
cboFirma.changeItem(cAllgemein.FIRMA)
loadDGVPuefungsobjekte()
loadDGVMailbenachrichtigungen()
End Sub
Private Sub cboKategorie_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKategorie.SelectedIndexChanged
loadDGVPuefungsobjekte()
loadDGVMailbenachrichtigungen()
End Sub
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
loadDGVPuefungsobjekte()
loadDGVMailbenachrichtigungen()
End Sub
Sub loadDGVPuefungsobjekte()
Sub loadDGVMailbenachrichtigungen()
Try
Me.Cursor = Cursors.WaitCursor
@@ -40,7 +38,7 @@ Public Class frminterneEmailBenachrichtigungen
Dim sqlstr As String = ""
sqlstr &= " SELECT e.mb_id,e.mb_aktiv,e.mb_object,e.mb_beschreibung,STRING_AGG(m.mit_email, ', ') AS Emails,STRING_AGG(m.mit_nname, ', ') as Mitarbeiter,COUNT(DISTINCT m.mit_email) AS Anzahl,e.mb_firmaID,ISNULL(f.Firma_Bez,'ALLE') AS Firma_Bez
sqlstr &= " SELECT e.mb_id,e.mb_aktiv,e.mb_object,e.mb_beschreibung,STRING_AGG(m.mit_email, ', ') AS Emails,STRING_AGG(m.mit_nname, ', ') as Mitarbeiter,COUNT(DISTINCT m.mit_email) AS Anzahl,e.mb_firmaID,ISNULL(f.Firma_Bez,'ALLE') AS Firma_Bez, MAX(CASE WHEN ISNULL(m.mit_gekuendigt,0) <> 0 THEN 1 ELSE 0 END) AS inaktivMA
FROM [tblEMailbenachrichtigungen] e
LEFT JOIN [VERAG].[dbo].[tblFirma] f ON e.mb_firmaID = f.Firma_ID
@@ -51,8 +49,13 @@ Public Class frminterneEmailBenachrichtigungen
WHERE 1 = 1 "
With dgvBenachrichtigungen
Dim SQLHAVING As String = ""
If cboOhneEmpf.Checked Then
SQLHAVING &= " HAVING COUNT(DISTINCT m.mit_email) = 0 "
End If
.SET_SQL(sqlstr & getWherePruefungsobjekte() & " GROUP BY e.mb_id,e.mb_aktiv,e.mb_object,mb_beschreibung,e.mb_firmaID,f.Firma_Bez ORDER BY mb_object,f.Firma_Bez ", "ADMIN", getListBenachrichtigungen)
.SET_SQL(sqlstr & getWherePruefungsobjekte() & " GROUP BY e.mb_id,e.mb_aktiv,e.mb_object,mb_beschreibung,e.mb_firmaID,f.Firma_Bez " & SQLHAVING & " ORDER BY mb_object,f.Firma_Bez ", "ADMIN", getListBenachrichtigungen)
.LOAD()
showDGVPruefungsobjekte()
End With
@@ -74,6 +77,7 @@ Public Class frminterneEmailBenachrichtigungen
.Columns("mb_id").Visible = False
.Columns("mb_firmaID").Visible = False
.Columns("inaktivMA").Visible = False
.Columns("mb_object").Width = 200
.Columns("mb_object").HeaderText = "Benachrichtigung"
@@ -99,6 +103,12 @@ Public Class frminterneEmailBenachrichtigungen
.Columns("mb_aktiv").Width = 40
.Columns("mb_aktiv").HeaderText = "Aktiv"
For Each r As DataGridViewRow In dgvBenachrichtigungen.Rows
If CInt(r.Cells("inaktivMA").Value) > 0 Then
r.Cells("Mitarbeiter").Style.BackColor = Color.IndianRed
End If
Next
End With
End Sub
@@ -108,6 +118,7 @@ Public Class frminterneEmailBenachrichtigungen
If cboFirma._value <> "" Then sqlstr &= " AND Firma_Bez LIKE @Firma_Bez "
If cboKategorie._value <> "" Then sqlstr &= " AND mb_object LIKE @mb_object "
Return sqlstr
End Function
@@ -127,6 +138,7 @@ Public Class frminterneEmailBenachrichtigungen
End Sub
Private Sub cboOhneEmpf_CheckedChanged(sender As Object, e As EventArgs) Handles cboOhneEmpf.CheckedChanged
loadDGVMailbenachrichtigungen()
End Sub
End Class