Index: TECH/DataTransferObjectUtils.cls.xml
===================================================================
diff -u
--- TECH/DataTransferObjectUtils.cls.xml	(revision 0)
+++ TECH/DataTransferObjectUtils.cls.xml	(revision 802)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.DataTransferObjectUtils">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefXMLStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Dto:TECH.DataTransferObject,TopTag:%String=""</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	Set XMLStream=##class(%GlobalCharacterStream).%New()
+	Do ..VoegToeXMLAanStream(.XMLStream, Dto, TopTag)
+	Quit XMLStream
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeXMLAanStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&XMLStream:%Library.AbstractStream,Dto:TECH.DataTransferObject,TopTag:%String=""]]></FormalSpec>
+<Implementation><![CDATA[
+	#define AllowEmptyProxy 	0
+	#define NoXMLDeclaration	0
+	#define IndentTags			1
+
+	If ('Dto.%Extends("TECH.DataTransferObject")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("DataTransferObject is niet ondersteund ("_Dto_")."))	
+	}
+	
+	#dim StatusCode As %Status = $$ProxyToXMLStream^vhLib(Dto, XMLStream, .TopTag, $$$IndentTags, $$$AllowEmptyProxy, $$$NoXMLDeclaration)
+	
+	If $$$ISERR(StatusCode) {
+		#dim Message As %String = "ProxyToXMLStream Failed"
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),Message,StatusCode))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/DataTransferObject.cls.xml
===================================================================
diff -u
--- TECH/DataTransferObject.cls.xml	(revision 0)
+++ TECH/DataTransferObject.cls.xml	(revision 802)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.DataTransferObject">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Constraint>,0,1,inputonly,runtime</Constraint>
+<Default>1</Default>
+<Flags>ENUM</Flags>
+</Parameter>
+</Class>
+
+
+</Export>