Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r68217 -r68218
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68217)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68218)
@@ -152,8 +152,7 @@
 	}
 	
 	If (KlantId = "") && ($Data(^PRHIST(ProductId))) {
-		// KlantId ophalen uit Verkoopshistoriek (meest recente eerst) 
-		; TO DO  (indien nodig) 
+		Set KlantId = ..GeefKlantnummerViaPRHIST(ProductId)
 	}
 	
 	Quit KlantId
@@ -182,6 +181,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantnummerViaPRHIST">
+<Description>
+KlantId ophalen uit Verkoopshistoriek (meest recente eerst) </Description>
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Klantnummer As %String = ""
+	
+	#dim VolgNr As %String = ""
+	For { 
+		Set VolgNr = $Order(^PRHIST(ProductId,VolgNr), -1)  Quit:(VolgNr="")
+		
+		#dim ProdHistId As %String = ProductId _ "||"_ VolgNr
+		If ##class(Prod.VoorraadBeweging).%ExistsId(ProdHistId) {
+			Set ProdHistObj = ##class(Prod.VoorraadBeweging).%OpenId(ProdHistId)
+			
+			#dim IsProdHistEntryVoorKlant As %Boolean = (ProdHistObj.WijzigAantal < 0) && $$$Not(ProdHistObj.DerdeNr = 6332)
+			Set:(IsProdHistEntryVoorKlant) Klantnummer = ProdHistObj.DerdeNr
+			
+			; Tip van Paul : eventueel controleren of Klantnummer nog bestaande klant is ... (?) 
+		}
+	}
+	
+	Quit Klantnummer
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestandVolledigeNaamVoorKaderdeurPdf">
 <FormalSpec>ProductId:%String</FormalSpec>
 <Private>1</Private>