Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml =================================================================== diff -u -r66626 -r66641 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66626) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66641) @@ -65,16 +65,17 @@ TECH.KeyValue.List Links") + + If (LadeZijkant.LiRe = ##class(DOM.PM.enu.LiRe).LinksRechts()) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Onderdelen2() + + Set ProductDetailDataLijn = ..MaakDataLijn("V1->Positioneringsdeel vr T-box-zijkant 'K'", "", "2st","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + Set ProductDetailDataLijn = ..MaakDataLijn("V1->Afdekkappen meeleveren LI+RE, bruinzwart", "", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } + } + + If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.TBXProductieWijze).Rug(), ##class(DOM.PM.enu.TBXProductieWijze).RugMetHouders(), ##class(DOM.PM.enu.TBXProductieWijze).BodemEnRug(), ##class(DOM.PM.enu.TBXProductieWijze).BodemRugEnFront()) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Rug() + Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", "", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig() ) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Bodem() + Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", "", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } Else { + #dim Bodem As DOM.PM.Maatwerk.Calc.HF.impl.TBX.Halffab.HalffabBodem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem()).GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte()) + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Monteren() + Set ProductDetailDataLijn = ..MaakDataLijn("Monteren, bodem breedte", "", IngegevenKenmerken.InterneBreedte - 75,"") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } } + Quit DetailLijnenZonderHalffabItem ]]> Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml =================================================================== diff -u -r61894 -r66641 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 61894) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 66641) @@ -185,7 +185,13 @@ While (DetailLijnIterator.HasNext()) { #dim ProductDetailDataLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn = DetailLijnIterator.Next() - Do ..VoegToeDetailLijn(DetailLijnenGroepering, GroepNaam, ProductDetailDataLijn) + If (..GroepenBepaler.%ClassName(1) = "APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.DetailBladGroepenBepaler") && (GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Verpakking()) { + If ..MagVerpakkingSubRolOpTBXDetailBlad(ProductDetailDataLijn.GeefOmschrijving().GeefTekst()) { + Do ..VoegToeDetailLijn(DetailLijnenGroepering, GroepNaam, ProductDetailDataLijn) + } + } Else { + Do ..VoegToeDetailLijn(DetailLijnenGroepering, GroepNaam, ProductDetailDataLijn) + } } } } @@ -202,6 +208,14 @@ ]]> + +OmschrijvingRol:%String +1 +%Boolean + + + Deze method overschrijven in de specifieke sub-klasse om "DetailLijnen Zonder HalffabItem" toe te voegen.