Logging bei LoadnewDocument, Errorhandling, Button Reject, Focus nach Lookup

2024-07-03 15:37:31 +02:00
parent d902548ec5
commit cd75a665e6
42 changed files with 4380 additions and 764 deletions
--- a/app/TaskFlow/frmRejectionCommit.Designer.vb
+++ b/app/TaskFlow/frmRejectionCommit.Designer.vb
@@ -0,0 +1,125 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmRejectionCommit
+    Inherits DevExpress.XtraEditors.XtraForm
+
+    '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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRejectionCommit))
+        Me.lblMsg1 = New DevExpress.XtraEditors.LabelControl()
+        Me.lblMsg2 = New DevExpress.XtraEditors.LabelControl()
+        Me.btnRejection = New DevExpress.XtraEditors.SimpleButton()
+        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+        Me.lblReasons = New DevExpress.XtraEditors.LabelControl()
+        Me.cmbReason = New System.Windows.Forms.ComboBox()
+        Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
+        Me.txtComment = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'lblMsg1
+        '
+        resources.ApplyResources(Me.lblMsg1, "lblMsg1")
+        Me.lblMsg1.Appearance.Font = CType(resources.GetObject("lblMsg1.Appearance.Font"), System.Drawing.Font)
+        Me.lblMsg1.Appearance.Options.UseFont = True
+        Me.lblMsg1.Name = "lblMsg1"
+        '
+        'lblMsg2
+        '
+        resources.ApplyResources(Me.lblMsg2, "lblMsg2")
+        Me.lblMsg2.Appearance.Font = CType(resources.GetObject("lblMsg2.Appearance.Font"), System.Drawing.Font)
+        Me.lblMsg2.Appearance.Options.UseFont = True
+        Me.lblMsg2.Name = "lblMsg2"
+        '
+        'btnRejection
+        '
+        resources.ApplyResources(Me.btnRejection, "btnRejection")
+        Me.btnRejection.Appearance.BackColor = System.Drawing.Color.Red
+        Me.btnRejection.Appearance.BorderColor = System.Drawing.Color.Red
+        Me.btnRejection.Appearance.Font = CType(resources.GetObject("btnRejection.Appearance.Font"), System.Drawing.Font)
+        Me.btnRejection.Appearance.Options.UseBackColor = True
+        Me.btnRejection.Appearance.Options.UseBorderColor = True
+        Me.btnRejection.Appearance.Options.UseFont = True
+        Me.btnRejection.ImageOptions.Image = CType(resources.GetObject("btnRejection.ImageOptions.Image"), System.Drawing.Image)
+        Me.btnRejection.Name = "btnRejection"
+        '
+        'SimpleButton1
+        '
+        resources.ApplyResources(Me.SimpleButton1, "SimpleButton1")
+        Me.SimpleButton1.Appearance.Font = CType(resources.GetObject("SimpleButton1.Appearance.Font"), System.Drawing.Font)
+        Me.SimpleButton1.Appearance.Options.UseFont = True
+        Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.SimpleButton1.Name = "SimpleButton1"
+        '
+        'lblReasons
+        '
+        resources.ApplyResources(Me.lblReasons, "lblReasons")
+        Me.lblReasons.Appearance.Font = CType(resources.GetObject("lblReasons.Appearance.Font"), System.Drawing.Font)
+        Me.lblReasons.Appearance.Options.UseFont = True
+        Me.lblReasons.Name = "lblReasons"
+        '
+        'cmbReason
+        '
+        resources.ApplyResources(Me.cmbReason, "cmbReason")
+        Me.cmbReason.FormattingEnabled = True
+        Me.cmbReason.Name = "cmbReason"
+        '
+        'LabelControl2
+        '
+        resources.ApplyResources(Me.LabelControl2, "LabelControl2")
+        Me.LabelControl2.Appearance.Font = CType(resources.GetObject("LabelControl2.Appearance.Font"), System.Drawing.Font)
+        Me.LabelControl2.Appearance.Options.UseFont = True
+        Me.LabelControl2.Name = "LabelControl2"
+        '
+        'txtComment
+        '
+        resources.ApplyResources(Me.txtComment, "txtComment")
+        Me.txtComment.Name = "txtComment"
+        '
+        'frmRejectionCommit
+        '
+        resources.ApplyResources(Me, "$this")
+        Me.Appearance.Options.UseFont = True
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.txtComment)
+        Me.Controls.Add(Me.LabelControl2)
+        Me.Controls.Add(Me.cmbReason)
+        Me.Controls.Add(Me.lblReasons)
+        Me.Controls.Add(Me.SimpleButton1)
+        Me.Controls.Add(Me.btnRejection)
+        Me.Controls.Add(Me.lblMsg2)
+        Me.Controls.Add(Me.lblMsg1)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmRejectionCommit.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmRejectionCommit"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lblMsg1 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents lblMsg2 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents btnRejection As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents lblReasons As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents cmbReason As ComboBox
+    Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents txtComment As TextBox
+End Class