Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41065 -r41096
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41065)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41096)
@@ -92,9 +92,18 @@
 		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Transfermode "_Winkelkar.transferMode_ " niet ondersteund !"))	
 	}
 	
+	Quit ..VerzendVhisie4Winkelkar(Winkelkar.userName)
+]]></Implementation>
+</Method>
+
+<Method name="VerzendVhisie4Winkelkar">
+<FormalSpec>UserName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..WinkelkarSender.Send(..Vhisie4Winkelkar)
 	If (Response.Winkelkar.Status '= "Geslaagd") {
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker " _Winkelkar.userName _"!")
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker " _UserName _"!")
 		Set Exception.ExtraInfo = Response.Winkelkar.Foutmelding.Read()
 		do ##class(TECH.ExceptionHandler).Throw(Exception)	
 	}