Index: KFCOLA.mac.rou
===================================================================
diff -u -r948 -r2782
--- KFCOLA.mac.rou	(.../KFCOLA.mac.rou)	(revision 948)
+++ KFCOLA.mac.rou	(.../KFCOLA.mac.rou)	(revision 2782)
@@ -36,6 +36,7 @@
 37 S (TUZ,TUZS)=$P($P(U2,D,28),";"),U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,99)
  S @("^"_Q_UGL_"(KC,US,UR,UVN)")=U2
  D SWNODE^FLOWORD(KC,US,UR,UVN)
+ Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UVN,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
  S UA=UAS,ULT=ULTS,UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UZ=UVN-100
  I TR,TUZ D
  .S TUZS=@("^"_Q_"TO(LC,TR,0)"),^(0)=TUZS+1