diff --git a/app/TaskFlow.sln b/app/TaskFlow.sln index 7304fed..b5bd68e 100644 --- a/app/TaskFlow.sln +++ b/app/TaskFlow.sln @@ -7,35 +7,104 @@ Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\Setu EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "taskFLOW", "TaskFlow\taskFLOW.vbproj", "{6ACA1432-09A2-47EF-A704-C0AA73905756}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Windream", "..\..\..\2_DLL Projekte\DDModules\Windream\Windream.vbproj", "{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "LookupControl", "..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\LookupControl.vbproj", "{3DCD6D1A-C830-4241-B7E4-27430E7EA483}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution + CD_ROM|Any CPU = CD_ROM|Any CPU CD_ROM|x86 = CD_ROM|x86 + Debug|Any CPU = Debug|Any CPU Debug|x86 = Debug|x86 + DVD-5|Any CPU = DVD-5|Any CPU DVD-5|x86 = DVD-5|x86 + Release|Any CPU = Release|Any CPU Release|x86 = Release|x86 + SingleImage|Any CPU = SingleImage|Any CPU SingleImage|x86 = SingleImage|x86 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|Any CPU.ActiveCfg = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|Any CPU.Build.0 = Debug|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|x86.ActiveCfg = Release|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|x86.Build.0 = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|Any CPU.ActiveCfg = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|Any CPU.Build.0 = Debug|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|x86.ActiveCfg = Debug|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|x86.Build.0 = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|Any CPU.ActiveCfg = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|Any CPU.Build.0 = Debug|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|x86.ActiveCfg = Debug|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|x86.Build.0 = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|Any CPU.ActiveCfg = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|Any CPU.Build.0 = Release|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|x86.ActiveCfg = Release|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|x86.Build.0 = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|Any CPU.ActiveCfg = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|Any CPU.Build.0 = Debug|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|x86.ActiveCfg = Release|x86 {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|x86.Build.0 = Release|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|Any CPU.ActiveCfg = Release|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|Any CPU.Build.0 = Release|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|x86.ActiveCfg = Debug|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|x86.Build.0 = Debug|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|Any CPU.ActiveCfg = Debug|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|Any CPU.Build.0 = Debug|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|x86.ActiveCfg = Debug|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|x86.Build.0 = Debug|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|Any CPU.ActiveCfg = Debug|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|Any CPU.Build.0 = Debug|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|x86.ActiveCfg = Debug|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|x86.Build.0 = Debug|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|Any CPU.ActiveCfg = Release|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|Any CPU.Build.0 = Release|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|x86.ActiveCfg = Release|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|x86.Build.0 = Release|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|Any CPU.ActiveCfg = Release|x86 + {6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|Any CPU.Build.0 = Release|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|x86.ActiveCfg = Debug|x86 {6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|x86.Build.0 = Debug|x86 + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|x86.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|x86.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Any CPU.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|x86.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|x86.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|x86.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Any CPU.ActiveCfg = Release|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Any CPU.Build.0 = Release|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|x86.ActiveCfg = Release|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|x86.Build.0 = Release|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Any CPU.Build.0 = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|x86.ActiveCfg = Debug|Any CPU + {4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|x86.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|x86.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|x86.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|Any CPU.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|x86.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|x86.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|x86.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|Any CPU.ActiveCfg = Release|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|Any CPU.Build.0 = Release|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|x86.ActiveCfg = Release|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|x86.Build.0 = Release|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|Any CPU.Build.0 = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|x86.ActiveCfg = Debug|Any CPU + {3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|x86.Build.0 = Debug|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/app/TaskFlow/ClassFinalizeDoc.vb b/app/TaskFlow/ClassFinalizeDoc.vb index e3d2979..430c253 100644 --- a/app/TaskFlow/ClassFinalizeDoc.vb +++ b/app/TaskFlow/ClassFinalizeDoc.vb @@ -1,4 +1,5 @@ -Imports DigitalData.Modules.EDMI.API.Constants +Imports DevExpress.DataAccess.Native.Json +Imports DigitalData.Modules.EDMI.API.Constants Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback Public Class ClassFinalizeDoc @@ -18,10 +19,11 @@ Public Class ClassFinalizeDoc 'Jetzt finale Indexe setzen LOGGER.Debug("working final indices for doc: " & WMObject.aName) For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows - Dim value As String = dr.Item("VALUE").ToString + Dim ovalueString As String = dr.Item("VALUE").ToString Dim INDEXNAME = dr.Item("INDEXNAME").ToString Dim oContinueOnIndifferentState As Boolean = CBool(dr.Item("CONTINUE_INDETERMINED")) - If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### + Dim VektorBeahaviour = dr.Item("IF_VEKTOR_BEHAVIOUR").ToString + If ovalueString.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### LOGGER.Debug("indexing with dynamic sql...") 'Dim SQL_COMMAND = dr.Item("SQL_COMMAND") '' Regulären Ausdruck zum Auslesen der Indexe definieren @@ -52,32 +54,32 @@ Public Class ClassFinalizeDoc LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement) Dim oDynamic_value = DatabaseFallback.GetScalarValueECM(sql_Statement) ', CONNECTION_STRING_ECM, "Write_Final_Metadata/dynamic_value") If Not IsNothing(oDynamic_value) Then - value = oDynamic_value + ovalueString = oDynamic_value Else Continue For End If Else - If value.StartsWith("v") Then + If ovalueString.StartsWith("v") Then Select Case dr.Item("VALUE").ToString Case "vDate" - value = Now.ToShortDateString + ovalueString = Now.ToShortDateString Case "vUserName" - value = USER_USERNAME + ovalueString = USER_USERNAME Case Else - value = dr.Item("VALUE") + ovalueString = dr.Item("VALUE") End Select End If End If Dim result() As String ReDim Preserve result(0) - result(0) = value + result(0) = ovalueString Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME) LOGGER.Debug($"oIndexType {oIndexType.ToString}") If oIndexType > 4000 And oIndexType < 5000 Then 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = True Then + If Indexiere_VektorfeldPM(ovalueString, INDEXNAME, WMObject) = True Then LOGGER.Debug("FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT") Else @@ -87,12 +89,13 @@ Public Class ClassFinalizeDoc End If Else LOGGER.Debug("now indexing..") - If Indexiere_File(INDEXNAME, result, WMObject) = True Then + + If WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, INDEXNAME, ovalueString, CURRENT_WMObjecttype) = True Then 'Indexiere_File(INDEXNAME, result, WMObject) = True Then LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT") LOGGER.Debug("") 'Nun das Logging If CURRENT_PROFILE_LOG_INDEX <> "" Then - Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME) + Dim logstr = Return_LOGString(ovalueString, "DDFINALINDEX", INDEXNAME) Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_LOG_INDEX, WMObject) End If @@ -120,39 +123,73 @@ Public Class ClassFinalizeDoc End Try End Function - Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object, WMObject As WINDREAMLib.WMObject) - Dim File_indexiert As Boolean = False + Private Shared Function Indexiere_File(pIndexName As String, pIndexValues As Object, WMObject As WINDREAMLib.WMObject) As Boolean + LOGGER.Debug("### Indexiere_File Begin ###") + Dim indexierung_erfolgreich As Boolean = False + Try + Dim oIndexType As Integer = WINDREAM_MOD.GetIndexType(pIndexName) + If oIndexType > 4095 Then + LOGGER.Debug("Es Handelt sich um einen VektorIndex...") + Dim oExistingItems = WINDREAM_MOD.GetIndexValue(CURRENT_DOC_PATH, pIndexName) + + Dim oListofString As New List(Of String) + If pIndexValues.Length = 0 Then + LOGGER.Debug("oSplitArray.Length = 0") + oListofString.Add(pIndexValues(0)) + Else + LOGGER.Debug($"pIndexValues.Length is > 0 [{pIndexValues.length}] ...") + For Each oStr In pIndexValues + LOGGER.Debug("pIndexValues - oString : {0}", oStr) + oListofString.Add(oStr) + Next + End If + + If oExistingItems.Count > 0 Then + LOGGER.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count) + oListofString = oExistingItems.Concat(oListofString).ToList() + End If + oListofString = oListofString.Distinct().ToList() + indexierung_erfolgreich = WINDREAM_MOD.SetFileIndexLoS(CURRENT_DOC_PATH, pIndexName, oListofString, CURRENT_WMObjecttype) + Else + Dim oStringValue As String = pIndexValues(0).ToString + indexierung_erfolgreich = WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, pIndexName, oStringValue, CURRENT_WMObjecttype) + End If + Return indexierung_erfolgreich + Catch ex As Exception + LOGGER.Warn("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString) + Return False + End Try ' Try - 'Die Arrays vorbereiten - Dim arrIndex() As String = Nothing - Dim arrValue() As String = Nothing - arrIndex = Nothing - arrValue = Nothing - 'Den Indexnamen übergeben - ReDim Preserve arrIndex(0) - arrIndex(0) = idxxname - 'Das Array der Idnexwerte überprüfen - If idxvalue Is Nothing = False Then - If idxvalue.Length() > 1 Then - LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue") - Dim anzahl As Integer = 0 - For Each indexvalue As String In idxvalue - ReDim Preserve arrValue(anzahl) - arrValue(anzahl) = indexvalue - anzahl += 1 - Next - Else - LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'") - ReDim Preserve arrValue(0) - arrValue(0) = idxvalue(0).ToString - End If - 'Dim _windreamPM As New ClassPMWindream - 'Jetzt das eigentliche Indexieren der Datei - File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue) + ''Die Arrays vorbereiten + 'Dim arrIndex() As String = Nothing + 'Dim arrValue() As String = Nothing + 'arrIndex = Nothing + 'arrValue = Nothing + ''Den Indexnamen übergeben + 'ReDim Preserve arrIndex(0) + 'arrIndex(0) = idxxname + ''Das Array der Idnexwerte überprüfen + 'If idxvalue Is Nothing = False Then + ' If idxvalue.Length() > 1 Then + ' LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue") + ' Dim anzahl As Integer = 0 + ' For Each indexvalue As String In idxvalue + ' ReDim Preserve arrValue(anzahl) + ' arrValue(anzahl) = indexvalue + ' anzahl += 1 + ' Next + ' Else + ' LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'") + ' ReDim Preserve arrValue(0) + ' arrValue(0) = idxvalue(0).ToString + ' End If + ' 'Dim _windreamPM As New ClassPMWindream + ' 'Jetzt das eigentliche Indexieren der Datei + 'File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue) - Return File_indexiert - End If + 'Return File_indexiert + ' End If 'Catch ex As Exception ' LOGGER.Info("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True) diff --git a/app/TaskFlow/ClassPMWindream.vb b/app/TaskFlow/ClassPMWindream.vb index 02bd2b6..e847dfc 100644 --- a/app/TaskFlow/ClassPMWindream.vb +++ b/app/TaskFlow/ClassPMWindream.vb @@ -159,13 +159,19 @@ Public Class ClassPMWindream Case WMObjectVariableValueTypeInteger LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger") If IsNumeric(value) = False Then - frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value - LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!") - oDocument.Save() - oDocument.unlock() - Return False + If value = "String.Empty" Then + convertValue = vbEmpty + Else + frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value + LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!") + oDocument.Save() + oDocument.unlock() + Return False + End If + Else + convertValue = CInt(value) End If - convertValue = CInt(value) + _int = True Case WMObjectVariableValueTypeInteger64bit LOGGER.Debug("Typ des windream-Indexes: Integer64bit") @@ -289,7 +295,10 @@ Public Class ClassPMWindream 'ReDim ArrName(0) 'ArrName(0) = "Tournr" 'oDocument.SetValues(ArrName, ArrValues) - If _int = True Then + If convertValue = "String.Empty" Or convertValue = vbEmpty Then + LOGGER.Debug("Now Indexing simpleAttribute with vbEmpty ...") + oDocument.SetVariableValue(aName, String.Empty) + ElseIf _int = True Then oDocument.SetVariableValue(aName, CInt(convertValue)) ElseIf _date = True Then oDocument.SetVariableValue(aName, CDate(convertValue)) @@ -414,7 +423,13 @@ Public Class ClassPMWindream LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray) 'Jetzt die Nachindexierung für Vektor-Felder - oDocument.SetVariableValue(aName, myArray) + If myArray(0) = "String.Empty" Then + LOGGER.Debug("Now Indexing vektor-attribute with vbEmpty ...") + oDocument.SetVariableValue(aName, vbEmpty) + Else + oDocument.SetVariableValue(aName, myArray) + End If + LOGGER.Debug("'SetVariableValue' für VEKTOR erfolgreich", False) End If End If diff --git a/app/TaskFlow/TaskFlow.vbproj b/app/TaskFlow/TaskFlow.vbproj index b400300..bcfe70d 100644 --- a/app/TaskFlow/TaskFlow.vbproj +++ b/app/TaskFlow/TaskFlow.vbproj @@ -203,7 +203,8 @@ ..\packages\DigitalData.Modules.Windows.1.5.1\lib\net462\DigitalData.Modules.Windows.dll - + + False ..\..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll diff --git a/app/TaskFlow/frmAdministration.vb b/app/TaskFlow/frmAdministration.vb index 2330467..3125174 100644 --- a/app/TaskFlow/frmAdministration.vb +++ b/app/TaskFlow/frmAdministration.vb @@ -777,7 +777,7 @@ Public Class frmAdministration obj.ContinueOnIndifferentState = oValue ElseIf oName = "VectorBehaviour" Then If oValue = "Delete" Then - obj.StringValue = "" + obj.StringValue = "DeleteWMAttributeValue" ElseIf oValue = "Add" And obj.StringValue = "" Then obj.StringValue = "Your value to set" End If diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index 6c929bf..2663909 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/app/TaskFlow/frmValidator.vb @@ -107,7 +107,7 @@ Public Class frmValidator Private PerformanceLogger As Logger Private Validator As Validator Private Const LOG_PERF = True - Private ReadOnly Logger As Logger + Private ReadOnly ValidatorLogger As Logger Private Property OperationMode As OperationMode Private ReadOnly Environment As Environment @@ -131,18 +131,18 @@ Public Class frmValidator Public Sub New(pEnvironment As Environment) PerformanceLogger = LOGCONFIG.GetLoggerFor("PERF") If LOG_PERF Then PerformanceLogger.Info("New") - Logger = LOGCONFIG.GetLogger() + ValidatorLogger = LOGCONFIG.GetLogger() 'MyBase.New - Logger.Debug("Initialize Components...") + ValidatorLogger.Debug("Initialize Components...") InitializeComponent() Environment = pEnvironment Try - Logger.Debug("Initialize _frmValidatorSearch...") + ValidatorLogger.Debug("Initialize _frmValidatorSearch...") _frmValidatorSearch = New frmValidatorSearch(Me, Environment) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try @@ -182,8 +182,8 @@ Public Class frmValidator If LOG_PERF Then PerformanceLogger.Info("frmValidation_Load") - Logger.Debug("###frmValidation_Load###") - Logger.Debug("Current User Language: [{0}]", USER_LANGUAGE) + ValidatorLogger.Debug("###frmValidation_Load###") + ValidatorLogger.Debug("Current User Language: [{0}]", USER_LANGUAGE) ' Operation mode is either guessed from service settings ' or explictly set from OperationModeOverride in Params @@ -202,7 +202,7 @@ Public Class frmValidator _FormLoaded = False Catch ex As Exception - Logger.Warn($"Error in frmValidation_load1: {ex.Message}") + ValidatorLogger.Warn($"Error in frmValidation_load1: {ex.Message}") End Try Try @@ -220,7 +220,7 @@ Public Class frmValidator Location = My.Settings.frmValidatorPosition Else Try - Logger.Debug($"!! Invalid PositionData X({My.Settings.frmValidatorPosition.X}), Y({My.Settings.frmValidatorPosition.Y})") + ValidatorLogger.Debug($"!! Invalid PositionData X({My.Settings.frmValidatorPosition.X}), Y({My.Settings.frmValidatorPosition.Y})") Catch ex As Exception End Try @@ -243,14 +243,14 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Info($"Error loading position: {ex.Message}") + ValidatorLogger.Info($"Error loading position: {ex.Message}") End Try Dim _step = 0 Try DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Try _step = 1 @@ -261,32 +261,32 @@ Public Class frmValidator DTVWCONTROLS_INDEX.Select(oExpression, "Y_LOC, X_LOC").CopyToDataTable(DTVWCONTROL_INDEX, LoadOption.PreserveChanges) _step = 3 - Logger.Debug("Profile Data loaded") + ValidatorLogger.Debug("Profile Data loaded") Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Info(">> Error in LOADING profile-data: " & ex.Message, True) Me.Close() End Try - Logger.Debug("frmValidation_Load finished till Step 3!") + ValidatorLogger.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) + ValidatorLogger.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") + ValidatorLogger.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") + ValidatorLogger.Debug("Step 5") If CURRENT_DT_PROFILE.Rows.Count = 1 Then _step = 6 - Logger.Debug("Step 6") + ValidatorLogger.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") @@ -355,11 +355,11 @@ Public Class frmValidator End If btnSave.Text = oProfileFinalText End If - Logger.Debug("Buttontext validation loaded") + ValidatorLogger.Debug("Buttontext validation loaded") Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - Logger.Info(">> Error loading final profile text: " & ex.Message, True) + ValidatorLogger.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") @@ -373,11 +373,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) + ValidatorLogger.Debug($"oProfileRejectionText: " + oProfileRejectionText) + ValidatorLogger.Debug($"oProfile_REJECT_SQL_REASONS: " + oProfile_REJECT_SQL_REASONS) + ValidatorLogger.Debug($"oProfileNotResponsibleText: " + oProfileNotResponsibleText) + ValidatorLogger.Debug($"oProfile_NOT_RESP_SQL: " + oProfile_NOT_RESP_SQL) + ValidatorLogger.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 @@ -389,7 +389,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!") + ValidatorLogger.Debug($"!Keine Ablehnung und Nicht zuständig Funktion konfiguriert!") SplitContainerReject_NotResp.Visible = False SplitContainerButtons.CollapsePanel = SplitCollapsePanel.None SplitContainerButtons.PanelVisibility = SplitPanelVisibility.Panel2 @@ -397,7 +397,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!") + ValidatorLogger.Debug($"Nicht zuständig und Ablehnungs-Buttons werden eingeblendet!") SplitContainerReject_NotResp.CollapsePanel = SplitCollapsePanel.None SplitContainerButtons.PanelVisibility = SplitPanelVisibility.Both btnReject.Text = oProfileRejectionText @@ -411,7 +411,7 @@ Public Class frmValidator End If Else If functBtnNR = True Then - Logger.Debug($"Nicht zuständig Button wird eingeblendet!") + ValidatorLogger.Debug($"Nicht zuständig Button wird eingeblendet!") SplitContainerReject_NotResp.CollapsePanel = SplitCollapsePanel.Panel1 SplitContainerReject_NotResp.PanelVisibility = SplitPanelVisibility.Panel2 btnReject.Visible = False @@ -449,13 +449,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) + ValidatorLogger.Debug(" >> profiledata saved:") + ValidatorLogger.Debug(" >> finalProfile: " & finalProfile) + ValidatorLogger.Debug(" >> Move2Folder: " & Move2Folder) + ValidatorLogger.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) + ValidatorLogger.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) 'Delete Button anzeigen ja/nein If USER_RIGHT_FILE_DELETE = True Then bbtniDelete.Visibility = BarItemVisibility.Always @@ -470,7 +470,7 @@ Public Class frmValidator Else bbtniAnnotation.Visibility = BarItemVisibility.Never End If - Logger.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) + ValidatorLogger.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) Create_Controls() @@ -481,12 +481,12 @@ Public Class frmValidator oErrMsgMissingInput = S.Bitte_validieren_Sie_die_rot_markierten_Felder_ - Logger.Debug("frmValidation_Load finished!") + ValidatorLogger.Debug("frmValidation_Load finished!") Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - Logger.Info("Unexpected error in LOADING Profile-Data1: " & ex.Message) + ValidatorLogger.Info("Unexpected error in LOADING Profile-Data1: " & ex.Message) End Try End Sub @@ -507,14 +507,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) + ValidatorLogger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Error(ex) End Try Try @@ -522,7 +522,7 @@ Public Class frmValidator DatabaseFallback.ExecuteNonQueryECM(oDel) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) MsgBox("Error in delete jumped files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -536,7 +536,7 @@ Public Class frmValidator Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End If Reset_CurrentReferences() @@ -545,17 +545,17 @@ Public Class frmValidator DocumentViewerValidator.CloseDocument() DocumentViewerValidator.Done() Catch ex As Exception - Logger.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}") End Try Try _frmValidatorSearch.Close() Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End Sub Sub Reset_CurrentReferences() - Logger.Info("Attention: Reset_CurrentReferences....") + ValidatorLogger.Info("Attention: Reset_CurrentReferences....") If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then DT_AdditionalSearches_Resultset_Docs.Clear() @@ -661,13 +661,13 @@ Public Class frmValidator Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try bbtniRefreshSearches.Visibility = BarItemVisibility.Always Else - Logger.Debug("AdditionlSearhes result = false!") + ValidatorLogger.Debug("AdditionlSearhes result = false!") bbtniRefreshSearches.Visibility = BarItemVisibility.Never rbnPgGroupAttmt.Visible = False End If @@ -687,7 +687,7 @@ Public Class frmValidator Exit Sub End If - Logger.Debug($"in LoadSQLData for ControlID [{pControlId}]...") + ValidatorLogger.Debug($"in LoadSQLData for ControlID [{pControlId}]...") Dim oDTforControl As DataTable = DTCONTROLS_WITH_SQL.Clone() Dim oExpression = $"GUID = {pControlId} AND PROFIL_ID = {CURRENT_ProfilGUID}" @@ -700,19 +700,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}] ...") + ValidatorLogger.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.") + ValidatorLogger.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}") + ValidatorLogger.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oGUID}") Continue For End If @@ -738,7 +738,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}]") + ValidatorLogger.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSQLStatement}]") Continue For End If @@ -747,7 +747,7 @@ Public Class frmValidator }) If IsNothing(oDTContent) Then - Logger.Warn($"SQL-Query [{oSQLStatement}] for control {control.Name} is invalid.") + ValidatorLogger.Warn($"SQL-Query [{oSQLStatement}] for control {control.Name} is invalid.") Exit Sub End If Dim oValue @@ -763,7 +763,7 @@ Public Class frmValidator lookup.Properties.DisplayMember = oDTContent.Columns.Item(0).ColumnName Catch ex As Exception - Logger.Warn("Error in LookUpLoadSQLData: " & ex.Message) + ValidatorLogger.Warn("Error in LookUpLoadSQLData: " & ex.Message) End Try ElseIf TypeOf control Is DevExpress.XtraEditors.TextEdit Or TypeOf control Is MemoEdit Then @@ -775,14 +775,14 @@ Public Class frmValidator DirectCast(control, BaseEdit).EditValue = value oValue = value Catch ex As Exception - Logger.Warn("Error in TextBoxLoadSQLData: " & ex.Message) + ValidatorLogger.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}") + ValidatorLogger.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") Dim list As New List(Of String) For Each _row As DataRow In oDTContent.Rows @@ -793,7 +793,7 @@ Public Class frmValidator oMyComboBox.SelectedIndex = oselectedIndex Catch ex As Exception - Logger.Warn("Error in ComboBoxLoadSQLData: " & ex.Message) + ValidatorLogger.Warn("Error in ComboBoxLoadSQLData: " & ex.Message) End Try ElseIf TypeOf control Is GridControl Then @@ -820,12 +820,12 @@ Public Class frmValidator dataGridView.DataSource = oDataSource End If Catch ex As Exception - Logger.Warn("Error in GridControlSQLData: " & ex.Message) + ValidatorLogger.Warn("Error in GridControlSQLData: " & ex.Message) End Try End If Next Catch ex As Exception - Logger.Warn($"{ex.Message} - Loading ControlID: {pControlId}") + ValidatorLogger.Warn($"{ex.Message} - Loading ControlID: {pControlId}") MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub @@ -915,7 +915,7 @@ Public Class frmValidator Try oControlInfo = ClassControlCreator.PREFIX_TEXTBOX & "#" & oControlInfo - Logger.Debug($"[{oControlInfo}] - TXT Try to create control...") + ValidatorLogger.Debug($"[{oControlInfo}] - TXT Try to create control...") Dim txt As BaseEdit = ControlCreator.CreateExistingTextbox(oControlRow, False) If oIndexName = "@@DISPLAY_ONLY" Then @@ -926,9 +926,9 @@ Public Class frmValidator AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp oMyControl = txt - Logger.Debug($"[{oControlInfo}] - TXT Created!!") + ValidatorLogger.Debug($"[{oControlInfo}] - TXT Created!!") Catch ex As Exception - Logger.Warn($"Unexpected error in Create_Controls TXT [{oControlInfo}]: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in Create_Controls TXT [{oControlInfo}]: {ex.Message}") End Try Case "LBL" oControlInfo = "LBL#" & oControlInfo @@ -937,7 +937,7 @@ Public Class frmValidator If LOG_PERF Then PerformanceLogger.Info("Create_Controls/ComboBox") oControlInfo = "CMB#" & oControlInfo - Logger.Debug($"[{oControlInfo}] - CMB Try to create control...") + ValidatorLogger.Debug($"[{oControlInfo}] - CMB Try to create control...") If oControlRow.Item("READ_ONLY") Then Dim cmbReadonly = ControlCreator.CreateExistingTextbox(oControlRow, False) oMyControl = cmbReadonly @@ -956,7 +956,7 @@ Public Class frmValidator End If End Sub - Logger.Debug("In add_ComboBox - GUID: " & oControlID) + ValidatorLogger.Debug("In add_ComboBox - GUID: " & oControlID) Dim oCONID As Integer Try oCONID = PreventNulletc(oControlRow.Item("CONNECTION_ID"), "Integer") @@ -971,14 +971,14 @@ Public Class frmValidator Catch ex As Exception oCommandSQL_UBPF = "" End Try - Logger.Debug("ConID <> String.Empty") + ValidatorLogger.Debug("ConID <> String.Empty") If oCONID > 0 And oCommandSQL_UBPF <> String.Empty Then - Logger.Debug("ConID > 0 And commandsql <> String.Empty") + ValidatorLogger.Debug("ConID > 0 And commandsql <> String.Empty") Try oSQL = PreventNulletc(oControlRow.Item("SQL_UEBERPRUEFUNG"), "String") If clsPatterns.HasOnlySimplePatterns(oSQL) Then - Logger.Debug("SQL HasOnlySimplePatterns!") + ValidatorLogger.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}") @@ -993,15 +993,15 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Warn($"Unexpected error in CMB GetValues SQL - Error: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in CMB GetValues SQL - Error: {ex.Message}") End Try Else - Logger.Debug("Else Row 571") + ValidatorLogger.Debug("Else Row 571") End If Else - Logger.Debug("AListe Handling") + ValidatorLogger.Debug("AListe Handling") Dim AListe As String = oControlRow.Item("CHOICE_LIST") - Logger.Debug("In add_ComboBox - AListe: " & AListe) + ValidatorLogger.Debug("In add_ComboBox - AListe: " & AListe) If AListe Is Nothing = False Then 'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe) Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe) @@ -1022,7 +1022,7 @@ Public Class frmValidator oMyControl = oComboBox End If - Logger.Debug($"[{oControlInfo}] - CMB CONTROL created") + ValidatorLogger.Debug($"[{oControlInfo}] - CMB CONTROL created") Case "DTP" oControlInfo = "DTP#" & oControlInfo @@ -1065,7 +1065,7 @@ 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}") + ValidatorLogger.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 @@ -1073,7 +1073,7 @@ Public Class frmValidator 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}") + ValidatorLogger.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 @@ -1124,9 +1124,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) + ValidatorLogger.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) + ValidatorLogger.Debug("DTGRID_COLUMNS definition for control [{0}] does not contain any rows!", oControlInfo) Continue For End If @@ -1143,7 +1143,7 @@ Public Class frmValidator AddHandler obutton.Click, AddressOf onCustomButtonClick oMyControl = obutton End Select - Logger.Debug($"[{oControlInfo}]: End of Select...") + ValidatorLogger.Debug($"[{oControlInfo}]: End of Select...") If TypeOf oMyControl IsNot Label Then listofControls.Add(oMyControl.Name) @@ -1164,17 +1164,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) + ValidatorLogger.Warn(omsg) If DEBUG = False Then MsgBox(omsg, MsgBoxStyle.Critical, "Attention:") End Try Next - Logger.Debug("Create_Controls finished!") + ValidatorLogger.Debug("Create_Controls finished!") Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) If DEBUG = False Then MsgBox("Error CreateControls: " & ex.Message, MsgBoxStyle.Critical, "Attention:") End Try End Sub @@ -1184,7 +1184,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) + ValidatorLogger.Error(ex) End Try End Sub @@ -1275,8 +1275,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected Error in Display SQL result for control: " & oRow.Item("NAME") & " - ERROR: " & ex.Message) End Try Next @@ -1286,8 +1286,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected Error in Eventhandler Variable SQL Result - ERROR: " & ex.Message) End Try If oTextBox.Name <> last_control.Name Then SendKeys.Send("{TAB}") @@ -1304,12 +1304,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") + ValidatorLogger.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING") Exit Sub End If If Check_UpdateIndexe() = False Then - Logger.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click") + ValidatorLogger.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click") Exit Sub End If Override_SQLCommand = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL2") @@ -1365,13 +1365,13 @@ Public Class frmValidator Try OverrideAll = oDT_ACTIONS?.Rows(0).Item("OverrideAll") Catch ex As Exception - Logger.Warn($"Could not set OverrideAll {ex.Message}") + ValidatorLogger.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!") + ValidatorLogger.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!") End If - Logger.Debug($"ActionType [{oAction}]") + ValidatorLogger.Debug($"ActionType [{oAction}]") Select Case oAction.ToString.ToUpper Case "SetButton".ToUpper btnSave.Text = oCaption & " (F2)" @@ -1439,10 +1439,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}]") + ValidatorLogger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") End Select Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Cursor = Cursors.Default @@ -1494,8 +1494,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected Error in Display SQL result for control: " & ROW.Item(0).ToString & " - ERROR: " & ex.Message) End Try Next @@ -1503,14 +1503,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) + ValidatorLogger.Error(ex) + ValidatorLogger.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") + ValidatorLogger.Debug("onLookUpselectedValue") If _FormLoaded = False Then Exit Sub End If @@ -1524,15 +1524,15 @@ Public Class frmValidator LookupControl_EnablingControls(oLookup, SelectedValues) LookupControl_DependingColumn(oLookup, SelectedValues) Else - Logger.Debug("Attention: onLookUpselectedValue: SelectedValues.Count <> 1 ") + ValidatorLogger.Debug("Attention: onLookUpselectedValue: SelectedValues.Count <> 1 ") End If End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Catch ex As Exception - Logger.Warn("Unexpected error in onLookUpselectedValue - " + ex.Message) - Logger.Error(ex) + ValidatorLogger.Warn("Unexpected error in onLookUpselectedValue - " + ex.Message) + ValidatorLogger.Error(ex) End Try End Sub @@ -1562,13 +1562,13 @@ Public Class frmValidator End If Next Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End Sub Public Sub onCheckBox_CheckedChange(sender As Object, e As EventArgs) - Logger.Debug("onCheckBox_CheckedChange") + ValidatorLogger.Debug("onCheckBox_CheckedChange") If _FormLoaded = False Then Exit Sub @@ -1581,7 +1581,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) + ValidatorLogger.Error(ex) End Try End Sub Public Sub onLookUpselectedValue_Control2Set(sender As Object, SelectedValues As List(Of String)) @@ -1589,7 +1589,7 @@ Public Class frmValidator If _FormLoaded = False Or PanelValidatorControl.Enabled = False Then Exit Sub End If - Logger.Debug("onLookUpselectedValue_Control2Set") + ValidatorLogger.Debug("onLookUpselectedValue_Control2Set") Dim oRepositoryItem As RepositoryItemLookupControl3 = sender Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit SetControlValues_FromControl(oLookup) @@ -1601,7 +1601,7 @@ Public Class frmValidator Dim oControlID = oControlMeta.Guid If _SetControlValue_In_Action = True Then - Logger.Debug("SetControlValue in action. Exiting.") + ValidatorLogger.Debug("SetControlValue in action. Exiting.") Exit Sub End If @@ -1611,20 +1611,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) + ValidatorLogger.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} ...") + ValidatorLogger.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!") + ValidatorLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") Exit Sub End If @@ -1677,7 +1677,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..") + ValidatorLogger.Debug($"Got the Control2Set: {oControlId2Set}..Setting the values..") Select Case True @@ -1692,7 +1692,7 @@ Public Class frmValidator oControl.BackColor = oControlBackColor oControl.ForeColor = oControlFontColor Catch ex As Exception - Logger.Warn($"Error while Control2Set (TextEdit): {ex.Message}") + ValidatorLogger.Warn($"Error while Control2Set (TextEdit): {ex.Message}") End Try @@ -1709,7 +1709,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}") + ValidatorLogger.Warn($"Error while Control2Set (LookupControl3): {ex.Message}") End Try Case oControl.GetType() = GetType(Windows.Forms.ComboBox) @@ -1737,7 +1737,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Warn($"Error while Control2Set (Combobox): {ex.Message}") + ValidatorLogger.Warn($"Error while Control2Set (Combobox): {ex.Message}") End Try @@ -1759,12 +1759,12 @@ Public Class frmValidator End Try Catch ex As Exception - Logger.Warn($"Error while Control2Set (Checkbox): {ex.Message}") + ValidatorLogger.Warn($"Error while Control2Set (Checkbox): {ex.Message}") End Try Case Else - Logger.Warn("SetControlData used on unsupported control") + ValidatorLogger.Warn("SetControlData used on unsupported control") End Select @@ -1773,11 +1773,11 @@ Public Class frmValidator End If If oFound = False Then - Logger.Debug($"Could not find the Control2Set with ID {oControlGUID2Set} on panel!!!") + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.Warn($"Error while Control2Set for [{oControlname2Set}]: " & ex.Message) Finally _SetControlValue_In_Action = False End Try @@ -1787,22 +1787,22 @@ Public Class frmValidator Dim oLOOKUPValue = SelectedValues.Item(0 ) Dim oLOOKUPName = LookupControl.Name - Logger.Debug($"oLOOKUPValue is [{oLOOKUPValue}]!") + ValidatorLogger.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!!") + ValidatorLogger.Debug($"We got {oFilteredDatatable.Rows.Count} depending controls!!") Else - Logger.Debug($"Sorry NO depending controls!!") + ValidatorLogger.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}..") + ValidatorLogger.Debug($"Control {oDEPENDING_CtrlName} is depending on lookUp {oLOOKUPName}..") If _DependingControl_In_Action = True Then - Logger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + ValidatorLogger.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 @@ -1819,7 +1819,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..") + ValidatorLogger.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 @@ -1829,12 +1829,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}") + ValidatorLogger.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}") + ValidatorLogger.Warn($"Unexpected error in Dim oTEXT = oDTDEPENDING_RESULT.Rows(0).Item(0): {ex.Message}") End Try Dim oColor @@ -1876,7 +1876,7 @@ Public Class frmValidator End Try Catch ex As Exception - Logger.Warn($"Unexpected error in Checking oCheckBoxDependingControlLOOKUP: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in Checking oCheckBoxDependingControlLOOKUP: {ex.Message}") End Try @@ -1888,16 +1888,16 @@ Public Class frmValidator Next If oFound = False Then - Logger.Debug($"Could not find the depending Control with ID {oDEPENDING_GUID} on panel!!!") + ValidatorLogger.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) + ValidatorLogger.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!") + ValidatorLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") End If @@ -1909,22 +1909,22 @@ Public Class frmValidator End Sub Private Sub CheckBox_DependingControls(pCheckbox As CheckBox) Dim oCheckboxname = pCheckbox.Name - Logger.Debug($"pCheckStateTrue [{pCheckbox.Checked}]!") + ValidatorLogger.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!!") + ValidatorLogger.Debug($"We got {oFilteredDatatable.Rows.Count} depending controls!!") Else - Logger.Debug($"Sorry NO depending controls!!") + ValidatorLogger.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}..") + ValidatorLogger.Debug($"Control {oDEPENDING_CtrlName} is depending on lookUp {oCheckboxname}..") If _DependingControl_In_Action = True Then - Logger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + ValidatorLogger.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 @@ -1942,7 +1942,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..") + ValidatorLogger.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 @@ -1952,11 +1952,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}") + ValidatorLogger.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}") + ValidatorLogger.Warn($"Unexpected error in Dim oTEXT = oDTDEPENDING_RESULT.Rows(0).Item(0): {ex.Message}") End Try Dim oColor @@ -1998,7 +1998,7 @@ Public Class frmValidator End Try Catch ex As Exception - Logger.Warn($"Unexpected error in Checking oCheckBoxDependingControlCHK: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in Checking oCheckBoxDependingControlCHK: {ex.Message}") End Try @@ -2009,22 +2009,22 @@ Public Class frmValidator Next If oFound = False Then - Logger.Debug($"Could not find the depending Control with ID {oDEPENDING_GUID} on panel!!!") + ValidatorLogger.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) + ValidatorLogger.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!") + ValidatorLogger.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}]!") + ValidatorLogger.Debug($"LookupControl_EnablingControls [{LookupControl.Name()}] - oLOOKUPValue is [{oLOOKUPValue}]!") Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid Controls2beEnabled(LookupControl.Name) @@ -2058,7 +2058,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}] ") + ValidatorLogger.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 @@ -2071,7 +2071,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) _DependingColumn_In_Action = False End Try Next @@ -2103,7 +2103,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}] ") + ValidatorLogger.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 @@ -2115,7 +2115,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) _DependingColumn_In_Action = False End Try Next @@ -2158,8 +2158,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected Error in Display SQL result (Combobox) for control: (" & _Step.ToString & ")" & ROW.Item(0).ToString & " - ERROR: " & ex.Message) End Try Next End If @@ -2170,8 +2170,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message) End Try _ControlHandleStarted = True End If @@ -2188,16 +2188,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!!") + ValidatorLogger.Debug($"We got {oFilteredDatatable.Rows.Count} controls which got enable definitions!!") Else - Logger.Debug($"Sorry NO controls with enabling definition!!") + ValidatorLogger.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}..") + ValidatorLogger.Debug($"Control {oENABLE_CtrlName} is depending on Control: {pControlName}..") If _DependingControl_In_Action = True Then - Logger.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + ValidatorLogger.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 @@ -2217,7 +2217,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...") + ValidatorLogger.Debug($"Got the depending control ID:{oENABLE_GUID}..Setting enabled/Disabled...") oControl.Enabled = oENABLERESULT _DependingControl_In_Action = False Exit For @@ -2226,19 +2226,19 @@ Public Class frmValidator Next If oFound = False Then - Logger.Debug($"Could not find the enabling Control with ID {oENABLE_GUID} on panel!!!") + ValidatorLogger.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) + ValidatorLogger.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!") + ValidatorLogger.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") End If Next Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End Sub 'Private Sub Controls2beDisabled() @@ -2271,14 +2271,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!") + ValidatorLogger.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}]...") + ValidatorLogger.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") @@ -2290,22 +2290,22 @@ Public Class frmValidator Dim oResult = DatabaseFallback.GetScalarValueWithConnection(oSqlCommand, oConnectionId) Try - Logger.Debug($"Result of Enable SQL [{oResult}]...") + ValidatorLogger.Debug($"Result of Enable SQL [{oResult}]...") oControl.Enabled = oResult Catch ex As Exception - Logger.Warn($"Error en/disabling control onLoad: [{ex.Message}]") + ValidatorLogger.Warn($"Error en/disabling control onLoad: [{ex.Message}]") End Try End If Next Next Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.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 { @@ -2313,15 +2313,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) + ValidatorLogger.Debug("Result Table has [{0}] rows", oResultTable.Rows.Count) + ValidatorLogger.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") + ValidatorLogger.Debug("Control is Multivalue") If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then - Logger.Debug("Filling Combobox with Results") + ValidatorLogger.Debug("Filling Combobox with Results") Dim oCombobox As Windows.Forms.ComboBox = PanelValidatorControl.Controls(displayboxname) @@ -2329,7 +2329,7 @@ Public Class frmValidator Exit Sub End If - Logger.Debug("Control exists, setting results.") + ValidatorLogger.Debug("Control exists, setting results.") oCombobox.DataSource = Nothing oCombobox.DataSource = oResultTable @@ -2337,7 +2337,7 @@ Public Class frmValidator oCombobox.ValueMember = oResultTable.Columns(0).ColumnName ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Then - Logger.Debug("Filling Lookup Control with Results") + ValidatorLogger.Debug("Filling Lookup Control with Results") Dim oLookup As LookupControl3 = PanelValidatorControl.Controls(displayboxname) @@ -2345,28 +2345,28 @@ Public Class frmValidator Exit Sub End If - Logger.Debug("Control exists, setting results.") + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.Info(">> Datatable-SQL: " & sqlCommand) End If End If Else - Logger.Warn("Result Table is nothing!") + ValidatorLogger.Warn("Result Table is nothing!") End If Catch ex As Exception - Logger.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message) + ValidatorLogger.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 @@ -2388,7 +2388,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!") + ValidatorLogger.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 @@ -2407,8 +2407,8 @@ Public Class frmValidator End If Next Catch ex As Exception - Logger.Error(ex) - Logger.Info("Unexpected error in CheckValueExists:" & ex.Message) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected error in CheckValueExists:" & ex.Message) Return False End Try End Function @@ -2427,7 +2427,7 @@ Public Class frmValidator End Function Function Get_Next_GUID() As Integer Try - Logger.Debug("Get_Next_GUID...") + ValidatorLogger.Debug("Get_Next_GUID...") Dim oNewGUID As Integer Dim oBIT As Integer = 0 If PROFIL_sortbynewest = True Then @@ -2442,27 +2442,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}]") + ValidatorLogger.Warn($">> Attention: in GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") + ValidatorLogger.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}]...") + ValidatorLogger.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}]") + ValidatorLogger.Warn($">> Attention: in GetNextGUID - Could not get the next DocID - SQL [{oSQL}]") + ValidatorLogger.Warn($"ERRORMESSAGE [{ex.Message}]") End Try Try Amount_Docs2Validate = oDT.Rows(0).Item(2) - Logger.Debug($"Get_Next_GUID: Amount_Docs2Validate [{Amount_Docs2Validate}]...") + ValidatorLogger.Debug($"Get_Next_GUID: Amount_Docs2Validate [{Amount_Docs2Validate}]...") Catch ex As Exception Amount_Docs2Validate = 0 - Logger.Warn("Amount_Docs2Validate Error: " & ex.Message) + ValidatorLogger.Warn("Amount_Docs2Validate Error: " & ex.Message) End Try Else - Logger.Info($">> Attention: GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") + ValidatorLogger.Info($">> Attention: GetNextGUID - Could not get the next GUID - SQL [{oSQL}]") oNewGUID = 0 Return oNewGUID End If @@ -2472,18 +2472,18 @@ Public Class frmValidator CURRENT_DOC_PATH = "" CURRENT_WMFILE = Nothing If oNewGUID > 0 Then - Logger.Debug("newGUID: " & oNewGUID.ToString) + ValidatorLogger.Debug("newGUID: " & oNewGUID.ToString) ElseIf oNewGUID <> 0 Then - Logger.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)") + ValidatorLogger.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)") oNewGUID = 0 End If Return oNewGUID Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) oErrMsgMissingInput = "Unexpected error in Get_Next_GUID: " & ex.Message - Logger.Info(">> Unexpected error in Get_Next_GUID:: " & ex.Message, True) + ValidatorLogger.Info(">> Unexpected error in Get_Next_GUID:: " & ex.Message, True) Return 0 End Try @@ -2492,7 +2492,7 @@ Public Class frmValidator Private Function CreateWMObject() As String - Logger.Debug($"in GetWMDocFileString...'") + ValidatorLogger.Debug($"in GetWMDocFileString...'") Dim oWMOwnPath As String If WM_AHWF_docPath <> String.Empty Then @@ -2502,17 +2502,17 @@ Public Class frmValidator oWMOwnPath = WMDocPathWindows.Replace(WMSUFFIX, "") End If - Logger.Debug($"oWMOwnPath: {oWMOwnPath}") + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected error creating WMObject(1) in GetWMDocFileString: " & ex.Message) + ValidatorLogger.Info("Error Number: " & Err.Number.ToString) errormessage = $"Could not create a WMObject(1) for [{oWMOwnPath}]!" frmError.ShowDialog() Return False @@ -2536,30 +2536,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?...") + ValidatorLogger.Debug($"Checking file 0 [{oResult}] exists?...") DocPathWindows = oResult - Logger.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...") + ValidatorLogger.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?...") + ValidatorLogger.Debug($"Checking file 1[{oResult}] exists?...") If File.Exists(oResult) = False Then - Logger.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!") + ValidatorLogger.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!") DocPathWindows = oResult - Logger.Warn($"GetDocPathWindows: File [{oResult}] not existing!") + ValidatorLogger.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}") + ValidatorLogger.Debug($"GetDocPathWindows: Filestore is {ClassConstants.OpModeFS_ZF}") End If WMDocPathWindows = oResult CURRENT_DOC_PATH = WMDocPathWindows - Logger.Info($"GetWMDocPathWindows CURRENT_DOC_PATH: {CURRENT_DOC_PATH}") + ValidatorLogger.Info($"GetWMDocPathWindows CURRENT_DOC_PATH: {CURRENT_DOC_PATH}") Return True Catch ex As Exception WMDocPathWindows = "" @@ -2577,10 +2577,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}") + ValidatorLogger.Debug($"Load_IDB_DOC_DATA SQL: {oSQl}") IDB_DT_DOC_DATA = DatabaseFallback.GetDatatableECM(oSQl) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End Sub @@ -2596,13 +2596,13 @@ Public Class frmValidator OverrideAll = False 'Me.lblerror.Visible = False _Indexe_Loaded = False - Logger.Debug("In Load_Next_Document") + ValidatorLogger.Debug("In Load_Next_Document") Try If first = True Then - Logger.Debug("First Document") + ValidatorLogger.Debug("First Document") CURRENT_WMFILE = Nothing Else - Logger.Debug("Following Document ") + ValidatorLogger.Debug("Following Document ") End If ' Controls nicht beim ersten Laden leeren @@ -2616,14 +2616,14 @@ Public Class frmValidator ' Case "first" ' Case "last" 'End Select - Logger.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") + ValidatorLogger.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}'") + ValidatorLogger.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 & "'") + ValidatorLogger.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") @@ -2635,11 +2635,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") + ValidatorLogger.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") + ValidatorLogger.Debug("Got one IDB DocData Result") End If End If End If @@ -2662,7 +2662,7 @@ Public Class frmValidator bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID - Logger.Debug("AllDocInfo created...") + ValidatorLogger.Debug("AllDocInfo created...") If IDB_ACTIVE = False Then oErrMsgMissingInput = Windream_get_Doc_info() Else @@ -2673,9 +2673,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 ...") + ValidatorLogger.Debug($"Operationmode is {ClassConstants.OpModeFS_ZF}! Initializing Viewer ...") LoadDocument_DDViewer() - Logger.Debug("Viewer loaded!!") + ValidatorLogger.Debug("Viewer loaded!!") If Current_Document.Extension <> "pdf" Then bbtniAnnotation.Visibility = BarItemVisibility.Never End If @@ -2687,7 +2687,7 @@ Public Class frmValidator LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Next - Logger.Debug("Indexmask loaded") + ValidatorLogger.Debug("Indexmask loaded") 'Nun loggen das das Profil geladen wurde If PROFIL_LOGINDEX <> "" Then @@ -2710,10 +2710,10 @@ Public Class frmValidator frmError.ShowDialog() Else Dim oMsg = S.Ende_des_Profils___Keine_weiteren_Vorgänge - Logger.Info(oMsg) - Logger.Debug(oMsg) + ValidatorLogger.Info(oMsg) + ValidatorLogger.Debug(oMsg) activate_controls(True) - Logger.Debug("Closing the form...") + ValidatorLogger.Debug("Closing the form...") Me.Close() End If End If @@ -2732,16 +2732,16 @@ Public Class frmValidator Try oCurrency = oCurrency.ToString Catch ex As Exception - Logger.Warn($"Unexpected error in Converting oCurreny to string: " & ex.Message) + ValidatorLogger.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") + ValidatorLogger.Debug("oCurrency-Length = 2 - Setting to EUR") oCurrency = "EUR" End If - Logger.Debug($"oCurrency = {oCurrency}") + ValidatorLogger.Debug($"oCurrency = {oCurrency}") For Each oControl As Control In PanelValidatorControl.Controls Try Dim oMeta = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata) @@ -2783,33 +2783,33 @@ Public Class frmValidator Next End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Next Else - Logger.Warn($"oCurrency is String.empty! ") + ValidatorLogger.Warn($"oCurrency is String.empty! ") End If Else - Logger.Warn($"oCurrency is Nothing - Check PROFIL_CURRENCY_ATTRIBUTE! ") + ValidatorLogger.Warn($"oCurrency is Nothing - Check PROFIL_CURRENCY_ATTRIBUTE! ") End If Catch ex As Exception - Logger.Warn($"Unexpected error in display format Currency: " & ex.Message) + ValidatorLogger.Warn($"Unexpected error in display format Currency: " & ex.Message) End Try Try Show_WF_Messages(False) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try - Logger.Debug("frmValidator: LoadNextDocument finished!") + ValidatorLogger.Debug("frmValidator: LoadNextDocument finished!") Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) errormessage = "unexpected error in Load_Next_Document:" & ex.Message My.Settings.Save() - Logger.Info("unexpected error in Load_Next_Document: " & ex.Message) + ValidatorLogger.Info("unexpected error in Load_Next_Document: " & ex.Message) frmError.ShowDialog() End Try End Sub @@ -2847,7 +2847,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End Sub Sub LoadDocument_DDViewer() @@ -2860,7 +2860,7 @@ Public Class frmValidator End If Current_Document = oDocument Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) Exit Sub End Try If ActiveWorkflowType = ConstAHWorkflow_BlindFile Or PROFILE_SHOW_DOCUMENT = False Then @@ -2888,11 +2888,11 @@ Public Class frmValidator End Sub Sub activate_controls(pStatus As Boolean) Try - Logger.Debug("Sub activate_controls - status = " + pStatus.ToString) + ValidatorLogger.Debug("Sub activate_controls - status = " + pStatus.ToString) Me.PanelValidatorControl.Enabled = pStatus Me.btnSave.Enabled = pStatus Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try End Sub @@ -2909,13 +2909,13 @@ Public Class frmValidator 'End If Try - Logger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT}]...") + ValidatorLogger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT}]...") CURRENT_DOC_CREATION_DATE = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Info("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT & " not found", True) + ValidatorLogger.Info("1. Ausnahme-Fehler: " & ex.Message) If INDEX_DMS_ERSTELLT = "DMS Created" Then INDEX_DMS_ERSTELLT = "DMS erstellt" @@ -2937,20 +2937,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) + ValidatorLogger.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) + ValidatorLogger.Debug("DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE) Try - Logger.Debug($"GetVariableValue [{INDEX_DMS_ERSTELLT_ZEIT}]...") + ValidatorLogger.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) + ValidatorLogger.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" @@ -2972,16 +2972,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}]...") + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.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) @@ -2991,8 +2991,8 @@ Public Class frmValidator Return "" Catch ex As Exception - Logger.Error(ex) - Logger.Info("error in Windream_get_Doc_info (GENERELL): " & ex.Message) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("error in Windream_get_Doc_info (GENERELL): " & ex.Message) Return "error in Windream_get_Doc_info (GENERELL): " & ex.Message End Try @@ -3169,9 +3169,9 @@ Public Class frmValidator If value Is Nothing Then value = "" Return value Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) - Logger.Info("error in ReturnVektor_IndexValue: " & ex.Message) + ValidatorLogger.Info("error in ReturnVektor_IndexValue: " & ex.Message) Return "" End Try @@ -3185,12 +3185,12 @@ Public Class frmValidator If IDB_ACTIVE = False Then oValuefromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) Else - Logger.Debug($"GetVariableValuefromSource - IDBCase...") + ValidatorLogger.Debug($"GetVariableValuefromSource - IDBCase...") oValuefromSource = IDBData.GetVariableValue(oSourceIndexName, oIDBTyp, FromIDB) End If Return oValuefromSource Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) Return Nothing End Try @@ -3234,7 +3234,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) + ValidatorLogger.Debug("INDEX: " & oSourceIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString) Select Case True @@ -3254,7 +3254,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.") + ValidatorLogger.Debug("Indexwert soll nicht geladen werden.") Exit Select End If @@ -3269,25 +3269,25 @@ Public Class frmValidator oValueFromSource = "" Else If oValueFromSource.ToString = "System.Object[]" Then - Logger.Debug("TextBox with VektorField: " & oSourceIndexName) + ValidatorLogger.Debug("TextBox with VektorField: " & oSourceIndexName) Try - Logger.Debug($"Length of Vektorarray: {oValueFromSource.length}") + ValidatorLogger.Debug($"Length of Vektorarray: {oValueFromSource.length}") Catch ex As Exception - Logger.Info($"Error in gettin the lenth of vektorfield {oSourceIndexName} - {ex.Message}") + ValidatorLogger.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") + ValidatorLogger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") oValueFromSource = oValueFromSource(0) End If - Logger.Debug($"wertWD has been saved...") + ValidatorLogger.Debug($"wertWD has been saved...") End If End If End If - Logger.Debug("Value from Source: [{0}]", oValueFromSource) + ValidatorLogger.Debug("Value from Source: [{0}]", oValueFromSource) Try 'Dim oFormatString As String = oControlRow.ItemEx("CTRL_FORMAT_STRING", "") @@ -3324,27 +3324,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) + ValidatorLogger.Warn($"Unexpected error in Set Backcolor [{oControl.Name}]: {ex.Message}") + ValidatorLogger.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) + ValidatorLogger.Info("Error While converting defaultValue [" & oDefaultValue & "]: " & ex.Message) oTextBox.EditValue = "" End Try End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Info("Unexpected error in FillIndexValuesTextBox: " & ex.Message, True) + ValidatorLogger.Info(">> Controltype: " & oControlType) + ValidatorLogger.Info(">> Indexname windream: " & oIndexName) Exit Sub End Try @@ -3365,7 +3365,7 @@ Public Class frmValidator Else oMyCombobox.Text = oDefaultValue End If - Logger.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.") + ValidatorLogger.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.") Exit Select End If @@ -3377,53 +3377,53 @@ Public Class frmValidator If oValueFromSource Is Nothing Then - Logger.Debug($"oMyComboBox {oMyCombobox.Name} - Indexvalue from index {oSourceIndexName}: Nothing") + ValidatorLogger.Debug($"oMyComboBox {oMyCombobox.Name} - Indexvalue from index {oSourceIndexName}: Nothing") If oDefaultValue = String.Empty Then - Logger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wurde nicht gefunden") + ValidatorLogger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wurde nicht gefunden") oMyCombobox.SelectedIndex = -1 Else - Logger.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wird geladen") + ValidatorLogger.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) + ValidatorLogger.Debug($"oMyComboBox {oMyCombobox.Name} - Combobox with VektorField: " & oSourceIndexName) Try - Logger.Debug($"Length of Vektorarray: {oValueFromSource.length}") + ValidatorLogger.Debug($"Length of Vektorarray: {oValueFromSource.length}") Catch ex As Exception - Logger.Info($"Error in gettin the length of vektorfield {oSourceIndexName} - {ex.Message}") + ValidatorLogger.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") + ValidatorLogger.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") oValueFromSource = oValueFromSource(0) End If - Logger.Debug($"wertWD has been saved...") + ValidatorLogger.Debug($"wertWD has been saved...") Else End If - Logger.Debug($"Indexwert from Index {oSourceIndexName}: {oValueFromSource}") - Logger.Debug($"Items in Combobox: {oMyCombobox.Items.Count}") + ValidatorLogger.Debug($"Indexwert from Index {oSourceIndexName}: {oValueFromSource}") + ValidatorLogger.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") + ValidatorLogger.Debug($"Index Wert [{oValueFromSource}] wurde ausgewählt") oMyCombobox.SelectedIndex = oMyCombobox.FindStringExact(oValueFromSource) - Logger.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}") + ValidatorLogger.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}") End If End If End If - Logger.Debug("") + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info(">> Unexpected error in FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & ex.Message, True) + ValidatorLogger.Info(">> Controltype: " & oControlType) + ValidatorLogger.Info(">> Indexname windream: " & oIndexName) errormessage = "Unexpected error in FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() @@ -3445,16 +3445,16 @@ Public Class frmValidator End If If oSourceIndexName Is Nothing = False Then If oLoadIndex = False Then - Logger.Debug("Indexwert soll nicht geladen werden.") + ValidatorLogger.Debug("Indexwert soll nicht geladen werden.") Exit Select End If - Logger.Debug($"getting Value for Attribute [{oSourceIndexName}] - oIDBTyp [{oIDBTyp}] - oIDBOverride [{oIDBOverride}]...") + ValidatorLogger.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}]!") + ValidatorLogger.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 @@ -3464,44 +3464,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}.") + ValidatorLogger.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) + ValidatorLogger.Debug("ValueFromSource contains {0} items", oValueFromSource) For Each Zeile As Object In oValueFromSource - Logger.Debug($"vektorrow Value {Zeile.ToString}...") + ValidatorLogger.Debug($"vektorrow Value {Zeile.ToString}...") oColValuesfromSource = Split(Zeile, PMDelimiter) Dim oNewRow = oDataSource.NewRow() - Logger.Debug("Creating new row..") + ValidatorLogger.Debug("Creating new row..") For index = 0 To oDTColumnsPerDevExGrid.Rows.Count - 1 - Logger.Debug("Column Index {0}", index) + ValidatorLogger.Debug("Column Index {0}", index) If oColValuesfromSource.Length > index Then - Logger.Debug("Value: {0}", oColValuesfromSource(index)) + ValidatorLogger.Debug("Value: {0}", oColValuesfromSource(index)) oNewRow.Item(index) = oColValuesfromSource(index) Else - Logger.Debug("Value: String.Empty") + ValidatorLogger.Debug("Value: String.Empty") oNewRow.Item(index) = String.Empty End If Next - Logger.Debug("Adding row to grid..") + ValidatorLogger.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}]") + ValidatorLogger.Debug($"IDB Fill Grid [{oControl.Name}] with String") + ValidatorLogger.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!") + ValidatorLogger.Warn("Fill Grid Error - Max 8 columns can be configured!") End If Dim oRowData As New List(Of Object) @@ -3517,31 +3517,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) + ValidatorLogger.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}...") + ValidatorLogger.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!") + ValidatorLogger.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!") End If - Logger.Debug($"oColValuesfromSource splitted - Length ({oColValuesfromSource.Length.ToString})") + ValidatorLogger.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})...") + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.Warn($"Error while adding datarow [{oRow.Item(0).ToString}] to Grid: " & ex.Message) End Try @@ -3550,7 +3550,7 @@ Public Class frmValidator End If Else - Logger.Info($"DevExpressGrid: There are no columns configured/listed for control {oControlId}.") + ValidatorLogger.Info($"DevExpressGrid: There are no columns configured/listed for control {oControlId}.") End If Case Else @@ -3566,7 +3566,7 @@ Public Class frmValidator Next End Select Else - Logger.Warn($"Could not load Devexpress.Grid [{oControl.Name }] as omytype is [{oValueType}]!") + ValidatorLogger.Warn($"Could not load Devexpress.Grid [{oControl.Name }] as omytype is [{oValueType}]!") End If @@ -3599,7 +3599,7 @@ Public Class frmValidator Dim HeaderLength = oRow.Item("SPALTEN_HEADER_LANG").Length Dim oWidth = HeaderLength * 6 If oRow.Item("SPALTENBREITE") < oWidth Then - Logger.Debug("Spaltenbreite der Spalte " & oCaption & " wird üebrsteuert und berechnet!") + ValidatorLogger.Debug("Spaltenbreite der Spalte " & oCaption & " wird üebrsteuert und berechnet!") oActGridColumn.Width = oWidth Else oActGridColumn.Width = oRow.Item("SPALTENBREITE") @@ -3620,14 +3620,14 @@ Public Class frmValidator ' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info(">> Unexpected error in FillIndexValues(GridControl: " & oMyGridControl.Name & "): " & ex.Message, True) + ValidatorLogger.Info(">> Controltype: " & oControlType) + ValidatorLogger.Info(">> Indexname windream: " & oIndexName) errormessage = "Unexpected error in FillIndexValues(Combobox: " & oMyGridControl.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() @@ -3635,7 +3635,7 @@ Public Class frmValidator Case oControl.GetType = GetType(CheckBox) - Logger.Debug("Loading checkbox...") + ValidatorLogger.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) @@ -3646,47 +3646,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.") + ValidatorLogger.Debug("Indexwert soll nicht geladen werden.") End If - Logger.Debug("Loading Bool-Value from Source...") + ValidatorLogger.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})...") + ValidatorLogger.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}]") + ValidatorLogger.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") + ValidatorLogger.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Checking defaultvalue") + ValidatorLogger.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}]") + ValidatorLogger.Info($"Using Default value [{oDefaultValue}]") + ValidatorLogger.Debug($"Using Default value [{oDefaultValue}]") myCheckBox.Checked = CBool(oDefaultValue) Exit Select Else - Logger.Debug("No Default Value for Checkbox - so using false!") + ValidatorLogger.Debug("No Default Value for Checkbox - so using false!") myCheckBox.CheckState = CheckState.Indeterminate End If Else - Logger.Debug("oValueFromSource: " & oValueFromSource.ToString) + ValidatorLogger.Debug("oValueFromSource: " & oValueFromSource.ToString) If oValueFromSource.ToString = "" Then - Logger.Info(">> Versuch, default Value zu laden") + ValidatorLogger.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") + ValidatorLogger.Info(">> defaultValue wurde geladen") myCheckBox.Checked = result If result = False Then myCheckBox.CheckState = CheckState.Unchecked @@ -3699,38 +3699,38 @@ Public Class frmValidator myCheckBox.CheckState = CheckState.Unchecked End If Else - Logger.Info(">> defaultValue war leer") + ValidatorLogger.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) + ValidatorLogger.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") + ValidatorLogger.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}]") + ValidatorLogger.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") + ValidatorLogger.Debug(">> CBool(_value) = True") myCheckBox.Checked = True myCheckBox.CheckState = CheckState.Checked Case False - Logger.Debug(">> CBool(_value) = False") + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Unexpected error in CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString, True) myCheckBox.Checked = False myCheckBox.CheckState = CheckState.Unchecked End Try @@ -3784,8 +3784,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) + ValidatorLogger.Error(ex) + ValidatorLogger.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 @@ -3800,10 +3800,10 @@ Public Class frmValidator Try If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - Logger.Debug("DATE über PM-Vektor holen") + ValidatorLogger.Debug("DATE über PM-Vektor holen") oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) - Logger.Info(">> DTP is """) + ValidatorLogger.Info(">> DTP is """) Else oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride) @@ -3814,23 +3814,23 @@ Public Class frmValidator If oValueFromSource.ToString.Length > 0 Then Try tempdate = CDate(oValueFromSource) - Logger.Debug("DATE konnte umgewandelt werden") + ValidatorLogger.Debug("DATE konnte umgewandelt werden") Catch ex As Exception - Logger.Error(ex) - Logger.Debug("DATE wurde auf heute gesetzt") + ValidatorLogger.Error(ex) + ValidatorLogger.Debug("DATE wurde auf heute gesetzt") End Try DTP.Text = tempdate Else - Logger.Debug("DATE ist leer") + ValidatorLogger.Debug("DATE ist leer") DTP.Text = tempdate End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.Info("Unexpected error in FillIndex DTP: " & ex.Message, True) End Try End If End Select @@ -3860,7 +3860,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}] ") + ValidatorLogger.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 @@ -3869,15 +3869,15 @@ Public Class frmValidator End If Next Else - Logger.Warn($"FillIndexValues - oDTRESULT_FOR_COLUMN is nothing!") + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.Warn($"FillIndexValues - Unexpected error in creating dropdown for Grid: " & ex.Message) End Try If LOG_PERF Then PerformanceLogger.Info("FillIndexValues/Postload") @@ -3936,15 +3936,15 @@ Public Class frmValidator End If RibbonPageGroup2.Visible = True Else - Logger.Debug($"No PM_Info-Configuration!!") + ValidatorLogger.Debug($"No PM_Info-Configuration!!") RibbonPageGroup2.Visible = False End If Else - Logger.Warn($"oDTINFO is nothing!!") + ValidatorLogger.Warn($"oDTINFO is nothing!!") RibbonPageGroup2.Visible = False End If Catch ex As Exception - Logger.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}") RibbonPageGroup2.Visible = False End Try @@ -3976,7 +3976,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Warn($"Unexpected error in FillIndexValues: [{oControName} -TYPE: {oControlType}-INDEXNAME: {oIndexName}] ERROR: {ex.Message}") + ValidatorLogger.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() @@ -4022,12 +4022,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) + ValidatorLogger.Debug("Enabling Export2File, Caption set") + ValidatorLogger.Debug("Button Caption: [{0}]", ButtonExport2Folder_Caption) + ValidatorLogger.Debug("Export root folder: [{0}]", ButtonExport2Folder_RootFolder) If File.Exists(WMDocPathWindows) Then - Logger.Debug("File exists, Showing Export Button") + ValidatorLogger.Debug("File exists, Showing Export Button") barbtnitmExport.Caption = ButtonExport2Folder_Caption If ButtonExport2Folder_Mode <> String.Empty Then @@ -4038,20 +4038,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") + ValidatorLogger.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) + ValidatorLogger.Debug("Setting default export path to [{0}]", FolderBrowserDialog1.SelectedPath) Else - Logger.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###") + ValidatorLogger.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} !###") + ValidatorLogger.Warn($"### Error Dis/Enabale Export2Path: {ex.Message} !###") End Try End If @@ -4060,10 +4060,10 @@ Public Class frmValidator Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try - Logger.Debug("frmValidation_Shown finished!") + ValidatorLogger.Debug("frmValidation_Shown finished!") End Sub Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click btnSave.Enabled = False @@ -4082,10 +4082,10 @@ Public Class frmValidator Where TypeOf oControl Is GridControl Select oControl).ToList() - Logger.Debug("Forcing grid Validation") + ValidatorLogger.Debug("Forcing grid Validation") For Each oGrid As GridControl In oGrids - Logger.Debug("Validating Grid [{0}]", oGrid.Name) + ValidatorLogger.Debug("Validating Grid [{0}]", oGrid.Name) Dim oView As GridView = oGrid.MainView @@ -4097,7 +4097,7 @@ Public Class frmValidator oValidation = False End If - Logger.Debug("Validation of Grid [{0}] ended with Result: [{1}]", oGrid.Name, oValidation) + ValidatorLogger.Debug("Validation of Grid [{0}] ended with Result: [{1}]", oGrid.Name, oValidation) If oValidation = False Then Return False @@ -4146,7 +4146,7 @@ Public Class frmValidator Dim oMsgType Dim oQuestion Dim oTitle - Logger.Debug("## btnFinish_continue ##") + ValidatorLogger.Debug("## btnFinish_continue ##") Try oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType") Catch ex As Exception @@ -4156,7 +4156,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!") + ValidatorLogger.Warn($"btnFinishContinue - No QUESTION-Column in select-Result!") oQuestion = "" End Try Try @@ -4164,7 +4164,7 @@ Public Class frmValidator Catch ex As Exception oTitle = "" End Try - Logger.Debug($"Case is: [{oMsgType.ToString.ToUpper}]") + ValidatorLogger.Debug($"Case is: [{oMsgType.ToString.ToUpper}]") Select Case oMsgType.ToString.ToUpper Case "MsgboxResult".ToUpper @@ -4193,18 +4193,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!") + ValidatorLogger.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue!") Return False End Select Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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") + ValidatorLogger.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") _ItemWorked = True Dim oErrorOcurred As Boolean = False If OverrideAll = False Then @@ -4228,23 +4228,20 @@ Public Class frmValidator If oDTFinalIndexing?.Rows.Count > 0 Then Dim oDT_FIResult As DataTable 'Jetzt finale Indexe setzen - Logger.Debug("FINAL INDEXING STARTING...") + ValidatorLogger.Debug("FINAL INDEXING STARTING...") For Each oFinalIndexRow As DataRow In oDTFinalIndexing.Rows oDT_FIResult = Nothing Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString Dim oFinalIndex = oFinalIndexRow.Item("INDEXNAME") Dim oIndexBehaviour = oFinalIndexRow.Item("IF_VEKTOR_BEHAVIOUR") - Logger.Debug($"Working on final index [{oFinalIndex}]...") + ValidatorLogger.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 oIndexBehaviour = "Delete" Then - sd + oIndexType = WINDREAM_MOD.GetIndexType(oFinalIndex) End If If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### - Logger.Debug("Indexing wih dynamic sql...") + ValidatorLogger.Debug("Indexing wih dynamic sql...") Dim oGUID = oFinalIndexRow.Item("GUID") Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") Dim oConnectionID = oFinalIndexRow.Item("CONNECTION_ID") @@ -4265,7 +4262,7 @@ Public Class frmValidator End If If Not IsNothing(oDT_FIResult) Then - Logger.Debug($"oResultfromSQL is [{oDT_FIResult.ToString}]") + ValidatorLogger.Debug($"oResultfromSQL is [{oDT_FIResult.ToString}]") If oDT_FIResult.Rows.Count = 0 Then If oContinueOnIndifferentState = False Then @@ -4275,27 +4272,33 @@ 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") + ValidatorLogger.Warn($"FinalIndexResult from SQL is EmptyValue - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, So continuing with next Attribute") Continue For End If End If 'oValue = oResultDT Else - Logger.Warn("ATTENTION: oResultDT for Automatic Index IS NOTHING!") + ValidatorLogger.Warn("ATTENTION: oResultDT for Automatic Index IS NOTHING!") Continue For End If End If Else - If oValue.StartsWith("v") Then - Select Case oFinalIndexRow.Item("VALUE").ToString - Case "vDate" - oValue = Now.ToShortDateString - Case "vUserName" - oValue = USER_USERNAME - Case Else - oValue = oFinalIndexRow.Item("VALUE") - End Select + If oIndexBehaviour <> "Delete" Then + If oValue.StartsWith("v") Then + Select Case oFinalIndexRow.Item("VALUE").ToString + Case "vDate" + oValue = Now.ToShortDateString + Case "vUserName" + oValue = USER_USERNAME + Case Else + oValue = oFinalIndexRow.Item("VALUE") + End Select + End If + + Else + ValidatorLogger.Info($"The value of attribute [{oFinalIndex}] will be deleted.") + oValue = "DeleteWMAttributeValue" End If oDT_FIResult = New DataTable() ' Spalte hinzufügen – z.B. "Ergebnis" vom Typ String @@ -4313,8 +4316,8 @@ Public Class frmValidator Dim oResult() As String ReDim Preserve oResult(0) oResult(0) = oValue - Logger.Debug("Now the final indexing...") - Logger.Debug($"oIndexType {oIndexType.ToString}") + ValidatorLogger.Debug("Now the final indexing...") + ValidatorLogger.Debug($"oIndexType {oIndexType.ToString}") If oIndexType > 4000 And oIndexType < 5000 And oDT_FIResult.Rows.Count > 0 Then Dim oOldValue As Object = CURRENT_WMFILE.GetVariableValue(oFinalIndex) @@ -4342,7 +4345,7 @@ Public Class frmValidator oNewValue = oValueList.ToArray() If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oNewValue) = True Then - Logger.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has been set successfully!") + ValidatorLogger.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has been set successfully!") Else errormessage = "Error in final indexing:" & vbNewLine & idxerr_message My.Settings.Save() @@ -4350,17 +4353,6 @@ Public Class frmValidator oErrorOcurred = True _ItemWorked = False End If - - ''Hier muss nun separat as Vektorfeld indexiert werden - 'If WMIndexVectofield(oValue, oFinalIndex, oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then - ' Logger.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has beens et suxxessfully!") - 'Else - ' errormessage = "Error in final indexing:" & vbNewLine & idxerr_message - ' My.Settings.Save() - ' frmError.ShowDialog() - ' oErrorOcurred = True - ' _ItemWorked = False - 'End If Else If oValue.ToUpper = "SQL-Command".ToUpper Then @@ -4369,9 +4361,9 @@ Public Class frmValidator oResult = Nothing ReDim Preserve oResult(0) oResult(0) = oValue - ElseIf isnothing(oResult) Then + ElseIf IsNothing(oResult) 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") + ValidatorLogger.Warn("Something went wrong while final-indexing") Exit For End If @@ -4380,7 +4372,7 @@ Public Class frmValidator 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") + ValidatorLogger.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") 'Nun das Logging If PROFIL_LOGINDEX <> "" Then @@ -4391,7 +4383,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}]") + ValidatorLogger.Debug($"Final index IDB '{oFinalIndexRow.Item("INDEXNAME")}' was updated with [{oValue.ToString}]") End If End If If oFIResult = False Then @@ -4410,7 +4402,7 @@ Public Class frmValidator Next End If Catch ex As Exception - Logger.Warn($"Error in finalIndexing: {ex.Message}") + ValidatorLogger.Warn($"Error in finalIndexing: {ex.Message}") oErrorOcurred = True End Try End If @@ -4429,7 +4421,7 @@ Public Class frmValidator WORK_HISTORY_ENTRY = Nothing End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) WORK_HISTORY_ENTRY = Nothing End Try @@ -4445,7 +4437,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) + ValidatorLogger.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 @@ -4467,7 +4459,7 @@ Public Class frmValidator Dim oBaseEdit As BaseEdit = oControl value_from_control = oBaseEdit.EditValue Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) value_from_control = String.Empty End Try @@ -4476,7 +4468,7 @@ Public Class frmValidator Try value_from_control = cmb.Text Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) value_from_control = String.Empty End Try Case oControl.GetType() = GetType(System.Windows.Forms.DateTimePicker) @@ -4484,7 +4476,7 @@ Public Class frmValidator Try value_from_control = dtp.Value.ToString Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) value_from_control = String.Empty End Try @@ -4493,7 +4485,7 @@ Public Class frmValidator Try value_from_control = chk.Checked Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) value_from_control = String.Empty End Try End Select @@ -4506,8 +4498,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) + ValidatorLogger.Error(ex) + ValidatorLogger.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 @@ -4570,13 +4562,13 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Info("Unexpected error in Finish: " & ex.Message, True) Exit Sub End Try Else @@ -4589,7 +4581,7 @@ Public Class frmValidator Exit Sub End If Else - Logger.Info($"Overriding all in action for DocID: {CURRENT_DOC_ID} - ProfileID: {CURRENT_ProfilGUID}") + ValidatorLogger.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 @@ -4602,11 +4594,11 @@ Public Class frmValidator MsgBox("Unhandled error occured in Finish Workflow-Step...Please check your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) _ItemWorked = False Else - Logger.Debug("Validation of document ended successfully!") + ValidatorLogger.Debug("Validation of document ended successfully!") PRTF_PROFILE_FILES_WORK("Worked") Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}" If DatabaseFallback.ExecuteNonQueryECM(oPROCSQL) = False Then - Logger.Warn($"Attention: Error executing proc {oPROCSQL}") + ValidatorLogger.Warn($"Attention: Error executing proc {oPROCSQL}") End If End If @@ -4658,8 +4650,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info(">> error in Return_PM_VEKTOR: " & ex.Message, True) PM_String = "DD-PM ERROR: " & ex.Message End Try Return PM_String @@ -4675,8 +4667,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info(">> error in Return_LOGString: " & ex.Message, True) + ValidatorLogger.Error(ex) + ValidatorLogger.Info(">> error in Return_LOGString: " & ex.Message, True) PM_String = "DD-PM ERROR: " & ex.Message End Try Return PM_String @@ -4714,7 +4706,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) + ValidatorLogger.Info("Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message) oErrMsgMissingInput = "Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message End If End If @@ -4762,12 +4754,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!") + ValidatorLogger.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}] !") + ValidatorLogger.Debug($"Skipping ReadOnly ControlName [{oDBControlName}] !") Continue For End If @@ -4786,9 +4778,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 & "'") + ValidatorLogger.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") If oIndexName = "" Then - Logger.Info(" >> Indexname is unexpected empty.") + ValidatorLogger.Info(" >> Indexname is unexpected empty.") Continue For End If Select Case True @@ -4798,7 +4790,7 @@ 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}'") + ValidatorLogger.Warn($"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'") oControl.BackColor = Color.Red Exit For Else @@ -4826,7 +4818,7 @@ 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) + ValidatorLogger.Warn($"Error while indexing [{oIndexName}] von LookupGrid - ERROR: " & idxerr_message) Exit For End If Else @@ -4835,7 +4827,7 @@ 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}] ") + ValidatorLogger.Warn($"Error while indexing IDB-Object LookupGrid [{oIndexName}] ") Exit For End If End If @@ -4845,7 +4837,7 @@ 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}] ") + ValidatorLogger.Warn($"Error while indexing LookupGrid [{oIndexName}] ") Exit For End If Else @@ -4864,7 +4856,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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For ElseIf IsNothing(oMyInput) And oIsRequired = False Then For Each ochangedLookub In listChangedLookup @@ -4890,7 +4882,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") + ValidatorLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") oValueFromObject = oValueFromObject(0) End If End If @@ -4900,26 +4892,26 @@ Public Class frmValidator End If If IsNothing(oValueFromObject) Then - Logger.Debug($"CheckUpdateIndex.LookUpGrid: oValueFromObject is NOTHING!") + ValidatorLogger.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!") + ValidatorLogger.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}]") + ValidatorLogger.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}]") + ValidatorLogger.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") + ValidatorLogger.Debug($"oValueFromObject <> oMyInput not possible as one object might be a multiple row object") End Try Else @@ -4936,7 +4928,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -4947,7 +4939,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -4973,7 +4965,7 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try @@ -4982,14 +4974,14 @@ Public Class frmValidator 'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl") Dim oWrongInputMessage = S.Falsche_Eingabe - Logger.Debug("Validating Textbox..") + ValidatorLogger.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) + ValidatorLogger.Warn(oErrMsgMissingInput) If oRegexMessage <> String.Empty Then oErrMsgMissingInput &= ":" & vbCrLf & oRegexMessage End If @@ -5002,21 +4994,21 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) oControl.BackColor = Color.Red Exit For Else - Logger.Debug("Reading current value from Textbox") + ValidatorLogger.Debug("Reading current value from Textbox") Dim oTextEdit As BaseEdit = DirectCast(oControl, BaseEdit) oMyInput = ClassFormat.GetStringValue(oTextEdit.EditValue) - Logger.Debug("Form Value: [{0}]", oMyInput) + ValidatorLogger.Debug("Form Value: [{0}]", oMyInput) 'den aktuellen Wert in windream auslesen Dim oSourceValue = GetVariableValuefromSource(oIndexName, oIDBTyp) - Logger.Debug("Current Value: [{0}]", oSourceValue) + ValidatorLogger.Debug("Current Value: [{0}]", oSourceValue) If oIndexName.StartsWith("[%VKT") Then oSourceValue = ReturnVektor_IndexValue(oIndexName) @@ -5027,7 +5019,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") + ValidatorLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") oSourceValue = oSourceValue(0) End If End If @@ -5054,7 +5046,7 @@ Public Class frmValidator End Try End If - Logger.Debug("Preparing Indexing for Textbox") + ValidatorLogger.Debug("Preparing Indexing for Textbox") 'wenn Wert in Windream <> der Eingabe darf indexiert werden If oSetValue = True Then @@ -5065,7 +5057,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5074,12 +5066,12 @@ Public Class frmValidator ReDim Preserve result(0) result(0) = oMyInput - Logger.Debug("Indexing Index [{0}] with value [{1}]", oMyInput, oIndexName) + ValidatorLogger.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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5100,27 +5092,27 @@ Public Class frmValidator End If Catch ex As Exception oErrMsgMissingInput = "Unexpected error in Check_UpdateIndexe TextBox '" & oControl.Name & "' - Check the log" - Logger.Error(ex) + ValidatorLogger.Error(ex) Dim st As New StackTrace(True) st = New StackTrace(ex, True) - Logger.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True) + ValidatorLogger.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True) Return False End Try Case oControl.GetType = GetType(System.Windows.Forms.ComboBox) Try - Logger.Debug($"Working on Combobox...") + ValidatorLogger.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) + ValidatorLogger.Warn(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}") + ValidatorLogger.Debug($"inputvalue Combobox: {cmb.Text}") Dim oValue 'den aktuellen Wert in windream auslesen If oIndexName.StartsWith("[%VKT") Then @@ -5129,7 +5121,7 @@ Public Class frmValidator oValue = GetVariableValuefromSource(oIndexName, oIDBTyp) End If If IsNothing(oValue) Then - Logger.Debug($"oValue is nothing...Value EmptyString will be used") + ValidatorLogger.Debug($"oValue is nothing...Value EmptyString will be used") oValue = String.Empty End If Dim oIndexType As String = "Index" @@ -5138,31 +5130,31 @@ Public Class frmValidator oIndexType = "Vector" End If Catch ex As Exception - Logger.Debug($"Exception while oValue.ToString = System.Object[]...") + ValidatorLogger.Debug($"Exception while oValue.ToString = System.Object[]...") End Try If oIndexType = "Vector" Then - Logger.Debug($"Control with ID{oControlId} is a vectorfield...") + ValidatorLogger.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") + ValidatorLogger.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...") + ValidatorLogger.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) + ValidatorLogger.Warn($"Could not convert the oValue of Control with ID{oControlId}...") + ValidatorLogger.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...") + ValidatorLogger.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) @@ -5170,7 +5162,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5182,7 +5174,7 @@ Public Class frmValidator cmb.DroppedDown = True oMissing = True oErrMsgMissingInput = "Error while indexing Combobox - ERROR: " & idxerr_message - Logger.Warn(oErrMsgMissingInput) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5190,7 +5182,7 @@ Public Class frmValidator cmb.DroppedDown = True oMissing = True oErrMsgMissingInput = "Error indexing combobox idb" - Logger.Warn(oErrMsgMissingInput) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If End If @@ -5207,7 +5199,7 @@ Public Class frmValidator End If Else - Logger.Debug($"oitsadifference = False...Index with ID {oControlId} will not be indexed...") + ValidatorLogger.Debug($"oitsadifference = False...Index with ID {oControlId} will not be indexed...") 'Wenn der Wert in ein Vektorfeld geschrieben wird End If End If @@ -5216,11 +5208,11 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.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) + ValidatorLogger.Info($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId}" & ex.Message) Return False End Try @@ -5231,7 +5223,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For ElseIf dtp.Value.ToString <> "01.01.0001 00:00:00" Then oMyInput = CDate(dtp.Value) @@ -5256,7 +5248,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5267,14 +5259,14 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then oMissing = True oErrMsgMissingInput = "Error indexing datepicker idb" - Logger.Warn(oErrMsgMissingInput) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If End If @@ -5288,14 +5280,14 @@ Public Class frmValidator End If End If Else - Logger.Debug("Value WD ('" & oObjectValue.ToString & "') = Input-value ('" & oMyInput.ToString & "')") + ValidatorLogger.Debug("Value WD ('" & oObjectValue.ToString & "') = Input-value ('" & oMyInput.ToString & "')") End If Else - Logger.Debug("DateValue is 01.01.0001 00:00:00") + ValidatorLogger.Debug("DateValue is 01.01.0001 00:00:00") End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Case oControl.GetType = GetType(CheckBox) @@ -5306,7 +5298,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If @@ -5331,7 +5323,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") + ValidatorLogger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") _Value = oObjectCheck(0) End If Else @@ -5362,7 +5354,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5370,7 +5362,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5391,7 +5383,7 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Case oControl.GetType = GetType(DataGridView) @@ -5410,7 +5402,7 @@ Public Class frmValidator If oIsRequired = True And Zeilen = 0 Then oMissing = True oErrMsgMissingInput = "Fehlende Eingabe in Vektorfeld '" & dgv.Name & "'" - Logger.Warn(oErrMsgMissingInput) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For ElseIf Zeilen > 0 Then Dim ZeilenGrid As Integer = 0 @@ -5455,7 +5447,7 @@ 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) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If Else @@ -5464,7 +5456,7 @@ Public Class frmValidator If IDBData.SetVariableValue(oIndexName, oDT, True) = False Then oMissing = True oErrMsgMissingInput = "Error indexing Datagridview idb" - Logger.Warn(oErrMsgMissingInput) + ValidatorLogger.Warn(oErrMsgMissingInput) Exit For End If End If @@ -5472,7 +5464,7 @@ Public Class frmValidator 'Jetzt die Datei indexieren End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Case oControl.GetType = GetType(GridControl) @@ -5500,24 +5492,24 @@ Public Class frmValidator ' If Error happened in inner For, exit the outer as well If oMissing = True Then - Logger.Info("oMissing = True...Exiting") + ValidatorLogger.Info("oMissing = True...Exiting") Exit For End If Next If oMissing = True Then - Logger.Warn("Check_UpdateIndexe: ERROR or Missing Indexing - returning False") + ValidatorLogger.Warn("Check_UpdateIndexe: ERROR or Missing Indexing - returning False") Return False Else - Logger.Debug("Check_UpdateIndexe: Everything OK - returning True") + ValidatorLogger.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) + ValidatorLogger.Warn($"Unexpected error in Check_UpdateIndexe - ControlID: {oControlId},{oControlName}") + ValidatorLogger.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) + ValidatorLogger.Info("Unexpected error in Check_UpdateIndexe:" & ex.Message & " - Line: " & st.GetFrame(0).GetFileLineNumber().ToString, True) Return False End Try @@ -5535,14 +5527,14 @@ Public Class frmValidator Try Dim oRowCount As Integer = pGrid.DataSource.Rows.Count - Logger.Debug("Grid Row Count: [{0}]", oRowCount) + ValidatorLogger.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) + ValidatorLogger.Warn(pMissingMessage) 'Exit For Return False @@ -5628,9 +5620,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) + ValidatorLogger.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) + ValidatorLogger.Debug("Empty line in Grid [{0}]. Skipping.", pSettings.Name) Continue For End If @@ -5656,7 +5648,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) + ValidatorLogger.Warn(pMissingMessage) 'Exit For Return False End If @@ -5666,7 +5658,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) + ValidatorLogger.Warn(pMissingMessage) 'Exit For Return False End If @@ -5683,7 +5675,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) + ValidatorLogger.Warn(pMissingMessage) 'Exit For Return False End If @@ -5693,11 +5685,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!") + ValidatorLogger.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!") + ValidatorLogger.Debug("(String) User cleared the grid, so data needs to be erased!") IDBData.Delete_AttributeData(CURRENT_DOC_ID, pSettings.IndexName) End If @@ -5707,61 +5699,88 @@ Public Class frmValidator Return True Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) Return False End Try End Function Private Function Indexiere_File(_dok As WINDREAMLib.WMObject, pIndexName As String, pIndexValues As Object) As Boolean - Dim File_indexiert As Boolean = False + Dim indexierung_erfolgreich As Boolean = False idxerr_message = "" Try - If pIndexName = "Vektor_Text2" Then - Logger.Info("Achtung") - End If - 'Die Arrays vorbereiten - Dim arrIndex() As String = Nothing - Dim arrValue() As String = Nothing - arrIndex = Nothing - arrValue = Nothing - 'Den Indexnamen übergeben - ReDim Preserve arrIndex(0) - arrIndex(0) = pIndexName - 'Das Array der Idnexwerte überprüfen - If pIndexValues Is Nothing = False Then - If pIndexValues.Length() > 1 Then - Logger.Debug("Indexing Index '" & pIndexName & "' with Arrayvalue") + Dim oIndexType As Integer = WINDREAM_MOD.GetIndexType(pIndexName) + If oIndexType > 4095 Then + ValidatorLogger.Debug("Es Handelt sich um einen VektorIndex...") + Dim oExistingItems = WINDREAM_MOD.GetIndexValue(CURRENT_DOC_PATH, pIndexName) - For Each oValue In pIndexValues - Try - Logger.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) - End Try - Next - - Dim anzahl As Integer = 0 - For Each indexvalue As String In pIndexValues - ReDim Preserve arrValue(anzahl) - arrValue(anzahl) = indexvalue - anzahl += 1 - Next + Dim oListofString As New List(Of String) + If pIndexValues.Length = 0 Then + ValidatorLogger.Debug("oSplitArray.Length = 0") + oListofString.Add(pIndexValues(0)) Else - Logger.Debug("Indexing Index '" & pIndexName & "' with value '" & pIndexValues(0) & "'") - ReDim Preserve arrValue(0) - arrValue(0) = pIndexValues(0).ToString + ValidatorLogger.Debug($"pIndexValues.Length is > 0 [{pIndexValues.length}] ...") + For Each oStr In pIndexValues + ValidatorLogger.Debug("pIndexValues - oString : {0}", oStr) + oListofString.Add(oStr) + Next End If - 'Jetzt das eigentliche Indexieren der Datei - 'File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue) - File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue) - Return File_indexiert + + If oExistingItems.Count > 0 Then + ValidatorLogger.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count) + oListofString = oExistingItems.Concat(oListofString).ToList() + End If + oListofString = oListofString.Distinct().ToList() + indexierung_erfolgreich = WINDREAM_MOD.SetFileIndexLoS(CURRENT_DOC_PATH, pIndexName, oListofString, CURRENT_WMObjecttype) + Else + Dim oStringValue As String = pIndexValues(0).ToString + indexierung_erfolgreich = WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, pIndexName, oStringValue, CURRENT_WMObjecttype) End If + Return indexierung_erfolgreich + + + ''Die Arrays vorbereiten + 'Dim arrIndex() As String = Nothing + 'Dim arrValue() As String = Nothing + 'arrIndex = Nothing + 'arrValue = Nothing + ''Den Indexnamen übergeben + 'ReDim Preserve arrIndex(0) + 'arrIndex(0) = pIndexName + ''Das Array der Idnexwerte überprüfen + 'If pIndexValues Is Nothing = False Then + ' If pIndexValues.Length() > 1 Then + ' ValidatorLogger.Debug("Indexing Index '" & pIndexName & "' with Arrayvalue") + + ' For Each oValue In pIndexValues + ' Try + ' ValidatorLogger.Debug("Current Index Value for [{0}] is [{1}]", pIndexName, oValue) + ' Catch ex As Exception + ' ValidatorLogger.Warn("Current Index Value for [{0}] could not be read!", pIndexName) + ' End Try + ' Next + + ' Dim anzahl As Integer = 0 + ' For Each indexvalue As String In pIndexValues + ' ReDim Preserve arrValue(anzahl) + ' arrValue(anzahl) = indexvalue + ' anzahl += 1 + ' Next + ' Else + ' ValidatorLogger.Debug("Indexing Index '" & pIndexName & "' with value '" & pIndexValues(0) & "'") + ' ReDim Preserve arrValue(0) + ' arrValue(0) = pIndexValues(0).ToString + ' End If + ' 'Jetzt das eigentliche Indexieren der Datei + ' 'File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue) + ' indexierung_erfolgreich = WINDREAM.RunIndexing(_dok, arrIndex, arrValue) + 'Return indexierung_erfolgreich + 'End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) idxerr_message = "Unexpected error in Indexiere_File: " & ex.Message.ToString - Logger.Info("Unexpected error in Indexiere_File: " & ex.Message.ToString, True) + ValidatorLogger.Info("Unexpected error in Indexiere_File: " & ex.Message.ToString, True) Return False End Try End Function @@ -5772,7 +5791,7 @@ Public Class frmValidator Sub Datei_ueberspringen() Try - Logger.Debug("Skipping document....(Datei_ueberspringen)") + ValidatorLogger.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}" @@ -5780,10 +5799,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}") + ValidatorLogger.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}") Load_Next_Document(False) Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) MsgBox("Fehler bei Überspringen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub @@ -5792,7 +5811,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) + ValidatorLogger.Error(ex) Return False End Try End Function @@ -5805,7 +5824,7 @@ Public Class frmValidator DocumentViewerValidator.CloseDocument() DocumentViewerValidator.Done() Catch ex As Exception - Logger.Warn($"Unexpected error in delete_active_File DocumentViewerValidator.Done: {ex.Message}") + ValidatorLogger.Warn($"Unexpected error in delete_active_File DocumentViewerValidator.Done: {ex.Message}") End Try Thread.Sleep(500) Application.DoEvents() @@ -5824,7 +5843,7 @@ Public Class frmValidator End If End If Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) MsgBox("Fehler bei Löschen windream-Datei:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -5838,43 +5857,43 @@ Public Class frmValidator If CURRENT_WMFILE.aLocked Then ' unlock the windream object CURRENT_WMFILE.unlock() - Logger.Debug("## Delete_WMFile WMFile unlocked! ##") + ValidatorLogger.Debug("## Delete_WMFile WMFile unlocked! ##") End If Try CURRENT_WMFILE.Delete() - Logger.Info("Manual deleting of file [" & CURRENT_WMFILE.aName & "] successfull!") + ValidatorLogger.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...") + ValidatorLogger.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...") + ValidatorLogger.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!") + ValidatorLogger.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...") + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Fehler bei Delete_File") + ValidatorLogger.Info(">> Fehlermeldung: " & ex.Message) Return False End Try End Function @@ -6002,7 +6021,7 @@ Public Class frmValidator _frmValidatorSearch = New frmValidatorSearch(Me, Environment) _frmValidatorSearch.Show() Catch ex As Exception - Logger.Error(ex) + ValidatorLogger.Error(ex) End Try Load_Additional_Searches(False) End Sub @@ -6048,7 +6067,7 @@ Public Class frmValidator If Check_UpdateIndexe() = True Then SetStatusLabel($"Data saved", "LimeGreen") - Logger.Info("Workflowdata saved manually!") + ValidatorLogger.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 @@ -6061,8 +6080,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) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Error while saving GridLayout: " & ex.Message) End Try End Sub @@ -6075,8 +6094,8 @@ Public Class frmValidator End If Catch ex As Exception - Logger.Error(ex) - Logger.Info("Error while restoring layout: " & ex.Message) + ValidatorLogger.Error(ex) + ValidatorLogger.Info("Error while restoring layout: " & ex.Message) End Try End Sub Private Function GetXML_OverviewLayoutName(pProfilID As Integer, pControlID As Integer) @@ -6119,7 +6138,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}") + ValidatorLogger.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}") oExportFilename = "" End If If oExportFilename <> String.Empty Then @@ -6132,27 +6151,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) + ValidatorLogger.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) + ValidatorLogger.Info("File [{0}] successfully converted to plain PDF!", oTempFullFilename) + ValidatorLogger.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) + ValidatorLogger.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") + ValidatorLogger.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) + ValidatorLogger.Info("Final export path is: [{0}]", oFile2Export) File.Copy(oFile2Export, oTargetPath) - Logger.Info($"File {WMDocPathWindows} exported successfully!") + ValidatorLogger.Info($"File {WMDocPathWindows} exported successfully!") oCount += 1 Else MsgBox("Error encountered while extracting Export-Filename!" & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) @@ -6174,7 +6193,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}") + ValidatorLogger.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}") oExportFilename = "" End If If oExportFilename <> String.Empty Then @@ -6183,7 +6202,7 @@ Public Class frmValidator oCount += 1 Else Dim omsg = $"Error encountered while extracting ATTACHMENT-Export-Filename DocID [{oDocID}]!" - Logger.Info($"#### ATTENTION: {omsg} SQL: {oSQLGetFilename}") + ValidatorLogger.Info($"#### ATTENTION: {omsg} SQL: {oSQLGetFilename}") MsgBox(omsg & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If End If @@ -6197,7 +6216,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) + ValidatorLogger.Error(ex) MsgBox("Could not move file to target: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub @@ -6248,13 +6267,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...") + ValidatorLogger.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}") + ValidatorLogger.Warn($"Unexpected error in Checking EditValue: {ex.Message}") End Try End If End If