Index: RPLKL1.mac.rou
===================================================================
diff -u -r50381 -r50398
--- RPLKL1.mac.rou	(.../RPLKL1.mac.rou)	(revision 50381)
+++ RPLKL1.mac.rou	(.../RPLKL1.mac.rou)	(revision 50398)
@@ -472,7 +472,7 @@
  ;
  ;Vervolg
 VRV S R=$S($L(VTB):VTB,1:SW2)
- I VTB="L" Set MaxLevering='$G(MaxLevering) S (VNR,FLD(6),FLD(7))=$P(U2,D,1),VRV=1,U4=VTB w "jfgdlsjflsjf" r k G BON1
+ I VTB="L" Set MaxLevering='$G(MaxLevering) K ^HULP($J,"K"_KC,"L") S BON(7)=0,BON(6)=1,(VNR,FLD(6),FLD(7))=$P(U2,D,1),VRV=0,U4=VTB G BON1
  I VTB'="F",VTB'="Z" G VRV1
  I VTB="F" G VRV1:'$D(^HULP($J,"K"_KC,"F",FLD(6))),VRV1:$P(^($O(^HULP($J,"K"_KC,"F",""),-1)),D,1,4)'="\\\     *** VERVOLG ***"
  I VTB="Z" G VRV1:'$D(^HULP($J,"K"_KC,"P",PLD(6))),VRV1:$P(^($O(^HULP($J,"K"_KC,"P",""),-1)),D,1,4)'="\\\     *** VERVOLG ***"
@@ -486,4 +486,3 @@
 S3Z Q
  ;
 
-