Index: CHUI/common/DefaultTchuiListGenerator.cls.xml
===================================================================
diff -u -r29059 -r35824
--- CHUI/common/DefaultTchuiListGenerator.cls.xml	(.../DefaultTchuiListGenerator.cls.xml)	(revision 29059)
+++ CHUI/common/DefaultTchuiListGenerator.cls.xml	(.../DefaultTchuiListGenerator.cls.xml)	(revision 35824)
@@ -46,7 +46,7 @@
 </Property>
 
 <Property name="Converter">
-<Type>APPS.BKH.AankoopFactuurArchivering.impl.AankoopFactuurExporteerder.DataConverter</Type>
+<Type>CHUI.common.DefaultTchuiListGenerator.DataConverter</Type>
 <Private>1</Private>
 </Property>
 
@@ -59,7 +59,7 @@
 <Implementation><![CDATA[
 	Set ..Properties = Properties
 	Do ..ZetRecordIdentifiers(RecordIdentifiers)
-	Set ..Converter = ##class(APPS.BKH.AankoopFactuurArchivering.impl.AankoopFactuurExporteerder.DataConverter).%New(Properties)
+	Set ..Converter = ##class(CHUI.common.DefaultTchuiListGenerator.DataConverter).%New(Properties)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: CHUI/common/DefaultTchuiListGenerator/DataConverter.cls.xml
===================================================================
diff -u
--- CHUI/common/DefaultTchuiListGenerator/DataConverter.cls.xml	(revision 0)
+++ CHUI/common/DefaultTchuiListGenerator/DataConverter.cls.xml	(revision 35824)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.common.DefaultTchuiListGenerator.DataConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Code">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Properties:TECH.KeyValue.List</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set PropertyIt = ##class(TECH.ListIterator).%New(Properties)
+	While PropertyIt.HasNext() {
+		Do ..Code.Insert(..BuildCode(PropertyIt.Next()))
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>Value:%String,KolomIndex:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..ExecuteCode(..Code.GetAt(KolomIndex),Value)
+]]></Implementation>
+</Method>
+
+<Method name="ExecuteCode">
+<FormalSpec>Code:%String,Value:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	new Result
+	xecute Code
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="BuildCode">
+<FormalSpec>PropertyKeyValue:TECH.KeyValuePair</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set PropertyType = ##class(%Dictionary.CompiledProperty).%OpenId(PropertyKeyValue.Key_"||"_PropertyKeyValue.Value).Type
+	If ( PropertyType = "%Library.Date" ) {
+		Quit "set Result = $Extract(##class(TECH.DateTime).DateToTimeStamp(Value),1,10)"
+	} Else {
+		Quit "set Result = Value"
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>