Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u -r29059 -r33279
--- CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 29059)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 33279)
@@ -24,15 +24,17 @@
 	Set Parameters = ""
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	#dim Product As DOM.PM.MaatwerkProduct = ProductAPI.GeefProduct(PRNr)
-	If (Product.%Extends("DOM.PM.MaatwerkProduct"))
-	{
+	
+	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
 		Set Familie = Product.GeefFamilie()
 		Set Variant = Product.GeefVariant()
 		Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
 		Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 		Set Applicatie.Naam = ..#ApplicatieID
-		Set WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+		
+		#dim WinkelkarService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
 		#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantID)
+		
 		Set IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
 		#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.IngegevenKenmerken = IngegevenKenmerkenConverter.NaarDataTransferObject(IngegevenKenmerken)
@@ -55,12 +57,15 @@
 	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	Set Applicatie.Naam = ..#ApplicatieID
-	Set WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+	
+	#dim WinkelkarService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
 	#dim PersonalityID As %String = ##class(DOM.common.enu.Personality).VanHoecke()
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantID,PersonalityID)
 	#dim Gebruiker As DOM.common.Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER)
+	
 	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantID,Gebruiker.GeefID(),Winkelkar.WinkelkarID,DocumentType,DocumentId)
  	Do Parameters.Save()
+ 	
  	Quit Parameters
 ]]></Implementation>
 </Method>