Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r68195 -r68217
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68195)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68217)
@@ -134,7 +134,7 @@
 	#dim KlantId As %String = ""
 	
 	If (KlantId = "") {
-		Set KlantId = ..GeefKlantnummerViaHadWizIpCom()
+		Set KlantId = ..GeefKlantnummerViaHadWizIpCom(ProductId)
 	}
 	
 	If (KlantId = "") && $Data(^ORD("IP",ProductId)) {
@@ -161,7 +161,9 @@
 </Method>
 
 <Method name="GeefKlantnummerViaHadWizIpCom">
+<FormalSpec>ProductId:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ClientIpAdres As %String = ##class(TECH.Process).GeefClientIP()
 	Set:(ClientIpAdres = "192.168.139.1") ClientIpAdres = "192.168.1.97"   // IP-adres van VM-net-adapter, is dus fake :-P 
@@ -174,6 +176,8 @@
 		Set Klantnummer = $Get(^IPCom("D",IpComKey,"P","KLANT"))
 	}
 	
+	Do ..Logger.Info("GenereerKaderdeurPdf","GeefKlantnummerViaHadWizIpCom: product: '"_ProductId_"' - ClientIpAdres: '"_ClientIpAdres_"' - IpComKey: '"_IpComKey_"'  --> Klantnummer: '"_Klantnummer_"'.")
+	
 	Quit Klantnummer
 ]]></Implementation>
 </Method>