From e0e32790d85f8c141108967625375d8b9111dfc1 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Thu, 14 Mar 2024 15:01:55 +0100 Subject: [PATCH] MS Logging FillIndexValues DevexpressGrid --- app/TaskFlow/frmMain.vb | 2 -- app/TaskFlow/frmValidator.vb | 36 +++++++++++++++++++++--------------- 2 files changed, 21 insertions(+), 17 deletions(-) diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index 63d6c8d..3b3a558 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -2360,11 +2360,9 @@ Public Class frmMain If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20) If SQL_PROFILES_USER <> "" Then - oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID) LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..") Else - oSQL = $"SELECT [dbo].[FNDD_LANGUAGE_PHRASE] ('PROFILE_TITLE' + CONVERT(VARCHAR(4),T.GUID),'{USER_LANGUAGE}','PM') as GROUP_TEXT_LANG, T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({USER_ID}))" diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index 0a31ea2..fc868d5 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/app/TaskFlow/frmValidator.vb @@ -762,6 +762,7 @@ Public Class frmValidator Dim oControlID = oControlRow.Item("GUID") oControlInfo = $"CtrlID: {oControlID} - CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}" Try + If LOG_PERF Then PerformanceLogger.Info(oControlInfo + "") Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper Case ClassControlCreator.PREFIX_TEXTBOX If LOG_PERF Then PerformanceLogger.Info("Create_Controls/Textbox") @@ -3152,23 +3153,28 @@ Public Class frmValidator Dim oMyDatatable As DataTable = oValueFromSource Logger.Debug($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) For Each oRow As DataRow In oMyDatatable.Rows - Logger.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") - oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) - 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...") + Try + Logger.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!") - End If + If oColValuesfromSource.Length > 8 Then + Logger.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!") + End If + Logger.Debug($"oColValuesfromSource splitted - Length ({oColValuesfromSource.Length.ToString})") + Dim oRowData As New List(Of Object) - Dim oRowData As New List(Of Object) + For index = 1 To oColValuesfromSource.Length + Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN") + Logger.Debug($"oColumnType of DGView-Column ({oColumnType.ToString})") + Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType) + oRowData.Add(oConvertedValue) + Next - For index = 1 To oColValuesfromSource.Length - Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN") - Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType) - oRowData.Add(oConvertedValue) - Next + oDataSource.Rows.Add(oRowData.ToArray()) + Catch ex As Exception + Logger.Warn($"Error while adding datarow [{oRow.Item(0).ToString}] to Grid: " & ex.Message) + End Try - oDataSource.Rows.Add(oRowData.ToArray()) Next End If @@ -3575,7 +3581,7 @@ Public Class frmValidator Catch ex As Exception Logger.Warn($"Unexpected error in FillIndexValues: [{oControName} -TYPE: {oControlType}-INDEXNAME: {oIndexName}] ERROR: {ex.Message}") - errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" + oControName & vbNewLine & ex.Message & vbNewLine & "Check Logfile" My.Settings.Save() frmError.ShowDialog() End Try @@ -3730,7 +3736,7 @@ Public Class frmValidator Try Dim oSQL = PROFIL_FINISH_SQL oSQL = clsPatterns.ReplaceAllValues(oSQL, PanelValidatorControl, True) - + sd Dim oDT_ACTIONS As DataTable = DatabaseFallback.GetDatatableECM(oSQL) If IsNothing(oDT_ACTIONS) Then MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)