Index: KFSO.mac.rou
===================================================================
diff -u -r47580 -r47773
--- KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 47580)
+++ KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 47773)
@@ -12,7 +12,7 @@
 100 K @("^"_Q_"HULP($J)")
 2 S Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((UZ-100),3,0))"
  S UOD=$P(X,D,2),UOD=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(UOD),"DS"),D,"")
-3 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 9:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 3:'$L(PR)&($P($P(U2,D,17),"#")'="KF11")
+3 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 9:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 3:'$L(PR)&($P($P(U2,D,17),"#")'="KF11") // Loop over de nodes van het order.
  I $P($P(U2,D,17),"#")="KF11" D  G 3
  .S $P(U2,D,15)="",$P(U2,D,17)="KTO11"
  .S $P(U2,D,5)=$$REPLACE5^vhRtn1($P(U2,D,5),"Groep ","Gruppe","groep ","gruppe","stuks","st�ck","stuk","st�ck","GROEP ","GRUPPE")
@@ -53,7 +53,7 @@
  D:$D(@("^"_Q_"HULP($J,0)")) TEXTTOE
  S LEV=0,UJ="" I '$D(@("^"_Q_"HULP($J)")) S:'UAF UAF=1 G 33
 90 S UJ="KOMM. "_$E($P(@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),0)"),D,2),1,19)
-11 S LEV=$N(@("^"_Q_"HULP($J,LEV)")) I LEV=-1 K @("^"_Q_"HULP($J)") S UAF=2 G 33
+11 S LEV=$N(@("^"_Q_"HULP($J,LEV)")) I LEV=-1 K @("^"_Q_"HULP($J)") S UAF=2 G 33 // Loop over de leveranciers in ^KHULP($J)
  D CheckVerpakkingsTypes(LEV)
  S VerpakkingsType=""
 15 Set VerpakkingsType=$N(@("^"_Q_"HULP($J,LEV,VerpakkingsType)")) G 11:VerpakkingsType=-1
@@ -153,4 +153,3 @@
 R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
 R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
  ;
-