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()
}
]]>