MDM, USTVA, MDMFunctions,

2024-12-03 11:37:47 +01:00
parent 9995db6b02
commit 2d8eef17bc
10 changed files with 430 additions and 237 deletions
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -27,7 +27,7 @@ Partial Class frmMDM_USTVAntrag
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.btnMail = New System.Windows.Forms.Button()
-        Me.Button14 = New System.Windows.Forms.Button()
+        Me.btnAntrageeinarbeiten = New System.Windows.Forms.Button()
        Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.lbl_EintrageVerarbetiet = New System.Windows.Forms.Label()
@@ -71,12 +71,12 @@ Partial Class frmMDM_USTVAntrag
        Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
        Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnEintragloeschen = New System.Windows.Forms.Button()
+        Me.btnNeuerEintrag = New System.Windows.Forms.Button()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
        Me.Panel3.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.Panel9.SuspendLayout()
@@ -96,7 +96,7 @@ Partial Class frmMDM_USTVAntrag
        Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel3.Controls.Add(Me.btnMail)
-        Me.Panel3.Controls.Add(Me.Button14)
+        Me.Panel3.Controls.Add(Me.btnAntrageeinarbeiten)
        Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien)
        Me.Panel3.Controls.Add(Me.Button1)
        Me.Panel3.Controls.Add(Me.lbl_EintrageVerarbetiet)
@@ -118,20 +118,20 @@ Partial Class frmMDM_USTVAntrag
        Me.btnMail.Text = "Anträge"
        Me.btnMail.UseVisualStyleBackColor = True
        '
-        'Button14
+        'btnAntrageeinarbeiten
        '
-        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
-        Me.Button14.ForeColor = System.Drawing.Color.Black
-        Me.Button14.Image = Global.SDL.My.Resources.Resources.plus
-        Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button14.Location = New System.Drawing.Point(12, 29)
-        Me.Button14.Name = "Button14"
-        Me.Button14.Size = New System.Drawing.Size(168, 38)
-        Me.Button14.TabIndex = 1
-        Me.Button14.Text = "Anträge übernehmen"
-        Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button14.UseVisualStyleBackColor = True
+        Me.btnAntrageeinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAntrageeinarbeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.btnAntrageeinarbeiten.ForeColor = System.Drawing.Color.Black
+        Me.btnAntrageeinarbeiten.Image = Global.SDL.My.Resources.Resources.plus
+        Me.btnAntrageeinarbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAntrageeinarbeiten.Location = New System.Drawing.Point(12, 29)
+        Me.btnAntrageeinarbeiten.Name = "btnAntrageeinarbeiten"
+        Me.btnAntrageeinarbeiten.Size = New System.Drawing.Size(168, 38)
+        Me.btnAntrageeinarbeiten.TabIndex = 1
+        Me.btnAntrageeinarbeiten.Text = "Anträge übernehmen"
+        Me.btnAntrageeinarbeiten.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnAntrageeinarbeiten.UseVisualStyleBackColor = True
        '
        'cbxArchivierteEintracheNochmalsEinarbetien
        '
@@ -745,6 +745,56 @@ Partial Class frmMDM_USTVAntrag
        Me.Panel2.Size = New System.Drawing.Size(1300, 269)
        Me.Panel2.TabIndex = 1
        '
+        'Panel4
+        '
+        Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel4.Controls.Add(Me.btnEintragloeschen)
+        Me.Panel4.Controls.Add(Me.btnNeuerEintrag)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel4.Location = New System.Drawing.Point(0, 0)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(154, 269)
+        Me.Panel4.TabIndex = 0
+        '
+        'btnEintragloeschen
+        '
+        Me.btnEintragloeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnEintragloeschen.ForeColor = System.Drawing.Color.Black
+        Me.btnEintragloeschen.Image = Global.SDL.My.Resources.Resources.del
+        Me.btnEintragloeschen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnEintragloeschen.Location = New System.Drawing.Point(6, 50)
+        Me.btnEintragloeschen.Name = "btnEintragloeschen"
+        Me.btnEintragloeschen.Size = New System.Drawing.Size(135, 39)
+        Me.btnEintragloeschen.TabIndex = 1
+        Me.btnEintragloeschen.Text = "Eintrag löschen"
+        Me.btnEintragloeschen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnEintragloeschen.UseVisualStyleBackColor = True
+        '
+        'btnNeuerEintrag
+        '
+        Me.btnNeuerEintrag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeuerEintrag.ForeColor = System.Drawing.Color.Black
+        Me.btnNeuerEintrag.Image = Global.SDL.My.Resources.Resources.plus
+        Me.btnNeuerEintrag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnNeuerEintrag.Location = New System.Drawing.Point(6, 5)
+        Me.btnNeuerEintrag.Name = "btnNeuerEintrag"
+        Me.btnNeuerEintrag.Size = New System.Drawing.Size(135, 39)
+        Me.btnNeuerEintrag.TabIndex = 0
+        Me.btnNeuerEintrag.Text = "Neuer Eintrag"
+        Me.btnNeuerEintrag.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnNeuerEintrag.UseVisualStyleBackColor = True
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
+        'ContextMenuStrip2
+        '
+        Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
+        '
        'UstCntlUSTV_AntragPosition1
        '
        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -753,58 +803,6 @@ Partial Class frmMDM_USTVAntrag
        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
        '
-        'Panel4
-        '
-        Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel4.Controls.Add(Me.Button3)
-        Me.Panel4.Controls.Add(Me.Button2)
-        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel4.Location = New System.Drawing.Point(0, 0)
-        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(154, 269)
-        Me.Panel4.TabIndex = 0
-        '
-        'Button3
-        '
-        Me.Button3.Enabled = False
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.ForeColor = System.Drawing.Color.Black
-        Me.Button3.Image = Global.SDL.My.Resources.Resources.del
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(6, 50)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(135, 39)
-        Me.Button3.TabIndex = 1
-        Me.Button3.Text = "Eintrag löschen"
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.UseVisualStyleBackColor = True
-        '
-        'Button2
-        '
-        Me.Button2.Enabled = False
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ForeColor = System.Drawing.Color.Black
-        Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(6, 5)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(135, 39)
-        Me.Button2.TabIndex = 0
-        Me.Button2.Text = "Neuer Eintrag"
-        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button2.UseVisualStyleBackColor = True
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26)
-        '
-        'ContextMenuStrip2
-        '
-        Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
-        '
        'frmMDM_USTVAntrag
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -842,7 +840,7 @@ Partial Class frmMDM_USTVAntrag
    End Sub

    Friend WithEvents Panel3 As Panel
-    Friend WithEvents Button14 As Button
+    Friend WithEvents btnAntrageeinarbeiten As Button
    Friend WithEvents Panel1 As Panel
    Friend WithEvents lblFirma As Label
    Friend WithEvents pnlFilter As Panel
@@ -857,9 +855,9 @@ Partial Class frmMDM_USTVAntrag
    Friend WithEvents Button1 As Button
    Friend WithEvents pnl As Panel
    Friend WithEvents Panel2 As Panel
-    Friend WithEvents Button2 As Button
+    Friend WithEvents btnNeuerEintrag As Button
    Friend WithEvents Panel4 As Panel
-    Friend WithEvents Button3 As Button
+    Friend WithEvents btnEintragloeschen As Button
    Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents UstCntlUSTV_AntragPosition1 As ustCntlUSTV_AntragPosition