From 92e408b060f488d269939316bdf48c072ab14bfc Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 16 Jan 2020 13:22:56 +0100
Subject: [PATCH] fix date column in doc grid view

---
 app/DD-Record-Organizer/ClassDOC_SEARCH.vb | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
index 92f79b8..078fe0b 100644
--- a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
+++ b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
@@ -312,6 +312,7 @@ Public Class ClassDOC_SEARCH
                     For Each rw As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows
                         Dim ColumnName = rw.Item("HEADER_CAPTION")
                         Dim Width = rw.Item("WIDTH")
+                        Dim oColumnType = rw.Item("TYPE_ID")
                         If IsNothing(Width) Or IsDBNull(Width) Then
                             Width = 200
                         End If
@@ -321,7 +322,15 @@ Public Class ClassDOC_SEARCH
                         _step = "7.2"
                         'Die Spalte definieren
                         Try
-                            DTGrid.Columns.Add(ColumnName)
+                            Dim oColumn As New DataColumn() With {
+                                .ColumnName = ColumnName
+                            }
+
+                            If oColumnType = 4 Then
+                                oColumn.DataType = GetType(DateTime)
+                            End If
+
+                            DTGrid.Columns.Add(oColumn)
                             ColCount += 1
                         Catch ex As Exception
                             ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)