Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/ProductieDetailDocumentService.cls.xml
===================================================================
diff -u -r63129 -r63866
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/ProductieDetailDocumentService.cls.xml	(.../ProductieDetailDocumentService.cls.xml)	(revision 63129)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/ProductieDetailDocumentService.cls.xml	(.../ProductieDetailDocumentService.cls.xml)	(revision 63866)
@@ -3,6 +3,25 @@
 <Class name="APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService">
 <Super>TECH.RegisteredObject,APPS.Halux.PPS.Document.ProductieDetailDocument.ProductieDetailDocumentService</Super>
 
+<Method name="BewaarKaderdeurPDF">
+<FormalSpec>InputParameters:APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters,BestandLocatie:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductID As %String = InputParameters.ProductID
+
+	If ProductTypeAPI.IsKaderdeurProduct(ProductID) {
+		; tis goe! 
+	} Else {
+		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. 
+	
+	Set KaderdeurPdfBewaarder = ##class(APPS.common.Document.BullzipPDF.KaderdeurPDFBewaarder).%New()
+	Do KaderdeurPdfBewaarder.BewaarPDF(DocumentData,BestandLocatie)
+]]></Implementation>
+</Method>
+
 <Method name="BewaarPDF">
 <FormalSpec>InputParameters:APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters,BestandLocatie:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -55,7 +74,7 @@
 	} ElseIf ProductTypeAPI.IsTandemboxProduct(ProductID) {
 		Set BladBuilder = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.BladBuilder).%New()
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Product : "_ProductID _" nog geen ProductieDetailDocument geimplementeerd"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Product : "_ProductID _" nog geen ProductieDetailDocument geimplementeerd (GenTyp='"_$$GENTYP^HAD(ProductID,,1)_"')"))
 	}
 	
 	Quit BladBuilder