Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r68640 -r68658
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68640)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 68658)
@@ -152,38 +152,22 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ClientIpAdres As %String = ..GeefIpAdresVoorIpCom()
-	#dim IpComKey As %String = $G(^IPCom("IP",ClientIpAdres))
+	#dim IpAdresVoorIpCom As %String = ##class(BL.Legacy.IPComService).GeefIpAdresVoorIpCom()
+	Set:(IpAdresVoorIpCom="") IpAdresVoorIpCom = "??"
 	
+	#dim IpComKey As %String = ##class(BL.Legacy.IPComService).GeefIpComKey(IpAdresVoorIpCom)
+	
 	#dim Klantnummer As %String = ""
 	If $$$HasLength(IpComKey) {
 		Set Klantnummer = $Get(^IPCom("D",IpComKey,"P","KLANT"))
 	}
 	
-	Do ..Logger.Info("GenereerKaderdeurPdf","GeefKlantnummerViaHadWizIpCom: product: '"_ProductId_"' - ClientIpAdres: '"_ClientIpAdres_"' - IpComKey: '"_IpComKey_"'  --> Klantnummer: '"_Klantnummer_"'.")
+	Do ..Logger.Info("GenereerKaderdeurPdf","GeefKlantnummerViaHadWizIpCom: product: '"_ProductId_"' - ClientIpAdres: '"_IpAdresVoorIpCom_"' - IpComKey: '"_IpComKey_"'  --> Klantnummer: '"_Klantnummer_"'.")
 	
 	Quit Klantnummer
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIpAdresVoorIpCom">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim IpAdresVoorIpCom As %String
-
-	If ##class(APPS.common.EDI.impl.EDIBasisVerwerker).IsEdiVerwerkingViaBackgroundProcess() {
-		Set IpAdresVoorIpCom = ##class(APPS.common.EDI.impl.EDIBasisVerwerker).GeefIpAdresVoorEdiVerwerking()
-	}
-	Else {
-		Set IpAdresVoorIpCom = ##class(TECH.Process).GeefClientIP()   ; Normale ClientIpAdres 
-	}
-
-	Set:(IpAdresVoorIpCom="") IpAdresVoorIpCom = "??"
-	Quit IpAdresVoorIpCom
-]]></Implementation>
-</Method>
-
 <Method name="GeefKlantnummerViaPRHIST">
 <Description>
 KlantId ophalen uit Verkoopshistoriek (meest recente eerst) </Description>