Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml =================================================================== diff -u -r29970 -r29978 --- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (.../DataMBouwsteenCreator.cls.xml) (revision 29970) +++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (.../DataMBouwsteenCreator.cls.xml) (revision 29978) @@ -159,10 +159,13 @@ Set HFItem = Iterator.Next() If ('HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem")) { - // We gaan er even van uit dat er verder geen geneste samengestelde halffab items aanwezig zijn - // Dit komt momenteel toch niet voor in de planning - If ('HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem")) + // Tijdelijke implementatie voor de geneste structuur + If (HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) { + Do HFItem.Accept(##this) + } + ElseIf ('HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem")) + { Do ..MaakProductBouwsteen(HFItem, 0, Item.GeefRol()_HFItem.GeefRol()) } Else @@ -218,6 +221,9 @@ If (SamengesteldeRol '= "") { Set TeZoekenRol = SamengesteldeRol } Else { Set TeZoekenRol = HalffabItem.GeefRol() } &SQL(SELECT Label INTO :Label FROM DOM_PM_impl_DataM.DataMBouwsteenLabelInfo WHERE Rol = :TeZoekenRol AND IsBewerkt = :IsBewerkt) + + d WLIP^vhDBG(97,TeZoekenRol_" -> "_$G(Label)) + If ('$Data(Label)) { Set Label = ##class(TECH.StringUtils).ToUpper($E(HalffabItem.GeefRol(), 1, 8)) If (HalffabItem.GeefRol()?.E1"_"1.2N) {