Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml =================================================================== diff -u -r71395 -r71396 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml (.../BatchNaarObjectiveDataGenerator.cls.xml) (revision 71395) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml (.../BatchNaarObjectiveDataGenerator.cls.xml) (revision 71396) @@ -303,6 +303,17 @@ #dim BodemBreedte As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie) Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte)) + #dim RugBreedte As %String = "" + #dim RugHoogteInMm As %String = "" + If (LbxIngegegevenKenmerkenDom.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) { + #dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure()) + #dim RugItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom) + Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie) + Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(LbxIngegegevenKenmerkenDom.RugHoogte) + } + Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "RugBreedte", RugBreedte)) + Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm)) + Quit LijstBijkomendeOpties ]]>