Index: vhTest/Utils/APPS/Blum/OnlineProductConfigurator/dto/Winkelkar.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/Blum/OnlineProductConfigurator/dto/Winkelkar.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/Blum/OnlineProductConfigurator/dto/Winkelkar.cls.xml	(revision 41016)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.Blum.OnlineProductConfigurator.dto.Winkelkar">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="CumulatedWinkelkar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
+	Set Winkelkar.transferMode = "cumulated"
+	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
+	Set Winkelkar.shoppingCart.directories = ##class(%ListOfObjects).%New()
+	Set Winkelkar.shoppingCart.identnumbers = ##class(%ListOfObjects).%New()
+	Set Winkelkar.userName = "dummy@dum.my"
+	
+	Set IdentNumber = ##class(APPS.Blum.OnlineProductConfigurator.dto.IdentNumber).%New()
+	Set IdentNumber.identnumber = "identnumber"
+	Set IdentNumber.amount = "10"
+	
+	Set SubDirectory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
+	Do SubDirectory.identnumbers.Insert(IdentNumber)
+
+	Set Directory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
+	Do Directory.subDirectories.Insert(SubDirectory)
+	
+	Do Winkelkar.shoppingCart.directories.Insert(Directory)
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="bpeWinkelkar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
+	Set Winkelkar.transferMode = "bpe"
+	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
+	Set Winkelkar.shoppingCart.directories = ##class(%ListOfObjects).%New()
+	Set Winkelkar.shoppingCart.identnumbers = ##class(%ListOfObjects).%New()
+	Set Winkelkar.userName = "dummy@dum.my"
+	
+	Set IdentNumber = ##class(APPS.Blum.OnlineProductConfigurator.dto.IdentNumber).%New()
+	Set IdentNumber.identnumber = "identnumber"
+	Set IdentNumber.amount = "5"
+	
+	Set FunctionalUnit = ##class(APPS.Blum.OnlineProductConfigurator.dto.FunctionalUnit).%New()
+	Do FunctionalUnit.identnumbers.Insert(IdentNumber)
+	Set FunctionalUnit.amount = "2"
+	
+	Set Directory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
+	Do Directory.functionalUnits.Insert(FunctionalUnit)
+
+	Do Winkelkar.shoppingCart.directories.Insert(Directory)
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r39998 -r41016
--- vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 39998)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 41016)
@@ -48,6 +48,27 @@
 	quit Stream
 ]]></Implementation>
 </Method>
+
+<Method name="BLUMOPCWinkelkar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
+	Set Vhisie4Winkelkar.Id = "6438735360"
+	Set Vhisie4Winkelkar.KlantId = "K||1234"
+	Set Vhisie4Winkelkar.Referentie = "Blum OPC dummy@dum.my 04/14/17"
+	Set Vhisie4Winkelkar.CommissieReferentie = ""
+	
+	Set ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
+	Set ProductLijn.Aantal = 10
+	Set ProductLijn.ProductId = "identnumber"
+	Set ProductLijn.EenheidPrijs = 5
+	Set ProductLijn.TotaalPrijs = 50
+	Do Vhisie4Winkelkar.Lijnen.Insert(ProductLijn)
+	
+	Quit Vhisie4Winkelkar
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r41014 -r41016
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41014)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41016)
@@ -122,82 +122,27 @@
 <Method name="GeefbpeWinkelkar">
 <Private>1</Private>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
-<Implementation><![CDATA[
-	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
-	Set Winkelkar.transferMode = "bpe"
-	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
-	Set Winkelkar.shoppingCart.directories = ##class(%ListOfObjects).%New()
-	Set Winkelkar.shoppingCart.identnumbers = ##class(%ListOfObjects).%New()
-	Set Winkelkar.userName = "dummy@dum.my"
-	
-	Set IdentNumber = ##class(APPS.Blum.OnlineProductConfigurator.dto.IdentNumber).%New()
-	Set IdentNumber.identnumber = "identnumber"
-	Set IdentNumber.amount = "5"
-	
-	Set FunctionalUnit = ##class(APPS.Blum.OnlineProductConfigurator.dto.FunctionalUnit).%New()
-	Do FunctionalUnit.identnumbers.Insert(IdentNumber)
-	Set FunctionalUnit.amount = "2"
-	
-	Set Directory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
-	Do Directory.functionalUnits.Insert(FunctionalUnit)
-
-	Do Winkelkar.shoppingCart.directories.Insert(Directory)
-	Quit Winkelkar
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).bpeWinkelkar()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefcumulatedWinkelkar">
 <Private>1</Private>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
-<Implementation><![CDATA[
-	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
-	Set Winkelkar.transferMode = "cumulated"
-	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
-	Set Winkelkar.shoppingCart.directories = ##class(%ListOfObjects).%New()
-	Set Winkelkar.shoppingCart.identnumbers = ##class(%ListOfObjects).%New()
-	Set Winkelkar.userName = "dummy@dum.my"
-	
-	Set IdentNumber = ##class(APPS.Blum.OnlineProductConfigurator.dto.IdentNumber).%New()
-	Set IdentNumber.identnumber = "identnumber"
-	Set IdentNumber.amount = "10"
-	
-	Set SubDirectory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
-	Do SubDirectory.identnumbers.Insert(IdentNumber)
-
-	Set Directory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
-	Do Directory.subDirectories.Insert(SubDirectory)
-	
-	Do Winkelkar.shoppingCart.directories.Insert(Directory)
-	Quit Winkelkar
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).CumulatedWinkelkar()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVanHoeckeKlant">
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
-<Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
-	Quit Klant
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVhisie4Winkelkar">
 <ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
-<Implementation><![CDATA[
-	Set Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
-	Set Vhisie4Winkelkar.Id = "6438735360"
-	Set Vhisie4Winkelkar.KlantId = "K||1234"
-	Set Vhisie4Winkelkar.Referentie = "Blum OPC dummy@dum.my 04/14/17"
-	Set Vhisie4Winkelkar.CommissieReferentie = ""
-	
-	Set ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
-	Set ProductLijn.Aantal = 10
-	Set ProductLijn.ProductId = "identnumber"
-	Set ProductLijn.EenheidPrijs = 5
-	Set ProductLijn.TotaalPrijs = 50
-	Do Vhisie4Winkelkar.Lijnen.Insert(ProductLijn)
-	
-	Quit Vhisie4Winkelkar
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).BLUMOPCWinkelkar()
 ]]></Implementation>
 </Method>
 </Class>