Index: APPS/Halux/PPS/impl/AansturingActie/Tandembox/OnderdelenPicking.cls.xml
===================================================================
diff -u -r29059 -r56971
--- APPS/Halux/PPS/impl/AansturingActie/Tandembox/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/impl/AansturingActie/Tandembox/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56971)
@@ -16,32 +16,32 @@
 	#dim ToeleveringIt As TECH.Iterator = Batch.GeefToeleveringIterator()
 	while ToeleveringIt.HasNext() {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIt.Next()
-		Do ..VoerUitOnderdelenPickingLijst(Toelevering.GeefID(),Printer)
+		Do ..VoerUitOnderdelenPickingLijst(Toelevering.GeefID(),Printer,BatchID)
 	}
 	quit ..GeefGeslaagdAansturingResultaat()
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitOnderdelenPickingLijst">
-<FormalSpec>ToeleveringID:%String,SelPrint:%String</FormalSpec>
+<FormalSpec>ToeleveringID:%String,SelPrint:%String,BatchID:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Print As %String
 
 	do ##class(BL.Legacy.Print).SelecteerPrinter(SelPrint,.Print)
 	
-	do ..Print(ToeleveringID , .Print)
+	do ..Print(ToeleveringID , .Print, BatchID)
 	do ##class(DOM.AKP.ToeleveringPrintbak).VerwijderToelevering(ToeleveringID)
 ]]></Implementation>
 </Method>
 
 <Method name="Print">
-<FormalSpec><![CDATA[TOENr:%String,&Print:%String]]></FormalSpec>
+<FormalSpec><![CDATA[TOENr:%String,&Print:%String,BatchID:%String=""]]></FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Do INIT^DCTOE
-	Do PrintToelevering^HADTBXPrep(TOENr,Print("DEV"))
+	Do PrintToelevering^HADTBXPrep(TOENr,Print("DEV"),BatchID)
 	Do CLOSE^vhPRINTER
 ]]></Implementation>
 </Method>
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)