AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Logging FillIndexValues DevexpressGrid

Browse Source
This commit is contained in:
SchreiberM 2024-03-14 15:01:55 +01:00
parent 02e3485aaf
commit e0e32790d8
2 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/TaskFlow/frmMain.vb
View File

@ -2360,11 +2360,9 @@ Public Class frmMain
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
If SQL_PROFILES_USER <> "" Then If SQL_PROFILES_USER <> "" Then
oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID) oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID)
LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..") LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..")
Else Else
oSQL = $"SELECT [dbo].[FNDD_LANGUAGE_PHRASE] ('PROFILE_TITLE' + CONVERT(VARCHAR(4),T.GUID),'{USER_LANGUAGE}','PM') as GROUP_TEXT_LANG, T.* 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}))" 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}))"

14
app/TaskFlow/frmValidator.vb
View File

@ -762,6 +762,7 @@ Public Class frmValidator
Dim oControlID = oControlRow.Item("GUID") Dim oControlID = oControlRow.Item("GUID")
oControlInfo = $"CtrlID: {oControlID} - CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}" oControlInfo = $"CtrlID: {oControlID} - CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}"
Try Try
If LOG_PERF Then PerformanceLogger.Info(oControlInfo + "")
Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
Case ClassControlCreator.PREFIX_TEXTBOX Case ClassControlCreator.PREFIX_TEXTBOX
If LOG_PERF Then PerformanceLogger.Info("Create_Controls/Textbox") If LOG_PERF Then PerformanceLogger.Info("Create_Controls/Textbox")
@ -3152,23 +3153,28 @@ Public Class frmValidator
Dim oMyDatatable As DataTable = oValueFromSource Dim oMyDatatable As DataTable = oValueFromSource
Logger.Debug($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) Logger.Debug($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count)
For Each oRow As DataRow In oMyDatatable.Rows For Each oRow As DataRow In oMyDatatable.Rows
Try
Logger.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") Logger.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...")
oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter)
'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...")
If oColValuesfromSource.Length > 8 Then If oColValuesfromSource.Length > 8 Then
Logger.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!") Logger.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!")
End If 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 For index = 1 To oColValuesfromSource.Length
Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN") 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) Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType)
oRowData.Add(oConvertedValue) oRowData.Add(oConvertedValue)
Next Next
oDataSource.Rows.Add(oRowData.ToArray()) 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
Next Next
End If End If
@ -3575,7 +3581,7 @@ Public Class frmValidator
Catch ex As Exception Catch ex As Exception
Logger.Warn($"Unexpected error in FillIndexValues: [{oControName} -TYPE: {oControlType}-INDEXNAME: {oIndexName}] ERROR: {ex.Message}") 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() My.Settings.Save()
frmError.ShowDialog() frmError.ShowDialog()
End Try End Try
@ -3730,7 +3736,7 @@ Public Class frmValidator
Try Try
Dim oSQL = PROFIL_FINISH_SQL Dim oSQL = PROFIL_FINISH_SQL
oSQL = clsPatterns.ReplaceAllValues(oSQL, PanelValidatorControl, True) oSQL = clsPatterns.ReplaceAllValues(oSQL, PanelValidatorControl, True)
sd
Dim oDT_ACTIONS As DataTable = DatabaseFallback.GetDatatableECM(oSQL) Dim oDT_ACTIONS As DataTable = DatabaseFallback.GetDatatableECM(oSQL)
If IsNothing(oDT_ACTIONS) Then 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) MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)