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.