Index: BL/Sys/FOP/Verwerker/tmpDev.mac.rou
===================================================================
diff -u -r63765 -r66894
--- BL/Sys/FOP/Verwerker/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 63765)
+++ BL/Sys/FOP/Verwerker/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 66894)
@@ -26,6 +26,8 @@
 	. . Do PrijsLijstSaveXmlRenderToPPOD
 	. Else  If FopTask.AnalyseRoutine["FaxRenderToPPODMergeAndSend" Do
 	. . Do FaxRenderToPPODMergeAndSend
+	. Else  If FopTask.AnalyseRoutine = "MaakKaderdeurDetailPdfAndMove" Do
+	. . Do MaakKaderdeurDetailPDFAndMove
 	. Else  If FopTask.AnalyseRoutine["DocMultiRenderAndMail" Do
 	. . Do DocMultiRenderAndMail
 	. Else  If FopTask.AnalyseRoutine["DocRenderAndFile" Do
@@ -503,6 +505,33 @@
 	
 	/***  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=  ***/	
 	
+MaakKaderdeurDetailPDFAndMove
+	Set sc=$$MaakKaderdeurDetailPDFAndMoveSub()
+	Quit
+MaakKaderdeurDetailPDFAndMoveSub()
+	New Task,TSeq,CntDocMain,sc,DocKey,Doc,DocOptions
+	Set Task=FopTask   ; FopProcess.TaskID
+	Set sc=$$$OK
+	Set CntDocMain=Task.Docs.Count()
+	Set:(CntDocMain'=1) sc=$$$ERROR($$$GeneralError,"Only one document can be supplied in Task "_$S($L(Task.%Id()):Task.%Id(), 1:Task))
+	Quit:($$$ISERR(sc)) sc
+	
+	Set DocKey=""
+	Set Doc=Task.Docs.GetNext(.DocKey)
+	Set DocOptions = Doc.Options
+	If ($IsObject(DocOptions)) && (DocOptions.%Extends(##class(BL.Flow.Docs.KADMaatwerkDocOptions).%ClassName(1))) {
+		Set TSeq=##class(BL.Sys.FOP.Data).NewTaskSequence(Task)
+		Set arTaskSeq(0,"OBJTSeq")=TSeq   ; TSeq is passed by this array to the calling method BuildTaskSequence() from class BL.Sys.FOP.Verwerker
+		Do AddSeqItemMaakProductieDetailPDFAndMove(TSeq,DocOptions)
+	}
+	Else {
+		Set sc=$$$ERROR($$$GeneralError,"Bij MaakKaderdeurDetailPDFAndMove is Doc.Options niet correct ingevuld. Doc.Options = '"_Doc.Options_"'.")	
+	}
+	
+	Quit sc
+	
+	/***  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=  ***/
+	
 	/// Render Docs from DocMulti - Save to files to TempDir - Create mail (fields+body) from pxVoorblad - Attach rendered files - remove files after SendMiniMail
 DocMultiRenderAndMail
 	Set sc=$$DocMultiRenderAndMailSub()
@@ -1111,6 +1140,7 @@
 	Set MaatwerkDocOptions=SeqItem.DocOptions
 	Set ToPath=SeqItem.Params.GetAt("MaakProductieDetailPDFAndMove.ToPath")
 	
+	Set ProductieDetailPDFFilePath = ""
 	Set ErrorMessage=""
 	Try {
 		Set PDFCreator=##class(APPS.PM.Maatwerk.ProductieDetailPDFCreator).%New(MaatwerkDocOptions)