Index: APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml =================================================================== diff -u -r36801 -r42423 --- APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml (.../GeldigheidVermeldingBepaler.cls.xml) (revision 36801) +++ APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml (.../GeldigheidVermeldingBepaler.cls.xml) (revision 42423) @@ -1,7 +1,7 @@ -TECH.RegisteredObject +TECH.Mockable APPS.EC.WebshopSessionService Index: vhTest/Mock/APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml (revision 0) +++ vhTest/Mock/APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml (revision 42423) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler,Tools.Mock.MockClassBase +right + + +Offerte:APPS.VKP.impl.Offerte +%String + + + + + + Index: vhTest/Fake/APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml (revision 0) +++ vhTest/Fake/APPS/EC/Verkoop/impl/GeldigheidVermeldingBepaler.cls.xml (revision 42423) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler + + +Offerte:APPS.VKP.impl.Offerte +%String + + + + + + Index: vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml =================================================================== diff -u -r42420 -r42423 --- vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml (.../Converteer.cls.xml) (revision 42420) +++ vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml (.../Converteer.cls.xml) (revision 42423) @@ -16,7 +16,10 @@ Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New() Do WinkelkarServiceStub.IndienMethodCall("GeefWinkelkar", TeConverterenOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar) - Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteNaarDtoConverter).%New(OfferteServiceStub, WinkelkarServiceStub) + Set GeldigheidVermeldingBepalerStub = ##class(vhTest.Mock.APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler).%New() + Do GeldigheidVermeldingBepalerStub.IndienMethodCall("BepaalVermelding",TeConverterenOfferte).DanReturn("Vermelding") + + Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteNaarDtoConverter).%New(OfferteServiceStub, WinkelkarServiceStub, GeldigheidVermeldingBepalerStub) #dim Resultaat As APPS.EC.dto.Offerte = Converter.Converteer(OfferteId) Do $$$AssertEquals(Resultaat.OfferteID,"1000") @@ -27,7 +30,7 @@ Do $$$AssertEquals(Resultaat.Hoofding.Referentie.KlantOrderNummer,"") Do $$$AssertEquals(Resultaat.Hoofding.Referentie.OrderReferentie,"OrderReferentie") Do $$$AssertEquals(Resultaat.Winkelkar.Lijnen.Count(),1) - Do $$$AssertEquals(Resultaat.GeldigheidVermelding,"") + Do $$$AssertEquals(Resultaat.GeldigheidVermelding,"Vermelding") Do $$$AssertEquals(Resultaat.Melding,"") Do $$$AssertEquals(Resultaat.GekoppeldeOfferte,"") ]]> Index: APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml =================================================================== diff -u -r42420 -r42423 --- APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml (.../OfferteNaarDtoConverter.cls.xml) (revision 42420) +++ APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml (.../OfferteNaarDtoConverter.cls.xml) (revision 42423) @@ -28,15 +28,16 @@ -OfferteService:APPS.VKP.OfferteService,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService +OfferteService:APPS.VKP.OfferteService,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,GeldigheidVermeldingBepaler:APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler="" 1 1 %Status 1 @@ -50,7 +51,7 @@ Set Resultaat.OfferteID = Offerte.GeefID() Set Resultaat.Hoofding = ..ConverteerHoofding(Offerte) Set Resultaat.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.WinkelkarID) - //Set Resultaat.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte) + Set Resultaat.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte) Set Resultaat.PrijzenGeldigTotEnMetDatum = Offerte.GeefPrijzenGeldigTotEnMetDatum() if ..OfferteService.HeeftOfferteVanVH(Offerte) {