Index: KFCOLCD.mac.rou
===================================================================
diff -u -r2782 -r3289
--- KFCOLCD.mac.rou	(.../KFCOLCD.mac.rou)	(revision 2782)
+++ KFCOLCD.mac.rou	(.../KFCOLCD.mac.rou)	(revision 3289)
@@ -81,11 +81,13 @@
  ..S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UA,0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UA,0,2)
  ..S $P(X,D,3)=UA,@("^"_Q_"TO(LC,TR,TUZ)")=X,QtyNew=$P(X,D,3),TLUNr=$P(X,D,15)
  ..D SWNODE^FLOWTOE(LC,TR,TUZ)
+ ..Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LC,TR,TUZ,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
  ..S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UAS,0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UAS,0,2)
  ..S $P(X,D,3)=UAS,$P(X,D,13)=TUZS-100,$P(X,D,15)=""
  ..S $P(X,D,25)=$$EXTDATE^vhDTyp(ULTS-7,"DW")
  ..S $P(X,D,27)=URS,$P(X,D,28)=@("^"_Q_"OD(KC,US,URS,0)"),@("^"_Q_"TO(LC,TR,TUZS)")=X
  ..D SWNODE^FLOWTOE(LC,TR,TUZS)
+ ..Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TR,TUZS)
  ..S X=@("^"_Q_"TO(LC,TR,TUZS)"),Qty2=$P(X,D,3),TLUNr2=$P(X,D,15)
  ..Quit:'$$CHKALG^DEFAULTS(LC,"KFCOLC","MARKSPLT","HADOPV")
  ..D MARKSPLT^HADOPV(TR,TLUNr,QtyNew+Qty2,QtyNew,TR,TLUNr2,Qty2)