BL.PPS.common.impl.OnderdelenEtiketPrinterBase BL.PPS.common.impl.HeeftApartMeeTeLeverenOnderdelenBepaler 1 (ELEMENTTYPE="BL.PPS.common.dto.OnderdelenInfo") %ListOfObjects array 1 %Decimal 1 LogoBepaler:BL.Flow.Levering.LabelLogoBepaler="" %Status ToeleveringID:%String,ProductID:%String,Aantal:%Integer,BerekeningWijze:DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze="",BatchID:%String="" 0 { #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", ..BatchID) Do LijstVanToeleveringenMetOnderdelendoos.Insert(ToeleveringID) Do blLabelPrinter.Add(pxLabel) } } #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())) { Set MinstensEenEtiketNodigVoorToeleveringZonderOnderdelendoos = $$$True Set AantalEtiketten = 1 Set pxLabel = ..EtikettenCommissieOne(Toelevering.GeefID(),AantalEtiketten,"*ONDERDELEN*") Do blLabelPrinter.Add(pxLabel) Kill ^OnderdelenEtiketNodigVoorToelevering(Toelevering.GeefID()) } } } If ((..OnderdelenInfoArray.Count() > 0) || MinstensEenEtiketNodigVoorToeleveringZonderOnderdelendoos) { Do blLabelPrinter.Print2Bartender() } ]]>