From ffa65a9c0737b9a6ec6c5cf88ad667b672da7a22 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Fri, 15 Aug 2025 12:55:53 +0200 Subject: [PATCH] =?UTF-8?q?Pr=C3=BCfen=20der=20Offenen=20Tickets=20und=20P?= =?UTF-8?q?ush=20in=20Master,=20frmValidator=20(Fehlerhandling,=20Currency?= =?UTF-8?q?=20etc)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- app/TaskFlow/ClassControlCreator.vb | 2 +- app/TaskFlow/TaskFlow.vbproj | 4 - app/TaskFlow/frmError.resx | 164 ++-- app/TaskFlow/frmError.vb | 17 +- app/TaskFlow/frmFormDesigner.vb | 42 +- app/TaskFlow/frmValidator.Designer.vb | 3 +- app/TaskFlow/frmValidator.resx | 137 +-- app/TaskFlow/frmValidator.vb | 1168 +++++++++++++------------ app/TaskFlow/frmValidatorSearch.resx | 79 +- app/TaskFlow/frmValidatorSearch.vb | 9 +- 10 files changed, 833 insertions(+), 792 deletions(-) diff --git a/app/TaskFlow/ClassControlCreator.vb b/app/TaskFlow/ClassControlCreator.vb index d7a498c..d445eeb 100644 --- a/app/TaskFlow/ClassControlCreator.vb +++ b/app/TaskFlow/ClassControlCreator.vb @@ -308,7 +308,7 @@ Public Class ClassControlCreator Dim oControl As BaseEdit = Nothing - If oHeight > 27 Then + If oHeight >= 27 Then oControl = CreateBaseControl(New MemoEdit(), oControlRow, designMode) Else oControl = CreateBaseControl(New TextEdit(), oControlRow, designMode) diff --git a/app/TaskFlow/TaskFlow.vbproj b/app/TaskFlow/TaskFlow.vbproj index 34adb31..91e0898 100644 --- a/app/TaskFlow/TaskFlow.vbproj +++ b/app/TaskFlow/TaskFlow.vbproj @@ -156,10 +156,6 @@ ..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll - ..\..\..\..\2_DLL Projekte\DDMonoRepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll - - - False ..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll diff --git a/app/TaskFlow/frmError.resx b/app/TaskFlow/frmError.resx index 3d09432..e90db65 100644 --- a/app/TaskFlow/frmError.resx +++ b/app/TaskFlow/frmError.resx @@ -117,133 +117,133 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 15, 9 - - - 495, 203 + + + None - - Label1 + + + 355, 150 - - + 6, 5, 6, 5 - - Timer1 + + 134, 41 - - 1 - - + 0 - - False + + OK + + + OK_Button + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + True + + + 15, 9 6, 0, 6, 0 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 358, 23 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - $this + + Folgender Fehler wurde festgestellt: - - 134, 41 + + Label1 - - Verdana, 14.25pt + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 $this - - Fehlermeldung: - - - 355, 150 + + 1 - - frmError + + False Verdana, 9.75pt - - System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 1 - 19, 35 - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 2 - - - 12, 23 + + True - - OK + + 470, 107 - - 0 + + 1 txterror - - 358, 23 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CenterScreen + + $this - - True + + 0 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + + + True + + + 12, 23 - - $this + + 495, 203 - - Folgender Fehler wurde festgestellt: + + Verdana, 14.25pt - + 6, 5, 6, 5 - - 0 + + CenterScreen - - None + + Fehlermeldung: - - True + + Timer1 - - OK_Button + + System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 470, 107 + + frmError + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 17 - - - True - \ No newline at end of file diff --git a/app/TaskFlow/frmError.vb b/app/TaskFlow/frmError.vb index a50b650..c657629 100644 --- a/app/TaskFlow/frmError.vb +++ b/app/TaskFlow/frmError.vb @@ -1,15 +1,24 @@ Imports System.Windows.Forms Public Class frmError - + Public ValidatorError As String = "" Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Me.Close() End Sub Private Sub frmError_Load(sender As Object, e As System.EventArgs) Handles Me.Load - Me.txterror.Text = errormessage - Me.Label1.Focus() - Me.Timer1.Start() + If ValidatorError <> String.Empty Or errormessage <> String.Empty Then + If ValidatorError <> String.Empty Then + Me.txterror.Text = ValidatorError + Else + Me.txterror.Text = errormessage + End If + Me.Label1.Focus() + Me.Timer1.Start() + Else + Me.Close() + End If + End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick diff --git a/app/TaskFlow/frmFormDesigner.vb b/app/TaskFlow/frmFormDesigner.vb index dbe68ce..5450f0a 100644 --- a/app/TaskFlow/frmFormDesigner.vb +++ b/app/TaskFlow/frmFormDesigner.vb @@ -474,7 +474,11 @@ Public Class frmFormDesigner Exit Sub End If Mouse_IsPressed = False - + If TypeOf sender Is LookupControl3 Then + RibPGCtrlheight.Enabled = False + Else + RibPGCtrlheight.Enabled = True + End If ' Control Eigenschaften laden LoadControlProperties(sender) @@ -614,8 +618,7 @@ Public Class frmFormDesigner ' Default value for ConnectionID Dim oConnectionId = row.ItemEx("CONNECTION_ID", 0) - obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"), oConnectionId) - obj.SQLConnection = oConnectionId + obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG")) Return obj End Function @@ -948,7 +951,7 @@ Public Class frmFormDesigner Dim v As SQLValue = value escapedValue = $"'{v.Value.Replace("'", "''")}'" - UpdateSingleValue("CONNECTION_ID", v.ConnectionId) + 'UpdateSingleValue("CONNECTION_ID", v.ConnectionId) End If Try @@ -1347,11 +1350,12 @@ Public Class frmFormDesigner Sub Height_minus() If CurrentControl Is Nothing = False Then Dim newHeight As Integer = CurrentControl.Height - 5 + Dim oReloadNeeded As Boolean = False + If newHeight < 22 And TypeOf CurrentControl Is DevExpress.XtraEditors.MemoEdit Then - ' TODO: Implement Multiline TextBox - 'If newHeight < 22 And TypeOf CurrentControl Is TextBox Then - ' DirectCast(CurrentControl, TextBox).Multiline = True - 'End If + oReloadNeeded = True + ' DirectCast(CurrentControl, TextBox).Multiline = True + End If ' Verhindert, dass das Control unsichtbar wird If newHeight < 1 Then @@ -1362,24 +1366,30 @@ Public Class frmFormDesigner DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size pgControlsNew.UpdateData() - UpdateSingleValue("HEIGHT", newHeight) + If UpdateSingleValue("HEIGHT", newHeight) And oReloadNeeded Then + LoadControls() + End If End If End Sub Sub Height_plus() If CurrentControl Is Nothing = False Then Dim newHeight As Integer = CurrentControl.Height + 5 - + Dim oReloadNeeded As Boolean = False ' TODO: Implement Multiline Textbox - 'If newHeight > 21 And TypeOf CurrentControl Is TextBox Then - ' DirectCast(CurrentControl, TextBox).Multiline = True - 'End If + If newHeight > 21 And TypeOf CurrentControl Is DevExpress.XtraEditors.TextEdit Then + Console.WriteLine("Multiline directcast") + oReloadNeeded = True + ' DirectCast(CurrentControl, TextBox).Multiline = True + End If CurrentControl.Size = New Size(CurrentControl.Width, newHeight) - DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size - pgControlsNew.UpdateData() + DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size + pgControlsNew.UpdateData() - UpdateSingleValue("HEIGHT", newHeight) + If UpdateSingleValue("HEIGHT", newHeight) And oReloadNeeded Then + LoadControls() + End If End If End Sub diff --git a/app/TaskFlow/frmValidator.Designer.vb b/app/TaskFlow/frmValidator.Designer.vb index 41972b5..1aa525c 100644 --- a/app/TaskFlow/frmValidator.Designer.vb +++ b/app/TaskFlow/frmValidator.Designer.vb @@ -259,8 +259,8 @@ Partial Class frmValidator ' 'DocumentViewer1 ' - Me.DocumentViewer1.FileLoaded = False resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") + Me.DocumentViewer1.FileLoaded = False Me.DocumentViewer1.Name = "DocumentViewer1" ' 'BarManager1 @@ -270,7 +270,6 @@ Partial Class frmValidator Me.BarManager1.DockControls.Add(Me.barDockControlBottom) Me.BarManager1.DockControls.Add(Me.barDockControlLeft) Me.BarManager1.DockControls.Add(Me.barDockControlRight) - Me.BarManager1.DockWindowTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BarManager1.Form = Me Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.PdfFileOpenBarItem1, Me.PdfFileSaveAsBarItem1, Me.PdfFilePrintBarItem2, Me.PdfPreviousPageBarItem2, Me.PdfNextPageBarItem2, Me.PdfFindTextBarItem2, Me.PdfZoomOutBarItem2, Me.PdfZoomInBarItem2, Me.PdfExactZoomListBarSubItem2, Me.PdfZoom10CheckItem2, Me.PdfZoom25CheckItem2, Me.PdfZoom50CheckItem2, Me.PdfZoom75CheckItem2, Me.PdfZoom100CheckItem2, Me.PdfZoom125CheckItem2, Me.PdfZoom150CheckItem2, Me.PdfZoom200CheckItem2, Me.PdfZoom400CheckItem2, Me.PdfZoom500CheckItem2, Me.PdfSetActualSizeZoomModeCheckItem2, Me.PdfSetPageLevelZoomModeCheckItem2, Me.PdfSetFitWidthZoomModeCheckItem2, Me.PdfSetFitVisibleZoomModeCheckItem2, Me.BarButtonItem1}) Me.BarManager1.MaxItemId = 24 diff --git a/app/TaskFlow/frmValidator.resx b/app/TaskFlow/frmValidator.resx index 4ff972c..dea40d1 100644 --- a/app/TaskFlow/frmValidator.resx +++ b/app/TaskFlow/frmValidator.resx @@ -600,6 +600,9 @@ 0 + + Fill + 0, 0 @@ -607,7 +610,7 @@ 4, 5, 4, 5 - 1012, 590 + 519, 341 0 @@ -1263,6 +1266,39 @@ 0, 0 + + Datei + + + Daten + + + Aktionen + + + Hinweise + + + Anhänge + + + Anhänge zu Beleg + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAASZJREFUWEfN + l7ERwjAMRZmAinFeT8cMDMAgbENLyRZ0dKxAG+5zhAuKBDYOiOLd5YykPBJbdmZd180yGQ38mscF8I45 + sAK2wB44AZc7utaYflOMYm3+EzUCC2ADHICuEMUqR7m2XpXAEtg5NyhFuaph6xYJrIGjU7QW1VCtKgEl + nJ1in6JaTxKvBPTIpvjnFtV8vI5IQJOm5Z2/Q7VvEzMS0My1SVOje7gCWrvFS63PG+SPYgJ0j7knoAZi + g0MaBMTKE1AXs4EhjQJbT0Ct1AaGNArsPQH1cxsY0ihw8gS0qdjAkEaBy18KpL+C9EmYvgyrGlEjbiNK + b8WieDNqEAg3I5G+HYvUA0lP6pFsKDHFk/joUNqTeizvSf0wGfLdT7MsRgO/5go/tJcKezdCSgAAAABJ + RU5ErkJggg== + + + + Information + Start @@ -2158,39 +2194,6 @@ Zoom - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu - NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN - QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs - b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT - eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp - b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg - Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k - ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E - cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO - AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - - 10 % @@ -2233,6 +2236,39 @@ sichtbare einpassen + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu + NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN + QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs + b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT + eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp + b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg + Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k + ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E + cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO + AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL + + BarButtonItem1 @@ -2251,39 +2287,6 @@ 232, 128 - - Datei - - - Daten - - - Aktionen - - - Hinweise - - - Anhänge - - - Anhänge zu Beleg - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAASZJREFUWEfN - l7ERwjAMRZmAinFeT8cMDMAgbENLyRZ0dKxAG+5zhAuKBDYOiOLd5YykPBJbdmZd180yGQ38mscF8I45 - sAK2wB44AZc7utaYflOMYm3+EzUCC2ADHICuEMUqR7m2XpXAEtg5NyhFuaph6xYJrIGjU7QW1VCtKgEl - nJ1in6JaTxKvBPTIpvjnFtV8vI5IQJOm5Z2/Q7VvEzMS0My1SVOje7gCWrvFS63PG+SPYgJ0j7knoAZi - g0MaBMTKE1AXs4EhjQJbT0Ct1AaGNArsPQH1cxsY0ihw8gS0qdjAkEaBy18KpL+C9EmYvgyrGlEjbiNK - b8WieDNqEAg3I5G+HYvUA0lP6pFsKDHFk/joUNqTeizvSf0wGfLdT7MsRgO/5go/tJcKezdCSgAAAABJ - RU5ErkJggg== - - - - Information - RibbonPage2 diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index f9c4e18..5ba989e 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/app/TaskFlow/frmValidator.vb @@ -106,7 +106,7 @@ Public Class frmValidator Private PerformanceLogger As Logger Private Validator As Validator Private Const LOG_PERF = True - Private ReadOnly Logger As Logger + Private ReadOnly MyValidationLogger As Logger Private Property OperationMode As OperationMode Private ReadOnly Environment As Environment @@ -130,18 +130,18 @@ Public Class frmValidator Public Sub New(pEnvironment As Environment) PerformanceLogger = LOGCONFIG.GetLoggerFor("PERF") If LOG_PERF Then PerformanceLogger.Info("New") - Logger = LOGCONFIG.GetLogger() + MyValidationLogger = LOGCONFIG.GetLogger() 'MyBase.New - Logger.Debug("Initialize Components...") + MyValidationLogger.Debug("Initialize Components...") InitializeComponent() Environment = pEnvironment Try - Logger.Debug("Initialize _frmValidatorSearch...") + MyValidationLogger.Debug("Initialize _frmValidatorSearch...") _frmValidatorSearch = New frmValidatorSearch(Me, Environment) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try @@ -181,8 +181,8 @@ Public Class frmValidator If LOG_PERF Then PerformanceLogger.Info("frmValidation_Load") - Logger.Debug("###frmValidation_Load###") - Logger.Debug("Current User Language: [{0}]", USER_LANGUAGE) + MyValidationLogger.Debug("###frmValidation_Load###") + MyValidationLogger.Debug("Current User Language: [{0}]", USER_LANGUAGE) ' Operation mode is either guessed from service settings ' or explictly set from OperationModeOverride in Params @@ -201,7 +201,7 @@ Public Class frmValidator _FormLoaded = False Catch ex As Exception - Logger.Warn($"Error in frmValidation_load1: {ex.Message}") + MyValidationLogger.Warn($"Error in frmValidation_load1: {ex.Message}") End Try Try @@ -219,7 +219,7 @@ Public Class frmValidator Location = My.Settings.frmValidatorPosition Else Try - Logger.Debug($"!! Invalid PositionData X({My.Settings.frmValidatorPosition.X}), Y({My.Settings.frmValidatorPosition.Y})") + MyValidationLogger.Debug($"!! Invalid PositionData X({My.Settings.frmValidatorPosition.X}), Y({My.Settings.frmValidatorPosition.Y})") Catch ex As Exception End Try @@ -242,7 +242,7 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Info($"Error loading position: {ex.Message}") + MyValidationLogger.Info($"Error loading position: {ex.Message}") End Try Dim _step = 0 @@ -254,7 +254,7 @@ Public Class frmValidator .ShowSettingButton = True }) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Try _step = 1 @@ -265,32 +265,32 @@ Public Class frmValidator DTVWCONTROLS_INDEX.Select(oExpression, "Y_LOC, X_LOC").CopyToDataTable(DTVWCONTROL_INDEX, LoadOption.PreserveChanges) _step = 3 - Logger.Debug("Profile Data loaded") + MyValidationLogger.Debug("Profile Data loaded") Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - Logger.Info(">> Error in LOADING profile-data: " & ex.Message, True) + MyValidationLogger.Info(">> Error in LOADING profile-data: " & ex.Message, True) Me.Close() End Try - Logger.Debug("frmValidation_Load finished till Step 3!") + MyValidationLogger.Debug("frmValidation_Load finished till Step 3!") Try If CURRENT_DT_PROFILE.Rows.Count = 0 Then - Logger.Info(">> ProfileData could not be loaded - Profile: : " & CURRENT_ProfilName, True) + MyValidationLogger.Info(">> ProfileData could not be loaded - Profile: : " & CURRENT_ProfilName, True) MsgBox("ProfileData could not be loaded - Profile: " & CURRENT_ProfilName, MsgBoxStyle.Critical, "Attention:") Me.Close() End If _step = 4 - Logger.Debug("Step 4") + MyValidationLogger.Debug("Step 4") If CURRENT_DT_PROFILE.Rows.Count > 1 Then MsgBox("More than 1 profile (" & CURRENT_DT_PROFILE.Rows.Count & ") returned!!", MsgBoxStyle.Critical, "Attention:") Else _step = 5 - Logger.Debug("Step 5") + MyValidationLogger.Debug("Step 5") If CURRENT_DT_PROFILE.Rows.Count = 1 Then _step = 6 - Logger.Debug("Step 6") + MyValidationLogger.Debug("Step 6") For Each oProfileRow As DataRow In CURRENT_DT_PROFILE.Rows PROFIL_FINISH_SQL = oProfileRow.Item("SQL_BTN_FINISH") PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX") @@ -371,11 +371,11 @@ Public Class frmValidator End If btnSave.Text = oProfileFinalText End If - Logger.Debug("Buttontext validation loaded") + MyValidationLogger.Debug("Buttontext validation loaded") Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - Logger.Info(">> Error loading final profile text: " & ex.Message, True) + MyValidationLogger.Info(">> Error loading final profile text: " & ex.Message, True) End Try Dim PROF_BTN_RE_CAPT = oProfileRow.Item("BTN_REJECT_CAPTION") Dim PROF_SQL_BTN_REJECT = oProfileRow.Item("SQL_BTN_REJECT") @@ -389,11 +389,11 @@ Public Class frmValidator - Logger.Debug($"oProfileRejectionText: " + oProfileRejectionText) - Logger.Debug($"oProfile_REJECT_SQL_REASONS: " + oProfile_REJECT_SQL_REASONS) - Logger.Debug($"oProfileNotResponsibleText: " + oProfileNotResponsibleText) - Logger.Debug($"oProfile_NOT_RESP_SQL: " + oProfile_NOT_RESP_SQL) - Logger.Debug($"oProfileRejectionText: " + oProfileRejectionText) + MyValidationLogger.Debug($"oProfileRejectionText: " + oProfileRejectionText) + MyValidationLogger.Debug($"oProfile_REJECT_SQL_REASONS: " + oProfile_REJECT_SQL_REASONS) + MyValidationLogger.Debug($"oProfileNotResponsibleText: " + oProfileNotResponsibleText) + MyValidationLogger.Debug($"oProfile_NOT_RESP_SQL: " + oProfile_NOT_RESP_SQL) + MyValidationLogger.Debug($"oProfileRejectionText: " + oProfileRejectionText) Dim functBtnReject As Boolean = False Dim functBtnNR As Boolean = False If oProfileRejectionText <> String.Empty And oProfile_REJECT_SQL_REASONS <> String.Empty Then @@ -405,7 +405,7 @@ Public Class frmValidator End If End If If functBtnReject = False And functBtnNR = False Then - Logger.Debug($"!Keine Ablehnung und Nicht zuständig Funktion konfiguriert!") + MyValidationLogger.Debug($"!Keine Ablehnung und Nicht zuständig Funktion konfiguriert!") SplitContainerReject_NotResp.Visible = False SplitContainerButtons.CollapsePanel = SplitCollapsePanel.None SplitContainerButtons.PanelVisibility = SplitPanelVisibility.Panel2 @@ -413,7 +413,7 @@ Public Class frmValidator SplitContainerButtons.CollapsePanel = SplitCollapsePanel.Panel1 SplitContainerReject_NotResp.Visible = True If functBtnReject = True And functBtnNR = True Then - Logger.Debug($"Nicht zuständig und Ablehnungs-Buttons werden eingeblendet!") + MyValidationLogger.Debug($"Nicht zuständig und Ablehnungs-Buttons werden eingeblendet!") SplitContainerReject_NotResp.CollapsePanel = SplitCollapsePanel.None SplitContainerButtons.PanelVisibility = SplitPanelVisibility.Both btnReject.Text = oProfileRejectionText @@ -427,7 +427,7 @@ Public Class frmValidator End If Else If functBtnNR = True Then - Logger.Debug($"Nicht zuständig Button wird eingeblendet!") + MyValidationLogger.Debug($"Nicht zuständig Button wird eingeblendet!") SplitContainerReject_NotResp.CollapsePanel = SplitCollapsePanel.Panel1 SplitContainerReject_NotResp.PanelVisibility = SplitPanelVisibility.Panel2 btnReject.Visible = False @@ -465,13 +465,13 @@ Public Class frmValidator End If Next - Logger.Debug(" >> profiledata saved:") - Logger.Debug(" >> finalProfile: " & finalProfile) - Logger.Debug(" >> Move2Folder: " & Move2Folder) - Logger.Debug(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE) + MyValidationLogger.Debug(" >> profiledata saved:") + MyValidationLogger.Debug(" >> finalProfile: " & finalProfile) + MyValidationLogger.Debug(" >> Move2Folder: " & Move2Folder) + MyValidationLogger.Debug(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE) PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST") - Logger.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) + MyValidationLogger.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) 'Delete Button anzeigen ja/nein If USER_RIGHT_FILE_DELETE = True Then bbtniDelete.Visibility = BarItemVisibility.Always @@ -486,7 +486,7 @@ Public Class frmValidator Else bbtniAnnotation.Visibility = BarItemVisibility.Never End If - Logger.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) + MyValidationLogger.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) Create_Controls() @@ -494,15 +494,15 @@ Public Class frmValidator End If 'oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput") - oErrMsgMissingInput = S.Bitte_validieren_Sie_die_rot_markierten_Felder_ + ' oErrMsgMissingInput = S.Bitte_validieren_Sie_die_rot_markierten_Felder_ - - Logger.Debug("frmValidation_Load finished!") + ' frmError.ShowDialog() + MyValidationLogger.Debug("frmValidation_Load finished!") Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - Logger.Info("Unexpected error in LOADING Profile-Data1: " & ex.Message) + MyValidationLogger.Info("Unexpected error in LOADING Profile-Data1: " & ex.Message) End Try End Sub @@ -523,14 +523,14 @@ Public Class frmValidator My.Settings.frmValidatorPosition = Me.Location My.Settings.Save() Catch ex As Exception - Logger.Error(ex) - Logger.Info("Error in Load FormLayout: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Error in Load FormLayout: " & ex.Message) End Try My.Settings.frmValidatorSize = Me.Size My.Settings.Save() If INACTIVITY_DURATION <> 0 Then frmMain.Timer_Inactivity_Reset_Disable("FormClosing") Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Try @@ -538,7 +538,7 @@ Public Class frmValidator DatabaseFallback.ExecuteNonQueryECM(oDel) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Error in delete jumped files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -552,7 +552,7 @@ Public Class frmValidator Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End If Reset_CurrentReferences() @@ -564,17 +564,17 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}") End Try Try _frmValidatorSearch.Close() Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub Sub Reset_CurrentReferences() - Logger.Info("Attention: Reset_CurrentReferences....") + MyValidationLogger.Info("Attention: Reset_CurrentReferences....") If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then DT_AdditionalSearches_Resultset_Docs.Clear() @@ -649,22 +649,13 @@ Public Class frmValidator rbnPgGroupAttmt.Visible = True Attmnt_bbtnitm_LoadonClick.Checked = CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK - Dim oPnl1Collapsed As Boolean = True - Dim oPnl2Collapsed As Boolean = True - If AdditionalDataResultsExist = True Then - oPnl1Collapsed = False - Else - oPnl1Collapsed = True - End If - oPnl2Collapsed = False Dim oConID As Int16 Dim oCommand As String - If Preload = False Then - If AdditionalDocResultsExist Then - - _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count, DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count, + If Preload = True Then + _frmValidatorSearch.TabPreload(BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count, DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count, BASEDATA_DT_PROFILE_SEARCHES_SQL, DT_FILTERED_PROFILE_SEARCHES_DOC) + If AdditionalDocResultsExist Then _frmValidatorSearch._DTDocSearches = DT_FILTERED_PROFILE_SEARCHES_DOC oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") oCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") @@ -681,17 +672,19 @@ Public Class frmValidator _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) End If + Else + MyValidationLogger.Info("There are additional searches configured, but PRELOAD is false. So they won't be load!") End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try bbtniRefreshSearches.Visibility = BarItemVisibility.Always Else - Logger.Debug("AdditionlSearhes result = false!") + MyValidationLogger.Debug("AdditionalData/Docresults = false!") bbtniRefreshSearches.Visibility = BarItemVisibility.Never rbnPgGroupAttmt.Visible = False End If @@ -711,7 +704,7 @@ Public Class frmValidator Exit Sub End If - Logger.Debug($"in LoadSQLData for ControlID [{pControlId}]...") + MyValidationLogger.Debug($"in LoadSQLData for ControlID [{pControlId}]...") Dim oDTforControl As DataTable = DTCONTROLS_WITH_SQL.Clone() Dim oExpression = $"GUID = {pControlId} AND PROFIL_ID = {CURRENT_ProfilGUID}" @@ -724,19 +717,19 @@ Public Class frmValidator Dim name As String = row.Item("NAME") Dim oGUID As String = row.Item("GUID") Dim oReadOnly As Boolean = row.Item("READ_ONLY") - Logger.Debug($"LoadSQLData for Control [{name}] with GUID [{oGUID}] ...") + MyValidationLogger.Debug($"LoadSQLData for Control [{name}] with GUID [{oGUID}] ...") 'If clsPatterns.HasComplexPatterns(row.Item("SQL_UEBERPRUEFUNG")) Then ' Logger.Debug($"SQL [{row.Item("SQL_UEBERPRUEFUNG")}] has complex patterns - GUID: {oGUID}") ' Continue For 'End If If oReadOnly = True Then - Logger.Debug("Control for Index [{0}] is read-only. Continuing.") + MyValidationLogger.Debug("Control for Index [{0}] is read-only. Continuing.") Continue For End If If IsDBNull(row.Item("CONNECTION_ID")) Then - Logger.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oGUID}") + MyValidationLogger.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oGUID}") Continue For End If @@ -762,7 +755,7 @@ Public Class frmValidator Continue For End If If clsPatterns.HasComplexPatterns(oSQLStatement) Then - Logger.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSQLStatement}]") + MyValidationLogger.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSQLStatement}]") Continue For End If @@ -771,7 +764,7 @@ Public Class frmValidator }) If IsNothing(oDTContent) Then - Logger.Warn($"SQL-Query [{oSQLStatement}] for control {control.Name} is invalid.") + MyValidationLogger.Warn($"SQL-Query [{oSQLStatement}] for control {control.Name} is invalid.") Exit Sub End If Dim oValue @@ -787,7 +780,7 @@ Public Class frmValidator lookup.Properties.DisplayMember = oDTContent.Columns.Item(0).ColumnName Catch ex As Exception - Logger.Warn("Error in LookUpLoadSQLData: " & ex.Message) + MyValidationLogger.Warn("Error in LookUpLoadSQLData: " & ex.Message) End Try ElseIf TypeOf control Is DevExpress.XtraEditors.TextEdit Or TypeOf control Is MemoEdit Then @@ -799,14 +792,14 @@ Public Class frmValidator DirectCast(control, BaseEdit).EditValue = value oValue = value Catch ex As Exception - Logger.Warn("Error in TextBoxLoadSQLData: " & ex.Message) + MyValidationLogger.Warn("Error in TextBoxLoadSQLData: " & ex.Message) End Try ElseIf TypeOf control Is Windows.Forms.ComboBox Then Try Dim oMyComboBox As Windows.Forms.ComboBox = control Dim oselectedIndex = oMyComboBox.SelectedIndex - Logger.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") + MyValidationLogger.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") Dim list As New List(Of String) For Each _row As DataRow In oDTContent.Rows @@ -817,7 +810,7 @@ Public Class frmValidator oMyComboBox.SelectedIndex = oselectedIndex Catch ex As Exception - Logger.Warn("Error in ComboBoxLoadSQLData: " & ex.Message) + MyValidationLogger.Warn("Error in ComboBoxLoadSQLData: " & ex.Message) End Try ElseIf TypeOf control Is GridControl Then @@ -844,12 +837,12 @@ Public Class frmValidator dataGridView.DataSource = oDataSource End If Catch ex As Exception - Logger.Warn("Error in GridControlSQLData: " & ex.Message) + MyValidationLogger.Warn("Error in GridControlSQLData: " & ex.Message) End Try End If Next Catch ex As Exception - Logger.Warn($"{ex.Message} - Loading ControlID: {pControlId}") + MyValidationLogger.Warn($"{ex.Message} - Loading ControlID: {pControlId}") MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub @@ -939,7 +932,7 @@ Public Class frmValidator Try oControlInfo = ClassControlCreator.PREFIX_TEXTBOX & "#" & oControlInfo - Logger.Debug($"[{oControlInfo}] - TXT Try to create control...") + MyValidationLogger.Debug($"[{oControlInfo}] - TXT Try to create control...") Dim txt As BaseEdit = ControlCreator.CreateExistingTextbox(oControlRow, False) If oIndexName = "@@DISPLAY_ONLY" Then @@ -950,9 +943,9 @@ Public Class frmValidator AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp oMyControl = txt - Logger.Debug($"[{oControlInfo}] - TXT Created!!") + MyValidationLogger.Debug($"[{oControlInfo}] - TXT Created!!") Catch ex As Exception - Logger.Warn($"Unexpected error in Create_Controls TXT [{oControlInfo}]: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Create_Controls TXT [{oControlInfo}]: {ex.Message}") End Try Case "LBL" oControlInfo = "LBL#" & oControlInfo @@ -961,7 +954,7 @@ Public Class frmValidator If LOG_PERF Then PerformanceLogger.Info("Create_Controls/ComboBox") oControlInfo = "CMB#" & oControlInfo - Logger.Debug($"[{oControlInfo}] - CMB Try to create control...") + MyValidationLogger.Debug($"[{oControlInfo}] - CMB Try to create control...") If oControlRow.Item("READ_ONLY") Then Dim cmbReadonly = ControlCreator.CreateExistingTextbox(oControlRow, False) oMyControl = cmbReadonly @@ -980,7 +973,7 @@ Public Class frmValidator End If End Sub - Logger.Debug("In add_ComboBox - GUID: " & oControlID) + MyValidationLogger.Debug("In add_ComboBox - GUID: " & oControlID) Dim oCONID As Integer Try oCONID = PreventNulletc(oControlRow.Item("CONNECTION_ID"), "Integer") @@ -995,14 +988,14 @@ Public Class frmValidator Catch ex As Exception oCommandSQL_UBPF = "" End Try - Logger.Debug("ConID <> String.Empty") + MyValidationLogger.Debug("ConID <> String.Empty") If oCONID > 0 And oCommandSQL_UBPF <> String.Empty Then - Logger.Debug("ConID > 0 And commandsql <> String.Empty") + MyValidationLogger.Debug("ConID > 0 And commandsql <> String.Empty") Try oSQL = PreventNulletc(oControlRow.Item("SQL_UEBERPRUEFUNG"), "String") If clsPatterns.HasOnlySimplePatterns(oSQL) Then - Logger.Debug("SQL HasOnlySimplePatterns!") + MyValidationLogger.Debug("SQL HasOnlySimplePatterns!") oSQL = clsPatterns.ReplaceInternalValues(oSQL) oSQL = clsPatterns.ReplaceControlValues(oSQL, PanelValidatorControl, True) 'Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConId(oSQL, oCONID, $"CreateControls - oControlID: {oControlID}") @@ -1017,15 +1010,15 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Warn($"Unexpected error in CMB GetValues SQL - Error: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in CMB GetValues SQL - Error: {ex.Message}") End Try Else - Logger.Debug("Else Row 571") + MyValidationLogger.Debug("Else Row 571") End If Else - Logger.Debug("AListe Handling") + MyValidationLogger.Debug("AListe Handling") Dim AListe As String = oControlRow.Item("CHOICE_LIST") - Logger.Debug("In add_ComboBox - AListe: " & AListe) + MyValidationLogger.Debug("In add_ComboBox - AListe: " & AListe) If AListe Is Nothing = False Then 'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe) Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe) @@ -1046,7 +1039,7 @@ Public Class frmValidator oMyControl = oComboBox End If - Logger.Debug($"[{oControlInfo}] - CMB CONTROL created") + MyValidationLogger.Debug($"[{oControlInfo}] - CMB CONTROL created") Case "DTP" oControlInfo = "DTP#" & oControlInfo @@ -1089,28 +1082,28 @@ Public Class frmValidator Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oMyControl.Name}%'" DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges) If oFilteredData.Rows.Count >= 1 Then - Logger.Debug($"createControlsLU - Found {oFilteredData.Rows.Count} Controls which are depending on {oMyControl.Name}") + MyValidationLogger.Debug($"createControlsLU - Found {oFilteredData.Rows.Count} Controls which are depending on {oMyControl.Name}") 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 AddHandler MyLookupControl.Properties.SelectedValuesChanged, AddressOf onLookUpselectedValue End If oExpression = $"SQL_ENABLE like '%#CTRL#{oMyControl.Name}%'" - DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges) - If oFilteredData.Rows.Count >= 1 Then - Logger.Debug($"createControlsLU - Found {oFilteredData.Rows.Count} Controls which' enable state is depending on {oMyControl.Name}") - 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 - AddHandler MyLookupControl.Properties.SelectedValuesChanged, AddressOf onLookUpselectedValue - End If + DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges) + If oFilteredData.Rows.Count >= 1 Then + MyValidationLogger.Debug($"createControlsLU - Found {oFilteredData.Rows.Count} Controls which' enable state is depending on {oMyControl.Name}") + 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 + AddHandler MyLookupControl.Properties.SelectedValuesChanged, AddressOf onLookUpselectedValue + End If - oFilteredData = DT_CONTROLS.Clone() - oExpression = $"GUID = {oControlRow.Item("GUID")} and Len(SET_CONTROL_DATA) > 0" - DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges) - If oFilteredData.Rows.Count = 1 Then - 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 - AddHandler MyLookupControl.Properties.SelectedValuesChanged, AddressOf onLookUpselectedValue_Control2Set - End If - oFilteredData = DT_CONTROLS.Clone() + oFilteredData = DT_CONTROLS.Clone() + oExpression = $"GUID = {oControlRow.Item("GUID")} and Len(SET_CONTROL_DATA) > 0" + DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges) + If oFilteredData.Rows.Count = 1 Then + 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 + AddHandler MyLookupControl.Properties.SelectedValuesChanged, AddressOf onLookUpselectedValue_Control2Set + End If + oFilteredData = DT_CONTROLS.Clone() ' End If @@ -1148,9 +1141,9 @@ Public Class frmValidator Dim oExpression = $"CONTROL_ID = {oControlRow.Item("GUID")}" DT_COLUMNS_GRID.Select(oExpression, "SEQUENCE").CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count >= 1 Then - Logger.Debug("We got a DTGRID_COLUMNS definition for [{0}] ", oControlInfo) + MyValidationLogger.Debug("We got a DTGRID_COLUMNS definition for [{0}] ", oControlInfo) Else - Logger.Debug("DTGRID_COLUMNS definition for control [{0}] does not contain any rows!", oControlInfo) + MyValidationLogger.Debug("DTGRID_COLUMNS definition for control [{0}] does not contain any rows!", oControlInfo) Continue For End If @@ -1167,7 +1160,7 @@ Public Class frmValidator AddHandler obutton.Click, AddressOf onCustomButtonClick oMyControl = obutton End Select - Logger.Debug($"[{oControlInfo}]: End of Select...") + MyValidationLogger.Debug($"[{oControlInfo}]: End of Select...") If TypeOf oMyControl IsNot Label Then listofControls.Add(oMyControl.Name) @@ -1188,17 +1181,17 @@ Public Class frmValidator st = New StackTrace(ex, True) 'Logger.Error(ex) Dim omsg = $"Unexpected Error in Create_Controls (Select Case) [{oControlInfo}] - ERROR: {ex.Message}" - Logger.Warn(omsg) + MyValidationLogger.Warn(omsg) If DEBUG = False Then MsgBox(omsg, MsgBoxStyle.Critical, "Attention:") End Try Next - Logger.Debug("Create_Controls finished!") + MyValidationLogger.Debug("Create_Controls finished!") Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) If DEBUG = False Then MsgBox("Error CreateControls: " & ex.Message, MsgBoxStyle.Critical, "Attention:") End Try End Sub @@ -1208,7 +1201,7 @@ Public Class frmValidator Dim oControlID = DirectCast(oMyGridView.GridControl.Tag, ClassControlCreator.ControlMetadata).Guid SaveDevExpressGridControl_Layout(CURRENT_ProfilGUID, oControlID, oMyGridView) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub @@ -1299,8 +1292,8 @@ Public Class frmValidator _DependingControl_In_Action = False End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Display SQL result for control: " & oRow.Item("NAME") & " - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Display SQL result for control: " & oRow.Item("NAME") & " - ERROR: " & ex.Message) End Try Next @@ -1310,8 +1303,8 @@ Public Class frmValidator ControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER) Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Eventhandler Variable SQL Result - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Eventhandler Variable SQL Result - ERROR: " & ex.Message) End Try If oTextBox.Name <> last_control.Name Then SendKeys.Send("{TAB}") @@ -1328,12 +1321,12 @@ Public Class frmValidator Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid Dim oSQL = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL_UEBERPRUEFUNG") If IsNothing(oSQL) Then - Logger.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING") + MyValidationLogger.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING") Exit Sub End If If Check_UpdateIndexe() = False Then - Logger.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click") + MyValidationLogger.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click") Exit Sub End If Override_SQLCommand = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL2") @@ -1389,13 +1382,13 @@ Public Class frmValidator Try OverrideAll = oDT_ACTIONS?.Rows(0).Item("OverrideAll") Catch ex As Exception - Logger.Warn($"Could not set OverrideAll {ex.Message}") + MyValidationLogger.Warn($"Could not set OverrideAll {ex.Message}") OverrideAll = False End Try If OverrideAll = True Then - Logger.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!") + MyValidationLogger.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!") End If - Logger.Debug($"ActionType [{oAction}]") + MyValidationLogger.Debug($"ActionType [{oAction}]") Select Case oAction.ToString.ToUpper Case "SetButton".ToUpper btnSave.Text = oCaption & " (F2)" @@ -1463,10 +1456,10 @@ Public Class frmValidator MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Case Else MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) - Logger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") + MyValidationLogger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") End Select Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Cursor = Cursors.Default @@ -1518,8 +1511,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Display SQL result for control: " & ROW.Item(0).ToString & " - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Display SQL result for control: " & ROW.Item(0).ToString & " - ERROR: " & ex.Message) End Try Next @@ -1527,14 +1520,14 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Eventhandler Variable SQL Result - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Eventhandler Variable SQL Result - ERROR: " & ex.Message) End Try End Sub Public Sub onLookUpselectedValue(sender As Object, SelectedValues As List(Of String)) Try - Logger.Debug("onLookUpselectedValue") + MyValidationLogger.Debug("onLookUpselectedValue") If _FormLoaded = False Then Exit Sub End If @@ -1548,15 +1541,15 @@ Public Class frmValidator LookupControl_EnablingControls(oLookup, SelectedValues) LookupControl_DependingColumn(oLookup, SelectedValues) Else - Logger.Debug("Attention: onLookUpselectedValue: SelectedValues.Count <> 1 ") + MyValidationLogger.Debug("Attention: onLookUpselectedValue: SelectedValues.Count <> 1 ") End If End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Catch ex As Exception - Logger.Warn("Unexpected error in onLookUpselectedValue - " + ex.Message) - Logger.Error(ex) + MyValidationLogger.Warn("Unexpected error in onLookUpselectedValue - " + ex.Message) + MyValidationLogger.Error(ex) End Try End Sub @@ -1586,13 +1579,13 @@ Public Class frmValidator End If Next Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub Public Sub onCheckBox_CheckedChange(sender As Object, e As EventArgs) - Logger.Debug("onCheckBox_CheckedChange") + MyValidationLogger.Debug("onCheckBox_CheckedChange") If _FormLoaded = False Then Exit Sub @@ -1605,7 +1598,7 @@ Public Class frmValidator SetControlValues_FromControl(oCheckbox) ControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub Public Sub onLookUpselectedValue_Control2Set(sender As Object, SelectedValues As List(Of String)) @@ -1613,7 +1606,7 @@ Public Class frmValidator If _FormLoaded = False Or PanelValidatorControl.Enabled = False Then Exit Sub End If - Logger.Debug("onLookUpselectedValue_Control2Set") + MyValidationLogger.Debug("onLookUpselectedValue_Control2Set") Dim oRepositoryItem As RepositoryItemLookupControl3 = sender Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit SetControlValues_FromControl(oLookup) @@ -1625,7 +1618,7 @@ Public Class frmValidator Dim oControlID = oControlMeta.Guid If _SetControlValue_In_Action = True Then - Logger.Debug("SetControlValue in action. Exiting.") + MyValidationLogger.Debug("SetControlValue in action. Exiting.") Exit Sub End If @@ -1635,20 +1628,20 @@ Public Class frmValidator CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count < 1 Then - Logger.Debug("SET_CONTROL_DATA is empty for control [{0}]. Exiting.", oControlName) + MyValidationLogger.Debug("SET_CONTROL_DATA is empty for control [{0}]. Exiting.", oControlName) Exit Sub End If Dim oRow As DataRow = oFilteredDatatable.Rows.Item(0) Dim oControlGUID2Set = oControlID Dim oControlname2Set = oRow.Item("NAME") - Logger.Debug($"Workin on SetControLValue for {oControlname2Set} ...") + MyValidationLogger.Debug($"Workin on SetControLValue for {oControlname2Set} ...") Dim oConnectionId = oRow.ItemEx("CONNECTION_ID", -1) Dim oControlDataSql = oRow.ItemEx("SET_CONTROL_DATA", String.Empty) If oConnectionId = -1 Or oControlDataSql = String.Empty Then - Logger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") + MyValidationLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") Exit Sub End If @@ -1701,7 +1694,7 @@ Public Class frmValidator Dim oControl As Control = oControlObject2Set Dim oMeta As ClassControlCreator.ControlMetadata = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata) - Logger.Debug($"Got the Control2Set: {oControlId2Set}..Setting the values..") + MyValidationLogger.Debug($"Got the Control2Set: {oControlId2Set}..Setting the values..") Select Case True @@ -1716,7 +1709,7 @@ Public Class frmValidator oControl.BackColor = oControlBackColor oControl.ForeColor = oControlFontColor Catch ex As Exception - Logger.Warn($"Error while Control2Set (TextEdit): {ex.Message}") + MyValidationLogger.Warn($"Error while Control2Set (TextEdit): {ex.Message}") End Try @@ -1733,7 +1726,7 @@ Public Class frmValidator oDependingLookup.Properties.SelectedValues = New List(Of String) From {oControlCaption} End If Catch ex As Exception - Logger.Warn($"Error while Control2Set (LookupControl3): {ex.Message}") + MyValidationLogger.Warn($"Error while Control2Set (LookupControl3): {ex.Message}") End Try Case oControl.GetType() = GetType(Windows.Forms.ComboBox) @@ -1761,7 +1754,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Warn($"Error while Control2Set (Combobox): {ex.Message}") + MyValidationLogger.Warn($"Error while Control2Set (Combobox): {ex.Message}") End Try @@ -1783,12 +1776,12 @@ Public Class frmValidator End Try Catch ex As Exception - Logger.Warn($"Error while Control2Set (Checkbox): {ex.Message}") + MyValidationLogger.Warn($"Error while Control2Set (Checkbox): {ex.Message}") End Try Case Else - Logger.Warn("SetControlData used on unsupported control") + MyValidationLogger.Warn("SetControlData used on unsupported control") End Select @@ -1797,11 +1790,11 @@ Public Class frmValidator End If If oFound = False Then - Logger.Debug($"Could not find the Control2Set with ID {oControlGUID2Set} on panel!!!") + MyValidationLogger.Debug($"Could not find the Control2Set with ID {oControlGUID2Set} on panel!!!") End If Catch ex As Exception - Logger.Error(ex) - Logger.Warn($"Error while Control2Set for [{oControlname2Set}]: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Warn($"Error while Control2Set for [{oControlname2Set}]: " & ex.Message) Finally _SetControlValue_In_Action = False End Try @@ -1811,22 +1804,22 @@ Public Class frmValidator Dim oLOOKUPValue = SelectedValues.Item(0 ) Dim oLOOKUPName = LookupControl.Name - Logger.Debug($"oLOOKUPValue is [{oLOOKUPValue}]!") + MyValidationLogger.Debug($"oLOOKUPValue is [{oLOOKUPValue}]!") Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid Dim oFilteredDatatable As DataTable = DT_CONTROLS.Clone() Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oLOOKUPName}%'" DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count > 0 Then - Logger.Debug($"We got {oFilteredDatatable.Rows.Count} depending controls!!") + MyValidationLogger.Debug($"We got {oFilteredDatatable.Rows.Count} depending controls!!") Else - Logger.Debug($"Sorry NO depending controls!!") + MyValidationLogger.Debug($"Sorry NO depending controls!!") End If For Each oRowDependingControl As DataRow In oFilteredDatatable.Rows Dim oDEPENDING_GUID = oRowDependingControl.Item("GUID") Dim oDEPENDING_CtrlName = oRowDependingControl.Item("NAME") - Logger.Debug($"Control {oDEPENDING_CtrlName} is depending on lookUp {oLOOKUPName}..") + MyValidationLogger.Debug($"Control {oDEPENDING_CtrlName} is depending on lookUp {oLOOKUPName}..") If _DependingControl_In_Action = True Then - Logger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + MyValidationLogger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") Exit Sub End If If Not IsDBNull(oRowDependingControl.Item("CONNECTION_ID")) And Not IsDBNull(oRowDependingControl.Item("SQL_UEBERPRUEFUNG")) Then @@ -1844,7 +1837,7 @@ Public Class frmValidator For Each oControl As Control In PanelValidatorControl.Controls If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then oFound = True - Logger.Debug($"Got the depending control ID:{oDEPENDING_GUID}..Setting the values..") + MyValidationLogger.Debug($"Got the depending control ID:{oDEPENDING_GUID}..Setting the values..") Select Case True Case oControl.GetType() = GetType(DevExpress.XtraEditors.TextEdit) Or oControl.GetType() = GetType(MemoEdit) Try @@ -1854,12 +1847,12 @@ Public Class frmValidator 'oControl.Text = oValue DirectCast(oControl, DevExpress.XtraEditors.TextEdit).EditValue = oValue Catch ex As Exception - Logger.Warn($"Unexpected error in Checking oTEXT: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Checking oTEXT: {ex.Message}") End Try Catch ex As Exception - Logger.Warn($"Unexpected error in Dim oTEXT = oDTDEPENDING_RESULT.Rows(0).Item(0): {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Dim oTEXT = oDTDEPENDING_RESULT.Rows(0).Item(0): {ex.Message}") End Try Dim oColor @@ -1901,7 +1894,7 @@ Public Class frmValidator End Try Catch ex As Exception - Logger.Warn($"Unexpected error in Checking oCheckBoxDependingControlLOOKUP: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Checking oCheckBoxDependingControlLOOKUP: {ex.Message}") End Try @@ -1913,20 +1906,20 @@ Public Class frmValidator Next If oFound = False Then - Logger.Debug($"Could not find the depending Control with ID {oDEPENDING_GUID} on panel!!!") + MyValidationLogger.Debug($"Could not find the depending Control with ID {oDEPENDING_GUID} on panel!!!") End If Catch ex As Exception - Logger.Warn($"Error while setting depending control-value for [{oDEPENDING_CtrlName}]: " & ex.Message) + MyValidationLogger.Warn($"Error while setting depending control-value for [{oDEPENDING_CtrlName}]: " & ex.Message) _DependingControl_In_Action = False End Try Else - Logger.Warn($"Datatable for Depending Controls was nothing! Check the SQL [{oSqlCommand}]") + MyValidationLogger.Warn($"Datatable for Depending Controls was nothing! Check the SQL [{oSqlCommand}]") End If SendKeys.Send("{TAB}") _ControlHandleStarted = True Else - Logger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") + MyValidationLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") End If @@ -1938,22 +1931,22 @@ Public Class frmValidator End Sub Private Sub CheckBox_DependingControls(pCheckbox As CheckBox) Dim oCheckboxname = pCheckbox.Name - Logger.Debug($"pCheckStateTrue [{pCheckbox.Checked}]!") + MyValidationLogger.Debug($"pCheckStateTrue [{pCheckbox.Checked}]!") Dim oControlID = DirectCast(pCheckbox.Tag, ClassControlCreator.ControlMetadata).Guid Dim oFilteredDatatable As DataTable = DT_CONTROLS.Clone() Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oCheckboxname}%'" DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count > 0 Then - Logger.Debug($"We got {oFilteredDatatable.Rows.Count} depending controls!!") + MyValidationLogger.Debug($"We got {oFilteredDatatable.Rows.Count} depending controls!!") Else - Logger.Debug($"Sorry NO depending controls!!") + MyValidationLogger.Debug($"Sorry NO depending controls!!") End If For Each oRowDependingControl As DataRow In oFilteredDatatable.Rows Dim oDEPENDING_GUID = oRowDependingControl.Item("GUID") Dim oDEPENDING_CtrlName = oRowDependingControl.Item("NAME") - Logger.Debug($"Control {oDEPENDING_CtrlName} is depending on lookUp {oCheckboxname}..") + MyValidationLogger.Debug($"Control {oDEPENDING_CtrlName} is depending on lookUp {oCheckboxname}..") If _DependingControl_In_Action = True Then - Logger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + MyValidationLogger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") Exit Sub End If If Not IsDBNull(oRowDependingControl.Item("CONNECTION_ID")) And Not IsDBNull(oRowDependingControl.Item("SQL_UEBERPRUEFUNG")) Then @@ -1971,7 +1964,7 @@ Public Class frmValidator For Each oControl As Control In PanelValidatorControl.Controls If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then oFound = True - Logger.Debug($"Got the depending control ID:{oDEPENDING_GUID}..Setting the values..") + MyValidationLogger.Debug($"Got the depending control ID:{oDEPENDING_GUID}..Setting the values..") Select Case True Case oControl.GetType = GetType(DevExpress.XtraEditors.TextEdit) Or oControl.GetType = GetType(MemoEdit) Try @@ -1981,11 +1974,11 @@ Public Class frmValidator 'oControl.Text = oValue DirectCast(oControl, DevExpress.XtraEditors.TextEdit).EditValue = oValue Catch ex As Exception - Logger.Warn($"Unexpected error in Checking oTEXT: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Checking oTEXT: {ex.Message}") End Try Catch ex As Exception - Logger.Warn($"Unexpected error in Dim oTEXT = oDTDEPENDING_RESULT.Rows(0).Item(0): {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Dim oTEXT = oDTDEPENDING_RESULT.Rows(0).Item(0): {ex.Message}") End Try Dim oColor @@ -2027,7 +2020,7 @@ Public Class frmValidator End Try Catch ex As Exception - Logger.Warn($"Unexpected error in Checking oCheckBoxDependingControlCHK: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Checking oCheckBoxDependingControlCHK: {ex.Message}") End Try @@ -2038,22 +2031,22 @@ Public Class frmValidator Next If oFound = False Then - Logger.Debug($"Could not find the depending Control with ID {oDEPENDING_GUID} on panel!!!") + MyValidationLogger.Debug($"Could not find the depending Control with ID {oDEPENDING_GUID} on panel!!!") End If Catch ex As Exception - Logger.Warn($"Error while setting depending control-value for [{oDEPENDING_CtrlName}]: " & ex.Message) + MyValidationLogger.Warn($"Error while setting depending control-value for [{oDEPENDING_CtrlName}]: " & ex.Message) _DependingControl_In_Action = False End Try SendKeys.Send("{TAB}") _ControlHandleStarted = True Else - Logger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") + MyValidationLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") End If Next End Sub Private Sub LookupControl_EnablingControls(LookupControl As LookupControl3, SelectedValues As List(Of String)) Dim oLOOKUPValue = SelectedValues.Item(0) - Logger.Debug($"LookupControl_EnablingControls [{LookupControl.Name()}] - oLOOKUPValue is [{oLOOKUPValue}]!") + MyValidationLogger.Debug($"LookupControl_EnablingControls [{LookupControl.Name()}] - oLOOKUPValue is [{oLOOKUPValue}]!") Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid Controls2beEnabled(LookupControl.Name) @@ -2087,7 +2080,7 @@ Public Class frmValidator }) If Not IsNothing(oDTDEPENDING_RESULT) Then - Logger.Debug($"Trying to fill the DropDown (DC) for ControlID [{oDEPENDING_CONTROL_ID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ") + MyValidationLogger.Debug($"Trying to fill the DropDown (DC) for ControlID [{oDEPENDING_CONTROL_ID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ") For Each oControl As Control In PanelValidatorControl.Controls Dim oControlId = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid @@ -2100,7 +2093,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) _DependingColumn_In_Action = False End Try Next @@ -2132,7 +2125,7 @@ Public Class frmValidator }) If Not IsNothing(oDTDEPENDING_RESULT) Then - Logger.Debug($"Trying to fill the DropDown (DC) for ControlID [{oDEPENDING_CONTROL_ID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ") + MyValidationLogger.Debug($"Trying to fill the DropDown (DC) for ControlID [{oDEPENDING_CONTROL_ID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ") For Each oControl As Control In PanelValidatorControl.Controls Dim oControlId = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_CONTROL_ID Then @@ -2144,7 +2137,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) _DependingColumn_In_Action = False End Try Next @@ -2187,8 +2180,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Display SQL result (Combobox) for control: (" & _Step.ToString & ")" & ROW.Item(0).ToString & " - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Display SQL result (Combobox) for control: (" & _Step.ToString & ")" & ROW.Item(0).ToString & " - ERROR: " & ex.Message) End Try Next End If @@ -2199,8 +2192,8 @@ Public Class frmValidator SetControlValues_FromControl(oCombobox) Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message) End Try _ControlHandleStarted = True End If @@ -2217,16 +2210,16 @@ Public Class frmValidator Dim oExpression = $"SQL_ENABLE like '%#CTRL#{pControlName}%'" DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count > 0 Then - Logger.Debug($"We got {oFilteredDatatable.Rows.Count} controls which got enable definitions!!") + MyValidationLogger.Debug($"We got {oFilteredDatatable.Rows.Count} controls which got enable definitions!!") Else - Logger.Debug($"Sorry NO controls with enabling definition!!") + MyValidationLogger.Debug($"Sorry NO controls with enabling definition!!") End If For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") - Logger.Debug($"Control {oENABLE_CtrlName} is depending on Control: {pControlName}..") + MyValidationLogger.Debug($"Control {oENABLE_CtrlName} is depending on Control: {pControlName}..") If _DependingControl_In_Action = True Then - Logger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + MyValidationLogger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") Exit Sub End If If Not IsDBNull(oRowEnablingControl.Item("CONNECTION_ID")) And Not IsDBNull(oRowEnablingControl.Item("SQL_ENABLE")) Then @@ -2246,7 +2239,7 @@ Public Class frmValidator For Each oControl As Control In PanelValidatorControl.Controls If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oENABLE_GUID Then oFound = True - Logger.Debug($"Got the depending control ID:{oENABLE_GUID}..Setting enabled/Disabled...") + MyValidationLogger.Debug($"Got the depending control ID:{oENABLE_GUID}..Setting enabled/Disabled...") oControl.Enabled = oENABLERESULT _DependingControl_In_Action = False Exit For @@ -2255,19 +2248,19 @@ Public Class frmValidator Next If oFound = False Then - Logger.Debug($"Could not find the enabling Control with ID {oENABLE_GUID} on panel!!!") + MyValidationLogger.Debug($"Could not find the enabling Control with ID {oENABLE_GUID} on panel!!!") End If Catch ex As Exception - Logger.Warn($"Error while setting enabling control-value for [{oENABLE_CtrlName}]: " & ex.Message) + MyValidationLogger.Warn($"Error while setting enabling control-value for [{oENABLE_CtrlName}]: " & ex.Message) _DependingControl_In_Action = False End Try Else - Logger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") + MyValidationLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") End If Next Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub 'Private Sub Controls2beDisabled() @@ -2300,14 +2293,14 @@ Public Class frmValidator Dim oExpression = $"LEN(SQL_ENABLE_ON_LOAD) > 0" DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count > 0 Then - Logger.Debug($"We got {oFilteredDatatable.Rows.Count} controls which need to be checked dis/enable on load!") + MyValidationLogger.Debug($"We got {oFilteredDatatable.Rows.Count} controls which need to be checked dis/enable on load!") End If For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") For Each oControl As Control In PanelValidatorControl.Controls If oENABLE_GUID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid Then - Logger.Debug($"Found the Control on panel which needs to be checked [{oENABLE_GUID}]...") + MyValidationLogger.Debug($"Found the Control on panel which needs to be checked [{oENABLE_GUID}]...") 'Dim oSqlCommand = IIf(IsDBNull(oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD")), "", oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD")) 'Dim oConID = oRowEnablingControl.Item("SQL_ENABLE_ON_LOAD_CONID") @@ -2319,22 +2312,22 @@ Public Class frmValidator Dim oResult = DatabaseFallback.GetScalarValueWithConnection(oSqlCommand, oConnectionId) Try - Logger.Debug($"Result of Enable SQL [{oResult}]...") + MyValidationLogger.Debug($"Result of Enable SQL [{oResult}]...") oControl.Enabled = oResult Catch ex As Exception - Logger.Warn($"Error en/disabling control onLoad: [{ex.Message}]") + MyValidationLogger.Warn($"Error en/disabling control onLoad: [{ex.Message}]") End Try End If Next Next Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String) Try - Logger.Debug("Setting Values for Control [{0}]", displayboxname) + MyValidationLogger.Debug("Setting Values for Control [{0}]", displayboxname) 'Dim oResultTable As DataTable = ClassDatabase.Return_Datatable_ConId(sqlCommand, sqlConnection) Dim oResultTable As DataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(sqlCommand, DatabaseType.ECM) With { @@ -2342,15 +2335,15 @@ Public Class frmValidator }) If Not IsNothing(oResultTable) Then - Logger.Debug("Result Table has [{0}] rows", oResultTable.Rows.Count) - Logger.Debug("Result Table has [{0}] columns", oResultTable.Columns.Count) + MyValidationLogger.Debug("Result Table has [{0}] rows", oResultTable.Rows.Count) + MyValidationLogger.Debug("Result Table has [{0}] columns", oResultTable.Columns.Count) 'Ist das Control ein Control was mehrfachwerte enthalten kann If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then - Logger.Debug("Control is Multivalue") + MyValidationLogger.Debug("Control is Multivalue") If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then - Logger.Debug("Filling Combobox with Results") + MyValidationLogger.Debug("Filling Combobox with Results") Dim oCombobox As Windows.Forms.ComboBox = PanelValidatorControl.Controls(displayboxname) @@ -2358,7 +2351,7 @@ Public Class frmValidator Exit Sub End If - Logger.Debug("Control exists, setting results.") + MyValidationLogger.Debug("Control exists, setting results.") oCombobox.DataSource = Nothing oCombobox.DataSource = oResultTable @@ -2366,7 +2359,7 @@ Public Class frmValidator oCombobox.ValueMember = oResultTable.Columns(0).ColumnName ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Then - Logger.Debug("Filling Lookup Control with Results") + MyValidationLogger.Debug("Filling Lookup Control with Results") Dim oLookup As LookupControl3 = PanelValidatorControl.Controls(displayboxname) @@ -2374,28 +2367,28 @@ Public Class frmValidator Exit Sub End If - Logger.Debug("Control exists, setting results.") + MyValidationLogger.Debug("Control exists, setting results.") oLookup.Properties.DataSource = Nothing oLookup.Properties.DataSource = oResultTable Else 'not implemented - Logger.Warn("Depending_Control_Set_Result for [{0}] NOT IMPLEMENTED", displayboxname) + MyValidationLogger.Warn("Depending_Control_Set_Result for [{0}] NOT IMPLEMENTED", displayboxname) End If Else If oResultTable.Rows.Count = 1 Then PanelValidatorControl.Controls(displayboxname).Text = oResultTable.Rows(0).Item(0).ToString Else PanelValidatorControl.Controls(displayboxname).Text = "RESULT = resultDT.Rows.Count <> 1" - Logger.Info(">> Datatable-SQL: " & sqlCommand) + MyValidationLogger.Info(">> Datatable-SQL: " & sqlCommand) End If End If Else - Logger.Warn("Result Table is nothing!") + MyValidationLogger.Warn("Result Table is nothing!") End If Catch ex As Exception - Logger.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message) + MyValidationLogger.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message) MsgBox("Unexpected error in Depending_Control_Set_Result: " & ex.Message, MsgBoxStyle.Critical) End Try End Sub @@ -2417,7 +2410,7 @@ Public Class frmValidator If dr.Item("PROFIL_ID") = CURRENT_ProfilGUID And dr.Item("CTRL_NAME") = control.Name Then Dim check = dr.Item("SQL_UEBERPRUEFUNG") If IsDBNull(check) Then - Logger.Debug("SQL Check is not configured!") + MyValidationLogger.Debug("SQL Check is not configured!") Return True End If If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then @@ -2436,8 +2429,8 @@ Public Class frmValidator End If Next Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected error in CheckValueExists:" & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected error in CheckValueExists:" & ex.Message) Return False End Try End Function @@ -2456,7 +2449,7 @@ Public Class frmValidator End Function Function Get_Next_GUID() As Integer Try - Logger.Debug("Get_Next_GUID...") + MyValidationLogger.Debug("Get_Next_GUID...") Dim oNewGUID As Integer Dim oBIT As Integer = 0 If PROFIL_sortbynewest = True Then @@ -2471,27 +2464,27 @@ Public Class frmValidator Try oNewGUID = oDT.Rows(0).Item(0) Catch ex As Exception - Logger.Warn($">> Attention: in GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") - Logger.Warn($"ERRORMESSAGE [{ex.Message}]") + MyValidationLogger.Warn($">> Attention: in GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") + MyValidationLogger.Warn($"ERRORMESSAGE [{ex.Message}]") End Try Try CURRENT_DOC_ID = oDT.Rows(0).Item(1) - Logger.Debug($"Get_Next_GUID: CURRENT_DOC_ID [{CURRENT_DOC_ID}]...") + MyValidationLogger.Debug($"Get_Next_GUID: CURRENT_DOC_ID [{CURRENT_DOC_ID}]...") Catch ex As Exception - Logger.Warn($">> Attention: in GetNextGUID - Could not get the next DocID - SQL [{oSQL}]") - Logger.Warn($"ERRORMESSAGE [{ex.Message}]") + MyValidationLogger.Warn($">> Attention: in GetNextGUID - Could not get the next DocID - SQL [{oSQL}]") + MyValidationLogger.Warn($"ERRORMESSAGE [{ex.Message}]") End Try Try Amount_Docs2Validate = oDT.Rows(0).Item(2) - Logger.Debug($"Get_Next_GUID: Amount_Docs2Validate [{Amount_Docs2Validate}]...") + MyValidationLogger.Debug($"Get_Next_GUID: Amount_Docs2Validate [{Amount_Docs2Validate}]...") Catch ex As Exception Amount_Docs2Validate = 0 - Logger.Warn("Amount_Docs2Validate Error: " & ex.Message) + MyValidationLogger.Warn("Amount_Docs2Validate Error: " & ex.Message) End Try Else - Logger.Info($">> Attention: GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") + MyValidationLogger.Info($">> Attention: GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") oNewGUID = 0 Return oNewGUID End If @@ -2501,18 +2494,18 @@ Public Class frmValidator CURRENT_DOC_PATH = "" CURRENT_WMFILE = Nothing If oNewGUID > 0 Then - Logger.Debug("newGUID: " & oNewGUID.ToString) + MyValidationLogger.Debug("newGUID: " & oNewGUID.ToString) ElseIf oNewGUID <> 0 Then - Logger.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)") + MyValidationLogger.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)") oNewGUID = 0 End If Return oNewGUID Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) oErrMsgMissingInput = "Unexpected error in Get_Next_GUID: " & ex.Message - Logger.Info(">> Unexpected error in Get_Next_GUID:: " & ex.Message, True) + MyValidationLogger.Info(">> Unexpected error in Get_Next_GUID:: " & ex.Message, True) Return 0 End Try @@ -2521,7 +2514,7 @@ Public Class frmValidator Private Function CreateWMObject() As String - Logger.Debug($"in GetWMDocFileString...'") + MyValidationLogger.Debug($"in GetWMDocFileString...'") Dim oWMOwnPath As String If WM_AHWF_docPath <> String.Empty Then @@ -2531,17 +2524,17 @@ Public Class frmValidator oWMOwnPath = WMDocPathWindows.Replace(WMSUFFIX, "") End If - Logger.Debug($"oWMOwnPath: {oWMOwnPath}") + MyValidationLogger.Debug($"oWMOwnPath: {oWMOwnPath}") Try Dim oNormalizedPath = WINDREAM_MOD.GetNormalizedPath(oWMOwnPath, 1) CURRENT_WMFILE = WINDREAM_MOD.Session.GetWMObjectByPath(WMEntity.WMEntityDocument, oNormalizedPath) - Logger.Debug("CURRENT_WMFILE: [{0}]", CURRENT_WMFILE) + MyValidationLogger.Debug("CURRENT_WMFILE: [{0}]", CURRENT_WMFILE) Return True Catch ex As Exception Dim _err1 As Boolean = False - Logger.Error(ex) - Logger.Info("Unexpected error creating WMObject(1) in GetWMDocFileString: " & ex.Message) - Logger.Info("Error Number: " & Err.Number.ToString) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected error creating WMObject(1) in GetWMDocFileString: " & ex.Message) + MyValidationLogger.Info("Error Number: " & Err.Number.ToString) errormessage = $"Could not create a WMObject(1) for [{oWMOwnPath}]!" frmError.ShowDialog() Return False @@ -2565,30 +2558,30 @@ Public Class frmValidator If File.Exists(oResult) = False Then Dim oSQL = $"SELECT dbo.FNPM_GET_FILEPATH ({CURRENT_DOC_GUID},{_CheckStandard})" oResult = DatabaseFallback.GetScalarValueECM(oSQL) - Logger.Debug($"Checking file 0 [{oResult}] exists?...") + MyValidationLogger.Debug($"Checking file 0 [{oResult}] exists?...") DocPathWindows = oResult - Logger.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...") + MyValidationLogger.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...") oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" oResult = DatabaseFallback.GetScalarValueECM(oSQL) - Logger.Debug($"Checking file 1[{oResult}] exists?...") + MyValidationLogger.Debug($"Checking file 1[{oResult}] exists?...") If File.Exists(oResult) = False Then - Logger.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!") + MyValidationLogger.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!") DocPathWindows = oResult - Logger.Warn($"GetDocPathWindows: File [{oResult}] not existing!") + MyValidationLogger.Warn($"GetDocPathWindows: File [{oResult}] not existing!") Return False End If End If Else oResult = ClassConstants.OpModeFS_ZF - Logger.Debug($"GetDocPathWindows: Filestore is {ClassConstants.OpModeFS_ZF}") + MyValidationLogger.Debug($"GetDocPathWindows: Filestore is {ClassConstants.OpModeFS_ZF}") End If WMDocPathWindows = oResult CURRENT_DOC_PATH = WMDocPathWindows - Logger.Info($"GetWMDocPathWindows CURRENT_DOC_PATH: {CURRENT_DOC_PATH}") + MyValidationLogger.Info($"GetWMDocPathWindows CURRENT_DOC_PATH: {CURRENT_DOC_PATH}") Return True Catch ex As Exception WMDocPathWindows = "" @@ -2606,10 +2599,10 @@ Public Class frmValidator oSQl = oSQl.Replace("@DOC_GUID", CURRENT_DOC_GUID) oSQl = oSQl.Replace("@DOC_ID", CURRENT_DOC_ID) oSQl = oSQl.Replace("@DocID", CURRENT_DOC_ID) - Logger.Debug($"Load_IDB_DOC_DATA SQL: {oSQl}") + MyValidationLogger.Debug($"Load_IDB_DOC_DATA SQL: {oSQl}") IDB_DT_DOC_DATA = DatabaseFallback.GetDatatableECM(oSQl) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub @@ -2625,13 +2618,13 @@ Public Class frmValidator OverrideAll = False 'Me.lblerror.Visible = False _Indexe_Loaded = False - Logger.Debug("In Load_Next_Document") + MyValidationLogger.Debug("In Load_Next_Document") Try If first = True Then - Logger.Debug("First Document") + MyValidationLogger.Debug("First Document") CURRENT_WMFILE = Nothing Else - Logger.Debug("Following Document ") + MyValidationLogger.Debug("Following Document ") End If ' Controls nicht beim ersten Laden leeren @@ -2645,14 +2638,14 @@ Public Class frmValidator ' Case "first" ' Case "last" 'End Select - Logger.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") + MyValidationLogger.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") If CURRENT_JUMP_DOC_GUID = 0 Then CURRENT_DOC_GUID = Get_Next_GUID() - Logger.Debug($"CURRENT_JUMP_DOC_GUID = 0 ## NEW CURRENT_DOC_GUID: {CURRENT_DOC_GUID}'") + MyValidationLogger.Debug($"CURRENT_JUMP_DOC_GUID = 0 ## NEW CURRENT_DOC_GUID: {CURRENT_DOC_GUID}'") ElseIf first = False Then CURRENT_DOC_GUID = 0 End If - Logger.Info("LoadNextDocument - Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") + MyValidationLogger.Info("LoadNextDocument - Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") If CURRENT_DOC_GUID > 0 Then If (OPERATION_MODE_FS = ClassConstants.OpModeFS_PWM Or OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM) And GetDocPathWindows(0) = False Then SetStatusLabel($"File not accessible: {DocPathWindows}", "DarkOrange") @@ -2664,11 +2657,11 @@ Public Class frmValidator Else Load_IDB_DOC_DATA() If IsNothing(IDB_DT_DOC_DATA) Then - Logger.Warn("ATTENTION: IDB-Data is nothing. Check the IDB_DOC_DATA_SQL Variable Source") + MyValidationLogger.Warn("ATTENTION: IDB-Data is nothing. Check the IDB_DOC_DATA_SQL Variable Source") Exit Sub Else If IDB_DT_DOC_DATA.Rows.Count = 1 Then - Logger.Debug("Got one IDB DocData Result") + MyValidationLogger.Debug("Got one IDB DocData Result") End If End If End If @@ -2691,7 +2684,7 @@ Public Class frmValidator bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID - Logger.Debug("AllDocInfo created...") + MyValidationLogger.Debug("AllDocInfo created...") If IDB_ACTIVE = False Then oErrMsgMissingInput = Windream_get_Doc_info() Else @@ -2702,9 +2695,9 @@ Public Class frmValidator If oErrMsgMissingInput = "" Then If WMDocPathWindows <> String.Empty Or OPERATION_MODE_FS = ClassConstants.OpModeFS_ZF Then - Logger.Debug($"Operationmode is {ClassConstants.OpModeFS_ZF}! Initializing Viewer ...") + MyValidationLogger.Debug($"Operationmode is {ClassConstants.OpModeFS_ZF}! Initializing Viewer ...") LoadDocument_DDViewer() - Logger.Debug("Viewer loaded!!") + MyValidationLogger.Debug("Viewer loaded!!") If Current_Document.Extension <> "pdf" Then bbtniAnnotation.Visibility = BarItemVisibility.Never End If @@ -2716,7 +2709,7 @@ Public Class frmValidator LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Next - Logger.Debug("Indexmask loaded") + MyValidationLogger.Debug("Indexmask loaded") 'Nun loggen das das Profil geladen wurde If PROFIL_LOGINDEX <> "" Then @@ -2739,10 +2732,10 @@ Public Class frmValidator frmError.ShowDialog() Else Dim oMsg = S.Ende_des_Profils___Keine_weiteren_Vorgänge - Logger.Info(oMsg) - Logger.Debug(oMsg) + MyValidationLogger.Info(oMsg) + MyValidationLogger.Debug(oMsg) activate_controls(True) - Logger.Debug("Closing the form...") + MyValidationLogger.Debug("Closing the form...") Me.Close() End If End If @@ -2750,6 +2743,8 @@ Public Class frmValidator Dim oCurrency As String If PROFIL_CURRENCY_ATTRIBUTE <> "" Then oCurrency = GetVariableValuefromSource(PROFIL_CURRENCY_ATTRIBUTE, 1, False) + Else + oCurrency = "EUR" End If If Not IsNothing(oCurrency) Then @@ -2761,16 +2756,16 @@ Public Class frmValidator Try oCurrency = oCurrency.ToString Catch ex As Exception - Logger.Warn($"Unexpected error in Converting oCurreny to string: " & ex.Message) + MyValidationLogger.Warn($"Unexpected error in Converting oCurreny to string: " & ex.Message) oCurrency = "EUR" End Try End If If oCurrency <> String.Empty Then - If oCurrency.ToString.Length = 2 Then - Logger.Debug("oCurrency-Length = 2 - Setting to EUR") + If oCurrency.ToString.Length <> 3 Then + MyValidationLogger.Info("oCurrency-Length = 3 - Setting to EUR") oCurrency = "EUR" End If - Logger.Debug($"oCurrency = {oCurrency}") + MyValidationLogger.Debug($"oCurrency = {oCurrency}") For Each oControl As Control In PanelValidatorControl.Controls Try Dim oMeta = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata) @@ -2812,33 +2807,33 @@ Public Class frmValidator Next End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Next Else - Logger.Warn($"oCurrency is String.empty! ") + MyValidationLogger.Warn($"oCurrency is String.empty! ") End If Else - Logger.Warn($"oCurrency is Nothing - Check PROFIL_CURRENCY_ATTRIBUTE! ") + MyValidationLogger.Warn($"oCurrency is Nothing - Check PROFIL_CURRENCY_ATTRIBUTE! ") End If Catch ex As Exception - Logger.Warn($"Unexpected error in display format Currency: " & ex.Message) + MyValidationLogger.Warn($"Unexpected error in display format Currency: " & ex.Message) End Try Try Show_WF_Messages(False) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try - Logger.Debug("frmValidator: LoadNextDocument finished!") + MyValidationLogger.Debug("frmValidator: LoadNextDocument finished!") Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) errormessage = "unexpected error in Load_Next_Document:" & ex.Message My.Settings.Save() - Logger.Info("unexpected error in Load_Next_Document: " & ex.Message) + MyValidationLogger.Info("unexpected error in Load_Next_Document: " & ex.Message) frmError.ShowDialog() End Try End Sub @@ -2876,7 +2871,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub Sub LoadDocument_DDViewer() @@ -2889,7 +2884,7 @@ Public Class frmValidator End If Current_Document = oDocument Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) Exit Sub End Try If ActiveWorkflowType = ConstAHWorkflow_BlindFile Or PROFILE_SHOW_DOCUMENT = False Then @@ -2924,11 +2919,11 @@ Public Class frmValidator End Sub Sub activate_controls(pStatus As Boolean) Try - Logger.Debug("Sub activate_controls - status = " + pStatus.ToString) + MyValidationLogger.Debug("Sub activate_controls - status = " + pStatus.ToString) Me.PanelValidatorControl.Enabled = pStatus Me.btnSave.Enabled = pStatus Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End Sub @@ -2945,13 +2940,13 @@ Public Class frmValidator 'End If Try - Logger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT}]...") + MyValidationLogger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT}]...") CURRENT_DOC_CREATION_DATE = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT & " not found!") Then - Logger.Info("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT & " not found", True) - Logger.Info("1. Ausnahme-Fehler: " & ex.Message) + MyValidationLogger.Info("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT & " not found", True) + MyValidationLogger.Info("1. Ausnahme-Fehler: " & ex.Message) If INDEX_DMS_ERSTELLT = "DMS Created" Then INDEX_DMS_ERSTELLT = "DMS erstellt" @@ -2973,20 +2968,20 @@ Public Class frmValidator CURRENT_DOC_CREATION_DATE = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT) Else - Logger.Info("error in Windream_get_Doc_info 1: " & ex.Message) + MyValidationLogger.Info("error in Windream_get_Doc_info 1: " & ex.Message) Return "error in Windream_get_Doc_info 1: " & ex.Message End If End Try - Logger.Debug("DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE) + MyValidationLogger.Debug("DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE) Try - Logger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT_ZEIT}]...") + MyValidationLogger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT_ZEIT}]...") CURRENT_DOC_CREATION_TIME = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT) Catch ex As Exception If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found!") Then - Logger.Info("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found", True) + MyValidationLogger.Info("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found", True) If INDEX_DMS_ERSTELLT = "DMS Created" Then INDEX_DMS_ERSTELLT = "DMS erstellt" @@ -3008,16 +3003,16 @@ Public Class frmValidator 'SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created") 'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time") End If - Logger.Debug($"GetVariableValue (2) [{INDEX_DMS_ERSTELLT_ZEIT}]...") + MyValidationLogger.Debug($"GetVariableValue (2) [{INDEX_DMS_ERSTELLT_ZEIT}]...") CURRENT_DOC_CREATION_TIME = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT) Else - Logger.Error(ex) - Logger.Info("error in Windream_get_Doc_info 3: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("error in Windream_get_Doc_info 3: " & ex.Message) Return "error in Windream_get_Doc_info 3: " & ex.Message End If End Try - Logger.Debug("DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME) + MyValidationLogger.Debug("DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME) If CURRENT_DOC_CREATION_TIME.Length > 11 Then CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME.Substring(10) @@ -3027,8 +3022,8 @@ Public Class frmValidator Return "" Catch ex As Exception - Logger.Error(ex) - Logger.Info("error in Windream_get_Doc_info (GENERELL): " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("error in Windream_get_Doc_info (GENERELL): " & ex.Message) Return "error in Windream_get_Doc_info (GENERELL): " & ex.Message End Try @@ -3205,9 +3200,9 @@ Public Class frmValidator If value Is Nothing Then value = "" Return value Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) - Logger.Info("error in ReturnVektor_IndexValue: " & ex.Message) + MyValidationLogger.Info("error in ReturnVektor_IndexValue: " & ex.Message) Return "" End Try @@ -3221,12 +3216,12 @@ Public Class frmValidator If IDB_ACTIVE = False Then oValuefromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) Else - Logger.Debug($"GetVariableValuefromSource - IDBCase...") + MyValidationLogger.Debug($"GetVariableValuefromSource - IDBCase...") oValuefromSource = IDBData.GetVariableValue(oSourceIndexName, oIDBTyp, FromIDB) End If Return oValuefromSource Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) Return Nothing End Try @@ -3270,7 +3265,7 @@ Public Class frmValidator oControName = oControl.Name Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE") - Logger.Debug("INDEX: " & oSourceIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString) + MyValidationLogger.Debug("INDEX: " & oSourceIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString) Select Case True @@ -3290,7 +3285,7 @@ Public Class frmValidator If oLoadIndex = False Or oSourceIndexName = "DD PM-ONLY FOR DISPLAY" Then ' Wenn kein Index exisitiert, defaultValue laden oTextBox.EditValue = oDefaultValue - Logger.Debug("Indexwert soll nicht geladen werden.") + MyValidationLogger.Debug("Indexwert soll nicht geladen werden.") Exit Select End If @@ -3305,25 +3300,25 @@ Public Class frmValidator oValueFromSource = "" Else If oValueFromSource.ToString = "System.Object[]" Then - Logger.Debug("TextBox with VektorField: " & oSourceIndexName) + MyValidationLogger.Debug("TextBox with VektorField: " & oSourceIndexName) Try - Logger.Debug($"Length of Vektorarray: {oValueFromSource.length}") + MyValidationLogger.Debug($"Length of Vektorarray: {oValueFromSource.length}") Catch ex As Exception - Logger.Info($"Error in gettin the lenth of vektorfield {oSourceIndexName} - {ex.Message}") + MyValidationLogger.Info($"Error in gettin the lenth of vektorfield {oSourceIndexName} - {ex.Message}") End Try If oValueFromSource.length = 1 Then oValueFromSource = oValueFromSource(0) Else ' - Logger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") oValueFromSource = oValueFromSource(0) End If - Logger.Debug($"wertWD has been saved...") + MyValidationLogger.Debug($"wertWD has been saved...") End If End If End If - Logger.Debug("Value from Source: [{0}]", oValueFromSource) + MyValidationLogger.Debug("Value from Source: [{0}]", oValueFromSource) Try 'Dim oFormatString As String = oControlRow.ItemEx("CTRL_FORMAT_STRING", "") @@ -3360,27 +3355,27 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Warn($"Unexpected error in Set Backcolor [{oControl.Name}]: {ex.Message}") - Logger.Error(ex) + MyValidationLogger.Warn($"Unexpected error in Set Backcolor [{oControl.Name}]: {ex.Message}") + MyValidationLogger.Error(ex) End Try ControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER) Catch ex As Exception - Logger.Info("Error While converting defaultValue [" & oDefaultValue & "]: " & ex.Message) + MyValidationLogger.Info("Error While converting defaultValue [" & oDefaultValue & "]: " & ex.Message) oTextBox.EditValue = "" End Try End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) errormessage = $"Unvorhergesehener Fehler bei FillIndexValues TextBox [{oControl.Name}]:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() - Logger.Info("Unexpected error in FillIndexValuesTextBox: " & ex.Message, True) - Logger.Info(">> Controltype: " & oControlType) - Logger.Info(">> Indexname windream: " & oIndexName) + MyValidationLogger.Info("Unexpected error in FillIndexValuesTextBox: " & ex.Message, True) + MyValidationLogger.Info(">> Controltype: " & oControlType) + MyValidationLogger.Info(">> Indexname windream: " & oIndexName) Exit Sub End Try @@ -3401,7 +3396,7 @@ Public Class frmValidator Else oMyCombobox.Text = oDefaultValue End If - Logger.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.") + MyValidationLogger.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.") Exit Select End If @@ -3413,53 +3408,53 @@ Public Class frmValidator If oValueFromSource Is Nothing Then - Logger.Debug($"oMyComboBox {oMyCombobox.Name} - Indexvalue from index {oSourceIndexName}: Nothing") + MyValidationLogger.Debug($"oMyComboBox {oMyCombobox.Name} - Indexvalue from index {oSourceIndexName}: Nothing") If oDefaultValue = String.Empty Then - Logger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wurde nicht gefunden") + MyValidationLogger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wurde nicht gefunden") oMyCombobox.SelectedIndex = -1 Else - Logger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wird geladen") + MyValidationLogger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wird geladen") oMyCombobox.Text = oDefaultValue 'cmb.SelectedIndex = cmb.FindStringExact(defaultValue) End If Else If oValueFromSource.ToString = "System.Object[]" Then - Logger.Debug($"oMyComboBox {oMyCombobox.Name} - Combobox with VektorField: " & oSourceIndexName) + MyValidationLogger.Debug($"oMyComboBox {oMyCombobox.Name} - Combobox with VektorField: " & oSourceIndexName) Try - Logger.Debug($"Length of Vektorarray: {oValueFromSource.length}") + MyValidationLogger.Debug($"Length of Vektorarray: {oValueFromSource.length}") Catch ex As Exception - Logger.Info($"Error in gettin the length of vektorfield {oSourceIndexName} - {ex.Message}") + MyValidationLogger.Info($"Error in gettin the length of vektorfield {oSourceIndexName} - {ex.Message}") End Try If oValueFromSource.length = 1 Then oValueFromSource = oValueFromSource(0) Else ' - Logger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") oValueFromSource = oValueFromSource(0) End If - Logger.Debug($"wertWD has been saved...") + MyValidationLogger.Debug($"wertWD has been saved...") Else End If - Logger.Debug($"Indexwert from Index {oSourceIndexName}: {oValueFromSource}") - Logger.Debug($"Items in Combobox: {oMyCombobox.Items.Count}") + MyValidationLogger.Debug($"Indexwert from Index {oSourceIndexName}: {oValueFromSource}") + MyValidationLogger.Debug($"Items in Combobox: {oMyCombobox.Items.Count}") If oMyCombobox.Items.Count = 0 Then ' If LogErrorsOnly = False Then Logger.Info($"Index Wert wurde gesetzt") oMyCombobox.Text = oValueFromSource Else - Logger.Debug($"Index Wert [{oValueFromSource}] wurde ausgewählt") + MyValidationLogger.Debug($"Index Wert [{oValueFromSource}] wurde ausgewählt") oMyCombobox.SelectedIndex = oMyCombobox.FindStringExact(oValueFromSource) - Logger.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}") + MyValidationLogger.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}") End If End If End If - Logger.Debug("") + MyValidationLogger.Debug("") Catch ex As Exception - Logger.Error(ex) - Logger.Info(">> Unexpected error in FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & ex.Message, True) - Logger.Info(">> Controltype: " & oControlType) - Logger.Info(">> Indexname windream: " & oIndexName) + MyValidationLogger.Error(ex) + MyValidationLogger.Info(">> Unexpected error in FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & ex.Message, True) + MyValidationLogger.Info(">> Controltype: " & oControlType) + MyValidationLogger.Info(">> Indexname windream: " & oIndexName) errormessage = "Unexpected error in FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() @@ -3481,16 +3476,16 @@ Public Class frmValidator End If If oSourceIndexName Is Nothing = False Then If oLoadIndex = False Then - Logger.Debug("Indexwert soll nicht geladen werden.") + MyValidationLogger.Debug("Indexwert soll nicht geladen werden.") Exit Select End If - Logger.Debug($"getting Value for Attribute [{oSourceIndexName}] - oIDBTyp [{oIDBTyp}] - oIDBOverride [{oIDBOverride}]...") + MyValidationLogger.Debug($"getting Value for Attribute [{oSourceIndexName}] - oIDBTyp [{oIDBTyp}] - oIDBOverride [{oIDBOverride}]...") ' Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride) If oValueFromSource Is Nothing = False Then Dim oValueType = oValueFromSource.GetType.ToString - Logger.Debug($"oValueType is [{oValueType}]!") + MyValidationLogger.Debug($"oValueType is [{oValueType}]!") 'Es wird gegen ein Vektorfeld nachindexiert If oValueType.Contains("System.Object") Or oValueType = "System.Data.DataTable" Or oValueType = "System.String" Then Select Case oTyp @@ -3500,44 +3495,44 @@ Public Class frmValidator DT_COLUMNS_GRID.Select(oExpression, "SEQUENCE").CopyToDataTable(oDTColumnsPerDevExGrid, LoadOption.PreserveChanges) Dim oColValuesfromSource As String() - Logger.Debug($"DevExpressGrid: {oDTColumnsPerDevExGrid.Rows.Count} Columns configured for control {oControlId}.") + MyValidationLogger.Debug($"DevExpressGrid: {oDTColumnsPerDevExGrid.Rows.Count} Columns configured for control {oControlId}.") If oDTColumnsPerDevExGrid.Rows.Count >= 1 Then Dim oDataSource As DataTable = oMyGridControl.DataSource oDataSource.Rows.Clear() If IDB_ACTIVE = False Then - Logger.Debug("ValueFromSource contains {0} items", oValueFromSource) + MyValidationLogger.Debug("ValueFromSource contains {0} items", oValueFromSource) For Each Zeile As Object In oValueFromSource - Logger.Debug($"vektorrow Value {Zeile.ToString}...") + MyValidationLogger.Debug($"vektorrow Value {Zeile.ToString}...") oColValuesfromSource = Split(Zeile, PMDelimiter) Dim oNewRow = oDataSource.NewRow() - Logger.Debug("Creating new row..") + MyValidationLogger.Debug("Creating new row..") For index = 0 To oDTColumnsPerDevExGrid.Rows.Count - 1 - Logger.Debug("Column Index {0}", index) + MyValidationLogger.Debug("Column Index {0}", index) If oColValuesfromSource.Length > index Then - Logger.Debug("Value: {0}", oColValuesfromSource(index)) + MyValidationLogger.Debug("Value: {0}", oColValuesfromSource(index)) oNewRow.Item(index) = oColValuesfromSource(index) Else - Logger.Debug("Value: String.Empty") + MyValidationLogger.Debug("Value: String.Empty") oNewRow.Item(index) = String.Empty End If Next - Logger.Debug("Adding row to grid..") + MyValidationLogger.Debug("Adding row to grid..") oDataSource.Rows.Add(oNewRow) Next Else If oValueType = "System.String" Then - Logger.Debug($"IDB Fill Grid [{oControl.Name}] with String") - Logger.Debug($"oValueFromSource [{oValueFromSource}] - PMDelimiter[{PMDelimiter}]") + MyValidationLogger.Debug($"IDB Fill Grid [{oControl.Name}] with String") + MyValidationLogger.Debug($"oValueFromSource [{oValueFromSource}] - PMDelimiter[{PMDelimiter}]") oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) If oColValuesfromSource.Length > 8 Then - Logger.Warn("Fill Grid Error - Max 8 columns can be configured!") + MyValidationLogger.Warn("Fill Grid Error - Max 8 columns can be configured!") End If Dim oRowData As New List(Of Object) @@ -3553,31 +3548,31 @@ Public Class frmValidator ElseIf oValueType = "System.Data.DataTable" Then Dim oMyDatatable As DataTable = oValueFromSource - Logger.Debug($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) + MyValidationLogger.Debug($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) For Each oRow As DataRow In oMyDatatable.Rows Try - Logger.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") + MyValidationLogger.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) If oColValuesfromSource.Length > 8 Then - Logger.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!") + MyValidationLogger.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!") End If - Logger.Debug($"oColValuesfromSource splitted - Length ({oColValuesfromSource.Length.ToString})") + MyValidationLogger.Debug($"oColValuesfromSource splitted - Length ({oColValuesfromSource.Length.ToString})") Dim oRowData As New List(Of Object) For index = 1 To oColValuesfromSource.Length Try Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN") - Logger.Debug($"oColumnType of DGView-Column ({oColumnType.ToString})...") + MyValidationLogger.Debug($"oColumnType of DGView-Column ({oColumnType.ToString})...") Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType) oRowData.Add(oConvertedValue) Catch ex As Exception - Logger.Warn($"Error while converting/adding Value to oRowData: " & ex.Message) + MyValidationLogger.Warn($"Error while converting/adding Value to oRowData: " & ex.Message) End Try Next oDataSource.Rows.Add(oRowData.ToArray()) Catch ex As Exception - Logger.Warn($"Error while adding datarow [{oRow.Item(0).ToString}] to Grid: " & ex.Message) + MyValidationLogger.Warn($"Error while adding datarow [{oRow.Item(0).ToString}] to Grid: " & ex.Message) End Try @@ -3586,7 +3581,7 @@ Public Class frmValidator End If Else - Logger.Info($"DevExpressGrid: There are no columns configured/listed for control {oControlId}.") + MyValidationLogger.Info($"DevExpressGrid: There are no columns configured/listed for control {oControlId}.") End If Case Else @@ -3602,7 +3597,7 @@ Public Class frmValidator Next End Select Else - Logger.Warn($"Could not load Devexpress.Grid [{oControl.Name }] as omytype is [{oValueType}]!") + MyValidationLogger.Warn($"Could not load Devexpress.Grid [{oControl.Name }] as omytype is [{oValueType}]!") End If @@ -3638,14 +3633,14 @@ Public Class frmValidator ' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try End If Catch ex As Exception - Logger.Error(ex) - Logger.Info(">> Unexpected error in FillIndexValues(GridControl: " & oMyGridControl.Name & "): " & ex.Message, True) - Logger.Info(">> Controltype: " & oControlType) - Logger.Info(">> Indexname windream: " & oIndexName) + MyValidationLogger.Error(ex) + MyValidationLogger.Info(">> Unexpected error in FillIndexValues(GridControl: " & oMyGridControl.Name & "): " & ex.Message, True) + MyValidationLogger.Info(">> Controltype: " & oControlType) + MyValidationLogger.Info(">> Indexname windream: " & oIndexName) errormessage = "Unexpected error in FillIndexValues(Combobox: " & oMyGridControl.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() @@ -3653,7 +3648,7 @@ Public Class frmValidator Case oControl.GetType = GetType(CheckBox) - Logger.Debug("Loading checkbox...") + MyValidationLogger.Debug("Loading checkbox...") oControlType = "CheckBox" If oSourceIndexName = "" Then MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) @@ -3664,47 +3659,47 @@ Public Class frmValidator Dim myCheckBox As CheckBox = oControl If oLoadIndex = False Or oSourceIndexName = "DD PM-ONLY FOR DISPLAY" Then - Logger.Debug("Indexwert soll nicht geladen werden.") + MyValidationLogger.Debug("Indexwert soll nicht geladen werden.") End If - Logger.Debug("Loading Bool-Value from Source...") + MyValidationLogger.Debug("Loading Bool-Value from Source...") If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) Else Try - Logger.Debug($"..Now GetVariableValue({oSourceIndexName})...") + MyValidationLogger.Debug($"..Now GetVariableValue({oSourceIndexName})...") oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride) Catch ex As Exception - Logger.Warn($"Could not get the windreamValue for CheckboxIndex: {oSourceIndexName} [{ex.Message}]") + MyValidationLogger.Warn($"Could not get the windreamValue for CheckboxIndex: {oSourceIndexName} [{ex.Message}]") End Try End If If oValueFromSource Is Nothing Then - Logger.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue") - Logger.Debug(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue") + MyValidationLogger.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue") + MyValidationLogger.Debug(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue") If oDefaultValue <> String.Empty Then - Logger.Info($"Using Default value [{oDefaultValue}]") - Logger.Debug($"Using Default value [{oDefaultValue}]") + MyValidationLogger.Info($"Using Default value [{oDefaultValue}]") + MyValidationLogger.Debug($"Using Default value [{oDefaultValue}]") myCheckBox.Checked = CBool(oDefaultValue) Exit Select Else - Logger.Debug("No Default Value for Checkbox - so using false!") + MyValidationLogger.Debug("No Default Value for Checkbox - so using false!") myCheckBox.CheckState = CheckState.Indeterminate End If Else - Logger.Debug("oValueFromSource: " & oValueFromSource.ToString) + MyValidationLogger.Debug("oValueFromSource: " & oValueFromSource.ToString) If oValueFromSource.ToString = "" Then - Logger.Info(">> Versuch, default Value zu laden") + MyValidationLogger.Info(">> Versuch, default Value zu laden") If oDefaultValue <> String.Empty Then Dim result = False If Boolean.TryParse(oDefaultValue, result) Then - Logger.Info(">> defaultValue wurde geladen") + MyValidationLogger.Info(">> defaultValue wurde geladen") myCheckBox.Checked = result If result = False Then myCheckBox.CheckState = CheckState.Unchecked @@ -3717,38 +3712,38 @@ Public Class frmValidator myCheckBox.CheckState = CheckState.Unchecked End If Else - Logger.Info(">> defaultValue war leer") + MyValidationLogger.Info(">> defaultValue war leer") myCheckBox.Checked = False myCheckBox.CheckState = CheckState.Unchecked End If Else Dim _value If oValueFromSource.ToString = "System.Object[]" Then - Logger.Debug("CheckBoxValue with VectorField: " & oSourceIndexName) + MyValidationLogger.Debug("CheckBoxValue with VectorField: " & oSourceIndexName) If oValueFromSource.length = 1 Then _value = oValueFromSource(0) Else ' - Logger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") _value = oValueFromSource(0) End If Else _value = oValueFromSource - Logger.Debug($"Value is not nothing and also not System.Object: [{_value}]") + MyValidationLogger.Debug($"Value is not nothing and also not System.Object: [{_value}]") End If Try Select Case CBool(_value) Case True - Logger.Debug(">> CBool(_value) = True") + MyValidationLogger.Debug(">> CBool(_value) = True") myCheckBox.Checked = True myCheckBox.CheckState = CheckState.Checked Case False - Logger.Debug(">> CBool(_value) = False") + MyValidationLogger.Debug(">> CBool(_value) = False") myCheckBox.Checked = False myCheckBox.CheckState = CheckState.Unchecked End Select Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected error in CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString, True) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected error in CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString, True) myCheckBox.Checked = False myCheckBox.CheckState = CheckState.Unchecked End Try @@ -3802,8 +3797,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl3:") End Try @@ -3818,10 +3813,10 @@ Public Class frmValidator Try If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - Logger.Debug("DATE über PM-Vektor holen") + MyValidationLogger.Debug("DATE über PM-Vektor holen") oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) - Logger.Info(">> DTP is """) + MyValidationLogger.Info(">> DTP is """) Else oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride) @@ -3832,23 +3827,23 @@ Public Class frmValidator If oValueFromSource.ToString.Length > 0 Then Try tempdate = CDate(oValueFromSource) - Logger.Debug("DATE konnte umgewandelt werden") + MyValidationLogger.Debug("DATE konnte umgewandelt werden") Catch ex As Exception - Logger.Error(ex) - Logger.Debug("DATE wurde auf heute gesetzt") + MyValidationLogger.Error(ex) + MyValidationLogger.Debug("DATE wurde auf heute gesetzt") End Try DTP.Text = tempdate Else - Logger.Debug("DATE ist leer") + MyValidationLogger.Debug("DATE ist leer") DTP.Text = tempdate End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message - Logger.Info("Unexpected error in FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString & vbNewLine & "Indexname: " & oSourceIndexName, True) + MyValidationLogger.Info("Unexpected error in FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString & vbNewLine & "Indexname: " & oSourceIndexName, True) frmError.ShowDialog() - Logger.Info("Unexpected error in FillIndex DTP: " & ex.Message, True) + MyValidationLogger.Info("Unexpected error in FillIndex DTP: " & ex.Message, True) End Try End If End Select @@ -3878,7 +3873,7 @@ Public Class frmValidator }) If Not IsNothing(oDTRESULT_FOR_COLUMN) Then - Logger.Debug($"Trying to create a DropDown(FIV) for CONTROL-ID [{oDEPENDING_CTRL_ID}] - RowCount: [{oDTRESULT_FOR_COLUMN.Rows.Count}] ") + MyValidationLogger.Debug($"Trying to create a DropDown(FIV) for CONTROL-ID [{oDEPENDING_CTRL_ID}] - RowCount: [{oDTRESULT_FOR_COLUMN.Rows.Count}] ") For Each oControl As Control In PanelValidatorControl.Controls Dim oControlId = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid If oControlId = oDEPENDING_CTRL_ID Then @@ -3887,15 +3882,15 @@ Public Class frmValidator End If Next Else - Logger.Warn($"FillIndexValues - oDTRESULT_FOR_COLUMN is nothing!") + MyValidationLogger.Warn($"FillIndexValues - oDTRESULT_FOR_COLUMN is nothing!") End If Catch ex As Exception - Logger.Warn($"FillIndexValues - Unexpected error in creating Grid-Dropdown-Column [{oDEPENDING_COLUMN}] for CONTROL-ID [{oDEPENDING_CTRL_ID}]: " & ex.Message) + MyValidationLogger.Warn($"FillIndexValues - Unexpected error in creating Grid-Dropdown-Column [{oDEPENDING_COLUMN}] for CONTROL-ID [{oDEPENDING_CTRL_ID}]: " & ex.Message) End Try Next Catch ex As Exception - Logger.Warn($"FillIndexValues - Unexpected error in creating dropdown for Grid: " & ex.Message) + MyValidationLogger.Warn($"FillIndexValues - Unexpected error in creating dropdown for Grid: " & ex.Message) End Try If LOG_PERF Then PerformanceLogger.Info("FillIndexValues/Postload") @@ -3954,15 +3949,15 @@ Public Class frmValidator End If RibbonPageGroup2.Visible = True Else - Logger.Debug($"No PM_Info-Configuration!!") + MyValidationLogger.Debug($"No PM_Info-Configuration!!") RibbonPageGroup2.Visible = False End If Else - Logger.Warn($"oDTINFO is nothing!!") + MyValidationLogger.Warn($"oDTINFO is nothing!!") RibbonPageGroup2.Visible = False End If Catch ex As Exception - Logger.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}") RibbonPageGroup2.Visible = False End Try @@ -3976,11 +3971,11 @@ Public Class frmValidator ' Should the custom Ribbon group be displayed at all? ' Will be hidden later if not search results are found - Load_Additional_Searches(True) + Load_Additional_Searches(Not CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK) ' If Searches should be loaded automatically, not only on click If CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = False And (AdditionalDocResultsExist = True Or AdditionalDataResultsExist = True) Then ' _frmValidatorSearch?.Show() - Click_Additional_Searches() + TryOpen_Additional_Searches() End If Else MsgBox("No Form-Mask defined for this profile!" & vbNewLine & "Please inform Your admin!" & vbNewLine & "The validator will be closed!", MsgBoxStyle.Exclamation, "Attention:") @@ -3988,7 +3983,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Warn($"Unexpected error in FillIndexValues: [{oControName} -TYPE: {oControlType}-INDEXNAME: {oIndexName}] ERROR: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in FillIndexValues: [{oControName} -TYPE: {oControlType}-INDEXNAME: {oIndexName}] ERROR: {ex.Message}") errormessage = $"Unexpected error in FillIndexValues: [{oControName} -TYPE: {oControlType}-INDEXNAME: {oIndexName}] ERROR: {ex.Message}" & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() @@ -4034,12 +4029,12 @@ Public Class frmValidator End If If Not (IsNothing(WMDocPathWindows) And ActiveWorkflowType = ConstAHWorkflow_BlindFile) Then If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then - Logger.Debug("Enabling Export2File, Caption set") - Logger.Debug("Button Caption: [{0}]", ButtonExport2Folder_Caption) - Logger.Debug("Export root folder: [{0}]", ButtonExport2Folder_RootFolder) + MyValidationLogger.Debug("Enabling Export2File, Caption set") + MyValidationLogger.Debug("Button Caption: [{0}]", ButtonExport2Folder_Caption) + MyValidationLogger.Debug("Export root folder: [{0}]", ButtonExport2Folder_RootFolder) If File.Exists(WMDocPathWindows) Then - Logger.Debug("File exists, Showing Export Button") + MyValidationLogger.Debug("File exists, Showing Export Button") barbtnitmExport.Caption = ButtonExport2Folder_Caption If ButtonExport2Folder_Mode <> String.Empty Then @@ -4050,20 +4045,20 @@ Public Class frmValidator If ButtonExport2Folder_RootFolder <> "" Then If Directory.Exists(ButtonExport2Folder_RootFolder) Then If CONFIG.Config.LastExportPath <> String.Empty Then - Logger.Debug("Last export path exists, using as default path") + MyValidationLogger.Debug("Last export path exists, using as default path") FolderBrowserDialog1.SelectedPath = CONFIG.Config.LastExportPath Else FolderBrowserDialog1.SelectedPath = ButtonExport2Folder_RootFolder End If - Logger.Debug("Setting default export path to [{0}]", FolderBrowserDialog1.SelectedPath) + MyValidationLogger.Debug("Setting default export path to [{0}]", FolderBrowserDialog1.SelectedPath) Else - Logger.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###") + MyValidationLogger.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###") End If End If Catch ex As Exception - Logger.Warn($"### Error Dis/Enabale Export2Path: {ex.Message} !###") + MyValidationLogger.Warn($"### Error Dis/Enabale Export2Path: {ex.Message} !###") End Try End If @@ -4072,10 +4067,10 @@ Public Class frmValidator Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try - Logger.Debug("frmValidation_Shown finished!") + MyValidationLogger.Debug("frmValidation_Shown finished!") End Sub Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click btnSave.Enabled = False @@ -4094,10 +4089,10 @@ Public Class frmValidator Where TypeOf oControl Is GridControl Select oControl).ToList() - Logger.Debug("Forcing grid Validation") + MyValidationLogger.Debug("Forcing grid Validation") For Each oGrid As GridControl In oGrids - Logger.Debug("Validating Grid [{0}]", oGrid.Name) + MyValidationLogger.Debug("Validating Grid [{0}]", oGrid.Name) Dim oView As GridView = oGrid.MainView @@ -4109,7 +4104,7 @@ Public Class frmValidator oValidation = False End If - Logger.Debug("Validation of Grid [{0}] ended with Result: [{1}]", oGrid.Name, oValidation) + MyValidationLogger.Debug("Validation of Grid [{0}] ended with Result: [{1}]", oGrid.Name, oValidation) If oValidation = False Then Return False @@ -4158,7 +4153,7 @@ Public Class frmValidator Dim oMsgType Dim oQuestion Dim oTitle - Logger.Debug("## btnFinish_continue ##") + MyValidationLogger.Debug("## btnFinish_continue ##") Try oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType") Catch ex As Exception @@ -4168,7 +4163,7 @@ Public Class frmValidator Try oQuestion = oDT_ACTIONS?.Rows(0).Item("Question") Catch ex As Exception - Logger.Warn($"btnFinishContinue - No QUESTION-Column in select-Result!") + MyValidationLogger.Warn($"btnFinishContinue - No QUESTION-Column in select-Result!") oQuestion = "" End Try Try @@ -4176,7 +4171,7 @@ Public Class frmValidator Catch ex As Exception oTitle = "" End Try - Logger.Debug($"Case is: [{oMsgType.ToString.ToUpper}]") + MyValidationLogger.Debug($"Case is: [{oMsgType.ToString.ToUpper}]") Select Case oMsgType.ToString.ToUpper Case "MsgboxResult".ToUpper @@ -4205,18 +4200,18 @@ Public Class frmValidator Return True Case Else MsgBox($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam", MsgBoxStyle.Exclamation, "") - Logger.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue!") + MyValidationLogger.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue!") Return False End Select Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("An unhandled exeception occured in btnFinish Procedure! Please inform Your WorkflowTeam and Check Your log!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return False End Try End Function Sub Finish_WFStep(Optional includeFI As Boolean = True) btnSave.Enabled = False - Logger.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") + MyValidationLogger.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") _ItemWorked = True Dim oErrorOcurred As Boolean = False If OverrideAll = False Then @@ -4239,18 +4234,18 @@ Public Class frmValidator If oDTFinalIndexing?.Rows.Count > 0 Then 'Jetzt finale Indexe setzen - Logger.Debug("FINAL INDEXING STARTING...") + MyValidationLogger.Debug("FINAL INDEXING STARTING...") For Each oFinalIndexRow As DataRow In oDTFinalIndexing.Rows Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString Dim oFinalIndex = oFinalIndexRow.Item("INDEXNAME") - Logger.Debug($"Working on final index [{oFinalIndex}]...") + MyValidationLogger.Debug($"Working on final index [{oFinalIndex}]...") Dim oContinueOnIndifferentState As Boolean = CBool(oFinalIndexRow.Item("CONTINUE_INDETERMINED")) Dim oIndexType = 0 If IDB_ACTIVE = False Then oIndexType = WINDREAM_MOD.GetIndexType(oFinalIndexRow.Item("INDEXNAME")) End If If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### - Logger.Debug("Indexing wih dynamic sql...") + MyValidationLogger.Debug("Indexing wih dynamic sql...") Dim oGUID = oFinalIndexRow.Item("GUID") Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") Dim oConnectionID = oFinalIndexRow.Item("CONNECTION_ID") @@ -4265,7 +4260,7 @@ Public Class frmValidator If Not IsNothing(oSQLCommand) Then Dim oResultfromSQL As Object = DatabaseFallback.GetScalarValueWithConnection(oSQLCommand, oConnectionID) If Not IsNothing(oResultfromSQL) Then - Logger.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]") + MyValidationLogger.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]") If IsDBNull(oResultfromSQL) Then If oContinueOnIndifferentState = False Then errormessage = "Result from SQL is DBNull - Check the SQL and the log" @@ -4274,7 +4269,7 @@ Public Class frmValidator oErrorOcurred = True _ItemWorked = False Else - Logger.Warn($"FinalIndexResult from SQL is DBNull - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, Continuing with next Attribute and Replacing with empty String") + MyValidationLogger.Warn($"FinalIndexResult from SQL is DBNull - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, Continuing with next Attribute and Replacing with empty String") oResultfromSQL = "" Continue For End If @@ -4288,13 +4283,13 @@ Public Class frmValidator oErrorOcurred = True _ItemWorked = False Else - Logger.Warn($"FinalIndexResult from SQL is EmptyValue - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, So continuing with next Attribute") + MyValidationLogger.Warn($"FinalIndexResult from SQL is EmptyValue - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, So continuing with next Attribute") Continue For End If End If oValue = oResultfromSQL Else - Logger.Warn("ATTENTION: DYNAMIC VALUE IS NOTHING!") + MyValidationLogger.Warn("ATTENTION: DYNAMIC VALUE IS NOTHING!") Continue For End If End If @@ -4319,13 +4314,13 @@ Public Class frmValidator ReDim Preserve oResult(0) oResult(0) = oValue - Logger.Debug($"oIndexType {oIndexType.ToString}") + MyValidationLogger.Debug($"oIndexType {oIndexType.ToString}") If oIndexType > 4000 And oIndexType < 5000 Then 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) 'Hier muss nun separat as Vektorfeld indexiert werden If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then - Logger.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has beens et suxxessfully!") + MyValidationLogger.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has beens et suxxessfully!") Else errormessage = "Error in final indexing:" & vbNewLine & idxerr_message My.Settings.Save() @@ -4334,17 +4329,17 @@ Public Class frmValidator _ItemWorked = False End If Else - Logger.Debug("Now the final indexing...") + MyValidationLogger.Debug("Now the final indexing...") If oValue.ToUpper = "SQL-Command".ToUpper Then MsgBox("Something went wrong while final-indexing. Check Your log and inform the admin-team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) - Logger.Warn("Something went wrong while final-indexing") + MyValidationLogger.Warn("Something went wrong while final-indexing") Exit For End If Dim oFIResult As Boolean = False If IDB_ACTIVE = False Then If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then oFIResult = True - Logger.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") + MyValidationLogger.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") 'Nun das Logging If PROFIL_LOGINDEX <> "" Then @@ -4355,7 +4350,7 @@ Public Class frmValidator Else If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then oFIResult = True - Logger.Debug($"Final index IDB '{oFinalIndexRow.Item("INDEXNAME")}' was updated with [{oValue.ToString}]") + MyValidationLogger.Debug($"Final index IDB '{oFinalIndexRow.Item("INDEXNAME")}' was updated with [{oValue.ToString}]") End If End If If oFIResult = False Then @@ -4374,7 +4369,7 @@ Public Class frmValidator Next End If Catch ex As Exception - Logger.Warn($"Error in finalIndexing: {ex.Message}") + MyValidationLogger.Warn($"Error in finalIndexing: {ex.Message}") oErrorOcurred = True End Try End If @@ -4393,7 +4388,7 @@ Public Class frmValidator WORK_HISTORY_ENTRY = Nothing End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) WORK_HISTORY_ENTRY = Nothing End Try @@ -4409,7 +4404,7 @@ Public Class frmValidator ' alle Vorkommen innerhalb der Namenkonvention durchlaufen For Each element As System.Text.RegularExpressions.Match In elemente Try - Logger.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value) + MyValidationLogger.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value) Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3) CTRL_ID = CTRL_ID.Replace("CTRLID", "") Dim value_from_control @@ -4431,7 +4426,7 @@ Public Class frmValidator Dim oBaseEdit As BaseEdit = oControl value_from_control = oBaseEdit.EditValue Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) value_from_control = String.Empty End Try @@ -4440,7 +4435,7 @@ Public Class frmValidator Try value_from_control = cmb.Text Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) value_from_control = String.Empty End Try Case oControl.GetType() = GetType(System.Windows.Forms.DateTimePicker) @@ -4448,7 +4443,7 @@ Public Class frmValidator Try value_from_control = dtp.Value.ToString Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) value_from_control = String.Empty End Try @@ -4457,7 +4452,7 @@ Public Class frmValidator Try value_from_control = chk.Checked Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) value_from_control = String.Empty End Try End Select @@ -4470,8 +4465,8 @@ Public Class frmValidator WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control) End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message) End Try Next If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then @@ -4534,13 +4529,13 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) errormessage = "Unexpected error in Finish:" & ex.Message My.Settings.Save() frmError.ShowDialog() oErrorOcurred = True _ItemWorked = False - Logger.Info("Unexpected error in Finish: " & ex.Message, True) + MyValidationLogger.Info("Unexpected error in Finish: " & ex.Message, True) Exit Sub End Try Else @@ -4553,7 +4548,7 @@ Public Class frmValidator Exit Sub End If Else - Logger.Info($"Overriding all in action for DocID: {CURRENT_DOC_ID} - ProfileID: {CURRENT_ProfilGUID}") + MyValidationLogger.Info($"Overriding all in action for DocID: {CURRENT_DOC_ID} - ProfileID: {CURRENT_ProfilGUID}") If Override_SQLCommand <> "" Then If DatabaseFallback.ExecuteNonQueryECM(Override_SQLCommand) = False Then oErrorOcurred = True @@ -4567,10 +4562,10 @@ Public Class frmValidator _ItemWorked = False Else 'PRTF_PROFILE_FILES_WORK("Worked") - Logger.Debug("Validation of document ended successfully!") + MyValidationLogger.Debug("Validation of document ended successfully!") Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}" If DatabaseFallback.ExecuteNonQueryECM(oPROCSQL) = False Then - Logger.Warn($"Attention: Error executing proc [{oPROCSQL}]") + MyValidationLogger.Warn($"Attention: Error executing proc [{oPROCSQL}]") End If End If @@ -4616,8 +4611,8 @@ Public Class frmValidator Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "") PM_String = "DD-PM" & PMDelimiter & Bezeichner & PMDelimiter & input & PMDelimiter & USER_USERNAME & PMDelimiter & Now.ToString Catch ex As Exception - Logger.Error(ex) - Logger.Info(">> error in Return_PM_VEKTOR: " & ex.Message, True) + MyValidationLogger.Error(ex) + MyValidationLogger.Info(">> error in Return_PM_VEKTOR: " & ex.Message, True) PM_String = "DD-PM ERROR: " & ex.Message End Try Return PM_String @@ -4633,8 +4628,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info(">> error in Return_LOGString: " & ex.Message, True) + MyValidationLogger.Error(ex) + MyValidationLogger.Info(">> error in Return_LOGString: " & ex.Message, True) PM_String = "DD-PM ERROR: " & ex.Message End Try Return PM_String @@ -4672,7 +4667,7 @@ Public Class frmValidator 'Jetzt die Datei indexieren If Indexiere_File(CURRENT_WMFILE, NameVKTIndex, oNewValue) = False Then oMissing = True - Logger.Info("Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message) + MyValidationLogger.Info("Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message) oErrMsgMissingInput = "Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message End If End If @@ -4720,12 +4715,12 @@ Public Class frmValidator Dim oSaveChangeEnabledFalse As Boolean = CBool(oControlRow.Item("SAVE_CHANGE_ON_ENABLED")) 'Wenn eine Ablehnung aktiv ist und der Index identisch ist, dann skipping If REJECTION_ACTIVE = True And (oIndexName = PROFIL_REJECT_ACTIONS_ATTRIBUTE Or oIndexName = PROFIL_REJECT_COMMENT_ATTRIBUTE) Then - Logger.Debug($"Index [{oIndexName}] will be skipped as Rejection is in progress!") + MyValidationLogger.Debug($"Index [{oIndexName}] will be skipped as Rejection is in progress!") Continue For End If 'Readonly felder werden über finale indexe gefüllt, nicht mit SetControlData If oIsReadOnly = True And oSaveChangeEnabledFalse = False Then - Logger.Debug($"Skipping ReadOnly ControlName [{oDBControlName}] !") + MyValidationLogger.Debug($"Skipping ReadOnly ControlName [{oDBControlName}] !") Continue For End If @@ -4744,9 +4739,9 @@ Public Class frmValidator 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist If oDBControlName = oControl.Name And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then - Logger.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") + MyValidationLogger.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") If oIndexName = "" Then - Logger.Info(" >> Indexname is unexpected empty.") + MyValidationLogger.Info(" >> Indexname is unexpected empty.") Continue For End If Select Case True @@ -4756,8 +4751,9 @@ Public Class frmValidator If lookup.Properties.SelectedValues.Count = 0 And oIsRequired = True Then oMissing = True oErrMsgMissingInput = $"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'" - Logger.Warn($"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'") + MyValidationLogger.Warn($"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'") oControl.BackColor = Color.Red + frmError.ShowDialog() Exit For Else @@ -4784,7 +4780,8 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing von LookupGrid - ERROR: " & idxerr_message - Logger.Warn($"Error while indexing [{oIndexName}] von LookupGrid - ERROR: " & idxerr_message) + MyValidationLogger.Warn($"Error while indexing [{oIndexName}] von LookupGrid - ERROR: " & idxerr_message) + frmError.ShowDialog() Exit For End If Else @@ -4793,7 +4790,8 @@ Public Class frmValidator If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA, oIDBTyp) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing IDB-Object LookupGrid" - Logger.Warn($"Error while indexing IDB-Object LookupGrid [{oIndexName}] ") + MyValidationLogger.Warn($"Error while indexing IDB-Object LookupGrid [{oIndexName}] ") + frmError.ShowDialog() Exit For End If End If @@ -4803,7 +4801,8 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, oIndexName, oValues.ToArray) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing von LookupGrid - ERROR: " & idxerr_message - Logger.Warn($"Error while indexing LookupGrid [{oIndexName}] ") + MyValidationLogger.Warn($"Error while indexing LookupGrid [{oIndexName}] ") + frmError.ShowDialog() Exit For End If Else @@ -4822,7 +4821,7 @@ Public Class frmValidator If IsNothing(oMyInput) And oIsRequired = True Then oMissing = True oErrMsgMissingInput = $"Could not get FirstOrDefault-Value of LookUpGrid! - LookUPGridName: {lookup.Name}" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) Exit For ElseIf IsNothing(oMyInput) And oIsRequired = False Then For Each ochangedLookub In listChangedLookup @@ -4848,7 +4847,7 @@ Public Class frmValidator If oValueFromObject.Length = 1 Then oValueFromObject = oValueFromObject(0) Else ' - Logger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") oValueFromObject = oValueFromObject(0) End If End If @@ -4858,26 +4857,26 @@ Public Class frmValidator End If If IsNothing(oValueFromObject) Then - Logger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is NOTHING!") + MyValidationLogger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is NOTHING!") oValueIsIndifferent = True End If If oValueIsIndifferent = False Then If IsDBNull(oValueFromObject) Then - Logger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is DBNULL!") + MyValidationLogger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is DBNULL!") oValueIsIndifferent = True End If End If Dim oValueSourceIsDifferent As Boolean = False If oValueIsIndifferent = False Then - Logger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is [{oValueFromObject}]") + MyValidationLogger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is [{oValueFromObject}]") Try If oValueFromObject <> oMyInput Then oValueSourceIsDifferent = True - Logger.Debug($"CheckUpdateIndex.LookUpGrid: There is a difference between oValueFromObject and [{oValueFromObject}]") + MyValidationLogger.Debug($"CheckUpdateIndex.LookUpGrid: There is a difference between oValueFromObject and [{oValueFromObject}]") End If Catch ex As Exception oValueSourceIsDifferent = True - Logger.Debug($"oValueFromObject <> oMyInput not possible as one object might be a multiple row object") + MyValidationLogger.Debug($"oValueFromObject <> oMyInput not possible as one object might be a multiple row object") End Try Else @@ -4894,7 +4893,8 @@ Public Class frmValidator If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrMsgMissingInput = "Error while indexing Textbox as VEKTOR - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + frmError.ShowDialog() Exit For End If Else @@ -4905,7 +4905,8 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing Textbox - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + frmError.ShowDialog() Exit For End If Else @@ -4931,7 +4932,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try @@ -4940,19 +4941,19 @@ Public Class frmValidator 'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl") Dim oWrongInputMessage = S.Falsche_Eingabe - Logger.Debug("Validating Textbox..") + MyValidationLogger.Debug("Validating Textbox..") If oRegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oRegexMatch) Then oMissing = True oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) If oRegexMessage <> String.Empty Then oErrMsgMissingInput &= ":" & vbCrLf & oRegexMessage End If - oControl.BackColor = Color.Red + OpenfrmError(oErrMsgMissingInput) Exit For End If @@ -4960,21 +4961,22 @@ Public Class frmValidator If Check_Missing_Control_Value(oControl, "txt") = True And oIsRequired = True Then 'NICHTS EINGETRAGEN oMissing = True oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) oControl.BackColor = Color.Red + frmError.ShowDialog() Exit For Else - Logger.Debug("Reading current value from Textbox") + MyValidationLogger.Debug("Reading current value from Textbox") Dim oTextEdit As BaseEdit = DirectCast(oControl, BaseEdit) oMyInput = ClassFormat.GetStringValue(oTextEdit.EditValue) - Logger.Debug("Form Value: [{0}]", oMyInput) + MyValidationLogger.Debug("Form Value: [{0}]", oMyInput) 'den aktuellen Wert in windream auslesen Dim oSourceValue = GetVariableValuefromSource(oIndexName, oIDBTyp) - Logger.Debug("Current Value: [{0}]", oSourceValue) + MyValidationLogger.Debug("Current Value: [{0}]", oSourceValue) If oIndexName.StartsWith("[%VKT") Then oSourceValue = ReturnVektor_IndexValue(oIndexName) @@ -4985,7 +4987,7 @@ Public Class frmValidator If oSourceValue.Length = 1 Then oSourceValue = oSourceValue(0) Else ' - Logger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") oSourceValue = oSourceValue(0) End If End If @@ -5012,7 +5014,7 @@ Public Class frmValidator End Try End If - Logger.Debug("Preparing Indexing for Textbox") + MyValidationLogger.Debug("Preparing Indexing for Textbox") 'wenn Wert in Windream <> der Eingabe darf indexiert werden If oSetValue = True Then @@ -5022,8 +5024,9 @@ Public Class frmValidator 'Hier muss nun separat as Vektorfeld indexiert werden If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True - oErrMsgMissingInput = "Error while indexing textbox as VEKTOR - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + oErrMsgMissingInput = $"Error while indexing Textbox {oControl} - Attribute {oIndexName} as VEKTOR - ERROR: " & idxerr_message + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5032,12 +5035,13 @@ Public Class frmValidator ReDim Preserve result(0) result(0) = oMyInput - Logger.Debug("Indexing Index [{0}] with value [{1}]", oMyInput, oIndexName) + MyValidationLogger.Debug("Indexing Index [{0}] with value [{1}]", oMyInput, oIndexName) If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True - oErrMsgMissingInput = "Error while indexing Textbox - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + oErrMsgMissingInput = $"Error while indexing Textbox {oControl} - Attribute {oIndexName} - ERROR: " & idxerr_message + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5058,27 +5062,29 @@ Public Class frmValidator End If Catch ex As Exception oErrMsgMissingInput = "Unexpected error in Check_UpdateIndexe TextBox '" & oControl.Name & "' - Check the log" - Logger.Error(ex) + MyValidationLogger.Error(ex) Dim st As New StackTrace(True) st = New StackTrace(ex, True) - Logger.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True) + MyValidationLogger.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True) + OpenfrmError(oErrMsgMissingInput) Return False End Try Case oControl.GetType = GetType(System.Windows.Forms.ComboBox) Try - Logger.Debug($"Working on Combobox...") + MyValidationLogger.Debug($"Working on Combobox...") Dim cmb As Windows.Forms.ComboBox = oControl 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss If cmb.SelectedIndex = -1 And oIsRequired = True Then oMissing = True oErrMsgMissingInput = "Please Choose an entry out of ComboBox '" & cmb.Name & "'" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For 'ElseIf cmb.SelectedIndex <> -1 Then Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben oMyInput = cmb.Text - Logger.Debug($"inputvalue Combobox: {cmb.Text}") + MyValidationLogger.Debug($"inputvalue Combobox: {cmb.Text}") Dim oValue 'den aktuellen Wert in windream auslesen If oIndexName.StartsWith("[%VKT") Then @@ -5087,7 +5093,7 @@ Public Class frmValidator oValue = GetVariableValuefromSource(oIndexName, oIDBTyp) End If If IsNothing(oValue) Then - Logger.Debug($"oValue is nothing...Value EmptyString will be used") + MyValidationLogger.Debug($"oValue is nothing...Value EmptyString will be used") oValue = String.Empty End If Dim oIndexType As String = "Index" @@ -5096,31 +5102,31 @@ Public Class frmValidator oIndexType = "Vector" End If Catch ex As Exception - Logger.Debug($"Exception while oValue.ToString = System.Object[]...") + MyValidationLogger.Debug($"Exception while oValue.ToString = System.Object[]...") End Try If oIndexType = "Vector" Then - Logger.Debug($"Control with ID{oControlId} is a vectorfield...") + MyValidationLogger.Debug($"Control with ID{oControlId} is a vectorfield...") If oValue.Length = 1 Then oValue = oValue(0).ToString Else ' - Logger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") oValue = oValue(0).ToString End If Else - Logger.Debug($"oValue is a regular item...") + MyValidationLogger.Debug($"oValue is a regular item...") Dim oitsadifference As Boolean = False Try If oValue.ToString <> oMyInput.ToString Then oitsadifference = True End If Catch ex As Exception - Logger.Warn($"Could not convert the oValue of Control with ID{oControlId}...") - Logger.Error(ex.Message) + MyValidationLogger.Warn($"Could not convert the oValue of Control with ID{oControlId}...") + MyValidationLogger.Error(ex.Message) oitsadifference = True End Try 'wenn Wert in Windream <> der Eingabe darf indexiert werden If oitsadifference = True Then - Logger.Debug($"Index with ID{oControlId} will now be indexed...") + MyValidationLogger.Debug($"Index with ID{oControlId} will now be indexed...") 'Wenn der Wert in ein Vektorfeld geschrieben wird If oIndexName.StartsWith("[%VKT") Then oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName) @@ -5128,7 +5134,8 @@ Public Class frmValidator If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrMsgMissingInput = "Error while indexing Combobox as VEKTOR - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5140,7 +5147,8 @@ Public Class frmValidator cmb.DroppedDown = True oMissing = True oErrMsgMissingInput = "Error while indexing Combobox - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5148,7 +5156,8 @@ Public Class frmValidator cmb.DroppedDown = True oMissing = True oErrMsgMissingInput = "Error indexing combobox idb" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If End If @@ -5165,7 +5174,7 @@ Public Class frmValidator End If Else - Logger.Debug($"oitsadifference = False...Index with ID {oControlId} will not be indexed...") + MyValidationLogger.Debug($"oitsadifference = False...Index with ID {oControlId} will not be indexed...") 'Wenn der Wert in ein Vektorfeld geschrieben wird End If End If @@ -5174,11 +5183,11 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) Dim st As New StackTrace(True) st = New StackTrace(ex, True) MsgBox($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId} " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:") - Logger.Info($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId}" & ex.Message) + MyValidationLogger.Info($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId}" & ex.Message) Return False End Try @@ -5189,7 +5198,8 @@ Public Class frmValidator If oIsRequired = True And dtp.Value.ToString = String.Empty Then oMissing = True oErrMsgMissingInput = "Please Choose DateValue for field'" & dtp.Name & "'" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For ElseIf dtp.Value.ToString <> "01.01.0001 00:00:00" Then oMyInput = CDate(dtp.Value) @@ -5214,7 +5224,8 @@ Public Class frmValidator If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrMsgMissingInput = "Error while indexing DatePicker as VEKTOR - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5225,14 +5236,16 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing DatePicker- ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then oMissing = True oErrMsgMissingInput = "Error indexing datepicker idb" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If End If @@ -5246,14 +5259,14 @@ Public Class frmValidator End If End If Else - Logger.Debug("Value WD ('" & oObjectValue.ToString & "') = Input-value ('" & oMyInput.ToString & "')") + MyValidationLogger.Debug("Value WD ('" & oObjectValue.ToString & "') = Input-value ('" & oMyInput.ToString & "')") End If Else - Logger.Debug("DateValue is 01.01.0001 00:00:00") + MyValidationLogger.Debug("DateValue is 01.01.0001 00:00:00") End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Case oControl.GetType = GetType(CheckBox) @@ -5264,7 +5277,8 @@ Public Class frmValidator If chk.CheckState = CheckState.Indeterminate And oIsRequired = True Then oMissing = True oErrMsgMissingInput = "Please set Checkbox value for field '" & chk.Name & "'" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If @@ -5289,7 +5303,7 @@ Public Class frmValidator If oObjectCheck.Length = 1 Then _Value = oObjectCheck(0) Else ' - Logger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") + MyValidationLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") _Value = oObjectCheck(0) End If Else @@ -5320,7 +5334,8 @@ Public Class frmValidator If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrMsgMissingInput = "Error while indexing Checkbox as VEKTOR - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5328,12 +5343,14 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing Checkbox - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else If IDBData.SetVariableValue(oIndexName, chk.Checked.ToString) Then - oErrMsgMissingInput = "error indexing checkboxidb" + oErrMsgMissingInput = "error indexing checkbox idb" + OpenfrmError(oErrMsgMissingInput) Exit For End If End If @@ -5349,7 +5366,7 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Case oControl.GetType = GetType(DataGridView) @@ -5368,7 +5385,8 @@ Public Class frmValidator If oIsRequired = True And Zeilen = 0 Then oMissing = True oErrMsgMissingInput = "Fehlende Eingabe in Vektorfeld '" & dgv.Name & "'" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For ElseIf Zeilen > 0 Then Dim ZeilenGrid As Integer = 0 @@ -5413,7 +5431,8 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then oMissing = True oErrMsgMissingInput = "Error while indexing Vektorfeld - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If Else @@ -5422,7 +5441,8 @@ Public Class frmValidator If IDBData.SetVariableValue(oIndexName, oDT, True) = False Then oMissing = True oErrMsgMissingInput = "Error indexing Datagridview idb" - Logger.Warn(oErrMsgMissingInput) + MyValidationLogger.Warn(oErrMsgMissingInput) + OpenfrmError(oErrMsgMissingInput) Exit For End If End If @@ -5430,7 +5450,7 @@ Public Class frmValidator 'Jetzt die Datei indexieren End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try Case oControl.GetType = GetType(GridControl) @@ -5458,29 +5478,33 @@ Public Class frmValidator ' If Error happened in inner For, exit the outer as well If oMissing = True Then - Logger.Info("oMissing = True...Exiting") + MyValidationLogger.Info("oMissing = True...Exiting") Exit For End If Next If oMissing = True Then - Logger.Warn("Check_UpdateIndexe: ERROR or Missing Indexing - returning False") + MyValidationLogger.Warn("Check_UpdateIndexe: ERROR or Missing Indexing - returning False") Return False Else - Logger.Debug("Check_UpdateIndexe: Everything OK - returning True") + MyValidationLogger.Debug("Check_UpdateIndexe: Everything OK - returning True") Return True End If Catch ex As Exception - Logger.Warn($"Unexpected error in Check_UpdateIndexe - ControlID: {oControlId},{oControlName}") - Logger.Error(ex) + MyValidationLogger.Warn($"Unexpected error in Check_UpdateIndexe - ControlID: {oControlId},{oControlName}") + MyValidationLogger.Error(ex) Dim st As New StackTrace(ex, True) MsgBox($"Unexpected error in Check_UpdateIndexe ControlID,Name: {oControlId},{oControlName}" & vbNewLine & ex.Message & vbNewLine & "Line: " & st.GetFrame(0).GetFileLineNumber().ToString, MsgBoxStyle.Critical, "Error:") - Logger.Info("Unexpected error in Check_UpdateIndexe:" & ex.Message & " - Line: " & st.GetFrame(0).GetFileLineNumber().ToString, True) + MyValidationLogger.Info("Unexpected error in Check_UpdateIndexe:" & ex.Message & " - Line: " & st.GetFrame(0).GetFileLineNumber().ToString, True) Return False End Try End Function - + Sub OpenfrmError(pErrormessage As String) + Dim ofrm As New frmError + ofrm.ValidatorError = pErrormessage + ofrm.ShowDialog() + End Sub Private Class ControlSettings Public Name As String Public IsRequired As Boolean @@ -5493,14 +5517,14 @@ Public Class frmValidator Try Dim oRowCount As Integer = pGrid.DataSource.Rows.Count - Logger.Debug("Grid Row Count: [{0}]", oRowCount) + MyValidationLogger.Debug("Grid Row Count: [{0}]", oRowCount) 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss If pSettings.IsRequired = True And oRowCount = 0 Then pMissing = True pMissingMessage = "Fehlende Eingabe in Tabelle '" & pGrid.Name & "'" pGrid.BackColor = Color.Red - Logger.Warn(pMissingMessage) + MyValidationLogger.Warn(pMissingMessage) 'Exit For Return False @@ -5576,9 +5600,9 @@ Public Class frmValidator str = String.Join(PMDelimiter, oValueList.ToArray) ' 22.10.2021 Attempt at fixing empty lines appearing in indexes - Logger.Debug("Grid Value before saving: [{0}]", str) + MyValidationLogger.Debug("Grid Value before saving: [{0}]", str) If str.Trim.Length = 0 Or str.Trim.Replace(PMDelimiter, "").Length = 0 Then - Logger.Debug("Empty line in Grid [{0}]. Skipping.", pSettings.Name) + MyValidationLogger.Debug("Empty line in Grid [{0}]. Skipping.", pSettings.Name) Continue For End If @@ -5604,7 +5628,7 @@ Public Class frmValidator If Indexiere_File(CURRENT_WMFILE, pSettings.IndexName, myVektorArr) = False Then pMissing = True pMissingMessage = $"Error while indexing table (1) {pGrid.Name} - ERROR: " & idxerr_message - Logger.Warn(pMissingMessage) + MyValidationLogger.Warn(pMissingMessage) 'Exit For Return False End If @@ -5614,7 +5638,7 @@ Public Class frmValidator If IDBData.SetVariableValue(pSettings.IndexName, oMyDT, True, pSettings.IDBAttributeType) = False Then pMissing = True pMissingMessage = $"Error while indexing table IDB (1) {pGrid.Name} - ERROR: " & idxerr_message - Logger.Warn(pMissingMessage) + MyValidationLogger.Warn(pMissingMessage) 'Exit For Return False End If @@ -5631,7 +5655,7 @@ Public Class frmValidator pMissing = True 'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message pMissingMessage = $"Error while indexing table (2) {pGrid.Name} - ERROR: " & idxerr_message - Logger.Warn(pMissingMessage) + MyValidationLogger.Warn(pMissingMessage) 'Exit For Return False End If @@ -5641,11 +5665,11 @@ Public Class frmValidator If oTypeOldResult = "System.Data.DataTable" Then Dim oDT As DataTable = IDBData.GetVariableValue(pSettings.IndexName, pSettings.IDBAttributeType) If oDT.Rows.Count > 0 Then - Logger.Debug("User cleared the grid, so data needs to be erased!") + MyValidationLogger.Debug("User cleared the grid, so data needs to be erased!") IDBData.Delete_AttributeData(CURRENT_DOC_ID, pSettings.IndexName) End If Else - Logger.Debug("(String) User cleared the grid, so data needs to be erased!") + MyValidationLogger.Debug("(String) User cleared the grid, so data needs to be erased!") IDBData.Delete_AttributeData(CURRENT_DOC_ID, pSettings.IndexName) End If @@ -5655,7 +5679,7 @@ Public Class frmValidator Return True Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) Return False End Try End Function @@ -5676,13 +5700,13 @@ Public Class frmValidator 'Das Array der Idnexwerte überprüfen If pIndexValues Is Nothing = False Then If pIndexValues.Length() > 1 Then - Logger.Debug("Indexing Index '" & pIndexName & "' with Arrayvalue") + MyValidationLogger.Debug("Indexing Index '" & pIndexName & "' with Arrayvalue") For Each oValue In pIndexValues Try - Logger.Debug("Current Index Value for [{0}] is [{1}]", pIndexName, oValue) + MyValidationLogger.Debug("Current Index Value for [{0}] is [{1}]", pIndexName, oValue) Catch ex As Exception - Logger.Debug("Current Index Value for [{0}] could not be read!", pIndexName) + MyValidationLogger.Debug("Current Index Value for [{0}] could not be read!", pIndexName) End Try Next @@ -5693,7 +5717,7 @@ Public Class frmValidator anzahl += 1 Next Else - Logger.Debug("Indexing Index '" & pIndexName & "' with value '" & pIndexValues(0) & "'") + MyValidationLogger.Debug("Indexing Index '" & pIndexName & "' with value '" & pIndexValues(0) & "'") ReDim Preserve arrValue(0) arrValue(0) = pIndexValues(0).ToString End If @@ -5704,9 +5728,9 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) idxerr_message = "Unexpected error in Indexiere_File: " & ex.Message.ToString - Logger.Info("Unexpected error in Indexiere_File: " & ex.Message.ToString, True) + MyValidationLogger.Info("Unexpected error in Indexiere_File: " & ex.Message.ToString, True) Return False End Try End Function @@ -5717,7 +5741,7 @@ Public Class frmValidator Sub Datei_ueberspringen() Try - Logger.Debug("Skipping document....(Datei_ueberspringen)") + MyValidationLogger.Debug("Skipping document....(Datei_ueberspringen)") 'Das Dokument freigeben 'PRTF_PROFILE_FILES_WORK("FreeFile") Dim sql = $"UPDATE TBPM_PROFILE_FILES Set IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}" @@ -5725,10 +5749,10 @@ Public Class frmValidator Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}" DatabaseFallback.ExecuteNonQueryECM(oSQL) - Logger.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}") + MyValidationLogger.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}") Load_Next_Document(False) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Fehler bei Überspringen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub @@ -5737,7 +5761,7 @@ Public Class frmValidator Dim sql = $"EXEC PRTF_PROFILE_FILES_WORK {CURRENT_DOC_ID},{CURRENT_ProfilGUID},{USER_ID},'{pMode}'" Return DatabaseFallback.ExecuteNonQueryECM(sql) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) Return False End Try End Function @@ -5753,7 +5777,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Warn($"Unexpected error in delete_active_File DocumentViewerValidator.Done: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in delete_active_File DocumentViewerValidator.Done: {ex.Message}") End Try Thread.Sleep(500) Application.DoEvents() @@ -5772,7 +5796,7 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Fehler bei Löschen windream-Datei:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -5786,43 +5810,43 @@ Public Class frmValidator If CURRENT_WMFILE.aLocked Then ' unlock the windream object CURRENT_WMFILE.unlock() - Logger.Debug("## Delete_WMFile WMFile unlocked! ##") + MyValidationLogger.Debug("## Delete_WMFile WMFile unlocked! ##") End If Try CURRENT_WMFILE.Delete() - Logger.Info("Manual deleting of file [" & CURRENT_WMFILE.aName & "] successfull!") + MyValidationLogger.Info("Manual deleting of file [" & CURRENT_WMFILE.aName & "] successfull!") Return True Catch ex As Exception - Logger.Warn($"Could not delete via windream-function - ERROR: [{ex.Message}] {vbNewLine} Trying system.io...") + MyValidationLogger.Warn($"Could not delete via windream-function - ERROR: [{ex.Message}] {vbNewLine} Trying system.io...") Try Try CURRENT_WMFILE.unlock() Catch exul As Exception - Logger.Warn($"Could not unlock WMFile - ERROR: [{exul.Message}] - now teh system.io.Delete...") + MyValidationLogger.Warn($"Could not unlock WMFile - ERROR: [{exul.Message}] - now teh system.io.Delete...") End Try WMDocPathWindows = "" CURRENT_DOC_PATH = "" CURRENT_WMFILE = Nothing File.Delete(WMDocPathWindows) - Logger.Info("Deleting of file via system.io [" & WMDocPathWindows & "] successfull!") + MyValidationLogger.Info("Deleting of file via system.io [" & WMDocPathWindows & "] successfull!") Return True Catch ex1 As Exception - Logger.Warn($"Could not delete via System.IO - ERROR: [{ex1.Message}] {vbNewLine} Trying system.io...") + MyValidationLogger.Warn($"Could not delete via System.IO - ERROR: [{ex1.Message}] {vbNewLine} Trying system.io...") Return False End Try End Try Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Das windream-Objekt konnte nicht gelöscht werden!" & vbNewLine & vbNewLine & "Fehlermeldung:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Logger.Info(" windream-Objekt konnte nicht gelöscht werden - Fehlermeldung: " & ex.Message, True) + MyValidationLogger.Info(" windream-Objekt konnte nicht gelöscht werden - Fehlermeldung: " & ex.Message, True) Return False End Try End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Fehler bei Delete_File") - Logger.Info(">> Fehlermeldung: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Fehler bei Delete_File") + MyValidationLogger.Info(">> Fehlermeldung: " & ex.Message) Return False End Try End Function @@ -5942,17 +5966,17 @@ Public Class frmValidator End Sub Private Sub bbtniRefreshSearches_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick - Click_Additional_Searches() + TryOpen_Additional_Searches() End Sub - Sub Click_Additional_Searches() + Sub TryOpen_Additional_Searches() Try _frmValidatorSearch?.Close() _frmValidatorSearch = New frmValidatorSearch(Me, Environment) _frmValidatorSearch.Show() Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) End Try - Load_Additional_Searches(False) + Load_Additional_Searches(True) End Sub Private Sub bbtniRefresh_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtniRefresh.ItemClick Reload_Controls("") @@ -5996,7 +6020,7 @@ Public Class frmValidator If Check_UpdateIndexe() = True Then SetStatusLabel($"Data saved", "LimeGreen") - Logger.Info("Workflowdata saved manually!") + MyValidationLogger.Info("Workflowdata saved manually!") Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, System.Environment.MachineName, "Manual Save via button") DatabaseFallback.ExecuteNonQueryECM(ins) Else @@ -6009,8 +6033,8 @@ Public Class frmValidator Dim xml As String = GetXML_OverviewLayoutName(pProfilID, pControlID) pGridView.SaveLayoutToXml(xml) Catch ex As Exception - Logger.Error(ex) - Logger.Info("Error while saving GridLayout: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Error while saving GridLayout: " & ex.Message) End Try End Sub @@ -6023,8 +6047,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Error while restoring layout: " & ex.Message) + MyValidationLogger.Error(ex) + MyValidationLogger.Info("Error while restoring layout: " & ex.Message) End Try End Sub Private Function GetXML_OverviewLayoutName(pProfilID As Integer, pControlID As Integer) @@ -6037,7 +6061,7 @@ Public Class frmValidator End Sub Private Sub Attmt_bbtnitmShow_Click(sender As Object, e As ItemClickEventArgs) Handles Attmt_bbtnitmShow.ItemClick - Click_Additional_Searches() + TryOpen_Additional_Searches() End Sub Private Sub barbtnitmExport_ItemClick(sender As Object, e As ItemClickEventArgs) Handles barbtnitmExport.ItemClick @@ -6067,7 +6091,7 @@ Public Class frmValidator Dim oExportFilename = DatabaseFallback.GetScalarValueECM(oSQLGetFilename) If Not IsNothing(oExportFilename) Then If IsDBNull(oExportFilename) Then - Logger.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}") + MyValidationLogger.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}") oExportFilename = "" End If If oExportFilename <> String.Empty Then @@ -6080,27 +6104,27 @@ Public Class frmValidator Dim oConverter As New PDFConverter(LOGCONFIG) If oConverter.ConvertPDFADocumentToPDFDocument(WMDocPathWindows, oTempFullFilename) = False Then - Logger.Warn("File [{0}] could not be converted to plain PDF!", WMDocPathWindows) + MyValidationLogger.Warn("File [{0}] could not be converted to plain PDF!", WMDocPathWindows) oFile2Export = WMDocPathWindows Else - Logger.Info("File [{0}] successfully converted to plain PDF!", oTempFullFilename) - Logger.Info("File [{0}] successfully converted to plain PDF!", WMDocPathWindows) + MyValidationLogger.Info("File [{0}] successfully converted to plain PDF!", oTempFullFilename) + MyValidationLogger.Info("File [{0}] successfully converted to plain PDF!", WMDocPathWindows) oFile2Export = oTempFullFilename End If Else - Logger.Warn("No converting as File [{0}] not ending with pdf [{1}]", WMDocPathWindows, oExtension.ToLower) + MyValidationLogger.Warn("No converting as File [{0}] not ending with pdf [{1}]", WMDocPathWindows, oExtension.ToLower) oFile2Export = WMDocPathWindows End If Else - Logger.Warn("No converting as barbtnitmExport.Tag.ToString <> Convert to PDF") + MyValidationLogger.Warn("No converting as barbtnitmExport.Tag.ToString <> Convert to PDF") oFile2Export = WMDocPathWindows End If Else oFile2Export = WMDocPathWindows End If - Logger.Info("Final export path is: [{0}]", oFile2Export) + MyValidationLogger.Info("Final export path is: [{0}]", oFile2Export) File.Copy(oFile2Export, oTargetPath) - Logger.Info($"File {WMDocPathWindows} exported successfully!") + MyValidationLogger.Info($"File {WMDocPathWindows} exported successfully!") oCount += 1 Else MsgBox("Error encountered while extracting Export-Filename!" & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) @@ -6122,7 +6146,7 @@ Public Class frmValidator oExtension = Path.GetExtension(oFromFilename) If Not IsNothing(oExportFilename) Then If IsDBNull(oExportFilename) Then - Logger.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}") + MyValidationLogger.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}") oExportFilename = "" End If If oExportFilename <> String.Empty Then @@ -6131,7 +6155,7 @@ Public Class frmValidator oCount += 1 Else Dim omsg = $"Error encountered while extracting ATTACHMENT-Export-Filename DocID [{oDocID}]!" - Logger.Info($"#### ATTENTION: {omsg} SQL: {oSQLGetFilename}") + MyValidationLogger.Info($"#### ATTENTION: {omsg} SQL: {oSQLGetFilename}") MsgBox(omsg & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If End If @@ -6146,7 +6170,7 @@ Public Class frmValidator MsgBox($"[{oCount}] file/s successfully exported to target [{FolderBrowserDialog1.SelectedPath}]!", MsgBoxStyle.Information, ADDITIONAL_TITLE) Catch ex As Exception - Logger.Error(ex) + MyValidationLogger.Error(ex) MsgBox("Could not move file to target: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub @@ -6197,13 +6221,13 @@ Public Class frmValidator For Each oControl As Control In PanelValidatorControl.Controls If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Attribute = PROFIL_NOT_RESP_COMMENT_ATTR Then Dim oName = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Name - Logger.Debug($"Got the control for the NR Attribute :{oName}..Gettin the value...") + MyValidationLogger.Debug($"Got the control for the NR Attribute :{oName}..Gettin the value...") If oControl.GetType() = GetType(DevExpress.XtraEditors.TextEdit) Or oControl.GetType() = GetType(MemoEdit) Then Try oCommentSoFar = DirectCast(oControl, DevExpress.XtraEditors.TextEdit).EditValue Exit For Catch ex As Exception - Logger.Warn($"Unexpected error in Checking EditValue: {ex.Message}") + MyValidationLogger.Warn($"Unexpected error in Checking EditValue: {ex.Message}") End Try End If End If diff --git a/app/TaskFlow/frmValidatorSearch.resx b/app/TaskFlow/frmValidatorSearch.resx index 57cf99d..a48082b 100644 --- a/app/TaskFlow/frmValidatorSearch.resx +++ b/app/TaskFlow/frmValidatorSearch.resx @@ -138,7 +138,7 @@ 0, 0 - 349, 559 + 233, 373 @@ -187,7 +187,7 @@ 0, 0 - 349, 553 + 233, 373 1 @@ -205,7 +205,7 @@ 0 - 349, 553 + 349, 559 XtraTabPage2 @@ -229,7 +229,7 @@ 0, 0 - 349, 553 + 233, 373 1 @@ -247,7 +247,7 @@ 0 - 349, 553 + 349, 559 XtraTabPage1 @@ -271,7 +271,7 @@ 0, 0 - 349, 553 + 233, 373 1 @@ -289,7 +289,7 @@ 0 - 349, 553 + 349, 559 XtraTabPage2 @@ -313,7 +313,7 @@ 0, 0 - 349, 553 + 233, 373 1 @@ -331,7 +331,7 @@ 0 - 349, 553 + 349, 559 XtraTabPage3 @@ -391,7 +391,7 @@ DocumentViewer1 - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=2.0.1.0, Culture=neutral, PublicKeyToken=null + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=2.0.2.0, Culture=neutral, PublicKeyToken=null SplitContainerControlDoc.Panel2 @@ -451,7 +451,7 @@ 0, 0 - 561, 562 + 374, 375 1 @@ -499,7 +499,7 @@ 0, 0 - 561, 556 + 374, 375 2 @@ -517,7 +517,7 @@ 0 - 561, 556 + 561, 562 Search2 @@ -541,7 +541,7 @@ 0, 0 - 561, 556 + 374, 375 2 @@ -559,7 +559,7 @@ 0 - 561, 556 + 561, 562 XtraTabPage1 @@ -583,7 +583,7 @@ 0, 0 - 561, 556 + 374, 375 2 @@ -601,7 +601,7 @@ 0 - 561, 556 + 561, 562 XtraTabPage2 @@ -625,7 +625,7 @@ 0, 0 - 561, 556 + 374, 375 2 @@ -643,7 +643,7 @@ 0 - 561, 556 + 561, 562 XtraTabPage3 @@ -855,19 +855,18 @@ iVBORw0KGgoAAAANSUhEUgAAACAAAAAZCAYAAABQDyyRAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 - JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsQAAALEAGtI711AAACkUlE - QVRIS8XQXUhTYRwGcAkiqBuDhKAi6ia8kZp3QeS6iGjqnBtT0UqDNAtSJoKNokFuIUpG0kxKCVtWY5lE - IFmBmuG0D20jQ/Nrs0UzV2Yy9/307uSpA/317pwO/HjPeQ7v/33OSQDwX5GhlMhQSmQoJTKUEhmupMNq - XmtraRh71m6aNlaVHHp8xxC53WjALbMBTfV6NBgrYCjPj5lr9Xq1TX6J6abmCJHhajqtrW1L06a209oD - E/h6BryQW4fFDyUYf65BrU6FmpulML42si30HB4ZrsZyw5RaliN3wXcS7ddzucODLh2WJk5hYUgLX78C - oa6daGs9BvYH2BZ6Do8Mhc43T4Fn7RqDzVKP4MwFXKtWI15CuXc3/B9L8dORC9+LNMw+3YO5extRdyUL - 8hYZG0HP5ZGhUPxgy0vgyYCHO9zvuojyIgXcb/QoKczmSmTtk2PqkQz2pm3oa0jC5eOboCpOw/7GZDaC - nssjQ6F4gc7BH9zhHqeJO7zm6l22HsZkTxHyMnKA4e1I3ZWE9esSkbJjDU5olcivyoOsbjMbQc/lkaFQ - j/0dWwCv143qyqPwfJrint8O9nIlRu6nYEviBhQWHIG52RJ/xe1LLt56lvnzvBIyFOILIBr+bfmKxGKw - PeiArkAO5+gMZnzAwUxN/BU5ZyVkKNTd/2+BKDs8EI5hwR/Fl/kIZ9wrUoHeASdbgNaHfZyY4F5oxCNS - gR67gy3sWv4DEdYgEIri+2IYn7+FMekNweEOYNgtcgH+S4Osh/DLea8mo+IUsA+NsoVdy3/Az255c0HA - NQ+8nwUcjCgFKirPQaHIRIZS85dKi/QsNRTKbKQz8VWRqRKngNjIUEpkKCUylBIZSokMpYOEXxgRTAe1 - DBDPAAAAAElFTkSuQmCC + JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsPAAALDwGS+QOlAAACbElE + QVRIS8WQb0gTcRyHJYig3hgkBBlRb8I3UvNdEHm9iOjUbU6mopUL2rIgx0SwUTTILUTJSJpJKbHWKlkm + EUhW4Mxw2h9tI0PT6bYWbbkyk+n+3Se8mun9or3Quw4e7u6B+32f+6YASPmfEEJoCCE0hBAaQggNIf5F + R5txrbW1cfRpu2FSX606+Oi2LnarSYebRh2aG7Ro1FdCpy5hjHVarcxKXZRZqW7uGVwIkYzONpNlbtJg + OSXfP44vp5Eg4tFg9r0KY88KUKeRovZGOfSv9OB+z4UQyTBfN2RVFFJuBE+g/VoROzzs1mBu/CRmBuUI + 9tGIdO2AxXQUMiu18oBzLRNI0NY1Cqu5AWHveVytkWEhQrxnF0IfyvHDUYTg82wEnuzG1N2NqL8sAdUq + Wp0A8wvgcb+PHR5yX4BaQcPzWgtVWT4bIdlLYeKhCPbmrehtTMOlY5sgVWZjX1PG6gR0Dnxnh/ucBnZ4 + 7ZU7UCsOwWVToDi3EBjahqydaVi/LhWZ29fguFyMkupiiOo3rzzAZn+7cAj8fg9qqo7A93GCfX8z0MNG + DN/LxJbUDSgrPQxji3lxYIYy/UyGMn31AhCP/uL3FWMYWO93QFNKwTnihTcIHMgrSDqQCyG4dPeRAXGG + wXyUwUwojs/TMZYxP08BPf1OdqjpQS8Ls+R5KcM+ngJsdseyDcQYYD4Sx7fZKD59jcLlj8DhmceQh+eA + xJ+Go3/fwEtXnJ8A++DIsg2EgEWmwoB7GngXABwBnjZQWXUWNJ2HXHHBH6Ry5EhkoMX5yBHns3c6T8pP + AN8QQmgIITSEEBpCCA0hhOYnGBFMByIajowAAAAASUVORK5CYII= @@ -923,14 +922,14 @@ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAAZRJREFUOE+VkO0vQmEY - xvsn/Cn8Az4x1gd8s7GxUeYbG4sNy5BqpZeZkkoyNQ2NNpppGH0wNrJ5X1MtpSWV3rs8p5a0jtNc2/Xc - 57l337+d52IBoPW03NA4KTViZE6HGYUJPKF2jG6uqlFy95ACbRxRJ/U9OKqpmyKwYf5KR9eQnLTKcxVL - TObyFlvbB0RgcyTkWu4XDqVhD3RWrO7CYHXOUzNtXDHY/VK09MnIlQZApwXtDhqae38gdC4cfwHEagv2 - T29KECFp/Q8gWNwoLJdMRA+Q662kVCuXz2N58wRq8zEzQKLZIqVSZBeJVAahyBcsR3eob+qh2vQA4ZKZ - lEol01mEowl4Ap8w213MgFnFOillpTNZRGIp+N6juH8NwWi7ZAbwpXpSisrkcojGU/CHYnj0hHH18Abd - 9jkzYEKkIYWElssjnkgjEI7jxfeB66cgzm68UJkczIBxgYqElkciWQzN7Y/g9jkIp8uLwws3lGv22gAq - NCptKjDqzVry2yqzA0rjAWR6W+0nUAO1/HuxaLC+AebHD8Ec7JqWAAAAAElFTkSuQmCC + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAAAYdJREFUOE+NkG0rQ2Ec + h/clfBS+gFdEXox3iqI85d0UjUKTp02O7axlM9vMkZ0sIxQSIdsLUUZ5bnmIzZrZ5uzBOT/d01bOjjN3 + XXV397+uuv8KAAophgzO8gGKQfeoHcO0C2qtrVc8Qyh4yNGooqFs09WTe2ePtWSQYtClma1rUBnwr4CY + drWpurZDh5q2ycKA0bkOKei5NThXfeNkRtk+gZpWClUteumA1JmyraCssjkfkUI2MGFxY/PQn4toxXLR + wJhpMSvnEMv5gMGxKnazhxcEzCwdwMLuywcmrctiF4IAcKkMwtFPuHcvUVrR9HdAO82KfSTTX4jEODwG + P8Bun8sHRuiFX3I684VoPIXntxiuHsJgNk7kAxrKkZczPI9YIoWXcBw3jxGcXr/C7vHKB/p11qzM8wIS + XBrBSAL3z+84uw3hyP8Es2tPPtA3ZoYgCOCSP0sLvERxcReC7/wJO8cBGOe3iwfI0si2ycLIn20eL8zs + HozMFvSODfkA+QIZKIZYJnwD5scPwUx8BNwAAAAASUVORK5CYII= diff --git a/app/TaskFlow/frmValidatorSearch.vb b/app/TaskFlow/frmValidatorSearch.vb index 4bd5cbe..a9716a5 100644 --- a/app/TaskFlow/frmValidatorSearch.vb +++ b/app/TaskFlow/frmValidatorSearch.vb @@ -77,14 +77,15 @@ Public Class frmValidatorSearch Return oOperationMode End Function - Public Sub TabPreload(Panel1Collapsed As Boolean, Panel2Collapsed As Boolean, TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable) + Public Sub TabPreload(TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable) Try + SplitContainerSearches.Panel1Collapsed = IIf(DTSQL.Rows.Count > 0, False, True) + SplitContainerSearches.Panel2Collapsed = IIf(DTDOC.Rows.Count > 0, False, True) If Me.InvokeRequired() Then - Me.Invoke(Sub() TabPreload(Panel1Collapsed, Panel2Collapsed, TabCountSQL, TabCountDoc, DTSQL, DTDOC)) + Me.Invoke(Sub() TabPreload(TabCountSQL, TabCountDoc, DTSQL, DTDOC)) Else '#### SQL Tabs Design Laden - SplitContainerSearches.Panel1Collapsed = Panel1Collapsed - SplitContainerSearches.Panel2Collapsed = Panel2Collapsed + If DTSQL.Rows.Count > 0 Then For p As Integer = 0 To XtraTabControlSQL.TabPages.Count - 1 If XtraTabControlSQL.TabPages(p).TabIndex >= TabCountSQL Then