Index: vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml =================================================================== diff -u -r31105 -r32131 --- vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml (.../Base.cls.xml) (revision 31105) +++ vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml (.../Base.cls.xml) (revision 32131) @@ -84,7 +84,7 @@ Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(..GeefPersonality().GeefTaal()) Set WinkelkarStub = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString) - Set ..ExterneVerkoopService = ##class(APPS.EC.impl.ExterneVerkoopService).%New() + Set SelectieCriteria = ##class(APPS.VKP.Offerte.dto.SelectieCriteria).%New() Set SelectieCriteria.KlantID = ..#KlantID Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New() @@ -95,6 +95,8 @@ Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanHandel", FakeOfferte).DanReturn(0) Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanHandel", FakeOfferte).DanReturn("") + 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) Index: vhTest/Mock/APPS/EC/ExterneVerkoopService.cls.xml =================================================================== diff -u -r29059 -r32131 --- vhTest/Mock/APPS/EC/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 29059) +++ vhTest/Mock/APPS/EC/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 32131) @@ -71,6 +71,13 @@ ]]> + +OfferteID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String="" +%String + + + OfferteID:%String 1 TECH.RegisteredObject,APPS.EC.ExterneVerkoopService + +APPS.VKP.OfferteService +1 + + + +APPS.EC.impl.ExterneVerkoopService.OfferteHerberekening +1 + + + +APPS.EC.ExterneVerkoopService.GeldigheidVermeldingBepaler +1 + + + +OfferteService:APPS.VKP.OfferteService +1 +1 +%Status +1 + + + OfferteID:%String APPS.EC.dto.Offerte @@ -68,7 +97,7 @@ OfferteID:%String 0 KlantDataReferentie = " ("_KlantDataReferentie_")" - #dim OfferteService As APPS.VKP.OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService() - If OfferteService.HeeftOfferteVanHandel(Offerte) { - #dim OfferteVanHandel As APPS.VKP.Offerte = OfferteService.GeefOfferteVanHandel(Offerte) + If ..OfferteService.HeeftOfferteVanHandel(Offerte) { + #dim OfferteVanHandel As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanHandel(Offerte) Set OfferteSamenvatting.OrderReferentie = "EDInr: "_OfferteVanHandel.GeefID()_" - " } @@ -172,7 +198,7 @@ OfferteID:%String,Hoofding:APPS.EC.dto.Hoofding %ListOfDataTypes ELEMENTTYPE="%Date" + +OfferteID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String="" +%String + + + OfferteID:%String %ListOfObjects ELEMENTTYPE="APPS.common.dto.Adres" OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality APPS.EC.dto.Bestelling OfferteID:%String APPS.EC.dto.OfferteIDEnWinkelkarID - - -APPS.EC.impl.ExterneVerkoopService.OfferteHerberekening -1 - - - -1 -APPS.EC.impl.ExterneVerkoopService.OfferteHerberekening - - - - -APPS.EC.ExterneVerkoopService.GeldigheidVermeldingBepaler -1 - - - -1 -APPS.EC.ExterneVerkoopService.GeldigheidVermeldingBepaler - - Index: APPS/EC/ExterneVerkoopService.cls.xml =================================================================== diff -u -r29059 -r32131 --- APPS/EC/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 29059) +++ APPS/EC/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 32131) @@ -30,12 +30,17 @@ OfferteID:%String + +1 +OfferteID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String="" +%String + + 1 KlantID:DOM.VKP.VanHoeckeKlantID %ListOfObjects ELEMENTTYPE="APPS.EC.dto.OfferteSamenvatting" -