Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml =================================================================== diff -u -r50648 -r51056 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml (.../HFSifonkapv000.cls.xml) (revision 50648) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml (.../HFSifonkapv000.cls.xml) (revision 51056) @@ -50,12 +50,12 @@ Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context, ..GeefRol()) Set ..IsSifonType3 = ..LadeUitsparingHelper.IsSifonType3(IngegevenKenmerken.UitsparingData) - #dim SifonkapKleur As TECH.String = ..GeefSifonkapKleur(IngegevenKenmerken) #dim SubItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem Set ..TeSelecterenUitsparingCode = IngegevenKenmerken.UitsparingData.UitsparingZ1 Set SubItem = ##super(IngegevenKenmerken,Context) Do SubItem.ZetRol("Z1") + #dim SifonkapKleur As TECH.String = ..GeefSifonkapKleur(SubItem) #dim Omschrijving As TECH.String = ..GeefOmschrijving("Z1", IngegevenKenmerken.UitsparingData, SifonkapKleur) Do SubItem.ZetOmschrijvingVoorDocs(Omschrijving) Do SubItem.ZetOmschrijvingVoorPicking(Omschrijving) @@ -77,16 +77,19 @@ -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken +GeselecteerdeHalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem 1 TECH.String