Automatischer EMail-Versand für ZF-Auswertung, Errors GUI verbessert.

2023-10-11 14:55:50 +02:00
parent 9c3677266d
commit 5aa8232db7
8 changed files with 235 additions and 26 deletions
--- a/UID/frmERS.vb
+++ b/UID/frmERS.vb
@@ -16,7 +16,7 @@
    Private Sub frmERS_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        lblProgramm.Text = progId & " - " & progName & IIf(progVersion <> "", " (" & progVersion & ")", "")
-        lblFirma.Text = firma
+        lblFirma.Text = IIf(firma IsNot DBNull.Value, firma, "")
        txtUser.Text = maId & " " & userName
        txtType.Text = type
        txtMethode.Text = errMethodName
--- a/UID/usrCntlERS.Designer.vb
+++ b/UID/usrCntlERS.Designer.vb
@@ -26,6 +26,9 @@ Partial Class usrCntlERS
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
        Me.pnlSearch = New System.Windows.Forms.Panel()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.txtFehlersuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.cbxTestSys = New System.Windows.Forms.CheckBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.txtUser = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.cboType = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -61,7 +64,6 @@ Partial Class usrCntlERS
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.Button10 = New System.Windows.Forms.Button()
        Me.Button11 = New System.Windows.Forms.Button()
-        Me.cbxTestSys = New System.Windows.Forms.CheckBox()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainer.Panel1.SuspendLayout()
        Me.SplitContainer.Panel2.SuspendLayout()
@@ -117,6 +119,8 @@ Partial Class usrCntlERS
        '
        'SplitContainer1.Panel1
        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtFehlersuche)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label2)
        Me.SplitContainer1.Panel1.Controls.Add(Me.cbxTestSys)
        Me.SplitContainer1.Panel1.Controls.Add(Me.Label9)
        Me.SplitContainer1.Panel1.Controls.Add(Me.txtUser)
@@ -148,10 +152,56 @@ Partial Class usrCntlERS
        Me.SplitContainer1.SplitterDistance = 125
        Me.SplitContainer1.TabIndex = 0
        '
+        'txtFehlersuche
+        '
+        Me.txtFehlersuche._DateTimeOnly = False
+        Me.txtFehlersuche._numbersOnly = False
+        Me.txtFehlersuche._numbersOnlyKommastellen = ""
+        Me.txtFehlersuche._numbersOnlyTrennzeichen = True
+        Me.txtFehlersuche._Prozent = False
+        Me.txtFehlersuche._ShortDateNew = False
+        Me.txtFehlersuche._ShortDateOnly = False
+        Me.txtFehlersuche._TimeOnly = False
+        Me.txtFehlersuche._TimeOnly_Seconds = False
+        Me.txtFehlersuche._value = ""
+        Me.txtFehlersuche._Waehrung = False
+        Me.txtFehlersuche._WaehrungZeichen = True
+        Me.txtFehlersuche.ForeColor = System.Drawing.Color.Black
+        Me.txtFehlersuche.Location = New System.Drawing.Point(532, 79)
+        Me.txtFehlersuche.MaxLineLength = -1
+        Me.txtFehlersuche.MaxLines_Warning = ""
+        Me.txtFehlersuche.MaxLines_Warning_Label = Nothing
+        Me.txtFehlersuche.Name = "txtFehlersuche"
+        Me.txtFehlersuche.Size = New System.Drawing.Size(217, 20)
+        Me.txtFehlersuche.TabIndex = 52
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(449, 83)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(72, 13)
+        Me.Label2.TabIndex = 51
+        Me.Label2.Text = "Fehlersuche*:"
+        '
+        'cbxTestSys
+        '
+        Me.cbxTestSys.AutoSize = True
+        Me.cbxTestSys.BackColor = System.Drawing.Color.White
+        Me.cbxTestSys.Checked = True
+        Me.cbxTestSys.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxTestSys.Location = New System.Drawing.Point(487, 3)
+        Me.cbxTestSys.Name = "cbxTestSys"
+        Me.cbxTestSys.Size = New System.Drawing.Size(79, 17)
+        Me.cbxTestSys.TabIndex = 50
+        Me.cbxTestSys.Text = "Testsystem"
+        Me.cbxTestSys.ThreeState = True
+        Me.cbxTestSys.UseVisualStyleBackColor = False
+        '
        'Label9
        '
        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(330, 62)
