Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r60663 -r60668
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 60663)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 60668)
@@ -21,10 +21,11 @@
 	
 PrintToelevering(TOENr,Dev, BatchID = "")
 	New Arr
+	#dim Batch As APPS.Halux.common.Batch = ""
 	Do AddToelevering(.Arr,TOENr)
 	#dim SubTitle = "Toelevering : "_TOENr
 	If (BatchID'="") {
-		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
+		Set Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
 		Set SubTitle = "Lijn:" _Batch.GeefLijn() _"  Batch : " _BatchID _"  " _SubTitle
 	}
 	Do Print(.Arr, SubTitle, .Dev,"BULK", Batch)
@@ -75,7 +76,7 @@
  ; De Arr is opgebouwd als Arr(VolgNr)=$LB(Toelevering,Product,Aantal)
  ; KarCode is een string met de naam/nummer van de kar
  ; Dev is optioneel, indien niet mee gegeven dan wordt dit gevraagd (TELNET)
-Print(Arr,SubTitel,Dev,PrepOnly,Batch)
+Print(Arr,SubTitel,Dev,PrepOnly,Batch="")
 	New I,FabrPrepList,FrontOnly,PLD,MemTOENr,Groep,Lijst
 	Set FabrPrepList=$S($L($G(PrepOnly)):$LB(PrepOnly),1:$$$PrepKeys)
 	Set FrontOnly=$G(PrepOnly)="BIN"