Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r69851 -r69952
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69851)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69952)
@@ -88,7 +88,7 @@
 				While ResultSetLink.Next() {
 					Set BoxDataID = ResultSetLink.Data("ID")
 				 	Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-				 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": Aantal, BoxData.Aantal = "-1": 1, 1:BoxData.Aantal)
+				 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": Aantal, 1:BoxData.Aantal)
 				 	Do ..GeefDoos(ProductGroep, BoxData.Meta.Name, MachineID, (Aantal * SubAantal), "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID)
 				}
 				Do ResultSetLink.Close()
@@ -104,6 +104,10 @@
 			#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
 			#dim Doos As APPS.Verpakking.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
 			Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, Prioriteit, MachineTechnologie, BoxDataID) //SnijdataID toevoegen voor overdozen?
+			
+			If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) && (ProductGroep = "PR")) {
+				Set Doos.LogoPrint = "TBX DRAWER"
+			}
 			Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie)
 			
 			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {