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