Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater.cls.xml =================================================================== diff -u -r53660 -r55102 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater.cls.xml (.../WinkelkarUpdater.cls.xml) (revision 53660) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater.cls.xml (.../WinkelkarUpdater.cls.xml) (revision 55102) @@ -107,7 +107,7 @@ 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) { + } Elseif ..MoetWinkelkarLijnGesynchroniseerdWorden(OnDiskWinkelkarLijn, InMemWinkelkarLijn) { Do ##class(vhLib.Logger).%New().Info("Winkelkar niet synchroon !","Update Winkelkarlijn met winkelkar " _WinkelkarId _ " en winkelkarlijn " _InMemWinkelkarLijn.ExterneId) @@ -138,6 +138,18 @@ ]]> + +OnDiskWinkelkarLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn,InMemWinkelkarLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn +1 +%Boolean + + + OnDiskWinkelkarLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn,InMemWinkelkarLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn 1 @@ -149,7 +161,6 @@ Quit:..IsWaardeVerschillend(InMemWinkelkarLijn,OnDiskWinkelkarLijn,"ProjectReferentie") $$$True Quit:(InMemWinkelkarLijn.Type=..#ProductType)&&..IsWaardeVerschillend(InMemWinkelkarLijn,OnDiskWinkelkarLijn,"ProductId") $$$True Quit:(InMemWinkelkarLijn.Type=..#ProductType)&&..IsWaardeVerschillend(InMemWinkelkarLijn,OnDiskWinkelkarLijn,"PakketReferentie") $$$True - Quit:(InMemWinkelkarLijn.Type=..#MaatwerkType)&&..IsWaardeVerschillend(InMemWinkelkarLijn,OnDiskWinkelkarLijn,"Ongeldig") $$$True Quit:(InMemWinkelkarLijn.Type=..#MaatwerkType)&&..IsWaardeVerschillend(InMemWinkelkarLijn,OnDiskWinkelkarLijn,"EenheidPrijs") $$$True Quit:(InMemWinkelkarLijn.Type=..#MaatwerkType)&&..Kenmerkenvergelijker.IsVerschillend(InMemWinkelkarLijn.IngegevenKenmerken,OnDiskWinkelkarLijn.IngegevenKenmerken) $$$True Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater/TestMaatwerkLijn.cls.xml =================================================================== diff -u -r53660 -r55102 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater/TestMaatwerkLijn.cls.xml (.../TestMaatwerkLijn.cls.xml) (revision 53660) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Synchroniseer/WinkelkarUpdater/TestMaatwerkLijn.cls.xml (.../TestMaatwerkLijn.cls.xml) (revision 55102) @@ -247,10 +247,12 @@ #dim OnDiskWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkar() #dim OnDiskIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade() Set OnDiskWinkelkar.Lijnen.GetAt(1).IngegevenKenmerken = OnDiskIngegevenKenmerken + Set OnDiskWinkelkar.Lijnen.GetAt(1).Ongeldig = "" ; bij winkelkarren voor deze property bestond staat dit op 'leeg' en niet op false #dim InMemWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkar() #dim InMemIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade() Set InMemWinkelkar.Lijnen.GetAt(1).IngegevenKenmerken = InMemIngegevenKenmerken + Set OnDiskWinkelkar.Lijnen.GetAt(1).Ongeldig = $$$False #dim DummyWinkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()