Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u -r31917 -r31976
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 31917)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 31976)
@@ -3,14 +3,38 @@
 <Class name="APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService">
 <Super>TECH.RegisteredObject,APPS.EDI.PrijsBerekening.PrijsBerekeningService</Super>
 
+<Property name="PrijsBerekeningRepository">
+<Type>APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefPrijs">
 <FormalSpec>EDIAanvraag:APPS.EDI.PrijsBerekening.dto.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.PrijsBerekening.dto.Resultaat</ReturnType>
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
 	try {
+		#dim KlantID As DOM.VKP.KlantID = EDIAanvraag.KlantID
 		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefIngegevenKenmerken(EDIAanvraag)
-		Set Resultaat.KostPrijs = ..BerekenKostPrijs(IngegevenKenmerken,EDIAanvraag.Aantal)
+
+		#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..GeefData(KlantID)
+		#dim WinkelkarID As %String = Data.Winkelkar.GeefID()
+		#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefBerekendeMaatwerkLijn(WinkelkarID,IngegevenKenmerken,EDIAanvraag.Aantal)
+		
+		Set Resultaat.OfferteID = ""   ; WinkelkarID   ; ??? 
+		Set Resultaat.LijnID = Lijn.GeefID()
+		Set Resultaat.KostPrijs = Lijn.GeefTotaalPrijs()
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.GeneralErrorException")
 		Set Resultaat.KostPrijs = ""
@@ -20,21 +44,75 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenKostPrijs">
-<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Numeric</FormalSpec>
+<Method name="GeefIngegevenKenmerken">
+<FormalSpec>EDIAanvraag:APPS.EDI.PrijsBerekening.dto.Aanvraag</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	Quit 99.99 * Aantal
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarIK(EDIAanvraag.Product)
+	#dim VervolledigdeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefVervolledigdeIngegevenKenmerken(IngegevenKenmerken)
+
+	Quit VervolledigdeIngegevenKenmerken
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIngegevenKenmerken">
-<FormalSpec>EDIAanvraag:APPS.EDI.PrijsBerekening.dto.Aanvraag</FormalSpec>
+<Method name="ConverteerNaarIK">
+<FormalSpec>Product:APPS.EDI.common.dto.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ""
+	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVervolledigdeIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	; APPS.EC.InterneConfiguratorService.VerwerkKenmerkWijzig(IK)
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EDI.PrijsBerekening.data.PrijsBerekening</ReturnType>
+<Implementation><![CDATA[
+	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	
+	If $$$Not(..PrijsBerekeningRepository.BestaatViaKlantEnDatum(KlantID, CurrentDate)) {
+		#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.Maak()
+	    Set Data.KlantID = KlantID
+	    Set Data.Datum = CurrentDate
+	    Do ..PrijsBerekeningRepository.Bewaar(Data)
+	}
+	Else {
+		Set Data = ..PrijsBerekeningRepository.GeefViaKlantEnDatum(KlantID,CurrentDate)
+	}	
+	Quit Data
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekendeMaatwerkLijn">
+<FormalSpec>WinkelkarID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Numeric</FormalSpec>
+<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
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/GeefPrijs/Test.cls.xml
===================================================================
diff -u -r31835 -r31976
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/GeefPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 31835)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/GeefPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 31976)
@@ -7,11 +7,13 @@
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService).%New()
 	Set EDIAanvraag = ##class(APPS.EDI.PrijsBerekening.dto.Aanvraag).%New()
+	Set EDIAanvraag.KlantID = "UT_KlantID"
 	Set EDIAanvraag.Aantal = 2
 	
 	#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.OfferteID = ""   ; "UT_NogTeBepalen"
 	Do ..AssertResultaat(EDIResultaat,VerwachtResultaat)
 ]]></Implementation>
 </Method>