Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41099 -r41105
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41099)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41105)
@@ -48,6 +48,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Winkelkar">
+<Type>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Meldingen">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
@@ -76,36 +81,47 @@
 <Implementation><![CDATA[
 	Set ..Meldingen = ##class(%ListOfDataTypes).%New()
 	Set ..Klant = Klant
+	Set ..Winkelkar = Winkelkar
 	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant)
 	
-	Do ..MaakVhisie4Winkelkar(Winkelkar.userName, Klant.GeefID())
+	Do ..MaakVhisie4Winkelkar()
 	
-	Do ..VerwerkWinkelkar(Winkelkar)
+	Do ..VerwerkWinkelkar()
 	
-	Quit ..VerzendVhisie4Winkelkar(Winkelkar.userName)
+	;Do ..GeefExceptieIndienMeldingen()
+	
+	Quit ..VerzendVhisie4Winkelkar()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMeldingIndienMeldingen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	;If (..Meldingen.Count() > 0) {
+	;	Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker " _..Winkelkar.userName _"!")
+	;	do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	;}
+]]></Implementation>
+</Method>
+
 <Method name="MaakVhisie4Winkelkar">
-<FormalSpec>UserName:%String,KlantID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
 	Set ..Vhisie4Winkelkar.Id = $REPLACE(..DateTimeAPI.CurrentHorolog(),",","")
-	Set ..Vhisie4Winkelkar.KlantId = KlantID
-	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _UserName _" " _..FormatAPI.FormatDate(..DateTimeAPI.CurrentDate(),"DD/MM/JJ")
+	Set ..Vhisie4Winkelkar.KlantId = ..Klant.GeefID()
+	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _..Winkelkar.userName _" " _..FormatAPI.FormatDate(..DateTimeAPI.CurrentDate(),"DD/MM/JJ")
 	Set ..Vhisie4Winkelkar.CommissieReferentie = ""
 ]]></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 " _UserName _"!")
+		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.ExtraInfo = Response.Winkelkar.Foutmelding.Read()
 		do ##class(TECH.ExceptionHandler).Throw(Exception)	
 	}
@@ -114,15 +130,14 @@
 </Method>
 
 <Method name="VerwerkWinkelkar">
-<FormalSpec>Winkelkar:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if Winkelkar.transferMode = "cumulated" {
-		do ..ProcessCumulated(Winkelkar.shoppingCart.directories)
-	} elseif Winkelkar.transferMode = "bpe" {
-		do ..ProcessDirectories(Winkelkar.shoppingCart.directories)
+	if ..Winkelkar.transferMode = "cumulated" {
+		do ..ProcessCumulated(..Winkelkar.shoppingCart.directories)
+	} elseif ..Winkelkar.transferMode = "bpe" {
+		do ..ProcessDirectories(..Winkelkar.shoppingCart.directories)
 	} else {
-		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Transfermode "_Winkelkar.transferMode_ " niet ondersteund !"))	
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Transfermode "_..Winkelkar.transferMode_ " niet ondersteund !"))	
 	}
 ]]></Implementation>
 </Method>