Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r66786 -r68322
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 66786)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 68322)
@@ -62,6 +62,11 @@
1
+
+APPS.Halux.common.Batch
+1
+
+
PlatteHalffabItemLijstMaker:APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor
1
@@ -91,9 +96,9 @@
If (UitvoeringInfoLijst.Count() > 0) {
#dim BatchID As %String = UitvoeringInfoLijst.GetAt(1).BatchID
- #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
- #dim BatchCategorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
- #dim BatchProductiegroep As APPS.Halux.common.enu.ProductieGroep = Batch.GeefProductieGroep()
+ Set ..Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
+ #dim BatchCategorie As APPS.Halux.common.enu.Categorie = ..Batch.GeefCategorie()
+ #dim BatchProductiegroep As APPS.Halux.common.enu.ProductieGroep = ..Batch.GeefProductieGroep()
}
While GesorteerdeOnderdeelPickingsPerToelevering.HasNext() {
Do ..MaakDocumentEnVoegToeAanDocumenten(GesorteerdeOnderdeelPickingsPerToelevering.Next(), BatchCategorie, BatchProductiegroep)
@@ -110,8 +115,8 @@
#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(OnderdelenPickingUitvoeringInfo.ProductID)
#dim Titel As %String = ..GeefTitel(Product.GeefVerpakking())
#dim BatchID As %String = OnderdelenPickingUitvoeringInfo.BatchID
- #dim Batch As APPS.Halux.common.Batch = ..ProductieAPI.GeefBatchService().GeefBatch(BatchID)
- #dim SubTitel As %String = "Lijn:"_..ProductieLijnFormatter.BepaalGeformatteerdeLijn(Batch)_" Batch:"_BatchID_" Toelevering:"_OnderdelenPickingUitvoeringInfo.ToeleveringID
+ Set ..Batch = ..ProductieAPI.GeefBatchService().GeefBatch(BatchID)
+ #dim SubTitel As %String = "Lijn:"_..ProductieLijnFormatter.BepaalGeformatteerdeLijn(..Batch)_" Batch:"_BatchID_" Toelevering:"_OnderdelenPickingUitvoeringInfo.ToeleveringID
Set ..Document = ##class(APPS.common.Print.Kolommen.Document).%New(..GeefDocumentType(),Titel,SubTitel)
}
]]>
@@ -182,6 +187,12 @@
}
}
+ If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+ If (..IsBatchEnkelVoorDKG()) {
+ Set GesorteerdeUitvoeringInfoIterator = ..GeefAlleProductenBehalveTOBEenhedenIterator(GesorteerdeUitvoeringInfoIterator)
+ }
+ }
+
While GesorteerdeUitvoeringInfoIterator.HasNext() {
#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIterator.Next()
#dim IsTussenlijnNodig As %Boolean = ..IsTussenlijnNodig(DataVoorVorigeLijn,DataVoorLijn)
@@ -211,6 +222,25 @@
]]>
+
+GesorteerdeUitvoeringInfoIterator:TECH.Iterator
+1
+TECH.Iterator
+
+
+
GesorteerdeUitvoeringInfoIterator:TECH.Iterator
1
@@ -501,6 +531,28 @@
+
+
+1
+%Boolean
+
+
Index: APPS/Halux/PPS/Document/impl/MVX/dto/LadeZijkanten.cls.xml
===================================================================
diff -u -r62444 -r68322
--- APPS/Halux/PPS/Document/impl/MVX/dto/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 62444)
+++ APPS/Halux/PPS/Document/impl/MVX/dto/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 68322)
@@ -22,6 +22,14 @@
%String
+
+
+DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
+
+
+
+DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem
+
Index: APPS/Halux/PPS/Document/impl/MVX/LadeZijkanten.cls.xml
===================================================================
diff -u -r63089 -r68322
--- APPS/Halux/PPS/Document/impl/MVX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 63089)
+++ APPS/Halux/PPS/Document/impl/MVX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 68322)
@@ -27,6 +27,16 @@
%Integer
+
+%Boolean
+1
+
+
+
+%Boolean
+1
+
+
-
+
1
+
+1
+%Boolean
+
+
+
LadeZijkant:APPS.Halux.PPS.Document.impl.MVX.dto.LadeZijkanten
1
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r61770 -r68322
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 61770)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 68322)
@@ -46,10 +46,10 @@
-
+
1
1
+
+APPS.Halux.common.BatchService
+1
+
+
1
1
%Status
1
@@ -168,6 +175,7 @@
#dim DetailLijnenGroepering As %ArrayOfObjects = ##class(%ArrayOfObjects).%New()
#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
#dim IsTbxDetailGroepenBepaler As %Boolean = (..GroepenBepaler.%ClassName(1) = "APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.DetailBladGroepenBepaler")
+ #dim IsMvxDetailGroepenBepaler As %Boolean = (..GroepenBepaler.%ClassName(1) = "APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.DetailBladGroepenBepaler")
If $length(..InputParameters.BatchID) {
Set HalffabItemsBoom = ..ProductieAansturingService.GeefHalffabItemsBoom(..InputParameters.BatchID, Product.GeefID())
@@ -186,6 +194,10 @@
#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemIterator.Next()
#dim GroepNaam As %String = ..GroepenBepaler.GeefGroepNaamVoorHalffabItem(HalffabItem)
+ If (IsMvxDetailGroepenBepaler && ##class(TECH.StringUtils).Equals(HalffabItem.GeefRol(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang()) && $length(..InputParameters.BatchID) && (..IsBatchEnkelVoorDKG(..InputParameters.BatchID))) {
+ Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren()
+ }
+
If $$$Not(GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen).NietVermelden()) {
#dim DetailLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefDetailLijnenVoorHalffabItem(HalffabItem))
@@ -412,6 +424,32 @@
1
APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.DetailBladGroepenBepaler
+
+
+BatchID:%String
+1
+%Boolean
+
+
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/DetailBladGroepenBepaler.cls.xml
===================================================================
diff -u -r67138 -r68322
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/DetailBladGroepenBepaler.cls.xml (.../DetailBladGroepenBepaler.cls.xml) (revision 67138)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/DetailBladGroepenBepaler.cls.xml (.../DetailBladGroepenBepaler.cls.xml) (revision 68322)
@@ -44,9 +44,9 @@
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).SpoelbakBinnenRugwandHouder() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Rug() }
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).SpoelbakBinnenZijkant() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren() }
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionAdapter() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren() }
- ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren() }
+ ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Onderdelen2() }
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionMeenemer() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Onderdelen2() }
- ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren() }
+ ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Onderdelen2() }
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Tussenstuk() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren() }
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Verpakking() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Verpakking() }
ElseIf Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Voorstuk() { Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).BinFront() }
Index: APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml
===================================================================
diff -u -r62444 -r68322
--- APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml (.../LadeZijkantenPickingLijst.cls.xml) (revision 62444)
+++ APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml (.../LadeZijkantenPickingLijst.cls.xml) (revision 68322)
@@ -58,7 +58,7 @@
Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
Set ..IngegevenKenmerkenBepaler = ##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New()
Set ..ProductieAansturingService = ##class(APPS.Halux.common.impl.ProductieAansturingService).%New()
- Set ..ProductAPI = ##class(DOM.DomeinContext).%New()
+ Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
Quit $$$OK
]]>
@@ -86,7 +86,7 @@
Set GesorteerdeLijst = ..SorteerVolgensSequentieNr(GesorteerdeLijst)
Set GesorteerdeLijst = ..GroepeerEenBladzijdePerLijstPerKar(GesorteerdeLijst)
}
- #dim Product As DOM.PM.Product = ..ProductAPI.GeefProductAPI().GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID)
+ #dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID)
Set ..Document = ##class(APPS.common.Print.Kolommen.Document).%New(..#DocumentID,..#Titel_" "_Product.GeefVerpakking(),SubTitel)
Do ..VoegDataToeAanDocument(GesorteerdeLijst)
quit ##class(TECH.ListUtils).CreateListOfObjects(..Document)
@@ -106,7 +106,7 @@
1