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)