Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml =================================================================== diff -u -r38779 -r38780 --- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 38779) +++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 38780) @@ -74,7 +74,8 @@ Set Offerte.LeverAdres = ..GeefStandaardLeverAdres(Offerte) Set Offerte.ExterneId = ExterneId - Do Offerte.Save() + #dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder() + Do OfferteBewaarder.Bewaar(Offerte) Set EventData = ##class(APPS.VKP.event.OfferteGemaaktEventData).%New(Offerte.GeefID()) Set Event = ##class(APPS.VKP.event.OfferteGemaaktEvent).%New(EventData)