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/frmAdministration.Designer.vb
+++ b/app/TaskFlow/frmAdministration.Designer.vb
@@ -119,6 +119,8 @@ Partial Class frmAdministration
        Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarToggleSwitchItemEdit = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.bbtnitmReject = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupProfile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -158,6 +160,8 @@ Partial Class frmAdministration
        Me.SHOW_DOCUMENTCheckBox = New System.Windows.Forms.CheckBox()
        Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl()
        Me.TabPage5 = New System.Windows.Forms.TabPage()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.TYPEComboBox = New System.Windows.Forms.ComboBox()
        Me.lblTargetPath = New System.Windows.Forms.Label()
        Me.TARGET_PATH_BLIND_FILETextBox = New System.Windows.Forms.TextBox()
        Me.lblDescription = New System.Windows.Forms.Label()
@@ -254,8 +258,6 @@ Partial Class frmAdministration
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.FolderBrowserDialog2 = New System.Windows.Forms.FolderBrowserDialog()
-        Me.TYPEComboBox = New System.Windows.Forms.ComboBox()
-        Me.Label15 = New System.Windows.Forms.Label()
        GUIDLabel = New System.Windows.Forms.Label()
        NAMELabel = New System.Windows.Forms.Label()
        ADDED_WHOLabel = New System.Windows.Forms.Label()
@@ -753,9 +755,9 @@ Partial Class frmAdministration
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemRefreshProfileData, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarToggleSwitchItemEdit})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemRefreshProfileData, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarToggleSwitchItemEdit, Me.bbtnitmReject, Me.BarButtonItem1})
        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 30
+        Me.RibbonControl1.MaxItemId = 32
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -985,6 +987,21 @@ Partial Class frmAdministration
        Me.BarToggleSwitchItemEdit.Name = "BarToggleSwitchItemEdit"
        Me.BarToggleSwitchItemEdit.Tag = "Unlock"
        '
+        'bbtnitmReject
+        '
+        resources.ApplyResources(Me.bbtnitmReject, "bbtnitmReject")
+        Me.bbtnitmReject.Id = 30
+        Me.bbtnitmReject.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmReject.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmReject.Name = "bbtnitmReject"
+        '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 31
+        Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
        'RibbonPage1
        '
        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupProfile, Me.RibbonPageGroup2, Me.RibbonPageGroup4})
@@ -1009,6 +1026,8 @@ Partial Class frmAdministration
        Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem6)
        Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem21)
        Me.RibbonPageGroupProfile.ItemLinks.Add(Me.bbtnItemFinishSQL)
+        Me.RibbonPageGroupProfile.ItemLinks.Add(Me.bbtnitmReject)
+        Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem1)
        Me.RibbonPageGroupProfile.MergeOrder = 1
        Me.RibbonPageGroupProfile.Name = "RibbonPageGroupProfile"
        resources.ApplyResources(Me.RibbonPageGroupProfile, "RibbonPageGroupProfile")
@@ -1097,6 +1116,11 @@ Partial Class frmAdministration
        resources.ApplyResources(DISPLAY_MODELabel, "DISPLAY_MODELabel")
        DISPLAY_MODELabel.Name = "DISPLAY_MODELabel"
        '
+        'TYPELabel
+        '
+        resources.ApplyResources(TYPELabel, "TYPELabel")
+        TYPELabel.Name = "TYPELabel"
+        '
        'TBDD_USERBindingSource
        '
        Me.TBDD_USERBindingSource.DataMember = "TBDD_USER"
@@ -1343,6 +1367,19 @@ Partial Class frmAdministration
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.UseVisualStyleBackColor = True
        '
+        'Label15
+        '
+        resources.ApplyResources(Me.Label15, "Label15")
+        Me.Label15.Name = "Label15"
+        '
+        'TYPEComboBox
+        '
+        Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "TYPE", True))
+        resources.ApplyResources(Me.TYPEComboBox, "TYPEComboBox")
+        Me.TYPEComboBox.FormattingEnabled = True
+        Me.TYPEComboBox.Items.AddRange(New Object() {resources.GetString("TYPEComboBox.Items"), resources.GetString("TYPEComboBox.Items1")})
+        Me.TYPEComboBox.Name = "TYPEComboBox"
+        '
        'lblTargetPath
        '
        resources.ApplyResources(Me.lblTargetPath, "lblTargetPath")
@@ -1957,24 +1994,6 @@ Partial Class frmAdministration
        Me.RibbonPage2.Name = "RibbonPage2"
        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
        '
-        'TYPELabel
-        '
-        resources.ApplyResources(TYPELabel, "TYPELabel")
-        TYPELabel.Name = "TYPELabel"
-        '
-        'TYPEComboBox
-        '
-        Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "TYPE", True))
-        resources.ApplyResources(Me.TYPEComboBox, "TYPEComboBox")
-        Me.TYPEComboBox.FormattingEnabled = True
-        Me.TYPEComboBox.Items.AddRange(New Object() {resources.GetString("TYPEComboBox.Items"), resources.GetString("TYPEComboBox.Items1")})
-        Me.TYPEComboBox.Name = "TYPEComboBox"
-        '
-        'Label15
-        '
-        resources.ApplyResources(Me.Label15, "Label15")
-        Me.Label15.Name = "Label15"
-        '
        'frmAdministration
        '
        Me.Appearance.Options.UseFont = True
@@ -2291,4 +2310,6 @@ Partial Class frmAdministration
    Friend WithEvents lblTargetPath As Label
    Friend WithEvents Label15 As Label
    Friend WithEvents TYPEComboBox As ComboBox
+    Friend WithEvents bbtnitmReject As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
 End Class