Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml =================================================================== diff -u -r66650 -r66656 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66650) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66656) @@ -67,8 +67,12 @@ #dim DetailLijnenZonderHalffabItem As TECH.KeyValue.List = ##super(Product, HalffabItemsBoom) #dim ProductDetailDataLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn #dim PDBGroepNaam As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.enu.DetailBladLayoutGroepen - + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..Product.GeefIngegevenKenmerken() + + Set DomNaarDotNetConvertor = ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken).%New() + Set DomNaarDotNetConvertor.TbxKenmerken = IngegevenKenmerken + #dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData= DomNaarDotNetConvertor.GeefUitsparingData() If ..InputParameters.Layout = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.enu.Layout).TBXAlleGroepen() { @@ -141,6 +145,42 @@ 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",, "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak links", IngegevenKenmerken.UitsparingBreedte1 - 69 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak rechts", IngegevenKenmerken.UitsparingBreedte2 - 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()) { + 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()) { + Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 2", IngegevenKenmerken.UitsparingBreedte2 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } + } } Quit DetailLijnenZonderHalffabItem