From 2727548bdeddfdb93b8762e800c701ba58805a88 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Thu, 5 Jun 2025 09:56:27 +0200 Subject: [PATCH] Formatierung der DateTime-Spalten im Grid Overview - Load_Grid_Overview --- app/TaskFlow/frmMain.vb | 71 ++++++++++++++--------------------------- 1 file changed, 24 insertions(+), 47 deletions(-) diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index 4aae7d9..a53f819 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -2155,64 +2155,41 @@ Public Class frmMain LOGGER.Error(ex) End Try End If - RestoreLayout() - - - 'Dim oSQl = "SELECT * FROM TBDD_COLUMNS_FORMAT where MODULE = 'taskFLOW'" - 'Dim DTColumsFormat As DataTable = DatabaseFallback.GetDatatable("TBDD_COLUMNS_FORMAT", New GetDatatableOptions(oSQl, DatabaseType.ECM)) - - 'For Each oColumn As Columns.GridColumn In GridViewWorkflows.Columns - ' For Each oRow As DataRow In DTColumsFormat.Rows - - ' Dim oColumnName = oColumn.FieldName - ' If oColumnName = oRow.Item("COLUMN_TITLE").ToString Then - - ' Dim oFormat = oRow.Item("TYPE2FORMAT").ToString - ' If oFormat = "DateTime" Then - ' If DT_CURR_WF_ITEMS.Columns.Contains(oColumnName) Then - ' Dim oColumnType = DT_CURR_WF_ITEMS.Columns(oColumnName).DataType - ' If oColumnType IsNot GetType(DateTime) Then - ' Continue For - ' End If - ' End If - - ' If oColumn.DisplayFormat.FormatType <> FormatType.DateTime Then - ' oColumn.DisplayFormat.FormatType = FormatType.DateTime - ' oColumn.DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" - ' End If - - ' End If - ' End If - ' Next - 'Next + RestoreLayout() + Try + Dim oSQLFormat = "SELECT * FROM TBDD_COLUMNS_FORMAT WHERE MODULE = 'taskFLOW' AND GRIDVIEW = 'GridViewWorkflows'" + Dim dtColFormat As DataTable = Await DatabaseFallback.GetDatatableECMAsync(oSQLFormat) - 'For Each oColumn As Columns.GridColumn In GridViewWorkflows.Columns + For Each oColumn As DevExpress.XtraGrid.Columns.GridColumn In GridViewWorkflows.Columns - ' If DT_CURR_WF_ITEMS.Columns.Contains(oColumn.FieldName) Then - ' Dim dtColumn As DataColumn = DT_CURR_WF_ITEMS.Columns(oColumn.FieldName) + For Each oRow As DataRow In dtColFormat.Rows + Dim colName = oRow("COLUMN_TITLE").ToString() - ' If dtColumn.DataType Is GetType(String) Then - ' For Each row As DataRow In DT_CURR_WF_ITEMS.Rows - ' Dim cellValue = row(oColumn.FieldName).ToString() - ' Dim dateValue As DateTime + If oColumn.FieldName = colName Then + Dim oSollFormatType = oRow("TYPE2FORMAT").ToString() - ' If DateTime.TryParse(cellValue, dateValue) Then - ' row(oColumn.FieldName) = dateValue - ' End If - ' Next + If oSollFormatType = "DateTime" Then - ' dtColumn.DataType = GetType(DateTime) + If oColumn.ColumnType <> GetType(DateTime) Then + oColumn.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + End If - ' oColumn.DisplayFormat.FormatType = FormatType.DateTime - ' oColumn.DisplayFormat.FormatString = "dd.MM.yyyy HH:mm:ss" - ' End If - ' End If - 'Next + If oColumn.ColumnType = GetType(DateTime) And oColumn.DisplayFormat.FormatString <> "dd.MM.yyyy HH:mm:ss" Then + oColumn.DisplayFormat.FormatString = "dd.MM.yyyy HH:mm:ss" + End If + End If + End If + Next + Next + Catch ex As Exception + LOGGER.Warn("Fehler beim Anwenden der Formatierung aus TBDD_COLUMNS_FORMAT: " & ex.Message) + End Try oStopWatch.Done() + Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message)