Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml
===================================================================
diff -u -r39594 -r39599
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml	(.../HerberekenMaatwerk.cls.xml)	(revision 39594)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml	(.../HerberekenMaatwerk.cls.xml)	(revision 39599)
@@ -8,51 +8,63 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VerkoopService">
-<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
+<Property name="Matcher">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LijnCacheMatcher">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher</Type>
+<Property name="LijnCacheBuilder">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Validator">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarConverter">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="WinkelkarUtils">
 <Type>APPS.EC.Winkelkar.impl.WinkelkarUtils</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LijnCacheBuilder">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder</Type>
+<Property name="ExterneVerkoopService">
+<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LijnCacheValidator">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator</Type>
+<Property name="InterneWinkelkarId">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="WinkelkarConverter">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarConverter</Type>
+<Property name="InterneOfferteId">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,LijnCacheMatcher:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher,WinkelkarUtils:APPS.EC.Winkelkar.impl.WinkelkarUtils,LijnCacheBuilder:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder</FormalSpec>
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..VerkoopService = $$$Inject(VerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
 	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
-	Set ..WinkelkarUtils = $$$Inject(WinkelkarUtils,##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New())
-	Set ..LijnCacheMatcher = $$$Inject(LijnCacheMatcher, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher).%New())
-	Set ..LijnCacheBuilder = $$$Inject(LijnCacheBuilder,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder).%New())
-	Set ..LijnCacheValidator = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator).%New()
 	
 	Set ..WinkelkarConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarConverter).%New()
+	Set ..ExterneVerkoopService = ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New()
+	
+	Set ..WinkelkarUtils = ##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New()
+	
+	Set ..Matcher = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher).%New()
+	Set ..LijnCacheBuilder = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder).%New()
+	Set ..Validator = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -62,31 +74,42 @@
 <FormalSpec>HerberekenMaatwerkRequest:WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse</ReturnType>
 <Implementation><![CDATA[
+	set ..InterneWinkelkarId = ..WinkelkarRepository.GeefWinkelkarIDViaID(HerberekenMaatwerkRequest.Winkelkar.Id)
+	set ..InterneOfferteId = ..WinkelkarRepository.GeefOfferteIDViaID(HerberekenMaatwerkRequest.Winkelkar.Id)
+	
+	#dim NietgepersisteerdeMaatwerklijnen As APPS.EC.Winkelkar.dto.MaatwerkLijnList = ..ValideerLijnenAlvorensTeHerberekenen(HerberekenMaatwerkRequest)
+	
+	#dim Offerte As APPS.EC.dto.Offerte = ..ExterneVerkoopService.GeefOfferteEnHerberekenIndienNodig(..InterneOfferteId)
+	
+	Quit ..GenereerResponse(Offerte,..Matcher.GeefVerschillen(NietgepersisteerdeMaatwerklijnen, ..WinkelkarUtils.GeefMaatwerkLijnen(Offerte.Winkelkar)))
+]]></Implementation>
+</Method>
+
+<Method name="GenereerResponse">
+<FormalSpec>Offerte:APPS.EC.dto.Offerte,AangepasteLijnen:APPS.EC.Winkelkar.dto.MaatwerkLijnList</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse</ReturnType>
+<Implementation><![CDATA[
 	Set Response = ##class(WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse).%New()
 
-	Do ..ValideerLijnenAlvorensTeHerberekenen(HerberekenMaatwerkRequest)
-
-	#dim HerberekendeLijnen As TECH.ListOfObjects = ..LijnCacheMatcher.GeefHerberekendeLijnen("")
-
-	#dim LijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(HerberekendeLijnen)
+	#dim LijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(AangepasteLijnen)
 	While LijnIterator.HasNext() {
 		#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnIterator.Next()
-	
-		#dim HerberekendeLijn As WS.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn
+		
 		Set HerberekendeLijn = ##class(WS.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn).%New()
 		Set HerberekendeLijn.LijnID = MaatwerkLijn.ExterneId
 		Set HerberekendeLijn.EenheidPrijs = MaatwerkLijn.EenheidPrijs
 		Set HerberekendeLijn.TotaalPrijs = MaatwerkLijn.TotaalPrijs
-		Set HerberekendeLijn.PrijzenGeldigTotEnMet = MaatwerkLijn.PrijzenGeldigTotEnMetDatum
+		Set HerberekendeLijn.PrijzenGeldigTotEnMet = MaatwerkLijn.PrijzenGeldigTotEnMet
 		
 		Do Response.HerberekendeLijnen.Insert(HerberekendeLijn)
 	}
 	
-	Set Response.WasNogGeldig = (HerberekendeLijnen.Count() = 0)
+	Set Response.WasNogGeldig = (AangepasteLijnen.Count() = 0)
 	
-	/*If $$$Not(Response.WasNogGeldig) && (Offerte.Melding '= "") {
+	If $$$Not(Response.WasNogGeldig) && (Offerte.Melding '= "") {
 		Do Response.MeldingenAanGebruiker.Insert(Offerte.Melding)
-	}*/
+	}
 	
 	Quit Response
 ]]></Implementation>
