Version, Mialbenachrichtungen, etc.

2026-04-15 16:27:02 +02:00
parent 438e1c2a1a
commit 88151925fa
8 changed files with 1707 additions and 278 deletions
--- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb
@@ -0,0 +1,296 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frminterneEmailBenachrichtigungen
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frminterneEmailBenachrichtigungen))
+        Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip()
+        Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.dgvBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        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.cntxtOptionen.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnloptions.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.pnlTop.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'AbgeholtToolStripMenuItem
+        '
+        Me.AbgeholtToolStripMenuItem.Name = "AbgeholtToolStripMenuItem"
+        Me.AbgeholtToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.AbgeholtToolStripMenuItem.Text = "Abgeholt"
+        '
+        'cntxtOptionen
+        '
+        Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem})
+        Me.cntxtOptionen.Name = "cntxtOptionen"
+        Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48)
+        Me.cntxtOptionen.Text = "Optionen"
+        '
+        'StornoToolStripMenuItem
+        '
+        Me.StornoToolStripMenuItem.Name = "StornoToolStripMenuItem"
+        Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.StornoToolStripMenuItem.Text = "Storno"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.dgvBenachrichtigungen)
+        Me.Panel1.Controls.Add(Me.pnloptions)
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1237, 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(1237, 604)
+        Me.dgvBenachrichtigungen.TabIndex = 10
+        '
+        'pnloptions
+        '
+        Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnloptions.Controls.Add(Me.Label9)
+        Me.pnloptions.Controls.Add(Me.MyTextBox2)
+        Me.pnloptions.Controls.Add(Me.Button2)
+        Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pnloptions.Location = New System.Drawing.Point(0, 719)
+        Me.pnloptions.Name = "pnloptions"
+        Me.pnloptions.Size = New System.Drawing.Size(1237, 60)
+        Me.pnloptions.TabIndex = 12
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(1145, 16)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(30, 13)
+        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(1177, 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)
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.plus
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(9, 6)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.Button2.Size = New System.Drawing.Size(84, 45)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Neu"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.cboKategorie)
+        Me.Panel2.Controls.Add(Me.cboFirma)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1237, 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
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(7, 54)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(49, 13)
+        Me.Label5.TabIndex = 22
+        Me.Label5.Text = "FIRMA:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(7, 81)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 29
+        Me.Label1.Text = "KATEGORIE:"
+        '
+        'pnlTop
+        '
+        Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlTop.Controls.Add(Me.Label4)
+        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+        Me.pnlTop.Name = "pnlTop"
+        Me.pnlTop.Size = New System.Drawing.Size(1237, 41)
+        Me.pnlTop.TabIndex = 6
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(12, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(358, 26)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "interne E-Mail Benachrichtungen"
+        '
+        'frminterneEmailBenachrichtigungen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(1237, 779)
+        Me.Controls.Add(Me.pnlTop)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frminterneEmailBenachrichtigungen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        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()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents AbgeholtToolStripMenuItem As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents cntxtOptionen As Windows.Forms.ContextMenuStrip
+    Friend WithEvents StornoToolStripMenuItem As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents pnlTop As Windows.Forms.Panel
+    Friend WithEvents Label4 As Windows.Forms.Label
+    Friend WithEvents Panel1 As Windows.Forms.Panel
+    Friend WithEvents dgvBenachrichtigungen As MyDatagridview
+    Friend WithEvents pnloptions As Windows.Forms.Panel
+    Friend WithEvents Label9 As Windows.Forms.Label
+    Friend WithEvents MyTextBox2 As MyTextBox
+    Friend WithEvents Button2 As Windows.Forms.Button
+    Friend WithEvents Panel2 As Windows.Forms.Panel
+    Friend WithEvents cboKategorie As MyComboBox
+    Friend WithEvents Label1 As Windows.Forms.Label
+    Friend WithEvents cboFirma As MyComboBox
+    Friend WithEvents Label5 As Windows.Forms.Label
+End Class