Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/GeefPrijs/Test.cls.xml
===================================================================
diff -u -r32000 -r32014
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/GeefPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 32000)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/GeefPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 32014)
@@ -16,30 +16,40 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
-	Set ..KlantID = "UT_KlantID"
+	Set ..KlantID = "K||1000"
 	Set ..CurrentDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
 ]]></Implementation>
 </Method>
 
 <Method name="Test">
 <Implementation><![CDATA[
-	Set PrijsBerekeningRepositoryStub = ##class(vhTest.Mock.APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
-		Set DummyData = ##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).%New()
-		Do PrijsBerekeningRepositoryStub.IndienMethodCall("BestaatViaKlantEnDatum",..KlantID,..CurrentDate).DanReturn($$$True)
-		Do PrijsBerekeningRepositoryStub.IndienMethodCall("GeefViaKlantEnDatum",..KlantID,..CurrentDate).DanReturn(DummyData)
+	Set PrijsBerekeningRepositoryStub = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()   ; niet meer gemocked. 
 	Set Service = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService).%New(PrijsBerekeningRepositoryStub)
 	
-	#dim EDIAanvraag As APPS.EDI.PrijsBerekening.dto.Aanvraag = ..MaakEDIAanvraagTAX(2,"")
+	#dim EDIAanvraag As APPS.EDI.PrijsBerekening.dto.Aanvraag = ..MaakEDIAanvraagTAX(1,"550")
 	Set EDIAanvraag.KlantID = ..KlantID
 	
 	#dim EDIResultaat As APPS.EDI.Resultaat = Service.GeefPrijs(EDIAanvraag)
 	#dim VerwachtResultaat As APPS.EDI.PrijsBerekening.dto.Resultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
-	Set VerwachtResultaat.KostPrijs = 199.98
+	Set VerwachtResultaat.KostPrijs = 190.62
 	Set VerwachtResultaat.OfferteID = ""   ; "UT_NogTeBepalen"
+	Set VerwachtResultaat.LijnID = "VH_Fixed"
 	Do ..AssertResultaat(EDIResultaat,VerwachtResultaat)
+	
+	Do ..CleanUpPrijsBerekeningData(PrijsBerekeningRepositoryStub)
 ]]></Implementation>
 </Method>
 
+<Method name="CleanUpPrijsBerekeningData">
+<FormalSpec>PrijsBerekeningRepository:APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = PrijsBerekeningRepository.GeefViaKlantEnDatum(..KlantID,CurrentDate)
+	Do PrijsBerekeningRepository.VerwijderViaID(Data.GeefID())
+]]></Implementation>
+</Method>
+
 <Method name="AssertResultaat">
 <FormalSpec>EDIResultaat:APPS.EDI.Resultaat,VerwachtResultaat:APPS.EDI.Resultaat</FormalSpec>
 <Private>1</Private>
@@ -54,8 +64,36 @@
 <Implementation><![CDATA[
 	Set EDIAanvraag = ##class(APPS.EDI.PrijsBerekening.dto.Aanvraag).%New()
 	Set EDIAanvraag.Aantal = Aantal
-	Set EDIAanvraag.Product = ##class(APPS.EDI.common.dto.v001.LadeTAX).%New()
-	Set EDIAanvraag.Product.LadeDiepte = LadeDiepte
+
+	Set LadeTAX = ##class(APPS.EDI.common.dto.v001.LadeTAX).%New()
+	Set LadeTAX.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
+	Set LadeTAX.CorpusBreedte = 875
+	Set LadeTAX.CorpusWandDikte = ""
+	Set LadeTAX.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht40()
+	Set LadeTAX.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Drevel()
+	Set LadeTAX.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	Set LadeTAX.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION()
+	Set LadeTAX.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
+	Set LadeTAX.HeeftDiepteVerstelling = $$$False
+	Set LadeTAX.HeeftMat = $$$True
+	Set LadeTAX.HeeftOpvullijstLinks = $$$False
+	Set LadeTAX.HeeftOpvullijstRechts = $$$False
+	Set LadeTAX.HeeftZijstabilisering = $$$False
+	Set LadeTAX.IsBinnenbreedte = $$$True
+	Set LadeTAX.IsBinnenlade = $$$False
+	Set LadeTAX.Klasse = ""
+	Set LadeTAX.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	Set LadeTAX.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	Set LadeTAX.LadeDiepte = LadeDiepte
+	Set LadeTAX.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set LadeTAX.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	Set LadeTAX.MatKleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	Set LadeTAX.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+	Set LadeTAX.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set LadeTAX.OpvullijstKleur = ""
+	Set LadeTAX.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	
+	Set EDIAanvraag.Product = LadeTAX
 	Quit EDIAanvraag
 ]]></Implementation>
 </Method>
Index: APPS/EDI/PrijsBerekening/data/PrijsBerekening.cls.xml
===================================================================
diff -u -r31944 -r32014
--- APPS/EDI/PrijsBerekening/data/PrijsBerekening.cls.xml	(.../PrijsBerekening.cls.xml)	(revision 31944)
+++ APPS/EDI/PrijsBerekening/data/PrijsBerekening.cls.xml	(.../PrijsBerekening.cls.xml)	(revision 32014)
@@ -38,7 +38,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ApplicatieID As TECH.String = "PrijsBerekening"
-	Set r%Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New(ApplicatieID)
+	Set r%Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(ApplicatieID)
 ]]></Implementation>
 </Method>
 
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>