Index: FLOWTOE6.mac.rou
===================================================================
diff -u -r2979 -r3289
--- FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 2979)
+++ FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 3289)
@@ -14,6 +14,7 @@
  Set TLNr=^KTO(LEVNr,TOENr,0),^KTO(LEVNr,TOENr,0)=TLNr+1
  Set $P(R,D,13)=TLNr-100,^KTO(LEVNr,TOENr,TLNr)=R,ORDNr=$P(R,D,27),(OLNr,ModOLNr)=$P(R,D,28)
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  
  If ORDNr Do
  .Set KLNr=$P(^KO1(ORDNr,"F"),D),R=^KOD(KLNr,"F",ORDNr,OLNr),Aantal=$P(R,D,3)
@@ -51,6 +52,7 @@
  .For I=9,10,16 Set:OldAant $P(R,D,I)=$P(R,D,I)/OldAant Set $P(R,D,I)=$J($P(R,D,I)*Aantal,0,2)
  .Set $P(R,D,3)=Aantal,^KTO(LEVNr,TOENr,TLNr)=R
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ .Do:Aantal'=OldAant ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
  Else  Do
  .Kill ^KTO(LEVNr,TOENr,TLNr)
  If 'Aantal Do CHKDEL^FLOWTOE(TOENr)
@@ -74,13 +76,14 @@
  Quit
  ;
 MODLEVWK(TOENr,TLUNr,LevWk,ModOrd) 
- New R,LEVNr,TLNr,KLNr,ORDNr,OLNr,VerzendWijze,LandCode,PostCode,blVerzendWijze,blLeveringsTermijn
+ New R,LEVNr,TLNr,KLNr,ORDNr,OLNr,VerzendWijze,LandCode,PostCode,blVerzendWijze,blLeveringsTermijn,OldLevWk
  Set ModOrd=$G(ModOrd)
  Set LEVNr=$P(^KTO1(TOENr),D),TLNr=^TO("IU",TOENr,TLUNr)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
- Set R=^KTO(LEVNr,TOENr,TLNr),$P(R,D,25)=LevWk,^KTO(LEVNr,TOENr,TLNr)=R
+ Set R=^KTO(LEVNr,TOENr,TLNr),OldLevWk=$P(R,D,25),$P(R,D,25)=LevWk,^KTO(LEVNr,TOENr,TLNr)=R
  Set ORDNr=$P(R,D,27),OLNr=$P(R,D,28)
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do:LevWk'=OldLevWk ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
  
  If $L(ModOrd),ORDNr,OLNr Do
  .Do:ModOrd