@@ -95,31 +118,31 @@
 <Method name="ValideerLijnenAlvorensTeHerberekenen">
 <FormalSpec>HerberekenMaatwerkRequest:WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest</FormalSpec>
 <Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijnList</ReturnType>
 <Implementation><![CDATA[
-	#dim GepersisteerdeMaatwerklijnen As list of APPS.EC.Winkelkar.dto.MaatwerkLijn = ..GeefGepersisteerdeMaatwerkLijnen(HerberekenMaatwerkRequest)
-	#dim NietgepersisteerdeMaatwerklijnen As list of APPS.EC.Winkelkar.dto.MaatwerkLijn = ..GeefNietGepersisteerdeMaatwerkLijnen(HerberekenMaatwerkRequest)
+	#dim GepersisteerdeMaatwerklijnen As APPS.EC.Winkelkar.dto.MaatwerkLijnList = ..GeefGepersisteerdeMaatwerkLijnen(HerberekenMaatwerkRequest)
+	#dim NietgepersisteerdeMaatwerklijnen As APPS.EC.Winkelkar.dto.MaatwerkLijnList = ..GeefNietGepersisteerdeMaatwerkLijnen(HerberekenMaatwerkRequest)
 	
 	#dim WinkelkarLijnCache As %ArrayOfObjects = ..LijnCacheBuilder.BuildCache(NietgepersisteerdeMaatwerklijnen,GepersisteerdeMaatwerklijnen)
 	
-	Do ..LijnCacheValidator.ValidateCache(HerberekenMaatwerkRequest.Winkelkar.Id, WinkelkarLijnCache)
+	Do ..Validator.ValidateCache(HerberekenMaatwerkRequest.Winkelkar.Id, WinkelkarLijnCache)
+	
+	Quit NietgepersisteerdeMaatwerklijnen
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGepersisteerdeMaatwerkLijnen">
 <FormalSpec>HerberekenMaatwerkRequest:WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	#dim OfferteId As %String = ..WinkelkarRepository.GeefOfferteIDViaID(HerberekenMaatwerkRequest.Winkelkar.Id)
-	#dim Offerte As APPS.EC.dto.Offerte = ..VerkoopService.GeefOfferte(OfferteId)
-	Quit ..WinkelkarUtils.GeefMaatwerkLijnen(Offerte.Winkelkar)
+<ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijnList</ReturnType>
+<Implementation><![CDATA[	Quit ..WinkelkarUtils.GeefMaatwerkLijnen(..ExterneVerkoopService.GeefOfferteZonderHerberekening(..InterneOfferteId).Winkelkar)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefNietGepersisteerdeMaatwerkLijnen">
 <FormalSpec>HerberekenMaatwerkRequest:WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
+<ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijnList</ReturnType>
 <Implementation><![CDATA[	Quit ..WinkelkarConverter.NaarApps(HerberekenMaatwerkRequest.Winkelkar).Winkelkar.Lijnen
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/impl/WinkelkarUtils.cls.xml
===================================================================
diff -u -r39299 -r39599
--- APPS/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 39299)
+++ APPS/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 39599)
@@ -14,14 +14,19 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.EC.Winkelkar.dto.MaatwerkLijn"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..MaatwerkLijnen.Clear()
 	Do Winkelkar.Accept($this)
 	Quit ..MaatwerkLijnen
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMaatwerkLijnIterator">
+<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..MaatwerkLijnen)
+<Implementation><![CDATA[
+	Do ..MaatwerkLijnen.Clear()	
+	Do Winkelkar.Accept($this)
+	quit ##class(TECH.ListIterator).%New(..MaatwerkLijnen)
 ]]></Implementation>
 </Method>