div. Änderungen, etc.

2026-08-10 09:12:56 +02:00
parent 4caa0c2073
commit b88fb31cf1
7 changed files with 124 additions and 61 deletions
--- a/UID/usrCntlAPI.Designer.vb
+++ b/UID/usrCntlAPI.Designer.vb
@@ -26,6 +26,10 @@ Partial Class usrCntlAPI
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
        Me.pnlSearch = New System.Windows.Forms.Panel()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.cbxStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.cbxOhneAnhang = New System.Windows.Forms.CheckBox()
+        Me.btnExcel = New System.Windows.Forms.Button()
        Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.cboProgram = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -86,8 +90,6 @@ Partial Class usrCntlAPI
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.Button10 = New System.Windows.Forms.Button()
        Me.Button11 = New System.Windows.Forms.Button()
-        Me.btnExcel = New System.Windows.Forms.Button()
-        Me.cbxOhneAnhang = New System.Windows.Forms.CheckBox()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainer.Panel1.SuspendLayout()
        Me.SplitContainer.Panel2.SuspendLayout()
@@ -143,6 +145,8 @@ Partial Class usrCntlAPI
        '
        'SplitContainer1.Panel1
        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cbxStatus)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label16)
        Me.SplitContainer1.Panel1.Controls.Add(Me.cbxOhneAnhang)
        Me.SplitContainer1.Panel1.Controls.Add(Me.btnExcel)
        Me.SplitContainer1.Panel1.Controls.Add(Me.txtSuche)
@@ -200,6 +204,54 @@ Partial Class usrCntlAPI
        Me.SplitContainer1.SplitterDistance = 125
        Me.SplitContainer1.TabIndex = 0
        '
+        'cbxStatus
+        '
+        Me.cbxStatus._allowedValuesFreiText = Nothing
+        Me.cbxStatus._allowFreiText = False
+        Me.cbxStatus._value = ""
+        Me.cbxStatus.Cursor = System.Windows.Forms.Cursors.Default
+        Me.cbxStatus.DropDownWidth = 250
+        Me.cbxStatus.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxStatus.FormattingEnabled = True
+        Me.cbxStatus.Location = New System.Drawing.Point(770, 34)
+        Me.cbxStatus.Name = "cbxStatus"
+        Me.cbxStatus.Size = New System.Drawing.Size(62, 22)
+        Me.cbxStatus.TabIndex = 62
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label16.Location = New System.Drawing.Point(769, 16)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(43, 13)
+        Me.Label16.TabIndex = 61
+        Me.Label16.Text = "Status"
+        '
+        'cbxOhneAnhang
+        '
+        Me.cbxOhneAnhang.AutoSize = True
+        Me.cbxOhneAnhang.Location = New System.Drawing.Point(742, 123)
+        Me.cbxOhneAnhang.Name = "cbxOhneAnhang"
+        Me.cbxOhneAnhang.Size = New System.Drawing.Size(90, 17)
+        Me.cbxOhneAnhang.TabIndex = 60
+        Me.cbxOhneAnhang.Text = "ohne Anhang"
+        Me.cbxOhneAnhang.UseVisualStyleBackColor = True
+        '
+        'btnExcel
+        '
+        Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnExcel.BackgroundImage = Global.ADMIN.My.Resources.Resources.Excel_2013_logo_155x110
+        Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnExcel.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnExcel.Location = New System.Drawing.Point(943, 64)
+        Me.btnExcel.Name = "btnExcel"
+        Me.btnExcel.Size = New System.Drawing.Size(69, 52)
+        Me.btnExcel.TabIndex = 59
+        Me.btnExcel.UseVisualStyleBackColor = True
+        '
        'txtSuche
        '
        Me.txtSuche._DateTimeOnly = False
@@ -403,7 +455,7 @@ Partial Class usrCntlAPI
        Me.cboAPIArt.DropDownWidth = 250
        Me.cboAPIArt.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboAPIArt.FormattingEnabled = True
-        Me.cboAPIArt.Location = New System.Drawing.Point(714, 34)
+        Me.cboAPIArt.Location = New System.Drawing.Point(686, 34)
        Me.cboAPIArt.Name = "cboAPIArt"
        Me.cboAPIArt.Size = New System.Drawing.Size(78, 22)
        Me.cboAPIArt.TabIndex = 44
@@ -412,7 +464,7 @@ Partial Class usrCntlAPI
        '
        Me.Label7.AutoSize = True
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(711, 16)
+        Me.Label7.Location = New System.Drawing.Point(683, 16)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(47, 13)
        Me.Label7.TabIndex = 43
@@ -426,7 +478,7 @@ Partial Class usrCntlAPI
        Me.cboType.DropDownWidth = 250
        Me.cboType.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboType.FormattingEnabled = True
-        Me.cboType.Location = New System.Drawing.Point(639, 34)
+        Me.cboType.Location = New System.Drawing.Point(611, 34)
        Me.cboType.Name = "cboType"
        Me.cboType.Size = New System.Drawing.Size(69, 22)
        Me.cboType.TabIndex = 42
@@ -435,7 +487,7 @@ Partial Class usrCntlAPI
        '
        Me.Label6.AutoSize = True
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(636, 16)
+        Me.Label6.Location = New System.Drawing.Point(608, 16)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(35, 13)
        Me.Label6.TabIndex = 41
@@ -449,7 +501,7 @@ Partial Class usrCntlAPI
        Me.cboInOut.DropDownWidth = 250
        Me.cboInOut.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboInOut.FormattingEnabled = True
-        Me.cboInOut.Location = New System.Drawing.Point(557, 34)
+        Me.cboInOut.Location = New System.Drawing.Point(529, 34)
        Me.cboInOut.Name = "cboInOut"
        Me.cboInOut.Size = New System.Drawing.Size(74, 22)
        Me.cboInOut.TabIndex = 40
@@ -458,7 +510,7 @@ Partial Class usrCntlAPI
        '
        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(554, 16)
+        Me.Label5.Location = New System.Drawing.Point(526, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(52, 13)
        Me.Label5.TabIndex = 39
@@ -1044,30 +1096,6 @@ Partial Class usrCntlAPI
        Me.Button11.TabIndex = 4
        Me.Button11.UseVisualStyleBackColor = True
        '
-        'btnExcel
-        '
-        Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnExcel.BackgroundImage = Global.ADMIN.My.Resources.Resources.Excel_2013_logo_155x110
-        Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnExcel.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnExcel.Location = New System.Drawing.Point(943, 64)
-        Me.btnExcel.Name = "btnExcel"
-        Me.btnExcel.Size = New System.Drawing.Size(69, 52)
-        Me.btnExcel.TabIndex = 59
-        Me.btnExcel.UseVisualStyleBackColor = True
-        '
-        'cbxOhneAnhang
-        '
-        Me.cbxOhneAnhang.AutoSize = True
-        Me.cbxOhneAnhang.Location = New System.Drawing.Point(742, 123)
-        Me.cbxOhneAnhang.Name = "cbxOhneAnhang"
-        Me.cbxOhneAnhang.Size = New System.Drawing.Size(90, 17)
-        Me.cbxOhneAnhang.TabIndex = 60
-        Me.cbxOhneAnhang.Text = "ohne Anhang"
-        Me.cbxOhneAnhang.UseVisualStyleBackColor = True
-        '
        'usrCntlAPI
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1158,4 +1186,6 @@ Partial Class usrCntlAPI
    Friend WithEvents Label15 As Label
    Friend WithEvents btnExcel As Button
    Friend WithEvents cbxOhneAnhang As CheckBox
+    Friend WithEvents cbxStatus As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label16 As Label
 End Class