Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r67003 -r67976
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 67003)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 67976)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
@@ -27,6 +32,7 @@
 <Implementation><![CDATA[
 	Set ..FileApi = $$$Inject(FileApi, ##class(TECH.File.impl.FileAPI).%New())
 	Set ..ProductieDetailDocumentService = $$$Inject(ProductieDetailBladService, ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService).%New())
+	Set ..OrderApi = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -103,6 +109,8 @@
 <Implementation><![CDATA[
 	Set InputParameters = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters).%New()
 	Set InputParameters.ProductID = ProductId
+	Set InputParameters.KlantID = ..ZoekKlantIdVoorProduct(ProductId)
+	;Set InputParameters.KlantID = ##class(DOM.VKP.enu.Klant).NewSobelwood()
 	
 	Try {
 		Do ..Logger.Info("GenereerKaderdeurPdf","Voor product '"_ProductId_"' zal het KaderdeurDetailBlad pdf-bestand '"_BestandVolledigeNaamVoorKaderdeurPdf_"' gegenereerd worden.")
@@ -118,6 +126,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekKlantIdVoorProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantId As %String = ""
+	
+	If (KlantId = "") && $Data(^ORD("IP",ProductId)) {
+		// KlantId ophalen uit Order (eerste order is misschien niet het juiste order, maar meestal wel. Indien zelfde klant, dan is t toch ook oké. Dus voldoende om mee te starten) 
+		#dim OrderId As %String = $Order(^ORD("IP",ProductId,""))
+		#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderId)
+		Set KlantId = Order.GeefKlantID()
+	}
+	
+	If (KlantId = "") && ($Data(^KOFKLP(ProductId))) {
+		// KlantId ophalen uit Offerte (eerste offerte is misschien niet de juiste offerte, maar meestal wel. Indien zelfde klant, dan is t toch ook oké. Dus voldoende om mee te starten) 
+		#dim OfferteId As %String = $Order(^KOFKLP(ProductId,""))
+		#dim Offerte As DOM.VKP.Offerte = ..OrderApi.GeefOfferte(OfferteId)
+		Set KlantId = Offerte.GeefKlantID()
+	}
+	
+	If (KlantId = "") && ($Data(^PRHIST(ProductId))) {
+		// KlantId ophalen uit Verkoopshistoriek (meest recente eerst) 
+		; TO DO  (indien nodig) 
+	}
+	
+	Quit KlantId
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestandVolledigeNaamVoorKaderdeurPdf">
 <FormalSpec>ProductId:%String</FormalSpec>
 <Private>1</Private>