Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml =================================================================== diff -u -r33454 -r33455 --- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 33454) +++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 33455) @@ -55,9 +55,10 @@ %Status 1 Index: APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml =================================================================== diff -u -r33454 -r33455 --- APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml (.../LijnPrijsBepaler.cls.xml) (revision 33454) +++ APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml (.../LijnPrijsBepaler.cls.xml) (revision 33455) @@ -42,8 +42,9 @@ VerkoopPrijsBepaler:DOM.PM.VerkoopPrijsBepaler="" %Status Index: vhUnitTest/End2End/GebruikteHalffabItemsVoorPrijsberekening/TestBase.cls.xml =================================================================== diff -u -r33454 -r33455 --- vhUnitTest/End2End/GebruikteHalffabItemsVoorPrijsberekening/TestBase.cls.xml (.../TestBase.cls.xml) (revision 33454) +++ vhUnitTest/End2End/GebruikteHalffabItemsVoorPrijsberekening/TestBase.cls.xml (.../TestBase.cls.xml) (revision 33455) @@ -12,22 +12,21 @@ #dim KlantID As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).VanHoecke() #dim HalffabKostItemBuilderSpy As DOM.PM.Maatwerk.Calc.Kost.HalffabKostItemBuilder = ##class(vhTest.Spy.DOM.PM.Maatwerk.Calc.Kost.HalffabKostItemBuilder).%New(,Filter) - do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Register("HalffabKostItemBuilder",HalffabKostItemBuilderSpy) + Do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Register("HalffabKostItemBuilder", HalffabKostItemBuilderSpy) #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = Kenmerken - Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() - + #dim VerkoopPrijsBepaler As DOM.PM.VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() #dim DummyVerkoopprijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, 1, PersonalityID, KlantID) - if HalffabKostItemBuilderSpy.Items.Count() '= GebruikteHalffabItems.Count() { - do $$$AssertEqualsList(HalffabKostItemBuilderSpy.Items,GebruikteHalffabItems) - } else { - set Iterator = ##class(TECH.ListIterator).%New(GebruikteHalffabItems) - while Iterator.HasNext() { + If $$$Not(HalffabKostItemBuilderSpy.Items.Count() = GebruikteHalffabItems.Count()) { + Do $$$AssertEqualsList(HalffabKostItemBuilderSpy.Items, GebruikteHalffabItems) + } Else { + #dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(GebruikteHalffabItems) + + While (Iterator.HasNext()) { #dim GebruiktHalffabItem As %String = Iterator.Next() - if $$$Not(HalffabKostItemBuilderSpy.Items.Find(GebruiktHalffabItem)) do ..Fail(GebruiktHalffabItem_" niet gevonden") + Do:($$$Not(HalffabKostItemBuilderSpy.Items.Find(GebruiktHalffabItem))) ..Fail(GebruiktHalffabItem _ " niet gevonden") } - } ]]> Index: vhTest/Integratie/PrijsBepaling/MaatwerkBase.cls.xml =================================================================== diff -u -r33454 -r33455 --- vhTest/Integratie/PrijsBepaling/MaatwerkBase.cls.xml (.../MaatwerkBase.cls.xml) (revision 33454) +++ vhTest/Integratie/PrijsBepaling/MaatwerkBase.cls.xml (.../MaatwerkBase.cls.xml) (revision 33455) @@ -84,10 +84,8 @@ #dim Aantal As %Integer = 1 #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken() #dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance() - - Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() + #dim VerkoopPrijsBepaler As DOM.PM.VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() #dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken,Aantal,Personality.GeefID(),KlantID) - #dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID) #dim NoSa As %String = 0 #dim PrijsInfo As APPS.VKP.dto.PrijsInfo = $$KLANTPRObject^KPRIJS(KlantNr,..GeefProductID(),NoSa) Index: DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml =================================================================== diff -u -r33454 -r33455 --- DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml (.../GratisCorpusProfielen.cls.xml) (revision 33454) +++ DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml (.../GratisCorpusProfielen.cls.xml) (revision 33455) @@ -10,7 +10,7 @@ -DOM.PM.impl.VerkoopPrijsBepaler +DOM.PM.VerkoopPrijsBepaler 1 @@ -31,9 +31,10 @@ %Status 1