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/frmAPI.vb
+++ b/UID/frmAPI.vb
@@ -1,6 +1,6 @@
 Public Class frmAPI

-    Public id, progId, progName, maid, datetime, testsystem, type, mail, userName, firma, errorCode, errStack, errMessage, errMethodName, progVersion, mailcc, mailbcc, subject, mailtext, mailAnh
+    Public id, progId, progName, maid, datetime, testsystem, type, mail, userName, firma, errorCode, errStack, errMessage, errMethodName, progVersion, mailcc, mailbcc, subject, mailtext, mailAnh, apiId



@@ -51,8 +51,6 @@
                lblErrMsg.Text &= " (Error Code: " & errorCode & " - zu viele Fehler, kein Versuch mehr)"
        End Select

-
-
        If testsystem IsNot Nothing Then
            cbxTestsysten.Checked = testsystem
        End If
--- 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
--- a/UID/usrCntlAPI.vb
+++ b/UID/usrCntlAPI.vb
@@ -41,6 +41,12 @@ Public Class usrCntlAPI
        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", "MAIL"))
        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", "REST"))

+        cbxStatus.Items.Clear()
+        'cboType.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
+        cbxStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WARTEN", 0))
+        cbxStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OK", 1))
+        cbxStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FEHLER", 90))
+
        cboAPIArt.Items.Clear()
        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL))
@@ -236,6 +242,7 @@ Public Class usrCntlAPI

        If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] = @APIArt "
        If cboType._value <> "" Then sqlstr &= " AND [api_Type] = @APIType "
+        If cbxStatus._value <> "" Then sqlstr &= " AND [api_Status] = @APIStatus "
        If cboProgram._value <> "" Then sqlstr &= " AND [api_progName] = @Program "
        If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] =  @APIInOut "

@@ -271,6 +278,7 @@ Public Class usrCntlAPI
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", cboFirma._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIStatus", cbxStatus._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId.Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId.Text))