Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml =================================================================== diff -u -r48201 -r49291 --- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 48201) +++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml (.../ExterneVerkoopPowerService.cls.xml) (revision 49291) @@ -33,13 +33,22 @@ #dim PersonalityVanOfferteId As %String = Offerte.GeefPersonalityID() Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(PersonalityVanOfferteId) + /* Set EventData = ##class(APPS.VKP.event.OfferteBesteldEventData).%New(OfferteID) Set Event = ##class(APPS.VKP.event.OfferteBesteldEvent).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventSync(Event) If InteractieMetUser { Write !,"De event 'APPS.VKP.event.OfferteBesteldEvent' is geraised.",! } + */ + + Set KlantBestellingMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New() + Do KlantBestellingMelder.VerwittigVerwerker(Offerte) + + If InteractieMetUser { + Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",! + } ]]>