Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r41005 -r41030
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41005)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41030)
@@ -52,9 +52,11 @@
 		Do OfferteHoofding.Save()
 		Set Webshop.ID = OfferteHoofding.GeefID()
 		Set Webshop.Taal = Klant.Toegang.Taal.BasisTaalID()
+		Set Webshop.Type = "Vhisie3"
 	} else {
 		Set Webshop.ID = ..Vhisie4WinkelkarConverteerder.Converteer(UserCart, Klant.Klant)		
 		Set Webshop.Taal = Klant.Klant.GeefTaal()
+		Set Webshop.Type = "Vhisie4"
 	}	
 	
 	Quit Webshop
Index: APPS/Blum/OnlineProductConfigurator/dto/Webshop.cls.xml
===================================================================
diff -u -r29059 -r41030
--- APPS/Blum/OnlineProductConfigurator/dto/Webshop.cls.xml	(.../Webshop.cls.xml)	(revision 29059)
+++ APPS/Blum/OnlineProductConfigurator/dto/Webshop.cls.xml	(.../Webshop.cls.xml)	(revision 41030)
@@ -10,6 +10,10 @@
 <Property name="Taal">
 <Type>DOM.enu.Taal</Type>
 </Property>
+
+<Property name="Type">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u -r41005 -r41030
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41005)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41030)
@@ -23,7 +23,8 @@
 	
 	Do $$$AssertEquals(Webshop.ID, "HoofdingID")
 	Do $$$AssertEquals(Webshop.Taal, Klant.Toegang.Taal.BasisTaalID())
-
+	Do $$$AssertEquals(Webshop.Type, "Vhisie3")
+	
 	Do KlantBepalerMock.Verifieer()
 	Do ConverteerderMock.Verifieer()
 	Do HoofdingMock.Verifieer()
@@ -48,6 +49,7 @@
 	
 	Do $$$AssertEquals(Webshop.ID, "HoofdingID")
 	Do $$$AssertEquals(Webshop.Taal, Klant.Klant.GeefTaal())
+	Do $$$AssertEquals(Webshop.Type, "Vhisie4")
 
 	Do KlantBepalerMock.Verifieer()
 	Do ConverteerderMock.Verifieer()