Index: TECH/Events/HalffabsGemaaktEventData.cls.xml
===================================================================
diff -u -r3766 -r3836
--- TECH/Events/HalffabsGemaaktEventData.cls.xml	(.../HalffabsGemaaktEventData.cls.xml)	(revision 3766)
+++ TECH/Events/HalffabsGemaaktEventData.cls.xml	(.../HalffabsGemaaktEventData.cls.xml)	(revision 3836)
@@ -17,6 +17,73 @@
 <Collection>list</Collection>
 </Property>
 
+<Method name="XMLExportToStream">
+<FormalSpec><![CDATA[&export:%Stream.Object,top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String]]></FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If '$IsObject($G(export)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Input parameter 'export' is geen Stream-object. De method XMLExportToStream() van deze klasse werd mogelijk rechtstreeks opgeroepen, maar dat is niet mogelijk.")
+	} 
+	Do ..VoegToeXmlAanStream(.export)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="XMLExport">
+<Description>
+DO NOT USE this method, because it is not supported on this class. 
+Maak gebruik van de method VoegToeXmlAanStream(), die een zelfgemaakte xml-implementatie bevat. </Description>
+<FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean,mimeAttachments:%Net.MIMEPart]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##class(TECH.Exceptions.IllegalUsageException).Throw("De method XMLExport() van deze klasse is niet mogelijk, omdat de Halffabs geen %XmlAdaptor klasse zijn.")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeXmlAanStream">
+<FormalSpec>DataAsXmlStream:%Stream</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim TopTag As %String = ..#XMLTYPE   ; alternatief : ..%ClassName(1)
+	
+	Do DataAsXmlStream.WriteLine("<"_TopTag_">")
+	If $IsObject(..Halffabs) {
+		Do ..VoegToeListOfHalffabs(DataAsXmlStream)
+	}
+	Do DataAsXmlStream.WriteLine("</"_TopTag_">")
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeListOfHalffabs">
+<FormalSpec>DataAsXmlStream:%Stream</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do DataAsXmlStream.WriteLine("<Halffabs>")
+	Do DataAsXmlStream.WriteLine("	<list_of_halffabs is NOT exported as XML/>")
+	Set HalffabIterator = ##class(TECH.ListIterator).%New(..Halffabs)
+	While (HalffabIterator.HasNext()) {
+		Do ..VoegToeHalffab(DataAsXmlStream, HalffabIterator.Next())
+	}
+	Do DataAsXmlStream.WriteLine("</Halffabs>")
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHalffab">
+<FormalSpec>DataAsXmlStream:%Stream,Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do DataAsXmlStream.WriteLine("	<halffab_DumpObj>")
+	Do DataAsXmlStream.WriteLine("		<![CDATA[")
+	Do DataAsXmlStream.Write(	$$ObjToText^vhLib(Halffab) )
+	Do DataAsXmlStream.WriteLine("		]]]]><![CDATA[>")
+	Do DataAsXmlStream.WriteLine("	</halffab_DumpObj>")
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>HalffabsGemaaktEventDataState</State>