Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/LegraboxPureModel.cls.xml =================================================================== diff -u -r55199 -r70067 --- APPS/PM/Maatwerk/MaatwerkModel/Modellen/LegraboxPureModel.cls.xml (.../LegraboxPureModel.cls.xml) (revision 55199) +++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/LegraboxPureModel.cls.xml (.../LegraboxPureModel.cls.xml) (revision 70067) @@ -492,7 +492,25 @@ Do ..Rollen.Insert(Rol) Do ..VoegToeRol(##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.LBX.Rollen.DwarsverdelingHouder).%New($this).GeefRol()) - + + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("DwarsverdelingOnder", "Onderste Dwarsverdeling") + Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() + Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() + Set BewerkingInfo.Aftrek = 160 //Waarde maakt niet uit, wordt gedefinieerd in .NET + Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte") + Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte()) + Set Rol.BuilderType = BuilderType + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do ..Rollen.Insert(Rol) + + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("DwarsverdelingDubbelHouder", "DwarsverdelingDubbelHouder") + Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() + Set Rol.BuilderType.AantalItems = 2 + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do ..Rollen.Insert(Rol) + Set HeeftTiponBlumotionConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set HeeftTiponBlumotionConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("GeleiderTechnologie") Set HeeftTiponBlumotionConditie.Operator = "="