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