Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml
===================================================================
diff -u -r70936 -r70939
--- BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml	(.../OnderdelenEtiketPrinterBijLade.cls.xml)	(revision 70936)
+++ BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml	(.../OnderdelenEtiketPrinterBijLade.cls.xml)	(revision 70939)
@@ -53,44 +53,47 @@
 <Implementation><![CDATA[
 	#dim AantalEtiketten As %Integer
 	#dim pxLabel As BL.PPS.TBX.sub.pxCommissie
+	#dim LijstVanToeleveringenMetOnderdelendoos As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Set blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
 	
 	If ..OnderdelenInfoArray.Count() > 0 {
-		Set blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
+		
 		#dim OnderdelenInfoArrayIt As TECH.Iterator = ##class(TECH.ListIterator).%New(..OnderdelenInfoArray)
 		While OnderdelenInfoArrayIt.HasNext(){
 			#dim OnderdelenInfoIt As TECH.Iterator = ##class(TECH.ListIterator).%New(OnderdelenInfoArrayIt.Next())
 			#dim ToeleveringID As %String = OnderdelenInfoArrayIt.Key()
 			Set AantalEtikettenPerToeleveringBepaler = ##class(BL.PPS.common.impl.AantalEtikettenPerToeleveringBepaler).%New()
 			Set AantalEtiketten = AantalEtikettenPerToeleveringBepaler.GeefAantalEtiketten(OnderdelenInfoIt)
 			Set pxLabel = ..EtikettenCommissieOne(ToeleveringID,AantalEtiketten,"ONDERDELEN")
+			Do LijstVanToeleveringenMetOnderdelendoos.Insert(ToeleveringID)
 			Do blLabelPrinter.Add(pxLabel)
 		}
-		Do blLabelPrinter.Print2Bartender()
-	} Else {
-		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(..BatchID)
-		#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-		#dim MinstensEenEtiketNodig As %Boolean = $$$False
+	}
 	
-		If (##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).TAORbox())) {
-			While ToeleveringenIterator.HasNext()
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(..BatchID)
+	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim MinstensEenEtiketNodigVoorToeleveringZonderOnderdelendoos As %Boolean = $$$False
+
+	If (##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).TAORbox())) {
+		While ToeleveringenIterator.HasNext()
+		{
+			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringenIterator.Next()
+			If $Data(^OnderdelenEtiketNodigVoorToelevering(Toelevering.GeefID())) && $$$Not(##class(TECH.ListUtils).Contains(LijstVanToeleveringenMetOnderdelendoos, Toelevering.GeefID()))
 			{
-				#dim Toelevering As DOM.AKP.Toelevering = ToeleveringenIterator.Next()
-				If $Data(^OnderdelenEtiketNodigVoorToelevering(Toelevering.GeefID()))
-				{
-					Set MinstensEenEtiketNodig = $$$True
-					Set AantalEtiketten = 1
-					Set pxLabel = ..EtikettenCommissieOne(ToeleveringID,AantalEtiketten,"*ONDERDELEN*")
-					Do blLabelPrinter.Add(pxLabel)
-					
-					Kill ^OnderdelenEtiketNodigVoorToelevering(Toelevering.GeefID())
-				}
+				Set MinstensEenEtiketNodigVoorToeleveringZonderOnderdelendoos = $$$True
+				Set AantalEtiketten = 1
+				Set pxLabel = ..EtikettenCommissieOne(Toelevering.GeefID(),AantalEtiketten,"*ONDERDELEN*")
+				Do blLabelPrinter.Add(pxLabel)
+				
+				Kill ^OnderdelenEtiketNodigVoorToelevering(Toelevering.GeefID())
 			}
-			If (MinstensEenEtiketNodig) {
-				Do blLabelPrinter.Print2Bartender()
-			}
 		}
 		
 	}
+	
+	If ((..OnderdelenInfoArray.Count() > 0) || MinstensEenEtiketNodigVoorToeleveringZonderOnderdelendoos) {
+		Do blLabelPrinter.Print2Bartender()
+	}
 ]]></Implementation>
 </Method>
 </Class>