1 vhConsistency.Check %Boolean 1 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.Events.ControleOrderLijnen") %Status 0) { Do ..ControleerPickingStatus(ProductLijn) } } } Set ResultSet = ##class(%ResultSet).%New("vhConsistency.Checks.Events.ProductOrderLijn:Extent") Do ResultSet.Execute() While (ResultSet.Next()) { Do ..ControleerVerwijderd(##class(vhConsistency.Checks.Events.ProductOrderLijn).OpenId(ResultSet.Data("ID"))) } If (..GeefAantalMeldingen()>0) { Quit $$$ERROR($$$GeneralError,"Tralala") } Else { Quit $$$OK } ]]> ProductLijn:DOM.VKP.ProductOrderlijn 1 0) { Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID) Set Event = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) Do ..VoegMeldingToe("Productorderlijn aangemaakt ("_OrderID_", "_OrderLijnCode_")") } Elseif (ProductLijn.GeefAantal() < 0) { Set EventData = ##class(DOM.VKP.event.TerugnameOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID) Set Event = ##class(DOM.VKP.event.TerugnameOrderLijnGemaakt).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) Do ..VoegMeldingToe("Terugnameorderlijn aangemaakt ("_OrderID_", "_OrderLijnCode_")") } } ]]> ProductLijn:DOM.VKP.ProductOrderlijn 1 0) { Set Wijzigingen = "" Set WijzigingIterator = ##class(TECH.ListIterator).%New(WijzigingTypes) While (WijzigingIterator.HasNext()) { Set Wijziging = WijzigingIterator.Next() Set Wijzigingen = Wijzigingen_Wijziging If (WijzigingIterator.HasNext()) { Set Wijzigingen = Wijzigingen_", " } } If (ProductLijn.GeefAantal() > 0) { Set EventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes) Set Event = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) Do ..VoegMeldingToe("Productorderlijn gewijzigd ("_OrderID_", "_OrderLijnCode_"): "_Wijzigingen) } ElseIf (ProductLijn.GeefAantal() < 0) { Set EventData = ##class(DOM.VKP.event.TerugnameOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes) Set Event = ##class(DOM.VKP.event.TerugnameOrderLijnGewijzigd).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) Do ..VoegMeldingToe("Terugnameorderlijn gewijzigd ("_OrderID_", "_OrderLijnCode_"): "_Wijzigingen) } } ]]> Lijn:vhConsistency.Checks.Events.ProductOrderLijn 1 0) { Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, Lijn.GeefKlantID(), Lijn.GeefProductID()) Set Event = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) Do ..VoegMeldingToe("Productorderlijn verwijderd ("_OrderID_", "_OrderLijnCode_")") } Else { Set EventData = ##class(DOM.VKP.event.TerugnameOrderLijnEventData).%New(OrderID, OrderLijnCode, Lijn.GeefKlantID(), Lijn.GeefProductID()) Set Event = ##class(DOM.VKP.event.TerugnameOrderLijnAnnulatie).%New(EventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) Do ..VoegMeldingToe("Terugnameorderlijn verwijderd ("_OrderID_", "_OrderLijnCode_")") } } ]]> ProductLijn:DOM.VKP.ProductOrderlijn 1 0) If (Lijn.IsWachtendOpPicking() '= IsWachtendOpPicking) { #dim ExtraMeldingInfo As %String = " , want ConsolidatieID = '"_ConsolidatieID_"' en Lijn Picking = '"_Lijn.IsWachtendOpPicking()_"'" If (IsWachtendOpPicking) { Set WachtendOpPickingEventData = ##class(DOM.MAG.event.WachtendOpPickingEventData).%New(OrderID, OrderLijnCode, ConsolidatieID) Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(WachtendOpPickingEvent) Do ..VoegMeldingToe("Productorderlijn naar wachtend op picking gewijzigd ("_OrderID_", "_OrderLijnCode_")"_ExtraMeldingInfo) } Else { // consolidatie id zal hier "" zijn vermits we niet meer kunnen achterhalen over welke bon het ging Set PickingAnnulatieEventData = ##class(DOM.MAG.event.PickingAnnulatieEventData).%New(OrderID, OrderLijnCode, ConsolidatieID) Set PickingAnnulatieEvent = ##class(DOM.MAG.event.PickingAnnulatieEvent).%New(PickingAnnulatieEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(PickingAnnulatieEvent) Do ..VoegMeldingToe("Productorderlijn naar geannuleerd voor picking ("_OrderID_", "_OrderLijnCode_")"_ExtraMeldingInfo) } } ]]> 1 Event:DOM.VKP.event.ProductOrderLijnGemaakt 1 Event:DOM.VKP.event.TerugnameOrderLijnGemaakt 1 OrderLijn:DOM.VKP.ProductOrderlijn 1 ProductOrderLijnGewijzigdEvent:DOM.VKP.event.ProductOrderLijnGewijzigd 1 TerugnameOrderLijnGewijzigdEvent:DOM.VKP.event.TerugnameOrderLijnGewijzigd 1 OrderLijn:DOM.VKP.ProductOrderlijn,WijzigingTypesIterator:TECH.Iterator 1 ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie 1 TerugnameOrderLijnAnnulatieEvent:DOM.VKP.event.TerugnameOrderLijnAnnulatie 1 ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent 1 TerugnameOrderLijnOpBonEvent:DOM.VKP.event.TerugnameOrderLijnOpBonEvent 1 WachtendOpPickingEvent:DOM.MAG.event.WachtendOpPickingEvent 1 PickingAnnulatieEvent:DOM.MAG.event.PickingAnnulatieEvent