Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml =================================================================== diff -u -r66658 -r66661 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66658) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66661) @@ -136,50 +136,48 @@ 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", "", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", IngegevenKenmerken.InterneBreedte - 75 _"mm", "","") 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", "", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", IngegevenKenmerken.InterneBreedte - 75 _"mm", "","") 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_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) { Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Spoelbak() - Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak opening",, "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak opening", IngegevenKenmerken.InterneBreedte - UitsparingData.RugDeelX - UitsparingData.RugDeelY + 63 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak links", IngegevenKenmerken.UitsparingBreedte1 - 69 _"mm", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak links", UitsparingData.RugDeelX - 69 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak rechts", IngegevenKenmerken.UitsparingBreedte2 - 69 _"mm", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak rechts", UitsparingData.RugDeelY - 69 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) { Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Spoelbak() - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade links", UitsparingData.RugDeelX - 37.5 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade rechts", UitsparingData.RugDeelY - 37.5 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - If (UitsparingData.AantalUitsparingen() = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { + If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade midden", UitsparingData.RugDeelM _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 1", IngegevenKenmerken.UitsparingBreedte1 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - If (UitsparingData.AantalUitsparingen() = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { + If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 2", IngegevenKenmerken.UitsparingBreedte2 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) }