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