Index: BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml
===================================================================
diff -u -r59017 -r68608
--- BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml	(.../beNEWSOBELWOOD.cls.xml)	(revision 59017)
+++ BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml	(.../beNEWSOBELWOOD.cls.xml)	(revision 68608)
@@ -370,11 +370,34 @@
 	If $$$ISERR(sc) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"De Kaderdeur kon niet bewaard worden",sc))
 	}
+	
+	#dim IpComKey As %String = ..StelInIpComVoorKlant( ..Partij.GeefCode() )
+	
 	Do GADefKaderdeur.KPRCreate(,Aantal)
 	Quit GADefKaderdeur.Product
+	
+	// Opkuis ^IPCom 
+	Kill ^IPCom("D",IpComKey)
 ]]></Implementation>
 </Method>
 
+<Method name="StelInIpComVoorKlant">
+<Description>
+Geeft de IpComKey als result terug </Description>
+<FormalSpec>Klantnummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Groep As %String = "KAD"
+	#dim IpComKey As %String = $$NewIPCom2^HADWIZ(Groep,"CREATE")
+	
+	Set ^IPCom("D",IpComKey,"P","KLANT") = Klantnummer
+	Set ^IPCom("D",IpComKey,"P","FORM") = "EDI-KAD-NS"
+	
+	Quit IpComKey
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeValidatieBericht">
 <FormalSpec>Melding:%String</FormalSpec>
 <Private>1</Private>