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>
Index: APPS/PM/Maatwerk/ProductieDetailPDFCreator.cls.xml
===================================================================
diff -u -r63766 -r66893
--- APPS/PM/Maatwerk/ProductieDetailPDFCreator.cls.xml	(.../ProductieDetailPDFCreator.cls.xml)	(revision 63766)
+++ APPS/PM/Maatwerk/ProductieDetailPDFCreator.cls.xml	(.../ProductieDetailPDFCreator.cls.xml)	(revision 66893)
@@ -36,9 +36,15 @@
 <Method name="VerwerkKADMaatwerkDocOptions">
 <FormalSpec>MaatwerkDocOptions:BL.Flow.Docs.KADMaatwerkDocOptions</FormalSpec>
 <Implementation><![CDATA[
-	#dim XMLFilePath As %String = ..GeefXMLFilePathVoorBullzipPDF("KAD")
+	#dim XMLFilePath As %String = ..GeefXMLFilePathVoorBullzipPDF("KAD", MaatwerkDocOptions.FlowDocType)
 	Set StreamCreator=##class(APPS.PM.Maatwerk.FlowObjectXMLStreamCreator).%New(..GeefTaal())
-	Do StreamCreator.MaakEnBewaarXMLOrderStreamVoorKAD(..MaakStructOrderInput(), XMLFilePath)
+
+	If MaatwerkDocOptions.FlowDocType = "" {
+		Do StreamCreator.MaakEnBewaarXmlProductStreamVoorKAD(..MaakStructProductInputVoorKAD(), XMLFilePath)
+	}
+	Else {
+		Do StreamCreator.MaakEnBewaarXMLOrderStreamVoorKAD(..MaakStructOrderInput(), XMLFilePath)
+	}
 	
 	// De WatchFolder pikt nu de XML-file op en verwerkt deze tot PDF (via Bullzip) 
 	
@@ -62,11 +68,16 @@
 <Method name="GeefXMLFilePathVoorBullzipPDF">
 <Description>
 DocumentKorteOmschrijving is bijvoorbeeld "KAD" of "TBX" (cfr. vroeger "GADEF" of "GADATA") </Description>
-<FormalSpec>DocumentKorteOmschrijving:%String</FormalSpec>
+<FormalSpec>DocumentKorteOmschrijving:%String,DocumentType:BL.Flow.Docs.enu.DocumentType="ORD"</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim XMLFileName As %String = ##class(APPS.PM.Maatwerk.MaatwerkDoc).GeefXMLFileName(DocumentKorteOmschrijving)
+	If DocumentType = "" {
+		Set XMLFileName = ##class(TECH.StringUtils).Replace(XMLFileName, "Ord", "p", , 1)
+		Set XMLFileName = ##class(TECH.StringUtils).Replace(XMLFileName, "CACHESTAGING2010", "cSTG10")   ; FileName korter maken, want wordt anders afgekapt door de Watchfolder-app (bij .xml naar .pdf) 
+		Set XMLFileName = ##class(TECH.StringUtils).Replace(XMLFileName, "CACHEACCEPT2010" , "cACP10")
+	}
 	#dim BullzipWatchfolderDir=##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.PM.Maatwerk.Doc_BullzipPDFInputWatchfolderDir")
 	Quit ##class(TECH.Files).AppendFile(BullzipWatchfolderDir,XMLFileName)
 ]]></Implementation>
@@ -157,6 +168,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakStructProductInputVoorKAD">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %String = ..MaatwerkDocOptions.FlowDocID
+	#dim GADefKaderdeurId As %String = ""
+	If ($$$HasLength(ProductId)) {
+		Set GADefKaderdeurId = $P($G(^KPR(ProductId,"G")),"\",13)
+	}
+	Quit ProductId _ "\" _ GADefKaderdeurId
+]]></Implementation>
+</Method>
+
 <Method name="GeefTaal">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>