Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r67976 -r68195
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 67976)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68195)
@@ -133,6 +133,10 @@
 <Implementation><![CDATA[
 	#dim KlantId As %String = ""
 	
+	If (KlantId = "") {
+		Set KlantId = ..GeefKlantnummerViaHadWizIpCom()
+	}
+	
 	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,""))
@@ -156,6 +160,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantnummerViaHadWizIpCom">
+<Private>1</Private>
+<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 
+	Set:(ClientIpAdres = "") ClientIpAdres = "??"
+	
+	#dim IpComKey As %String = $G(^IPCom("IP",ClientIpAdres))
+	
+	#dim Klantnummer As %String = ""
+	If $$$HasLength(IpComKey) {
+		Set Klantnummer = $Get(^IPCom("D",IpComKey,"P","KLANT"))
+	}
+	
+	Quit Klantnummer
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestandVolledigeNaamVoorKaderdeurPdf">
 <FormalSpec>ProductId:%String</FormalSpec>
 <Private>1</Private>