Index: KFSO.mac.rou
===================================================================
diff -u -r921 -r3289
--- KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 921)
+++ KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 3289)
@@ -57,6 +57,7 @@
  K HalTOENr
 27 S UMC="",UUZ=0,UZ=100
  S @("^"_Q_"TO($P(LEV,D),TR,1)")=D_$S($$INTDATE^vhDTyp($P(X,D,2))<$H:DT,1:$P(X,D,2))_D_UJ_"\\\"_$P(LEV,D)_D_UR_D_KC_"\\\\\\\\\\"_UMC_"\\\\2\\\\"
+ S @("^"_Q_"TO1(TR)")=$P(LEV,D)_D
 29 S UUZ=$N(@("^"_Q_"HULP($J,LEV,VerpakkingsType,UUZ)")),UZ=UZ+1
 30 G 31:UUZ'=-1 S @("^"_Q_"TO($P(LEV,D),TR,0)")=UZ,$P(^(1),D,18)=UMC
  S (@("^"_Q_"TO1(TR)"),@("^"_Q_"TOB(TR)"))=$P(LEV,D)_D,@("^"_Q_"TO2($P(LEV,D),TR)")=""
@@ -71,6 +72,7 @@
  D KWNODE^FLOWORD(KC,UR,$P($P(Z,D,28),";"))
  S @("^"_Q_UGL_"(KC,US,UR,$P($P(Z,D,28),"";""))")=$P(ZZ,D,1,26)_D_TR_D_UZ_D_$P(ZZ,D,29,99)
  D SWNODE^FLOWTOE($P(LEV,D),TR,UZ)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2($P(LEV,D),TR,UZ)
  D SWNODE^FLOWORD(KC,UR,$P($P(Z,D,28),";"))
  G 29
 33 G 33^KFSOA