Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml =================================================================== diff -u -r62576 -r62577 --- APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml (.../MerivoboxModel.cls.xml) (revision 62576) +++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml (.../MerivoboxModel.cls.xml) (revision 62577) @@ -267,16 +267,17 @@ Do Rol.Condities.Insert(HeeftTiponBlumotionConditie) Do ..Rollen.Insert(Rol) - /* - // ON HOLD, want uitsparingcode kan nog niet bepaald worden! Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Tussenstuk") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("UitsparingCode")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("UitsparingData.UitsparingCode")) + Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Toepassing") + Set Conditie.Operator = "=" + Set Conditie.Waarde = "##class(DOM.PM.enu.MVXToepassing).Spoelbak()" + Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) - */ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Voorstuk") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Index: DOM/PM/Maatwerk/Calc/HF/impl/MVX/Halffab/HalffabTussenstuk.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/MVX/Halffab/HalffabTussenstuk.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/MVX/Halffab/HalffabTussenstuk.cls.xml (revision 62577) @@ -0,0 +1,68 @@ + + + + +Gegenereerde klasse via APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils +persistent +1 +DOM.PM.Maatwerk.Calc.HF.Halffab + + +DOM.PM.enu.MVXBodemKleur + + + +bitmap +BodemKleur + + + +DOM.PM.enu.MVXLadeHoogte + + + +bitmap +LadeHoogte + + + +DOM.PM.enu.UitsparingCode + + + +bitmap +UitsparingCode + + + +%String + + + + +%Library.CacheStorage +HalffabTussenstukDefaultData + +listnode +"HalffabTussenstuk" + +BodemKleur + + +LadeHoogte + + +UitsparingCode + + + + + + +