Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater/TestMaatwerkLijn.cls.xml
===================================================================
diff -u -r45473 -r45980
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater/TestMaatwerkLijn.cls.xml (.../TestMaatwerkLijn.cls.xml) (revision 45473)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater/TestMaatwerkLijn.cls.xml (.../TestMaatwerkLijn.cls.xml) (revision 45980)
@@ -8,9 +8,13 @@
#dim InMemWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkar(,1)
#dim OnDiskWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkar(,2)
- Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
- Do WinkelkarServiceMock.VerwachtMethodCall("VerwijderLijn", "DummyWinkelkarId", "2").ExactAantalKeer(1).DanDoeNiks()
+ #dim DummyWinkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+ Set WinkelkarServiceMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+ Do WinkelkarServiceMock.VerwachtMethodCall("GeefWinkelkar", "DummyWinkelkarId").ExactAantalKeer(2).DanReturn(DummyWinkelkar)
+ Do WinkelkarServiceMock.VerwachtMethodCall("VerwijderLijn", DummyWinkelkar, "2").ExactAantalKeer(1).DanDoeNiks()
+ Do WinkelkarServiceMock.VerwachtMethodCall("BewaarWinkelkar", DummyWinkelkar).ExactAantalKeer(2).DanDoeNiks()
+
Set KenmerkenvergelijkerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer.Kenmerkenvergelijker).%New()
Do KenmerkenvergelijkerMock.IndienMethodCall("IsVerschillend", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn($$$False)
@@ -25,11 +29,16 @@
-APPS.EC.Winkelkar.impl.WinkelkarService
+DOM.EC.Winkelkar.impl.WinkelkarService
1
@@ -49,14 +49,14 @@
-WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService,LijnCacheBuilder:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder,Kenmerkenvergelijker:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer.Kenmerkenvergelijker,WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository
+WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService,LijnCacheBuilder:WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheBuilder,Kenmerkenvergelijker:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer.Kenmerkenvergelijker,WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository
1
1
%Status
1
@@ -105,40 +97,47 @@
#dim OnDiskWinkelkarLijn As APPS.EC.Winkelkar.dto.Lijn = WinkelkarLijnen.GetAt(..#OnDisk)
#dim InMemWinkelkarLijn As APPS.EC.Winkelkar.dto.Lijn = WinkelkarLijnen.GetAt(..#InMem)
+ #dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(WinkelkarId)
+
If $$$Not($IsObject(InMemWinkelkarLijn)) {
Do ##class(vhLib.Logger).%New().Warning("Winkelkar niet synchroon !","Verwijderen Winkelkarlijn met winkelkar " _WinkelkarId _ " en winkelkarlijn " _OnDiskWinkelkarLijn.ExterneId)
- Do ..WinkelkarService.VerwijderLijn(WinkelkarId, OnDiskWinkelkarLijn.LijnID)
+ Do ..WinkelkarService.VerwijderLijn(Winkelkar, OnDiskWinkelkarLijn.LijnID)
Set Melding = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer.Melding).%New(WinkelkarId, OnDiskWinkelkarLijn.ExterneId, "Lijn is verwijderd uit de winkelkar")
} ElseIf $$$Not($IsObject(OnDiskWinkelkarLijn)) {
Do ##class(vhLib.Logger).%New().Warning("Winkelkar niet synchroon !","Toevoegen Winkelkarlijn met winkelkar " _WinkelkarId _ " en winkelkarlijn " _InMemWinkelkarLijn.ExterneId)
- Do ..VoegToeLijn(WinkelkarId, InMemWinkelkarLijn)
+ Do ..VoegToeLijn(Winkelkar, InMemWinkelkarLijn)
Set Melding = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer.Melding).%New(WinkelkarId, InMemWinkelkarLijn.ExterneId, "Lijn is toegevoegd aan de winkelkar")
} Elseif ..IsWinkelkarLijnVerschillend(OnDiskWinkelkarLijn, InMemWinkelkarLijn) {
Do ##class(vhLib.Logger).%New().Warning("Winkelkar niet synchroon !","Update Winkelkarlijn met winkelkar " _WinkelkarId _ " en winkelkarlijn " _InMemWinkelkarLijn.ExterneId)
- Do ..WinkelkarService.VerwijderLijn(WinkelkarId, OnDiskWinkelkarLijn.LijnID)
- Do ..VoegToeLijn(WinkelkarId, InMemWinkelkarLijn)
+
+ Do ..WinkelkarService.VerwijderLijn(Winkelkar, OnDiskWinkelkarLijn.LijnID)
+ Do ..VoegToeLijn(Winkelkar, InMemWinkelkarLijn)
Set Melding = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer.Melding).%New(WinkelkarId, InMemWinkelkarLijn.ExterneId, "Lijn is gewijzigd in de winkelkar")
}
+
+ Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
Quit Melding
]]>
-WinkelkarId:%String,InMemWinkelkarLijn:APPS.EC.Winkelkar.dto.Lijn
+Winkelkar:DOM.EC.Winkelkar.Winkelkar,InMemWinkelkarLijn:APPS.EC.Winkelkar.dto.Lijn
1