Index: BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml
===================================================================
diff -u -r68641 -r68657
--- BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml	(.../beNEWSOBELWOOD.cls.xml)	(revision 68641)
+++ BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml	(.../beNEWSOBELWOOD.cls.xml)	(revision 68657)
@@ -371,15 +371,11 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"De Kaderdeur kon niet bewaard worden",sc))
 	}
 	
-	#dim KaderdeurProduct As Prod.Product
 	#dim IpComKey As %String = ..StelInIpComVoorKlant( ..Partij.GeefCode() )
-	
 	Do GADefKaderdeur.KPRCreate(,Aantal)
-	Set KaderdeurProduct = GADefKaderdeur.Product
+	Do ##class(BL.Legacy.IPComService).VerwijderIpComData(IpComKey)
 	
-	Kill:($$$HasLength(IpComKey)) ^IPCom("D",IpComKey)   ; Opkuis ^IPCom 
-	
-	Quit KaderdeurProduct
+	Quit GADefKaderdeur.Product
 ]]></Implementation>
 </Method>
 
@@ -390,16 +386,9 @@
 <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 
-	}
+	#dim IpAdresVoorIpCom As %String = ##class(BL.Legacy.IPComService).GeefIpAdresVoorIpCom()
+	#dim IpComKey As %String = ##class(BL.Legacy.IPComService).GeefNieuweIpComKey("KAD","CREATE",IpAdresVoorIpCom)
 
-	#dim IpComKey As %String = $$NewIPCom2metIP^HADWIZ("KAD","CREATE",IpAdresVoorIpCom)
-
 	If $$$HasLength(IpComKey) {
 		Set ^IPCom("D",IpComKey,"P","KLANT") = Klantnummer
 		Set ^IPCom("D",IpComKey,"P","FORM") = "EDI-KAD-NS"