Index: APPS/PM/Maatwerk/FlowObjectXMLStreamCreator.cls.xml
===================================================================
diff -u -r63763 -r66893
--- APPS/PM/Maatwerk/FlowObjectXMLStreamCreator.cls.xml	(.../FlowObjectXMLStreamCreator.cls.xml)	(revision 63763)
+++ APPS/PM/Maatwerk/FlowObjectXMLStreamCreator.cls.xml	(.../FlowObjectXMLStreamCreator.cls.xml)	(revision 66893)
@@ -26,6 +26,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakEnBewaarXmlProductStreamVoorKAD">
+<FormalSpec>StructProductInput:%String,LocatieVoorXMLFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToonKaderdeurViaSvg As %Boolean = $$$False
+	#dim XslUrl As %String = ..#XSLPathRelative_"Format GADefKader.xsl"
+	;#dim ProductId As %String       = $P(StructProductInput, "\", 1)   ; Niet nodig maar handig om weten :-P 
+	#dim GADefKaderdeurId As %String = $P(StructProductInput, "\", 2)
+	
+	Do ##class(vhLib.Logger).%New("OV").Info("PrintKaderdeurViaWatchfolder","Het maatwerkproduct voor '"_StructProductInput_"' wordt naar het bestand "_LocatieVoorXMLFile_" geschreven.")
+	
+	#dim XmlProductStream As %Stream = ..GeefXmlKaderdeurProductStream(GADefKaderdeurId, XslUrl, ToonKaderdeurViaSvg)
+	Do ..SaveAndCloseStream(XmlProductStream,LocatieVoorXMLFile)
+	
+	Do ##class(vhLib.Logger).%New("OV").Info("PrintKaderdeurViaWatchfolder","Het maatwerkproduct is bewaard in bestand "_LocatieVoorXMLFile_".")
+]]></Implementation>
+</Method>
+
 <Method name="MaakEnBewaarXMLOrderStreamVoorKAD">
 <FormalSpec>StructOrderInput:%String,LocatieVoorXMLFile:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -64,6 +81,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefXmlKaderdeurProductStream">
+<FormalSpec>GADefKaderdeurID:%String,XslUrl:%String="",ToonKaderdeurViaSvg:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>%FileCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	Set CharStream=##class(%FileCharacterStream).%New()
+	
+	If (GADefKaderdeurID = "") || $$$Not(##class(Prod.GADef.KaderDeur).%ExistsId(GADefKaderdeurID)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Ongeldige input voor GeefXmlKaderdeurProductStream() : Kaderdeur-object bestaat niet voor Id '"_GADefKaderdeurID_"' ")
+	}
+	Set GADefKaderdeur = ##class(Prod.GADef.KaderDeur).%OpenId(GADefKaderdeurID)
+	If $$$Not($IsObject(GADefKaderdeur)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Ongeldige input voor GeefXmlKaderdeurProductStream() : Kaderdeur-object kan niet geopend worden voor Id '"_GADefKaderdeurID_"' ")
+	}
+	
+	#dim XMLWriteOpties As %String = "GAO;GAF;GAV"
+	If (ToonKaderdeurViaSvg) {
+		Set XMLWriteOpties = "GAO;GAF;GASVG"
+	}
+	Do GADefKaderdeur.XMLWrite(CharStream, ..Taal, XMLWriteOpties, XslUrl)
+	Set GADefKaderdeur = ""
+	
+	Quit CharStream
+]]></Implementation>
+</Method>
+
 <Method name="GeefXMLOrderStream">
 <FormalSpec>StructOrderInput:%String,XslUrl:%String="",ToonKaderdeurViaSvg:%Boolean=0</FormalSpec>
 <Private>1</Private>