Index: BLKALC2.mac.rou
===================================================================
diff -u -r29059 -r38892
--- BLKALC2.mac.rou	(.../BLKALC2.mac.rou)	(revision 29059)
+++ BLKALC2.mac.rou	(.../BLKALC2.mac.rou)	(revision 38892)
@@ -21,7 +21,7 @@
  Goto LIJN:RecType="22",L5
  ; Verwerk bon
 VwBON Set ToeRec="",STR=$P(ToeNr,"/") Do StrNum Set ToeNr=+NUM
- Goto VB2:ABNr'?6N
+ Goto VB2:ABNr'?2.10N ;ABNr changed to max 10 pos num
  Set Key=$N(^BLToe("IA",ABNr_D))
  Goto VB2:$P(Key,D,1)'=ABNr ;Bestaat ABNummer?
 VB1 ; Volgens ABNummer
@@ -127,3 +127,4 @@
  Set Tptr=$N(^(Tptr)) Goto TLoop
 YZ Q
 
+