Index: APPS/VKP/OrderIngaveService.cls.xml =================================================================== diff -u -r42396 -r42398 --- APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 42396) +++ APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 42398) @@ -68,8 +68,13 @@ 1 + +DOM.VKP.DocumentReferentiesRepository +1 + + -TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler +TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository 1 1 %Status @@ -87,7 +92,8 @@ set ..AdresUtils = ##class(APPS.VKP.OrderIngave.impl.AdresUtils).%New() set ..OrderPrijsValidator = $$$Inject(OrderPrijsValidator,##class(APPS.VKP.impl.OrderPrijsValidatie).%New()) Set ..VroegsteLeverdatumBepaler = $$$Inject(VroegsteLeverdatumBepaler,##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New()) - + Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New()) + Quit $$$OK ]]> @@ -174,7 +180,7 @@ Set Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(Offerte.KlantID) Set OrderDocRef.OrderReferentie = ..FormatAPI.FormatHorolog(..DateTimeAPI.CurrentHorolog(), "DD.MM.JJ")_" "_OrderDocRef.OrderReferentie - Do OrderDocRef.Save() + Do ..DocumentReferentiesRepository.Bewaar(OrderDocRef) Do Order.ZetDocumentReferenties(OrderDocRef) #Dim LeverAdres As DOM.VKP.LeverAdres = ..AdresUtils.ConverteerNaarLeverAdres(Offerte.KlantID, Offerte.LeverAdres)