1 vhConsistency.Check Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.Events.ControleToeleveringen") %Status 0) { Quit $$$ERROR($$$GeneralError,"Tralala") } Else { Quit $$$OK } ]]> ToeleveringLijn:DOM.AKP.ProductToeleveringLijn 1 ToeleveringLijn:DOM.AKP.ProductToeleveringLijn 1 0) { Set EventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, WijzigingTypes) Set Event = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) #dim Wijzigingen As %String = "" Set WijzigingIterator = ##class(TECH.ListIterator).%New(WijzigingTypes) While (WijzigingIterator.HasNext()) { #dim Wijziging As %String = WijzigingIterator.Next() Set Wijzigingen = Wijzigingen_Wijziging If (WijzigingIterator.HasNext()) { Set Wijzigingen = Wijzigingen_", " } } Do ..VoegMeldingToe("Toeleveringlijn gewijzigd ("_ToeleveringID_", "_ToeleveringLijnCode_"): "_Wijzigingen) } ]]> Lijn:vhConsistency.Checks.Events.ProductToelevLijn 1 1 ProductToeleveringLijnGemaakt:DOM.AKP.event.ProductToelevLijnGemaakt 1 ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd 1 ProductToeleveringLijnAnnulatie:DOM.AKP.event.ProductToelevLijnAnnulatie 1 ProductToeleveringLijnIngeboekt:DOM.AKP.event.ProductToelevLijnIngeboekt