Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml =================================================================== diff -u -r70914 -r70933 --- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml (.../PickingOnderdelen.cls.xml) (revision 70914) +++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml (.../PickingOnderdelen.cls.xml) (revision 70933) @@ -126,7 +126,9 @@ #dim Product As Prod.Product Set AantalVerschillendeProductenZonderLocatie = 0 + Kill ^OnderdelenEtiketNodigVoorToelevering(ToeleveringID) If ($Data(^PCDataOnderdelenPickingDocument(ToeleveringID))) { + Set ^OnderdelenEtiketNodigVoorToelevering(ToeleveringID) = $$$True try { Do ..FileWriter.Open(BestandNaam) #dim HalffabIsBewerkt As %Boolean Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml =================================================================== diff -u -r40848 -r70933 --- BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml (.../OnderdelenEtiketPrinterBijLade.cls.xml) (revision 40848) +++ BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml (.../OnderdelenEtiketPrinterBijLade.cls.xml) (revision 70933) @@ -16,6 +16,11 @@ 1 + +%Decimal +1 + + LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler="" %Status @@ -28,6 +33,7 @@ ToeleveringID:%String,ProductID:%String,Aantal:%Integer,BerekeningWijze:DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze="",BatchID:%String="" 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() - #dim AantalEtiketten As %Integer = AantalEtikettenPerToeleveringBepaler.GeefAantalEtiketten(OnderdelenInfoIt) - #dim pxLabel As BL.PPS.TBX.sub.pxCommissie = ..EtikettenCommissieOne(ToeleveringID,AantalEtiketten,"ONDERDELEN") + Set AantalEtiketten = AantalEtikettenPerToeleveringBepaler.GeefAantalEtiketten(OnderdelenInfoIt) + Set pxLabel = ..EtikettenCommissieOne(ToeleveringID,AantalEtiketten,"ONDERDELEN") 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() + + 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 AantalEtiketten = 1 + Set pxLabel = ..EtikettenCommissieOne(ToeleveringID,AantalEtiketten,"*ONDERDELEN*") + Do blLabelPrinter.Add(pxLabel) + + Kill ^OnderdelenEtiketNodigVoorToelevering(Toelevering.GeefID()) + } + } + } + Do blLabelPrinter.Print2Bartender() } ]]>