Index: KLBONOVZG.mac.rou =================================================================== diff -u -r734 -r4034 --- KLBONOVZG.mac.rou (.../KLBONOVZG.mac.rou) (revision 734) +++ KLBONOVZG.mac.rou (.../KLBONOVZG.mac.rou) (revision 4034) @@ -129,6 +129,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)