Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r68227 -r68574
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68227)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68574)
@@ -39,22 +39,22 @@
 </Method>
 
 <Method name="GenereerKaderdeurDetailBladPdf">
-<FormalSpec>ProductId:%String</FormalSpec>
+<FormalSpec>ProductId:%String,Klantnummer:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaamVoorKaderdeurPdf As %String = ..GeefBestandVolledigeNaamVoorKaderdeurPdf(ProductId)
 	Do ..VerwijderKaderdeurPdf(BestandVolledigeNaamVoorKaderdeurPdf)   ; Normaal gezien zal de pdf nog niet bestaan, maar het kan geen kwaad om effe te checken en op te kuisen. 
-	Do ..GenereerKaderdeurPdf(ProductId, BestandVolledigeNaamVoorKaderdeurPdf)
+	Do ..GenereerKaderdeurPdf(ProductId, Klantnummer, BestandVolledigeNaamVoorKaderdeurPdf)
 ]]></Implementation>
 </Method>
 
 <Method name="UpdateKaderdeurDetailBladPdf">
 <Description>
 De Update-mehtod doet momenteel hetzelfde als de Genereer-method. </Description>
-<FormalSpec>ProductId:%String</FormalSpec>
+<FormalSpec>ProductId:%String,Klantnummer:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaamVoorKaderdeurPdf As %String = ..GeefBestandVolledigeNaamVoorKaderdeurPdf(ProductId)
 	Do ..VerwijderKaderdeurPdf(BestandVolledigeNaamVoorKaderdeurPdf)   ; Normaal gezien zal de pdf wel reeds bestaan --> weggooien en nieuwe maken. 
-	Do ..GenereerKaderdeurPdf(ProductId, BestandVolledigeNaamVoorKaderdeurPdf)
+	Do ..GenereerKaderdeurPdf(ProductId, Klantnummer, BestandVolledigeNaamVoorKaderdeurPdf)
 ]]></Implementation>
 </Method>
 
@@ -104,13 +104,15 @@
 </Method>
 
 <Method name="GenereerKaderdeurPdf">
-<FormalSpec>ProductId:%String,BestandVolledigeNaamVoorKaderdeurPdf:%String</FormalSpec>
+<FormalSpec>ProductId:%String,Klantnummer:%String,BestandVolledigeNaamVoorKaderdeurPdf:%String</FormalSpec>
 <Private>1</Private>
 <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()
+	Set InputParameters.KlantID = Klantnummer
+	If Klantnummer = "" {
+		Set InputParameters.KlantID = ..ZoekKlantIdVoorProduct(ProductId)
+	}
 	
 	Try {
 		Do ..Logger.Info("GenereerKaderdeurPdf","Voor product '"_ProductId_"' zal het KaderdeurDetailBlad pdf-bestand '"_BestandVolledigeNaamVoorKaderdeurPdf_"' gegenereerd worden.")
Index: AXimpl/PM/Maatwerk/KaderdeurPdfCreator.cls.xml
===================================================================
diff -u -r68483 -r68574
--- AXimpl/PM/Maatwerk/KaderdeurPdfCreator.cls.xml	(.../KaderdeurPdfCreator.cls.xml)	(revision 68483)
+++ AXimpl/PM/Maatwerk/KaderdeurPdfCreator.cls.xml	(.../KaderdeurPdfCreator.cls.xml)	(revision 68574)
@@ -64,7 +64,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ItemID,ConfigID, rs
-
+	
+	#dim KlantNrFromAx As %String = ""
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID
+	#dim Klantnummer As %String
+	
 	#dim StartTijd As %String = $H
 	#dim ProductID as %String
 	#dim PRNr as %String
@@ -74,6 +78,7 @@
 	
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set VerkoopAPI = ##class(DOM.VKP.impl.VerkoopAPI).%New()
 	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New()
 	
 	While ..itProduct.HasNext()
@@ -83,6 +88,14 @@
 		Set PRNr=$G(rs.Data("AdminProductNummer"))
 		Set ItemID=rs.Data("ItemID")
 		Set ConfigID=$G(rs.Data("ConfigID"))
+		Set KlantNrFromAx = $Get(rs.Data("KlantNr"))
+		Set KlantId = "K||"_(+KlantNrFromAx)
+		If VerkoopAPI.BestaatKlant(KlantId) {
+			Set Klantnummer = +KlantNrFromAx
+		}
+		Else {
+			Set Klantnummer = ""
+		}
 		
 		try {
 			
@@ -92,14 +105,14 @@
 			}
 			If IsKaderdeurProduct {
 				If $$$Not(KaderdeurDetailBladPdfGenerator.BestaatKaderdeurDetailBladPdfVoorProduct(PRNr)) {
-					#dim MsgGenerate As %String = $Select(..IsSimulateOnly:"Simulate instead of Generate", 1:"Generate pdf now")
+					#dim MsgGenerate As %String = $Select(..IsSimulateOnly:"Simulate instead of Generate", 1:"Generate pdf now")_" - klantNr='"_Klantnummer_"'."
 					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr) = MsgGenerate
 					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr,ConfigID_";") = MsgGenerate
-					Do:(MetPdfCreate) KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf(PRNr)
+					Do:(MetPdfCreate) KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf(PRNr, Klantnummer)
 				}
 				Else {
 					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr) = "OK: "_KaderdeurDetailBladPdfGenerator.GeefBestandVolledigeNaamVoorKaderdeurDetailBladPdf(PRNr)
-					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr,ConfigID_";") = "OK."
+					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr,ConfigID_";") = "OK."_" - klantNr='"_Klantnummer_"'."
 				}
 			}
 		}