Index: EWBON.mac.rou
===================================================================
diff -u -r1819 -r2952
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 1819)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 2952)
@@ -162,6 +162,7 @@
  ;Do REMLINE^EWORDST(CONSNr,ORDNr,OLUNr)
  Do ADDRES(CONSNr,ORDNr,OLUNr)
  Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ Do ProductLijnOpBon^FLOWORD2(KLNr,ORDNr,OLNr,CONSNr)
  Kill ^KOD(KLNr,"F",ORDNr,OLNr)
  ; Copieren van tekst- en manuele lijnen na een productlijn
  For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do  Quit:PRNr
Index: FLOWORD2.mac.rou
===================================================================
diff -u -r2782 -r2952
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 2782)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 2952)
@@ -31,6 +31,7 @@
  .If $L($G(FBRef)),$P(Rec,D,2) Set $P(@FBRef@($P(Rec,D,2)),D,2)=ORDNr
  .Do SWNODE(KLNr,ORDNr,FromNr)
  .Do LRECALC(KLNr,ORDNr,FromNr,Show)
+ .Do ProductOrderLijnGemaakt(KLNr,ORDNr,FromNr)
  .For  Set FromNr=$O(^KOD(KLNr,"F",ORDNr,FromNr),-1) Do  Quit:FromNr=OLNr
  ..Do LSWAP(ORDNr,FromNr,ToNr,1)
  ..Set ToNr=FromNr
@@ -512,7 +513,6 @@
  Set blLeveringsTermijn=##class(DOM.VKP.LeveringsTermijn).%New(RefDate,blVerzendWijze)
  Quit
  
- 
 GetRefDate(KLNr,ORDNr)
  ; Referentiedatum voor DOM levertermijn
  New RefDate
@@ -701,7 +701,7 @@
  ;
  ; Event bij wijzigen van een orderlijn
 ProductOrderLijnGewijzigd(KlantID,OrderID,OrderLijnID,WijzigingType)
- New Rec,ProductID,OrderLijnCode,ProductOrderLijnEventData,ProductOrderLijnAnnulatieEvent
+ New Rec,ProductID,OrderLijnCode,WijzigingTypes,ProductOrderLijnWijzigEventData,ProductOrderLijnGewijzigdEvent
  Set Rec=^KOD(KlantID,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
  If ProductID{
 	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
@@ -712,7 +712,16 @@
  }
  Quit
  ;
- 
+ ; Event bij het op bon zetten van een lijn
+ProductLijnOpBon(KlantID,OrderID,OrderLijnID,BonID)
+ New Rec,ProductID,OrderLijnCode,ProductLijnOpBonEventData,ProductLijnOpBonEvent
+ Set Rec=^KOD(KlantID,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
+ If ProductID{
+	 Set ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(OrderID, OrderLijnCode, BonID)
+	 Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData)
+	 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductLijnOpBonEvent)
+ }
+ Quit
  ;
  ; Ophalen taalafhankelijke tekst
 TXT(Ref,Piece,Taal) 
Index: KF5.mac.rou
===================================================================
diff -u -r734 -r2952
--- KF5.mac.rou	(.../KF5.mac.rou)	(revision 734)
+++ KF5.mac.rou	(.../KF5.mac.rou)	(revision 2952)
@@ -65,6 +65,7 @@
 9 S U2=@("^"_Q_"OD(KC,US,UR,UZ)"),PR=$P(U2,D,2),OLUNr=$P(U2,D,15)
  I PR,OLUNr,$D(^ORDW("IO",UR,OLUNr)) G 5
  D KWNODE^FLOWORD(KC,UR,UZ)
+ Do ProductLijnOpBon^FLOWORD2(KC,UR,UZ,URR)
  S U2=@("^"_Q_"OD(KC,US,UR,UZ)") K ^(UZ) S PR=$P(U2,D,2),UA=$P(U2,D,3),UH=$P(U2,D,10)*UPAR,VWTYP=$P(U2,D,14),TR=$P(U2,D,27),TZ=$P($P(U2,D,28),";")
  I '$L(PR) D  G 5
  .D S3