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