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()