Index: EWTOE.mac.rou =================================================================== diff -u -r51950 -r52004 --- EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 51950) +++ EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 52004) @@ -247,6 +247,7 @@ #dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNummer) Set ProductToeleveringLijnVerwijderEventData = ##class(DOM.AKP.event.ProductToelevLijnVerwijderEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId) Set ProductToeleveringLijnVerwijderdEvent = ##class(DOM.AKP.event.ProductToelevLijnVerwijderd).%New(ProductToeleveringLijnVerwijderEventData) + Set ^TVE(+$H,$I(^TVE(+$H)))="VerwijderdEvent\"_ProductID_"\"_Aantal Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnVerwijderdEvent) } Quit @@ -257,6 +258,7 @@ #dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNummer) Set ProductToeleveringLijnGesplitstEventData = ##class(DOM.AKP.event.ProductToelevLijnGesplitstEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId) Set ProductToeleveringLijnGesplitstEvent = ##class(DOM.AKP.event.ProductToelevLijnGesplitst).%New(ProductToeleveringLijnGesplitstEventData) + Set ^TVE(+$H,$I(^TVE(+$H)))="GesplitstEvent"_ProductID_"\"_Aantal Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnGesplitstEvent) } Quit