Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u -r32013 -r32014
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32013)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32014)
@@ -13,6 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfiguratorService">
+<Type>APPS.EC.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityID">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>PrijsBerekeningRepository:APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository=""</FormalSpec>
 <Private>1</Private>
@@ -22,6 +37,10 @@
 <Implementation><![CDATA[
 	Set ..PrijsBerekeningRepository = $$$Implementation(PrijsBerekeningRepository,##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New())
 	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Set ..ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService()
+	Set ..PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	Set ..WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -134,7 +153,12 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	; APPS.EC.InterneConfiguratorService.VerwerkKenmerkWijzig(IK)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
+	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..PersonalityID)
+	
+	Set KenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
+	#dim Result As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..ConfiguratorService.VerwerkKenmerkWijzigingen(IngegevenKenmerken,KenmerkWijzigingen,Klant,Personality)
+	
 	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
@@ -150,6 +174,8 @@
 		#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.Maak()
 	    Set Data.KlantID = KlantID
 	    Set Data.Datum = CurrentDate
+	    Do Data.Winkelkar.ZetKlantID(KlantID)
+		Do Data.Winkelkar.ZetPersonalityID(..PersonalityID)
 	    Do ..PrijsBerekeningRepository.Bewaar(Data)
 	}
 	Else {
@@ -164,16 +190,10 @@
 <Private>1</Private>
 <ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
-	#dim LijnID As %String = ""  ; APPS.EC.Winkelkar.impl.WinkelkarService WinkelkarService VoegToeMaatwerk(WinkelkarID As %String, GroepNaam As %String, IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken, Aantal As %String, ProjectReferentie As %String = "") 
-	
-	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()   ; Maatwerklijn.%OpenId(LijnID)    // misschien een van de APPS winkelkar service .. verplaatsen naar de DOM laag .. die krijgt dan een winkelkar obj binnen en geeft een lijn obj terug
-	do Lijn.ZetAantal(Aantal)
-	;Do Lijn.ZetEenheidPrijsNettoExclBTW( $$ROUND^KPRIJS(KostPrijs) )
-	;Do Lijn.ZetEindklantEenheidPrijsNettoExclBTW( $$ROUND^KPRIJS(KostPrijs) )
-	Do Lijn.ZetTotaalPrijs( 99.99 *  Lijn.GeefAantal() )
-	;Do Lijn.ZetEindklantTotaalPrijs( $$ROUND^KPRIJS(Lijn.GeefEindklantEenheidPrijsNettoExclBTW() *  Lijn.GeefAantal()) )
-	
-	Quit Lijn
+	#dim GroepNaam As %String = ""
+	#dim ProjectReferentie As %String = ""
+	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(Winkelkar.GeefID(), GroepNaam, IngegevenKenmerken, Aantal, ProjectReferentie)
+	Quit Winkelkar.GeefLijn(LijnID)
 ]]></Implementation>
 </Method>
 </Class>