Index: Tools/ObjectDumper/dto/Property.cls.xml
===================================================================
diff -u -r500 -r2677
--- Tools/ObjectDumper/dto/Property.cls.xml	(.../Property.cls.xml)	(revision 500)
+++ Tools/ObjectDumper/dto/Property.cls.xml	(.../Property.cls.xml)	(revision 2677)
@@ -15,6 +15,10 @@
 <Type>Tools.ObjectDumper.enu.ClassType</Type>
 </Property>
 
+<Property name="Type">
+<Type>%String</Type>
+</Property>
+
 <Property name="MultiDimensional">
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
Index: TECH/DataTransferObject.cls.xml
===================================================================
diff -u -r1496 -r2677
--- TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1496)
+++ TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 2677)
@@ -11,6 +11,30 @@
 <Default>1</Default>
 <Flags>ENUM</Flags>
 </Parameter>
+
+<Method name="ToStream">
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	set Iterator = ##class(TECH.ListIterator).%New(##class(Tools.ObjectDumper.Dumper).%New($this).GetResult())
+	while Iterator.HasNext() {
+		do Stream.WriteLine(Iterator.Next())	
+	}
+	quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="ToDisplayStream">
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	set Iterator = ##class(TECH.ListIterator).%New(##class(Tools.ObjectDumper.DisplayDumper).%New($this).GetResult())
+	while Iterator.HasNext() {
+		do Stream.WriteLine(Iterator.Next())	
+	}
+	quit Stream
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r2009 -r2677
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 2009)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 2677)
@@ -24,6 +24,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FormatAPI">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Object:%Library.Base,MagObjectReferentieToevoegen:%Boolean=1,Writer:TECH.Output.Writer="",Formatter:TECH.Output.Formatter</FormalSpec>
 <Private>1</Private>
@@ -35,6 +40,7 @@
 	set ..MagObjectReferentieToevoegen = MagObjectReferentieToevoegen
 	Set ..Writer = $$$Implementation(Writer, ##class(TECH.Output.impl.Writer).%New())
 	Set ..Formatter = $$$Implementation(Formatter, ##class(TECH.Output.impl.Formatter).%New())
+	set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -189,7 +195,7 @@
 		continue:..SkipProperty(PropertyDefinition.Name)
 		set dtoProperty = ##class(Tools.ObjectDumper.dto.Property).%New()	
 		set dtoProperty.Name = PropertyDefinition.Name
-		
+		set dtoProperty.Type = $$$NormalizeClassname(PropertyDefinition.Type)
 		set dtoProperty.ClassName = ..GetClassName(PropertyDefinition)
 		set dtoProperty.ClassType = ..GetClassType(dtoProperty.ClassName,PropertyDefinition.Collection)	
 		set dtoProperty.MultiDimensional = PropertyDefinition.MultiDimensional
Index: Tools/ObjectDumper/DisplayDumper.cls.xml
===================================================================
diff -u
--- Tools/ObjectDumper/DisplayDumper.cls.xml	(revision 0)
+++ Tools/ObjectDumper/DisplayDumper.cls.xml	(revision 2677)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ObjectDumper.DisplayDumper">
+<Super>Tools.ObjectDumper.Dumper</Super>
+
+<Method name="MagObjectReferentieToevoegenGet">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $$$false
+]]></Implementation>
+</Method>
+
+<Method name="FormatPropertyValue">
+<FormalSpec>Value:%CacheString,Property:Tools.ObjectDumper.dto.Property</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if Property.Type = "%Library.Date" {
+		set:$length(Value) Value = ..FormatAPI.FormatDate(Value,"DD.MM.JJJJ")	
+	}
+	Quit Value
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>