Index: DOM/AKP/event/ProductToelevLijnVerwijderEventData.cls.xml =================================================================== diff -u -r47593 -r58878 --- DOM/AKP/event/ProductToelevLijnVerwijderEventData.cls.xml (.../ProductToelevLijnVerwijderEventData.cls.xml) (revision 47593) +++ DOM/AKP/event/ProductToelevLijnVerwijderEventData.cls.xml (.../ProductToelevLijnVerwijderEventData.cls.xml) (revision 58878) @@ -28,6 +28,14 @@ %String + +%String + + + +%String + + ToeleveringID:%String="",ToeleveringLijnCode:%String="",ProductID:%String="",LeverancierID:DOM.common.PartijID="",ReceptieTijdstip:%String="",Aantal:%Integer=0,AxConfigId:%String="",AxInventTransId:%String="",AxMaatwerkGenerischItemId:%String="" 1 @@ -46,6 +54,14 @@ ]]> + +OrderId:%String="",OrderLijnId:%String="" + + + %String + +%String + + + + +%String + + + %Library.CacheSerialState @@ -113,6 +141,12 @@ AxMaatwerkGenerischItemId + +OrderId + + +OrderLijnId + Index: EWTOE.mac.rou =================================================================== diff -u -r56135 -r58878 --- EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 56135) +++ EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 58878) @@ -176,7 +176,7 @@ If 'AantBo Do .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr) .Do KILL(TOENr,TLNr) - .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57)) + .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27),$P(Rec,D,28)) If AantBo Do .Set Rec=^KTO(LEVNr,TOENr,TLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3) .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantBo),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen()) @@ -242,11 +242,12 @@ Do REMOVE^vhLock("^KTO(LEVNr,TOENr)") Quit -ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId) +ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId, OrderId, OrderLijnId) New ProductToeleveringLijnVerwijderEventData,ProductToeleveringLijnVerwijderdEvent If ProductID{ #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) + Do ProductToeleveringLijnVerwijderEventData.SetOrderIdEnOrderlijnId(OrderId, OrderLijnId) 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)