+        Me.Label9.Location = New System.Drawing.Point(449, 39)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(32, 13)
        Me.Label9.TabIndex = 47
@@ -176,7 +226,7 @@ Partial Class usrCntlERS
        Me.txtUser.KdNr = "-1"
        Me.txtUser.kdNrField = Nothing
        Me.txtUser.KdNrNullInt = Nothing
-        Me.txtUser.Location = New System.Drawing.Point(368, 58)
+        Me.txtUser.Location = New System.Drawing.Point(532, 35)
        Me.txtUser.Name = "txtUser"
        Me.txtUser.nurAktive = False
        Me.txtUser.searchActive = True
@@ -193,7 +243,7 @@ Partial Class usrCntlERS
        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(451, 30)
+        Me.cboType.Location = New System.Drawing.Point(333, 79)
        Me.cboType.Name = "cboType"
        Me.cboType.Size = New System.Drawing.Size(105, 22)
        Me.cboType.TabIndex = 42
@@ -202,7 +252,7 @@ Partial Class usrCntlERS
        '
        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(448, 12)
+        Me.Label6.Location = New System.Drawing.Point(330, 61)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(35, 13)
        Me.Label6.TabIndex = 41
@@ -462,7 +512,7 @@ Partial Class usrCntlERS
        Me.cboFirma.DropDownWidth = 250
        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboFirma.FormattingEnabled = True
-        Me.cboFirma.Location = New System.Drawing.Point(575, 26)
+        Me.cboFirma.Location = New System.Drawing.Point(334, 124)
        Me.cboFirma.Name = "cboFirma"
        Me.cboFirma.Size = New System.Drawing.Size(104, 22)
        Me.cboFirma.TabIndex = 20
@@ -471,7 +521,7 @@ Partial Class usrCntlERS
        '
        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(572, 8)
+        Me.Label1.Location = New System.Drawing.Point(331, 106)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(37, 13)
        Me.Label1.TabIndex = 6
@@ -633,20 +683,6 @@ Partial Class usrCntlERS
        Me.Button11.TabIndex = 4
        Me.Button11.UseVisualStyleBackColor = True
        '
-        'cbxTestSys
-        '
-        Me.cbxTestSys.AutoSize = True
-        Me.cbxTestSys.BackColor = System.Drawing.Color.White
-        Me.cbxTestSys.Checked = True
-        Me.cbxTestSys.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxTestSys.Location = New System.Drawing.Point(530, 64)
-        Me.cbxTestSys.Name = "cbxTestSys"
-        Me.cbxTestSys.Size = New System.Drawing.Size(79, 17)
-        Me.cbxTestSys.TabIndex = 50
-        Me.cbxTestSys.Text = "Testsystem"
-        Me.cbxTestSys.ThreeState = True
-        Me.cbxTestSys.UseVisualStyleBackColor = False
-        '
        'usrCntlERS
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -711,4 +747,6 @@ Partial Class usrCntlERS
    Friend WithEvents txtUser As VERAG_PROG_ALLGEMEIN.KdSearchBox
    Friend WithEvents lblErgebnis As Label
    Friend WithEvents cbxTestSys As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtFehlersuche As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/UID/usrCntlERS.vb
+++ b/UID/usrCntlERS.vb
@@ -226,6 +226,10 @@ Public Class usrCntlERS
            sqlstr &= " AND [ers_Testsystem] = @ersTestsystem "
        End If

+        If txtFehlersuche.Text <> "" Then
+            sqlstr &= " AND ([ers_errStack] like '" & txtFehlersuche.Text.Replace("*", "%") & "' Or [ers_errMessage] like '" & txtFehlersuche.Text.Replace("*", "%") & "' OR [ers_errMethodName] like '" & txtFehlersuche.Text.Replace("*", "%") & "')  "
+
+        End If

        Return sqlstr
    End Function
@@ -270,4 +274,13 @@ Public Class usrCntlERS
        sender.RELOAD()
        Me.Cursor = Cursors.Default
    End Sub
+
+    Private Sub txtFehlersuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtFehlersuche.KeyDown
+        If e.KeyCode = Keys.Enter Then
+
+            Me.btnSuche_Click(sender, e)
+                e.Handled = True
+            End If
+
+    End Sub
 End Class