Fiskaltrust, etc.
This commit is contained in:
@@ -29,24 +29,25 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.dgvBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnloptions = New System.Windows.Forms.Panel()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.cboOhneEmpf = New System.Windows.Forms.CheckBox()
|
||||
Me.dgvBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cntxtOptionen.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnloptions.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'AbgeholtToolStripMenuItem
|
||||
@@ -80,29 +81,6 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Me.Panel1.Size = New System.Drawing.Size(1429, 779)
|
||||
Me.Panel1.TabIndex = 4
|
||||
'
|
||||
'dgvBenachrichtigungen
|
||||
'
|
||||
Me.dgvBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvBenachrichtigungen.AllowUserToAddRows = False
|
||||
Me.dgvBenachrichtigungen.AllowUserToDeleteRows = False
|
||||
Me.dgvBenachrichtigungen.AllowUserToOrderColumns = True
|
||||
Me.dgvBenachrichtigungen.AllowUserToResizeRows = False
|
||||
Me.dgvBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvBenachrichtigungen.Location = New System.Drawing.Point(0, 115)
|
||||
Me.dgvBenachrichtigungen.Name = "dgvBenachrichtigungen"
|
||||
Me.dgvBenachrichtigungen.RowHeadersVisible = False
|
||||
Me.dgvBenachrichtigungen.Size = New System.Drawing.Size(1429, 604)
|
||||
Me.dgvBenachrichtigungen.TabIndex = 10
|
||||
'
|
||||
'pnloptions
|
||||
'
|
||||
Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
@@ -125,33 +103,6 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Me.Label9.TabIndex = 7
|
||||
Me.Label9.Text = "Max:"
|
||||
'
|
||||
'MyTextBox2
|
||||
'
|
||||
Me.MyTextBox2._DateTimeOnly = False
|
||||
Me.MyTextBox2._numbersOnly = True
|
||||
Me.MyTextBox2._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox2._numbersOnlyTrennzeichen = True
|
||||
Me.MyTextBox2._Prozent = False
|
||||
Me.MyTextBox2._ShortDateNew = False
|
||||
Me.MyTextBox2._ShortDateOnly = False
|
||||
Me.MyTextBox2._TimeOnly = False
|
||||
Me.MyTextBox2._TimeOnly_Seconds = False
|
||||
Me.MyTextBox2._value = ""
|
||||
Me.MyTextBox2._Waehrung = False
|
||||
Me.MyTextBox2._WaehrungZeichen = True
|
||||
Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox2.Location = New System.Drawing.Point(1369, 13)
|
||||
Me.MyTextBox2.MaxLineLength = -1
|
||||
Me.MyTextBox2.MaxLines_Warning = ""
|
||||
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox2.Name = "MyTextBox2"
|
||||
Me.MyTextBox2.Size = New System.Drawing.Size(48, 20)
|
||||
Me.MyTextBox2.TabIndex = 8
|
||||
Me.MyTextBox2.Text = "1000"
|
||||
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
@@ -172,6 +123,7 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel2.Controls.Add(Me.cboOhneEmpf)
|
||||
Me.Panel2.Controls.Add(Me.cboKategorie)
|
||||
Me.Panel2.Controls.Add(Me.cboFirma)
|
||||
Me.Panel2.Controls.Add(Me.Label5)
|
||||
@@ -182,36 +134,6 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Me.Panel2.Size = New System.Drawing.Size(1429, 115)
|
||||
Me.Panel2.TabIndex = 11
|
||||
'
|
||||
'cboKategorie
|
||||
'
|
||||
Me.cboKategorie._allowedValuesFreiText = Nothing
|
||||
Me.cboKategorie._allowFreiText = False
|
||||
Me.cboKategorie._value = ""
|
||||
Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboKategorie.DropDownWidth = 250
|
||||
Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboKategorie.FormattingEnabled = True
|
||||
Me.cboKategorie.Location = New System.Drawing.Point(95, 76)
|
||||
Me.cboKategorie.Name = "cboKategorie"
|
||||
Me.cboKategorie.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboKategorie.TabIndex = 30
|
||||
'
|
||||
'cboFirma
|
||||
'
|
||||
Me.cboFirma._allowedValuesFreiText = Nothing
|
||||
Me.cboFirma._allowFreiText = False
|
||||
Me.cboFirma._value = ""
|
||||
Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboFirma.DropDownWidth = 250
|
||||
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFirma.FormattingEnabled = True
|
||||
Me.cboFirma.Location = New System.Drawing.Point(95, 49)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboFirma.TabIndex = 26
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
@@ -253,6 +175,97 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Me.Label4.TabIndex = 0
|
||||
Me.Label4.Text = "interne E-Mail Benachrichtungen"
|
||||
'
|
||||
'cboOhneEmpf
|
||||
'
|
||||
Me.cboOhneEmpf.AutoSize = True
|
||||
Me.cboOhneEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboOhneEmpf.Location = New System.Drawing.Point(256, 50)
|
||||
Me.cboOhneEmpf.Name = "cboOhneEmpf"
|
||||
Me.cboOhneEmpf.Size = New System.Drawing.Size(118, 17)
|
||||
Me.cboOhneEmpf.TabIndex = 32
|
||||
Me.cboOhneEmpf.Text = "ohne Empfänger"
|
||||
Me.cboOhneEmpf.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvBenachrichtigungen
|
||||
'
|
||||
Me.dgvBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvBenachrichtigungen.AllowUserToAddRows = False
|
||||
Me.dgvBenachrichtigungen.AllowUserToDeleteRows = False
|
||||
Me.dgvBenachrichtigungen.AllowUserToOrderColumns = True
|
||||
Me.dgvBenachrichtigungen.AllowUserToResizeRows = False
|
||||
Me.dgvBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvBenachrichtigungen.Location = New System.Drawing.Point(0, 115)
|
||||
Me.dgvBenachrichtigungen.Name = "dgvBenachrichtigungen"
|
||||
Me.dgvBenachrichtigungen.RowHeadersVisible = False
|
||||
Me.dgvBenachrichtigungen.Size = New System.Drawing.Size(1429, 604)
|
||||
Me.dgvBenachrichtigungen.TabIndex = 10
|
||||
'
|
||||
'MyTextBox2
|
||||
'
|
||||
Me.MyTextBox2._DateTimeOnly = False
|
||||
Me.MyTextBox2._numbersOnly = True
|
||||
Me.MyTextBox2._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox2._numbersOnlyTrennzeichen = True
|
||||
Me.MyTextBox2._Prozent = False
|
||||
Me.MyTextBox2._ShortDateNew = False
|
||||
Me.MyTextBox2._ShortDateOnly = False
|
||||
Me.MyTextBox2._TimeOnly = False
|
||||
Me.MyTextBox2._TimeOnly_Seconds = False
|
||||
Me.MyTextBox2._value = ""
|
||||
Me.MyTextBox2._Waehrung = False
|
||||
Me.MyTextBox2._WaehrungZeichen = True
|
||||
Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox2.Location = New System.Drawing.Point(1369, 13)
|
||||
Me.MyTextBox2.MaxLineLength = -1
|
||||
Me.MyTextBox2.MaxLines_Warning = ""
|
||||
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox2.Name = "MyTextBox2"
|
||||
Me.MyTextBox2.Size = New System.Drawing.Size(48, 20)
|
||||
Me.MyTextBox2.TabIndex = 8
|
||||
Me.MyTextBox2.Text = "1000"
|
||||
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'cboKategorie
|
||||
'
|
||||
Me.cboKategorie._allowedValuesFreiText = Nothing
|
||||
Me.cboKategorie._allowFreiText = False
|
||||
Me.cboKategorie._value = ""
|
||||
Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboKategorie.DropDownWidth = 250
|
||||
Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboKategorie.FormattingEnabled = True
|
||||
Me.cboKategorie.Location = New System.Drawing.Point(95, 76)
|
||||
Me.cboKategorie.Name = "cboKategorie"
|
||||
Me.cboKategorie.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboKategorie.TabIndex = 30
|
||||
'
|
||||
'cboFirma
|
||||
'
|
||||
Me.cboFirma._allowedValuesFreiText = Nothing
|
||||
Me.cboFirma._allowFreiText = False
|
||||
Me.cboFirma._value = ""
|
||||
Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboFirma.DropDownWidth = 250
|
||||
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFirma.FormattingEnabled = True
|
||||
Me.cboFirma.Location = New System.Drawing.Point(95, 49)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboFirma.TabIndex = 26
|
||||
'
|
||||
'frminterneEmailBenachrichtigungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -267,13 +280,13 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Me.Text = "interne E-Mail Benachrichtigungen"
|
||||
Me.cntxtOptionen.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnloptions.ResumeLayout(False)
|
||||
Me.pnloptions.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
Me.pnlTop.ResumeLayout(False)
|
||||
Me.pnlTop.PerformLayout()
|
||||
CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -294,4 +307,5 @@ Partial Class frminterneEmailBenachrichtigungen
|
||||
Friend WithEvents Label1 As Windows.Forms.Label
|
||||
Friend WithEvents cboFirma As MyComboBox
|
||||
Friend WithEvents Label5 As Windows.Forms.Label
|
||||
Friend WithEvents cboOhneEmpf As Windows.Forms.CheckBox
|
||||
End Class
|
||||
|
||||
@@ -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
|
||||
Reference in New Issue
Block a user