Index: VERVI.mac.rou
===================================================================
diff -u -r948 -r2782
--- VERVI.mac.rou	(.../VERVI.mac.rou)	(revision 948)
+++ VERVI.mac.rou	(.../VERVI.mac.rou)	(revision 2782)
@@ -27,6 +27,7 @@
  S UU2=@("^"_Q_"OD(KC,""F"",UR,UUZ)"),ULT=$P(UU2,D,25)
 S4C S ^(UUZ)=$P(UU2,D,1,2)_D_UA_D_$P(UU2,D,4,8)_D_$J(($P(UU2,D,9)/$P(UU2,D,3)*UA),0,2)_D_$J(($P(UU2,D,10)/$P(UU2,D,3)*UA),0,2)_D_$P(UU2,D,11,15)_D_$J(($P(UU2,D,16)/$P(UU2,D,3)*UA),0,2)_D_$P(UU2,D,17,26)_D_D_"KOM"_D_$P(UU2,D,29,99)
  D SWNODE^FLOWORD(KC,UR,UUZ)
+ Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UUZ,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
 S4Z Q
  ;
 S6 K @("^"_Q_"TOK(LC,TR,UZ)")
@@ -62,6 +63,7 @@
  S X=$P(UU2,D,1,2)_D_UAO_D_$P(UU2,D,4,8)_D_$J(($P(UU2,D,9)/$P(UU2,D,3)*UAO),0,2)_D_$J(($P(UU2,D,10)/$P(UU2,D,3)*UAO),0,2)
  S X=X_D_$P(UU2,D,11,14)_D_D_$J(($P(UU2,D,16)/$P(UU2,D,3)*UAO),0,2)_D_$P(UU2,D,17,27)_D_UZ_D_$P(UU2,D,29,99),^(UUZ)=X
  D SWNODE^FLOWORD(KC,UR,UUZ)
+ Do ProductOrderLijnGemaakt^FLOWORD2(KC,UR,UUZ)
  I $D(^KTOK(LC,TR,UZ)) S X=^(UZ),X=$P(X,D,1,4)_D_UUZ_D,^(UZ)=X
 VWL2 S:'$P(U2,D,23) U2=$P(U2,D,1,22)_D_$P(U2,D,3)_D_$P(U2,D,24,99)
  S UAO=$P(U2,D,3)-UA