Index: vhTest/Integratie/Webshop/Winkelkar/WinkelkarKopieerder.cls.xml
===================================================================
diff -u -r31580 -r33279
--- vhTest/Integratie/Webshop/Winkelkar/WinkelkarKopieerder.cls.xml (.../WinkelkarKopieerder.cls.xml) (revision 31580)
+++ vhTest/Integratie/Webshop/Winkelkar/WinkelkarKopieerder.cls.xml (.../WinkelkarKopieerder.cls.xml) (revision 33279)
@@ -10,7 +10,7 @@
do Winkelkar.ZetKlantID("K||1000")
Do Winkelkar.Save()
- #dim WinkelService As APPS.EC.Winkelkar.impl.WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+ #dim WinkelService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
do WinkelService.VoegToeMaatwerk(Winkelkar.GeefID(),"GroepNaam",##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLade(),1)
Set WinkelkarKopieerder = ##class(APPS.VKP.impl.WinkelkarKopieerder).%New()
Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml
===================================================================
diff -u -r29059 -r33279
--- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 29059)
+++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 33279)
@@ -36,10 +36,10 @@
N.B. Houdt geen rekening met het al dan niet gemaakt zijn van een order voor deze offerte.
WinkelkarID:%String
Winkelkar:DOM.EC.Winkelkar.Winkelkar
aTestName:%String
@@ -210,7 +211,7 @@
Quit:( '$$$AssertEquals(Lijn.LijnID, MaatwerkLijnID))
#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
- Quit:( '$$$AssertTrue(Lijn.IngegevenKenmerken.%IsA(VerwachteKenmerken.%ClassName(/*fullname=*/ 1))) )
+ Quit:( '$$$AssertTrue(Lijn.IngegevenKenmerken.%IsA(VerwachteKenmerken.%ClassName(1))) )
Quit:( '$$$AssertEquals(..#AantalProductenInLijn, Lijn.Aantal))
Quit:( '$$$AssertTrue(Lijn.EenheidPrijs > 0) )
Index: APPS/EC/impl/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r32535 -r33279
--- APPS/EC/impl/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 32535)
+++ APPS/EC/impl/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 33279)
@@ -20,16 +20,29 @@
1
+
+APPS.EC.Winkelkar.WinkelkarService
+1
+
+
+
+APPS.common.dto.Applicatie
+1
+
+
-OfferteService:APPS.VKP.OfferteService
+OfferteService:APPS.VKP.OfferteService,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService=""
1
1
%Status
1
@@ -58,8 +71,8 @@
KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality
APPS.EC.dto.OfferteIDEnWinkelkarID
1
APPS.EC.dto.OfferteSamenvatting
ELEMENTTYPE="%Date"
@@ -297,9 +309,11 @@
1
APPS.common.dto.Applicatie
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Legrabox/GeefDefaults/Test002.cls.xml
===================================================================
diff -u -r32363 -r33279
--- vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Legrabox/GeefDefaults/Test002.cls.xml (.../Test002.cls.xml) (revision 32363)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Legrabox/GeefDefaults/Test002.cls.xml (.../Test002.cls.xml) (revision 33279)
@@ -20,7 +20,7 @@
1
APPS.EC.Winkelkar.dto.Winkelkar
-
Index: APPS/EC/impl/ExterneVerkoopService/OfferteHerberekening.cls.xml
===================================================================
diff -u -r32535 -r33279
--- APPS/EC/impl/ExterneVerkoopService/OfferteHerberekening.cls.xml (.../OfferteHerberekening.cls.xml) (revision 32535)
+++ APPS/EC/impl/ExterneVerkoopService/OfferteHerberekening.cls.xml (.../OfferteHerberekening.cls.xml) (revision 33279)
@@ -45,8 +45,9 @@
set ..ActieWijzigingenBepaler = $$$Implementation(ActieWijzigingenBepaler,##class(APPS.EC.impl.ExterneVerkoopService.OfferteHerberekening.ActieWijzigingenBepaler).%New())
set ..RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
set ..OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService()
- set ..WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
- quit $$$OK
+ Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
+
+ Quit $$$OK
]]>
Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u -r32121 -r33279
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml (.../PrijsBerekeningService.cls.xml) (revision 32121)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml (.../PrijsBerekeningService.cls.xml) (revision 33279)
@@ -33,7 +33,7 @@
Set ..PrijsBerekeningRepository = $$$Implementation(PrijsBerekeningRepository,##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New())
Set ..EDIAanvraagConvertor = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService.EDIAanvraagConvertor).%New()
Set ..PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
- Set ..WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+ Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
Quit $$$OK
]]>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r32440 -r33279
--- WS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 32440)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 33279)
@@ -13,6 +13,11 @@
http://www.vanhoecke.be/EC/Winkelkar
+
+APPS.EC.Winkelkar.WinkelkarService
+1
+
+
APPS.EC.Winkelkar.impl.WinkelkarServiceUtils
1
@@ -24,6 +29,7 @@
%Status
1
@@ -133,7 +139,7 @@
$$$chkRequiredParameter(WinkelkarID)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WisWinkelkar(WinkelkarID)
+ Do ..WinkelkarService.WisWinkelkar(WinkelkarID)
]]>
@@ -146,7 +152,7 @@
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakLeegWinkelkar(WinkelkarID)
+ #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakLeegWinkelkar(WinkelkarID)
Do ..Utils.CorrigeerWinkelkar(Winkelkar)
@@ -164,7 +170,7 @@
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- #dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefLijn(WinkelkarID, LijnID)
+ #dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, LijnID)
Do ..Utils.CorrigeerLijn(Lijn)
@@ -182,7 +188,7 @@
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- #dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().DupliceerLijn(WinkelkarID, LijnID)
+ #dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.DupliceerLijn(WinkelkarID, LijnID)
Do ..Utils.CorrigeerLijn(Lijn)
@@ -199,7 +205,7 @@
$$$chkRequiredParameter(Aantal)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnAantal(WinkelkarID, LijnID, Aantal)
+ Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, LijnID, Aantal)
]]>
@@ -216,7 +222,7 @@
$$$chkValidateObject(IngegevenKenmerken)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigMaatwerkLijn(WinkelkarID, LijnID, IngegevenKenmerken, Aantal, GroepNaam, ProjectReferentie)
+ Do ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, LijnID, IngegevenKenmerken, Aantal, GroepNaam, ProjectReferentie)
]]>
@@ -228,7 +234,7 @@
$$$chkRequiredParameter(LijnID)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnProjectReferentie(WinkelkarID, LijnID, NieuweProjectReferentie)
+ Do ..WinkelkarService.WijzigLijnProjectReferentie(WinkelkarID, LijnID, NieuweProjectReferentie)
]]>
Index: vhUnitTest/WS/EC/TestInterneWinkelkarService.cls.xml
===================================================================
diff -u -r30029 -r33279
--- vhUnitTest/WS/EC/TestInterneWinkelkarService.cls.xml (.../TestInterneWinkelkarService.cls.xml) (revision 30029)
+++ vhUnitTest/WS/EC/TestInterneWinkelkarService.cls.xml (.../TestInterneWinkelkarService.cls.xml) (revision 33279)
@@ -23,14 +23,13 @@
aTestName:%String
Index: vhUnitTest/APPS/EC/ExterneVerkoopService/Base.cls.xml
===================================================================
diff -u -r31022 -r33279
--- vhUnitTest/APPS/EC/ExterneVerkoopService/Base.cls.xml (.../Base.cls.xml) (revision 31022)
+++ vhUnitTest/APPS/EC/ExterneVerkoopService/Base.cls.xml (.../Base.cls.xml) (revision 33279)
@@ -142,17 +142,17 @@
Index: APPS/VKP/VerkoopService.cls.xml
===================================================================
diff -u -r29059 -r33279
--- APPS/VKP/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 29059)
+++ APPS/VKP/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 33279)
@@ -7,11 +7,11 @@
WinkelkarID:%String,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,LijnIDIndienBestaandeLijn:%String=""
APPS.VKP.dto.MaatwerkIngaveEvaluatie
TECH.RegisteredObject,APPS.EC.ECommerceAPI
-
-APPS.EC.Winkelkar.impl.WinkelkarService
-
-
-
APPS.EC.InterneConfiguratorService
%Status
1
Index: APPS/EC/InterneVerkoopService.cls.xml
===================================================================
diff -u -r29059 -r33279
--- APPS/EC/InterneVerkoopService.cls.xml (.../InterneVerkoopService.cls.xml) (revision 29059)
+++ APPS/EC/InterneVerkoopService.cls.xml (.../InterneVerkoopService.cls.xml) (revision 33279)
@@ -1,38 +1,38 @@
-%RegisteredObject
+TECH.RegisteredObject
Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,ParameterID:%String
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r32438 -r33279
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 32438)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 33279)
@@ -244,8 +244,8 @@
%ListOfDataTypes
ELEMENTTYPE="%Date"
APPS.EC.Winkelkar.dto.Lijn
-
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.TestVerkoopService")
vhUnitTest.TestCase
-APPS.EC.Winkelkar.impl.WinkelkarService
+APPS.EC.Winkelkar.WinkelkarService
-
+
+aTestName:%String
+
+
+
+
-
-
-aTestName:%String
-
-
Index: APPS/EC/Winkelkar/WinkelkarService/impl/MeerdereMaatwerkLijnenAanpasser.cls.xml
===================================================================
diff -u -r29059 -r33279
--- APPS/EC/Winkelkar/WinkelkarService/impl/MeerdereMaatwerkLijnenAanpasser.cls.xml (.../MeerdereMaatwerkLijnenAanpasser.cls.xml) (revision 29059)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/MeerdereMaatwerkLijnenAanpasser.cls.xml (.../MeerdereMaatwerkLijnenAanpasser.cls.xml) (revision 33279)
@@ -17,8 +17,9 @@
WinkelkarID:%String,MaatwerkLijnIngegevenKenmerkenLijst:%ListOfObjects(ELEMENTTYPE="APPS.EC.Winkelkar.WinkelkarService.dto.MaatwerkLijnIngegevenKenmerken")
APPS.EC.Winkelkar.dto.Winkelkar
%String
Index: APPS/EC/ECommerceAPI.cls.xml
===================================================================
diff -u -r29059 -r33279
--- APPS/EC/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 29059)
+++ APPS/EC/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 33279)
@@ -4,12 +4,6 @@
1
TECH.Interface
-
-1
-APPS.EC.Winkelkar.impl.WinkelkarService
-
-
-
1
APPS.EC.WebshopConfiguratorService
Index: vhTest/Mock/APPS/EC/ECommerceAPI.cls.xml
===================================================================
diff -u -r29059 -r33279
--- vhTest/Mock/APPS/EC/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 29059)
+++ vhTest/Mock/APPS/EC/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 33279)
@@ -90,12 +90,6 @@
-
-
-APPS.EC.Winkelkar.impl.WinkelkarService
-
-
Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u -r29059 -r33279
--- CHUI/Flow/ConfiguratorHelper.cls.xml (.../ConfiguratorHelper.cls.xml) (revision 29059)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml (.../ConfiguratorHelper.cls.xml) (revision 33279)
@@ -24,15 +24,17 @@
Set Parameters = ""
Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
#dim Product As DOM.PM.MaatwerkProduct = ProductAPI.GeefProduct(PRNr)
- If (Product.%Extends("DOM.PM.MaatwerkProduct"))
- {
+
+ If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
Set Familie = Product.GeefFamilie()
Set Variant = Product.GeefVariant()
Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
Set Applicatie.Naam = ..#ApplicatieID
- Set WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+
+ #dim WinkelkarService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantID)
+
Set IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.IngegevenKenmerken = IngegevenKenmerkenConverter.NaarDataTransferObject(IngegevenKenmerken)
@@ -55,12 +57,15 @@
Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
Set Applicatie.Naam = ..#ApplicatieID
- Set WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
+
+ #dim WinkelkarService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
#dim PersonalityID As %String = ##class(DOM.common.enu.Personality).VanHoecke()
#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantID,PersonalityID)
#dim Gebruiker As DOM.common.Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER)
+
Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantID,Gebruiker.GeefID(),Winkelkar.WinkelkarID,DocumentType,DocumentId)
Do Parameters.Save()
+
Quit Parameters
]]>
Index: vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml
===================================================================
diff -u -r30089 -r33279
--- vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml (.../MagMaatwerklijnGewijzigdWorden.cls.xml) (revision 30089)
+++ vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml (.../MagMaatwerklijnGewijzigdWorden.cls.xml) (revision 33279)
@@ -16,8 +16,7 @@
WinkelkarID:%String,LijnID:%String
-
+
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml
===================================================================
diff -u -r30400 -r33279
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml (.../Base.cls.xml) (revision 30400)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml (.../Base.cls.xml) (revision 33279)
@@ -38,12 +38,11 @@
do ##super(aTestName)
#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
- #dim ECommerceAPIMock As APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()
- #dim WebshopSessionServiceFake As APPS.EC.WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+ #dim ECommerceAPIStub As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()
+ #dim WebshopSessionServiceStub As vhTest.Mock.APPS.EC.WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
- do WebshopSessionServiceFake.IndienMethodCall("GeefVanHoeckeSessie",##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
- do ECommerceAPIMock.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceFake)
- do ECommerceAPIMock.IndienMethodCall("GeefWinkelkarService").DanReturn(..WinkelkarService)
+ Do WebshopSessionServiceStub.IndienMethodCall("GeefVanHoeckeSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
+ Do ECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceStub)
]]>
Index: vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml
===================================================================
diff -u -r32131 -r33279
--- vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml (.../Base.cls.xml) (revision 32131)
+++ vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml (.../Base.cls.xml) (revision 33279)
@@ -94,36 +94,42 @@
Do OfferteServiceStub.IndienMethodCall("GeefOfferte", FakeOfferte.GeefID()).DanReturn(FakeOfferte)
Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanHandel", FakeOfferte).DanReturn(0)
Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanHandel", FakeOfferte).DanReturn("")
+
+
+ #dim DOMWinkelkarServiceStub As vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+ Do DOMWinkelkarServiceStub.IndienMethodCall("GeefWinkelkar", "DummyWinkelkarID").DanReturn(WinkelkarStub)
- Set ..ExterneVerkoopService = ##class(APPS.EC.impl.ExterneVerkoopService).%New(OfferteServiceStub)
-
- #dim DOMECommerceAPIMock As vhTest.Mock.DOM.EC.ECommerceAPI = ##class(vhTest.Mock.DOM.EC.ECommerceAPI).MockInstance()
- Set WinkelkarServiceStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
- Do WinkelkarServiceStub.IndienMethodCall("GeefWinkelkar", "DummyWinkelkarID").DanReturn(WinkelkarStub)
- Do DOMECommerceAPIMock.IndienMethodCall("GeefWinkelkarService").DanReturn(WinkelkarServiceStub)
-
- #dim APPSECommerceAPIMock As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()
- Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
- Set WinkelkarDummyDto = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
- Set WinkelkarDummyDto.AantalProductLijnen = 1
- Set WinkelkarDummyDto.AantalProducten = 1
- Set WinkelkarDummyDto.TotaalPrijs = ..#TotaalPrijs
- Set OfferteSelectieCriteriaBepaler = ##class(vhTest.Mock.APPS.EC.OfferteSelectieCriteriaBepaler).%New()
- Do OfferteSelectieCriteriaBepaler.IndienMethodCall("BepaalSelectieCriteria", ..#KlantID).DanReturn(SelectieCriteria)
- Do APPSECommerceAPIMock.IndienMethodCall("GeefOfferteSelectieCriteriaBepaler").DanReturn(OfferteSelectieCriteriaBepaler)
- Do WinkelkarServiceStub.IndienMethodCall("GeefWinkelkarSamenvatting", "DummyWinkelkarID").DanReturn(WinkelkarDummyDto)
- Do WinkelkarServiceStub.IndienMethodCall("OpenWinkelkar", "DummyWinkelkarID").DanReturn(WinkelkarStub)
- Do APPSECommerceAPIMock.IndienMethodCall("GeefWinkelkarService").DanReturn(WinkelkarServiceStub)
- Set KlantDataReferentieBepalerStub = ##class(vhTest.Mock.APPS.EC.KlantDataReferentieBepaler).%New()
+ #dim DOMECommerceAPIStub As vhTest.Mock.DOM.EC.ECommerceAPI = ##class(vhTest.Mock.DOM.EC.ECommerceAPI).MockInstance()
+ Do DOMECommerceAPIStub.IndienMethodCall("GeefWinkelkarService").DanReturn(DOMWinkelkarServiceStub)
+
+ #dim WinkelkarDummy As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+ Set WinkelkarDummy.AantalProductLijnen = 1
+ Set WinkelkarDummy.AantalProducten = 1
+ Set WinkelkarDummy.TotaalPrijs = ..#TotaalPrijs
+
+ #dim KlantDataReferentieBepalerStub As vhTest.Mock.APPS.EC.KlantDataReferentieBepaler = ##class(vhTest.Mock.APPS.EC.KlantDataReferentieBepaler).%New()
Do KlantDataReferentieBepalerStub.IndienMethodCall("GeefKlantDataReferentie", FakeOfferte).DanReturn($$$DummyString)
- Do APPSECommerceAPIMock.IndienMethodCall("GeefKlantDataReferentieBepaler").DanReturn(KlantDataReferentieBepalerStub)
- Do APPSECommerceAPIMock.IndienMethodCall("GeefWebshopSessionService").DanReturn(##class(APPS.EC.impl.WebshopSessionService).%New())
- Set MagOfferteInSamenvattingenBepalerStub = ##class(vhTest.Mock.APPS.EC.MagOfferteInSamenvattingenBepaler).%New()
+
+ #dim MagOfferteInSamenvattingenBepalerStub As vhTest.Mock.APPS.EC.MagOfferteInSamenvattingenBepaler = ##class(vhTest.Mock.APPS.EC.MagOfferteInSamenvattingenBepaler).%New()
Do MagOfferteInSamenvattingenBepalerStub.IndienMethodCall("MagOfferteInSamenvattingen", FakeOfferte).DanReturn($$$True)
- Do APPSECommerceAPIMock.IndienMethodCall("GeefMagOfferteInSamenvattingenBepaler").DanReturn(MagOfferteInSamenvattingenBepalerStub)
+
+ #dim OfferteSelectieCriteriaBepalerStub As vhTest.Mock.APPS.EC.OfferteSelectieCriteriaBepaler = ##class(vhTest.Mock.APPS.EC.OfferteSelectieCriteriaBepaler).%New()
+ Do OfferteSelectieCriteriaBepalerStub.IndienMethodCall("BepaalSelectieCriteria", ..#KlantID).DanReturn(SelectieCriteria)
+ #dim APPSECommerceAPIStub As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()
+ Do APPSECommerceAPIStub.IndienMethodCall("GeefOfferteSelectieCriteriaBepaler").DanReturn(OfferteSelectieCriteriaBepalerStub)
+ Do APPSECommerceAPIStub.IndienMethodCall("GeefKlantDataReferentieBepaler").DanReturn(KlantDataReferentieBepalerStub)
+ Do APPSECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(##class(APPS.EC.impl.WebshopSessionService).%New())
+ Do APPSECommerceAPIStub.IndienMethodCall("GeefMagOfferteInSamenvattingenBepaler").DanReturn(MagOfferteInSamenvattingenBepalerStub)
+
#dim VerkoopAPIMock As vhTest.Mock.APPS.VKP.VerkoopAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopAPI).MockInstance()
Do VerkoopAPIMock.IndienMethodCall("GeefOfferteService").DanReturn(OfferteServiceStub)
+
+ #dim APPSWinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+ Do APPSWinkelkarServiceStub.IndienMethodCall("GeefWinkelkarSamenvatting", "DummyWinkelkarID").DanReturn(WinkelkarDummy)
+ Do APPSWinkelkarServiceStub.IndienMethodCall("OpenWinkelkar", "DummyWinkelkarID").DanReturn(WinkelkarStub)
+
+ Set ..ExterneVerkoopService = ##class(APPS.EC.impl.ExterneVerkoopService).%New(OfferteServiceStub, APPSWinkelkarServiceStub)
]]>