Index: ULTOER.mac.rou
===================================================================
diff -u -r60504 -r62359
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 60504)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 62359)
@@ -401,7 +401,7 @@
  New ULTOERL,I,R,X,DL,Clear
  For I=1,2,5,8 Set ULTOERL(I)=ULTOER(I)
  Set $P(ULTOERL(2),D,4,5)="$$KLTYP^KLANT($P(FL(3),D,3));C;R;3;;;;$S(X=""IND-A"":""IA"",X=""IND-B"":""IB"",1:"""")"
- Set X=$P(Kriteria,D,5),ULTOERL(11)="Toerlijst volgens "_$S(X="B":"bonnummer",X="K":"klantnaam",1:"postkode")
+ Set X=$P(Kriteria,D,5),ULTOERL(11)="Toerlijst "_$$GeefToerNr()_" volgens "_$S(X="B":"bonnummer",X="K":"klantnaam",1:"postkode")
  Set X=$P(Kriteria,D,3) Set:$L(X) ULTOERL(11)=ULTOERL(11)_D_$S($L(X):X_" "_$G(^RES("KLANT","PI","VERZENDWIJZE","D",X,"N")),1:"")
  Set DL(1)="ULTOERL",Clear=20+(Type="P"*2),FP=Clear*100+1 Write @F,@F1
  If '$L(Type) Set Type="PMT"
@@ -413,6 +413,11 @@
  Do ADD^vhScherm(Clear,24)
  Quit
  ;
+ 
+GeefToerNr()
+	Quit:$P(Kriteria,D,3)'?1"OD"1N ""
+	Quit $I(^TRANSP("ULTOER"))
+	
 Locals(List) 
  New I
  For I=1:1:$L(List,",") Set $P(List,",",I)=""""_$P(List,",",I)_""""