Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml =================================================================== diff -u -r70933 -r70936 --- BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml (.../OnderdelenEtiketPrinterBijLade.cls.xml) (revision 70933) +++ BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml (.../OnderdelenEtiketPrinterBijLade.cls.xml) (revision 70936) @@ -69,22 +69,27 @@ } 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 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()) } } + If (MinstensEenEtiketNodig) { + Do blLabelPrinter.Print2Bartender() + } } - Do blLabelPrinter.Print2Bartender() + } ]]>