Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml
===================================================================
diff -u -r39285 -r39460
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml (.../LijnCacheBuilder.cls.xml) (revision 39285)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml (.../LijnCacheBuilder.cls.xml) (revision 39460)
@@ -8,7 +8,7 @@
WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder
-Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+Vhisie4WinkelkarLijnen:%ListOfObjects,Vhisie3WinkelkarLijnen:%ListOfObjects
%ArrayOfObjects
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml
===================================================================
diff -u -r39379 -r39460
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 39379)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 39460)
@@ -62,7 +62,7 @@
Set HerberekenMaatwerkRequest = ##class(WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest).%New()
Set HerberekenMaatwerkRequest.Header.WinkelkarId = "DummyWinkelkarId"
- Set WinkelkarLijn = ##class(WS.Vhisie4.Winkelkar.dto.WinkelkarLijn).%New()
+ Set WinkelkarLijn = ##class(WS.Vhisie4.Winkelkar.dto.MaatwerkLijn).%New()
Set WinkelkarLijn.ID = "ExterneWinkelkarLijnID"
Set WinkelkarLijn.TotaalPrijs = 25
Do HerberekenMaatwerkRequest.Winkelkar.Lijnen.Insert(WinkelkarLijn)
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml
===================================================================
diff -u -r39419 -r39460
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml (.../LijnCacheMatcher.cls.xml) (revision 39419)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml (.../LijnCacheMatcher.cls.xml) (revision 39460)
@@ -3,32 +3,22 @@
TECH.Mockable
-
-WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder
-1
-
-
-LijnCacheBuilder:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder
1
1
%Status
1
-
-Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+WinkelkarLijnCache:%ArrayOfObjects
%ListOfObjects
1
+
+APPS.EC.Winkelkar.impl.WinkelkarUtils
+1
+
+
+
+WSimpl.Vhisie4.Winkelkar.WinkelkarUtils
+1
+
+
+
+WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder
+1
+
+
-VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,LijnCacheMatcher:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher
+VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,LijnCacheMatcher:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher,Vhisie3WinkelkarUtils:APPS.EC.Winkelkar.impl.WinkelkarUtils,Vhisie4WinkelkarUtils:WSimpl.Vhisie4.Winkelkar.WinkelkarUtils,LijnCacheBuilder:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder
1
1
%Status
@@ -28,6 +43,9 @@
Set ..VerkoopService = $$$Inject(VerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
Set ..LijnCacheMatcher = $$$Inject(LijnCacheMatcher, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher).%New())
+ Set ..Vhisie3WinkelkarUtils = $$$Inject(Vhisie3WinkelkarUtils, ##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New())
+ Set ..Vhisie4WinkelkarUtils = $$$Inject(Vhisie4WinkelkarUtils,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarUtils).%New())
+ Set ..LijnCacheBuilder = $$$Inject(LijnCacheBuilder,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder).%New())
Quit $$$OK
]]>
@@ -43,8 +61,13 @@
#dim Offerte As APPS.EC.dto.Offerte = ..VerkoopService.GeefOfferte(OfferteId)
- #dim HerberekendeLijnen As TECH.ListOfObjects = ..LijnCacheMatcher.GeefHerberekendeLijnen(HerberekenMaatwerkRequest.Winkelkar, Offerte.Winkelkar)
+ #dim Vhisie4WinkelkarLijnen As %ListOfObjects = ..Vhisie4WinkelkarUtils.GeefMaatwerkLijnen(HerberekenMaatwerkRequest.Winkelkar)
+ #dim Vhisie3WinkelkarLijnen As %ListOfObjects = ..Vhisie3WinkelkarUtils.GeefMaatwerkLijnen(Offerte.Winkelkar)
+
+ #dim WinkelkarLijnCache As %ArrayOfObjects = ..LijnCacheBuilder.BuildCache(Vhisie4WinkelkarLijnen, Vhisie3WinkelkarLijnen)
+ #dim HerberekendeLijnen As TECH.ListOfObjects = ..LijnCacheMatcher.GeefHerberekendeLijnen(WinkelkarLijnCache)
+
#dim LijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(HerberekendeLijnen)
While LijnIterator.HasNext() {
#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnIterator.Next()
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher/Test.cls.xml
===================================================================
diff -u -r39253 -r39460
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher/Test.cls.xml (.../Test.cls.xml) (revision 39253)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher/Test.cls.xml (.../Test.cls.xml) (revision 39460)
@@ -11,8 +11,10 @@
#dim Vhisie4Winkelkar As WS.Vhisie4.Winkelkar.dto.Winkelkar = ..GeefVhisie4Winkelkar(0,2)
#dim Vhisie3Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefVhisie3Winkelkar(0,2)
- #dim HerberekendeLijnen As TECH.ListOfObjects = LijnCacheMatcher.GeefHerberekendeLijnen(Vhisie4Winkelkar, Vhisie3Winkelkar)
+ #dim WinkelkarLijnCache As %ArrayOfObjects = ..MaakWinkelkarLijnCache(Vhisie4Winkelkar, Vhisie3Winkelkar)
+ #dim HerberekendeLijnen As TECH.ListOfObjects = LijnCacheMatcher.GeefHerberekendeLijnen(WinkelkarLijnCache)
+
Do $$$AssertEquals(HerberekendeLijnen.Count(), 0)
]]>
@@ -27,7 +29,9 @@
#dim Vhisie3Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefVhisie3Winkelkar(0,2)
Set Vhisie3Winkelkar.Lijnen.GetAt(1).TotaalPrijs = 19
- #dim HerberekendeLijnen As TECH.ListOfObjects = LijnCacheMatcher.GeefHerberekendeLijnen(Vhisie4Winkelkar, Vhisie3Winkelkar)
+ #dim WinkelkarLijnCache As %ArrayOfObjects = ..MaakWinkelkarLijnCache(Vhisie4Winkelkar, Vhisie3Winkelkar)
+
+ #dim HerberekendeLijnen As TECH.ListOfObjects = LijnCacheMatcher.GeefHerberekendeLijnen(WinkelkarLijnCache)
If $$$AssertEquals(HerberekendeLijnen.Count(), 1) {
Do $$$AssertEquals(HerberekendeLijnen.GetAt(1).TotaalPrijs, 19)
@@ -46,7 +50,9 @@
Set Vhisie3Winkelkar.Lijnen.GetAt(1).TotaalPrijs = 19
Set Vhisie3Winkelkar.Lijnen.GetAt(2).TotaalPrijs = 21
- #dim HerberekendeLijnen As TECH.ListOfObjects = LijnCacheMatcher.GeefHerberekendeLijnen(Vhisie4Winkelkar, Vhisie3Winkelkar)
+ #dim WinkelkarLijnCache As %ArrayOfObjects = ..MaakWinkelkarLijnCache(Vhisie4Winkelkar, Vhisie3Winkelkar)
+
+ #dim HerberekendeLijnen As TECH.ListOfObjects = LijnCacheMatcher.GeefHerberekendeLijnen(WinkelkarLijnCache)
If $$$AssertEquals(HerberekendeLijnen.Count(), 2) {
Do $$$AssertEquals(HerberekendeLijnen.GetAt(1).TotaalPrijs, 19)
@@ -55,6 +61,22 @@
]]>
+
+Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+1
+%ArrayOfObjects
+
+
+
Offset:%Integer=0,AantalLijnen:%Integer,WinkelkarId:%String="DummyID"
1
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml
===================================================================
diff -u -r39419 -r39460
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml (.../LijnCacheBuilder.cls.xml) (revision 39419)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml (.../LijnCacheBuilder.cls.xml) (revision 39460)
@@ -14,54 +14,30 @@
1
-
-APPS.EC.Winkelkar.impl.WinkelkarUtils
-1
-
-
-
-WSimpl.Vhisie4.Winkelkar.WinkelkarUtils
-1
-
-
WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator
1
-Vhisie3WinkelkarUtils:APPS.EC.Winkelkar.impl.WinkelkarUtils,Vhisie4WinkelkarUtils:WSimpl.Vhisie4.Winkelkar.WinkelkarUtils
1
1
%Status
1
-Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+Vhisie4WinkelkarLijnen:%ListOfObjects,Vhisie3WinkelkarLijnen:%ListOfObjects
%ArrayOfObjects
@@ -78,8 +54,9 @@
If $$$Not(..WinkelkarLijnenCache.IsDefined(ExterneId)) {
Do ..WinkelkarLijnenCache.SetAt(##class(%ArrayOfObjects).%New(),ExterneId)
}
+
Do ..WinkelkarLijnenCache.GetAt(ExterneId).SetAt(MaatwerkLijn,Vhisie4OfVhisie3)
-
+
}
]]>
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml
===================================================================
diff -u -r39262 -r39460
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml (.../LijnCacheMatcher.cls.xml) (revision 39262)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml (.../LijnCacheMatcher.cls.xml) (revision 39460)
@@ -8,7 +8,7 @@
WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheMatcher
-Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+WinkelkarLijnCache:%ArrayOfObjects
%ListOfObjects
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml
===================================================================
diff -u -r39262 -r39460
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml (.../LijnCacheMatcher.cls.xml) (revision 39262)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheMatcher.cls.xml (.../LijnCacheMatcher.cls.xml) (revision 39460)
@@ -10,9 +10,9 @@
right
-Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+WinkelkarLijnCache:%ArrayOfObjects
%ListOfObjects
-
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml
===================================================================
diff -u -r39285 -r39460
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml (.../LijnCacheBuilder.cls.xml) (revision 39285)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml (.../LijnCacheBuilder.cls.xml) (revision 39460)
@@ -10,9 +10,9 @@
right
-Vhisie4Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Vhisie3Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar
+Vhisie4WinkelkarLijnen:%ListOfObjects,Vhisie3WinkelkarLijnen:%ListOfObjects
%ArrayOfObjects
-
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder/Test.cls.xml
===================================================================
diff -u -r39300 -r39460
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder/Test.cls.xml (.../Test.cls.xml) (revision 39300)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder/Test.cls.xml (.../Test.cls.xml) (revision 39460)
@@ -8,7 +8,7 @@
#dim LijnCacheBuilder As WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder
Set LijnCacheBuilder = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder).%New()
- #dim MaatwerkLijnenCache As %ArrayOfObjects = LijnCacheBuilder.BuildCache(..GeefVhisie4Winkelkar(0,2), ..GeefVhisie3Winkelkar(0,2))
+ #dim MaatwerkLijnenCache As %ArrayOfObjects = LijnCacheBuilder.BuildCache(..GeefVhisie4Winkelkar(0,2).Lijnen, ..GeefVhisie3Winkelkar(0,2).Lijnen)
if $$$AssertEquals(MaatwerkLijnenCache.Count(), 2){
Do $$$AssertEquals(MaatwerkLijnenCache.GetAt(1).GetAt("Vhisie4").ID, MaatwerkLijnenCache.GetAt(1).GetAt("Vhisie3").ExterneId)
@@ -17,62 +17,6 @@
]]>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Offset:%Integer=0,AantalLijnen:%Integer,WinkelkarId:%String="DummyID"
1