Index: APPS/common/Document/BullzipPDF/KaderdeurPDFBewaarder.cls.xml
===================================================================
diff -u -r63865 -r66895
--- APPS/common/Document/BullzipPDF/KaderdeurPDFBewaarder.cls.xml	(.../KaderdeurPDFBewaarder.cls.xml)	(revision 63865)
+++ APPS/common/Document/BullzipPDF/KaderdeurPDFBewaarder.cls.xml	(.../KaderdeurPDFBewaarder.cls.xml)	(revision 66895)
@@ -3,23 +3,82 @@
 <Class name="APPS.common.Document.BullzipPDF.KaderdeurPDFBewaarder">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="InputParameters">
+<Type>APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FopTaak">
+<Type>Sys.FOP.Task</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="BewaarPDF">
-<FormalSpec>DocumentData:%String,BestandVolledigeNaam:%String</FormalSpec>
+<FormalSpec>InputParameters:APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters,BestandVolledigeNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..FopTaak = ""
+	Set ..InputParameters = InputParameters
+	
+	Do ..FopTaakAanmaken()
+	Do ..FopTaakDataInstellen(BestandVolledigeNaam)
+	Do ..FopTaakUitvoeren()
+]]></Implementation>
 </Method>
 
 <Method name="FopTaakAanmaken">
-<FormalSpec>DocumentData:%String,BestandVolledigeNaam:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[
+	#dim UserID As %String
+	If $$$Not($Data(UserID)) {
+		Set UserID = ##class(BL.Sys.FOP.CommonTasks).CurrentUserID()   ; 1007 = WimV 
+	}
+	
+	Set ..FopTaak = ##class(BL.Sys.FOP.Interface).NewTask(,,UserID)
+	Set ..FopTaak.AnalyseRoutine = "MaakKaderdeurDetailPdfAndMove"
+	Set ..FopTaak.KeyWords = ";KaderdeurDetailPDF;FileDoc"
+]]></Implementation>
 </Method>
 
 <Method name="FopTaakDataInstellen">
-<FormalSpec>DocumentData:%String,BestandVolledigeNaam:%String</FormalSpec>
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[
+	// Doc definieren voor input-xml via MaatwerkDocOptions (in de toekomst voor DocBase via APPS.common.Document.DocBase.dto.Document) 
+	#dim emDoc As Sys.FOP.emDoc = ..FopTaak.AddDoc()
+	#dim DataIn As %String = ""   ; Input niet via DataIn, maar wel via de MaatwerkDocOptions 
+	#dim Taal As %String = "N"    ; Hier proforma, want wordt in de ProductieDetailPDFCreator bepaald op basis van de KlantId (indien ingevuld)
+	#dim TransformTemplate As %String = ""
+	
+	Do emDoc.SetRenderData("REF", DataIn, "XML", TransformTemplate, "PDF" , "", "", Taal,)
+	Set emDoc.Options = ..GeefKaderdeurDetailDocOptions(BestandVolledigeNaam)
+	
+	;Set sc = ..FopTaak.AddActionFile( ... )   ; Niet nodig bij WatchFolder, want BullzipPDF maakt Pdf-file van input-xml.
+]]></Implementation>
 </Method>
 
 <Method name="FopTaakUitvoeren">
 <Private>1</Private>
+<Implementation><![CDATA[
+	#dim RunMode As BL.Sys.FOP.enu.RunMode = ##class(BL.Sys.FOP.enu.RunMode).Inline()
+	
+	#dim sc As %Status = ##class(BL.Sys.FOP.CommonTasks).RunFopTask(..FopTaak, RunMode)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Uitvoeren van FopTaak '"_..FopTaak.AnalyseRoutine_"' is mislukt (TaskId='"_..FopTaak.%Id()_"') .")
+]]></Implementation>
 </Method>
+
+<Method name="GeefKaderdeurDetailDocOptions">
+<FormalSpec>OutputPDFFilePath:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.Flow.Docs.KADMaatwerkDocOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim DocumentType As %String = ""   ; indien "" dan is DocType = Product; normale waarden zijn ##class(BL.Flow.Docs.enu.DocumentType).Order() of andere FlowDoc 
+	#dim DocumentId As %String = ..InputParameters.ProductID
+	
+	Set MaatwerkDocOptions=##class(BL.Flow.Docs.KADMaatwerkDocOptions).%New(DocumentType, DocumentId, ..InputParameters.KlantID)
+	Set MaatwerkDocOptions.OutputPDFFilePath=OutputPDFFilePath
+	Quit MaatwerkDocOptions
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/ProductieDetailDocumentService.cls.xml
===================================================================
diff -u -r63866 -r66895
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/ProductieDetailDocumentService.cls.xml	(.../ProductieDetailDocumentService.cls.xml)	(revision 63866)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/ProductieDetailDocumentService.cls.xml	(.../ProductieDetailDocumentService.cls.xml)	(revision 66895)
@@ -15,10 +15,10 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Product (ID='"_ProductID _"') is geen Kaderdeur-product."))
 	}
 	
-	#dim DocumentData As %String = InputParameters.ProductID   ; moet nog deftig gemaakt worden. 
-	
+	// In de toekomstige implementatie voor DocBase komt hier : MaakDocument van InputParameters. 
+	// Momenteel MaakPdf via Watchfolder : 
 	Set KaderdeurPdfBewaarder = ##class(APPS.common.Document.BullzipPDF.KaderdeurPDFBewaarder).%New()
-	Do KaderdeurPdfBewaarder.BewaarPDF(DocumentData,BestandLocatie)
+	Do KaderdeurPdfBewaarder.BewaarPDF(InputParameters, BestandLocatie)
 ]]></Implementation>
 </Method>