Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml =================================================================== diff -u -r50451 -r50465 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml (.../HFSifonkapv000.cls.xml) (revision 50451) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml (.../HFSifonkapv000.cls.xml) (revision 50465) @@ -43,12 +43,14 @@ #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = "" If (..BuilderMoetWerken(IngegevenKenmerken, Context)) { Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context, ..GeefRol()) + + #dim SifonkapKleur As TECH.String = ..GeefSifonkapKleur(IngegevenKenmerken) - #dim SubItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem + #dim SubItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem Set ..TeSelecterenUitsparingCode = IngegevenKenmerken.UitsparingData.UitsparingZ1 Set SubItem = ##super(IngegevenKenmerken,Context) Do SubItem.ZetRol("Z1") - #dim Omschrijving As TECH.String = ..GeefOmschrijving("Z1", IngegevenKenmerken.UitsparingData) + #dim Omschrijving As TECH.String = ..GeefOmschrijving("Z1", IngegevenKenmerken.UitsparingData, SifonkapKleur) Do SubItem.ZetOmschrijvingVoorDocs(Omschrijving) Do SubItem.ZetOmschrijvingVoorPicking(Omschrijving) Do HalffabItem.VoegToe(SubItem) @@ -57,7 +59,7 @@ Set ..TeSelecterenUitsparingCode = IngegevenKenmerken.UitsparingData.UitsparingZ2 Set SubItem = ##super(IngegevenKenmerken,Context) Do SubItem.ZetRol("Z2") - Set Omschrijving = ..GeefOmschrijving("Z2", IngegevenKenmerken.UitsparingData) + Set Omschrijving = ..GeefOmschrijving("Z2", IngegevenKenmerken.UitsparingData, SifonkapKleur) Do SubItem.ZetOmschrijvingVoorDocs(Omschrijving) Do SubItem.ZetOmschrijvingVoorPicking(Omschrijving) Do HalffabItem.VoegToe(SubItem) @@ -68,8 +70,23 @@ ]]> + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken +1 +TECH.String + + + -Rol:TECH.String,LadeUitsparingData:DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData +Rol:TECH.String,LadeUitsparingData:DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData,SifonkapKleur:TECH.String 1 TECH.String