Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r56829 -r56971
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 56829)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 56971)
@@ -19,10 +19,12 @@
 	Do Print(.Arr,"Toelevering : "_259603,,"BULK")
 	Quit
 	
-PrintToelevering(TOENr,Dev)
+PrintToelevering(TOENr,Dev, BatchID = "")
 	New Arr
 	Do AddToelevering(.Arr,TOENr)
-	Do Print(.Arr,"Toelevering : "_TOENr,.Dev,"BULK")
+	#dim SubTitle = "Toelevering : "_TOENr
+	Set:(BatchID'="") SubTitle = "Lijn:2  Batch : " _BatchID _"  " _SubTitle
+	Do Print(.Arr,SubTitle,.Dev,"BULK")
 	Quit 
 	
 AddFabKey(Arr,GlobRef)