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()