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