132 lines
4.5 KiB
VB.net
132 lines
4.5 KiB
VB.net
Imports System.Windows.Forms
|
|
|
|
Public Class frminterneEmailBenachrichtigungen
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
|
|
cboKategorie.Items.Clear()
|
|
cboKategorie.fillWithSQL("SELECT distinct([mb_object]) FROM [tblEMailbenachrichtigungen] order by mb_object", False, "ADMIN", True)
|
|
|
|
cboFirma.Items.Clear()
|
|
cboFirma.fillWithSQL("SELECT distinct(Firma_Bez) FROM [tblFirma] order by Firma_Bez", False, "FMZOLL", True)
|
|
cboFirma.changeItem(cAllgemein.FIRMA)
|
|
|
|
loadDGVPuefungsobjekte()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub cboKategorie_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKategorie.SelectedIndexChanged
|
|
loadDGVPuefungsobjekte()
|
|
End Sub
|
|
|
|
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
|
|
|
|
loadDGVPuefungsobjekte()
|
|
|
|
End Sub
|
|
|
|
|
|
Sub loadDGVPuefungsobjekte()
|
|
Try
|
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "")
|
|
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
|
|
FROM [tblEMailbenachrichtigungen] e
|
|
|
|
LEFT JOIN [VERAG].[dbo].[tblFirma] f ON e.mb_firmaID = f.Firma_ID
|
|
LEFT JOIN ADMIN.dbo.tblMitarbeiter m
|
|
CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s
|
|
ON TRY_CAST(s.value AS INT) = e.mb_id
|
|
|
|
WHERE 1 = 1 "
|
|
|
|
With dgvBenachrichtigungen
|
|
|
|
.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)
|
|
.LOAD()
|
|
showDGVPruefungsobjekte()
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "")
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
Sub showDGVPruefungsobjekte()
|
|
|
|
With dgvBenachrichtigungen
|
|
|
|
If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
|
.RowHeadersVisible = False
|
|
.ReadOnly = True
|
|
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
.MultiSelect = False
|
|
|
|
.Columns("mb_id").Visible = False
|
|
.Columns("mb_firmaID").Visible = False
|
|
|
|
.Columns("mb_object").Width = 200
|
|
.Columns("mb_object").HeaderText = "Benachrichtigung"
|
|
|
|
|
|
.Columns("Mitarbeiter").MinimumWidth = 100
|
|
.Columns("Mitarbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("mb_beschreibung").MinimumWidth = 100
|
|
.Columns("mb_beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("mb_beschreibung").HeaderText = "Info"
|
|
|
|
.Columns("Emails").MinimumWidth = 100
|
|
.Columns("Emails").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Emails").HeaderText = "EMail an"
|
|
|
|
.Columns("Anzahl").Width = 50
|
|
.Columns("Anzahl").HeaderText = "# Empf."
|
|
|
|
.Columns("Firma_Bez").Width = 150
|
|
.Columns("Firma_Bez").HeaderText = "Firma"
|
|
|
|
.Columns("mb_aktiv").Width = 40
|
|
.Columns("mb_aktiv").HeaderText = "Aktiv"
|
|
|
|
|
|
End With
|
|
End Sub
|
|
Function getWherePruefungsobjekte() As String
|
|
Dim sqlstr = ""
|
|
|
|
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
|
|
|
|
Function getListBenachrichtigungen() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", cboFirma._value))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mb_object", cboKategorie._value))
|
|
|
|
|
|
Return list
|
|
|
|
End Function
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
End Class |