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