Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41096 -r41098
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41096)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41098)
@@ -84,13 +84,7 @@
 	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _Winkelkar.userName _" " _..FormatAPI.FormatDate(..DateTimeAPI.CurrentDate(),"DD/MM/JJ")
 	Set ..Vhisie4Winkelkar.CommissieReferentie = ""
 	
-	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 ..VerwerkWinkelkar(Winkelkar)
 	
 	Quit ..VerzendVhisie4Winkelkar(Winkelkar.userName)
 ]]></Implementation>
@@ -111,6 +105,20 @@
 ]]></Implementation>
 </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)
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Transfermode "_Winkelkar.transferMode_ " niet ondersteund !"))	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ProcessCumulated">
 <FormalSpec>Directories:%ListOfObjects</FormalSpec>
 <Private>1</Private>