Index: KLBONOVZ.mac.rou =================================================================== diff -u -r734 -r4034 --- KLBONOVZ.mac.rou (.../KLBONOVZ.mac.rou) (revision 734) +++ KLBONOVZ.mac.rou (.../KLBONOVZ.mac.rou) (revision 4034) @@ -128,6 +128,7 @@ ...Set Routine=$E(Lijst),$E(Lijst)="",^HULP(%J)="" ...Do:Routine="X" ....New BonNrs,CheckSum + ....Set BonNrs="" ....For I=1:1 Set R=$G(^HULP(%J,I)) Quit:R="" Do .....Quit:'$P(R,D) .....Set BONNr=$P(R,D,2)