Index: WSimpl/EC/Unishop/OrderConfirmation/Service/IntractoMelder.cls.xml
===================================================================
diff -u
--- WSimpl/EC/Unishop/OrderConfirmation/Service/IntractoMelder.cls.xml	(revision 0)
+++ WSimpl/EC/Unishop/OrderConfirmation/Service/IntractoMelder.cls.xml	(revision 51590)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="IntractoMelderCartPort">
+<Type>WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>IntractoMelder:WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IntractoMelderCartPort = $$$Inject(IntractoMelder,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="UpdateCartStatus">
+<FormalSpec>cartId:%Integer,status:%Integer</FormalSpec>
+<ReturnType>WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.UpdateStatusResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim UpdateStatusResponse As WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.UpdateStatusResponse = ""
+	Try {
+		Set UpdateStatusResponse = ..IntractoMelderCartPort.updateStatus(cartId,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP())
+	} Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewException = ##class(TECH.Exceptions.InvalidInputException).%New("Fout bij IntractoMelder : updateStatus van "_cartId_" is niet gelukt.")
+		Do NewException.VoegToeInnerExceptie(GecatchteException)
+		Do ##class(TECH.ExceptionHandler).Throw(NewException)
+	}
+	Quit UpdateStatusResponse
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml
===================================================================
diff -u -r51573 -r51590
--- WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(.../Service.cls.xml)	(revision 51573)
+++ WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(.../Service.cls.xml)	(revision 51590)
@@ -24,7 +24,7 @@
 </Property>
 
 <Property name="IntractoMelder">
-<Type>WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort</Type>
+<Type>WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder</Type>
 <Private>1</Private>
 </Property>
 
@@ -34,7 +34,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService="",ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService="",IntractoMelder:WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort="",OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService="",IntractoMelder:WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder="",OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -44,7 +44,7 @@
 	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService())
 	Set ..AuthorisatieControleur = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur()
 	Set ..PersonalityVerwerkerLinker = ##class(APPS.EC.impl.WebshopSessionService.impl.PersonalityEnVerwerkerLinker).%New()
-	Set ..IntractoMelder = $$$Inject(IntractoMelder,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New())
+	Set ..IntractoMelder = $$$Inject(IntractoMelder,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New())
 	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
@@ -75,7 +75,7 @@
 		Do ..VerwerkInputParameters(VanHoeckeOfferte,BestelReferentie,GevraagdeLeverdatum)
 		
 		Do ..ExterneVerkoopService.BestelOfferte(VanHoeckeOfferteID,KlantID,PersonalityID)
-		;Do ..IntractoMelder.updateStatus(EDInr,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP())
+		;Do ..IntractoMelder.UpdateCartStatus(EDInr,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP())
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Message As %String = "Unable to confirm order. (EDINr: "_EDInr_")"_$C(13,10)