APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase 1 1 %Status 1 =" Set Conditie.Waarde = "560" Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponSynchronisatieSet", "Synchronisatieset TIP-ON") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New() Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Zijstabilisering") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 295 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() Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkBooleanConditie).%New() Set Conditie.BooleanIngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("HeeftZijstabilisering") Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Verpakking") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New() Set Rol.BuilderType = BuilderType Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Samenstelling","DOM.PM.Verpakking.enu.KartonSamenstelling",##class(APPS.PM.enu.DataType).Tekst(),1)) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Kartonbreedte","%Integer",##class(APPS.PM.enu.DataType).Getal(),1)) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Opvullijst") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("OpvullijstKleur")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugWandHouderSchroef", "Schroef rugwandhouder") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(906180) Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New("RugWandHouder") Do Rol.Condities.Insert(Conditie) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "RRWH") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugBodemSchroef", "Schroef rug-bodem") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(113091) Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do ..Rollen.Insert(Rol) // Maatwerkmodel in sync brengen, fase 1 (UST815) // Voorlopig custom builder. Een volgende fase kan de manueel gemaakte builders vervangen door een gegenereerde // en eventuele customisatie. Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("VerpakkingTussenschot", "Verpakking tussenschot") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New() Do ..Rollen.Insert(Rol) // Maatwerkmodel in sync brengen, fase 1 (UST815) // Voorlopig custom builder. Een volgende fase kan de manueel gemaakte builders vervangen door een gegenereerde // en eventuele customisatie. Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("SchroefManueleMontage", "Schroeven manuele montage") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New() Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Sifonkap") 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("UitsparingData.UitsparingCode")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AantalSchroeven","%Integer",##class(APPS.PM.enu.DataType).Getal())) ;Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("UitsparingBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal())) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Klasse") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.LBXKlasse).Sifon()" Set Rol.ProductieDocTemplate = "{Rol}, {UitsparingCode}, {PPS:LBX:Kleur:o:}, Freespositie X" Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) Set LBXFreeConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set LBXFreeConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("ZijWandType") Set LBXFreeConditie.Operator = "=" Set LBXFreeConditie.Waarde = "##class(DOM.PM.enu.LBXZijWandType).Free()" Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("InschuifElementZijkant", "Inschuifelement zijkant") 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("ZijWandVerhogingMateriaal")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) Do Rol.Condities.Insert(LBXFreeConditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TransportZekerheid", "Transportbeveiliging") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(1125085) Set Rol.BuilderType.AantalItems = 2 Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.Condities.Insert(LBXFreeConditie) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New("InschuifElementZijkant") Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BoxCoverVoor", "Boxcover voor") 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 Rol.Condities.Insert(LBXFreeConditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BoxCoverAchter", "Boxcover achter") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do Rol.Condities.Insert(LBXFreeConditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AfdekkapRugWandHouder", "Afdekkap rugwandhouder") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijWandType")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Dwarsverdeling", "Dwarsverdeling") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 90 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")) Set HeeftDwarsverdelingConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set HeeftDwarsverdelingConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("AantalDwarsverdelingen") Set HeeftDwarsverdelingConditie.Operator = ">" Set HeeftDwarsverdelingConditie.Waarde = "0" Do Rol.Condities.Insert(HeeftDwarsverdelingConditie) 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 = "=" Set HeeftTiponBlumotionConditie.Waarde = "##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()" Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionEenheid", "TIP-ON BLUMOTION eenheid") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMin","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMax","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht")) Do Rol.Condities.Insert(HeeftTiponBlumotionConditie) Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Identificatie}, {LiRe}" Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionMeenemer", "TIP-ON BLUMOTION meenemer") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Do Rol.Condities.Insert(HeeftTiponBlumotionConditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSetEenhedenEnMeenemers", "TIP-ON BLUMOTION set eenheden en meenemers") 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(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMin","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMax","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Klasse")) Do Rol.Condities.Insert(HeeftTiponBlumotionConditie) Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Identificatie}" Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSynchronisatieStang", "TIP-ON BLUMOTION synchronisatiestang rond") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardOfBewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 247 Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte") Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte()) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMin","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMax","%Integer",##class(APPS.PM.enu.DataType).Getal())) Set Rol.BuilderType = BuilderType Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.Condities.Insert(HeeftTiponBlumotionConditie) Do ..Rollen.Insert(Rol) Set HeeftPalletVerpakkingConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set HeeftPalletVerpakkingConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VerpakkingType") Set HeeftPalletVerpakkingConditie.Operator = "=" Set HeeftPalletVerpakkingConditie.Waarde = "##class(DOM.PM.enu.LBXVerpakkingType).Pallet()" Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PalletKartonvulstuk", "Pallet kartonvulstuk") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New("1108497") Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.Condities.Insert(HeeftPalletVerpakkingConditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PbxOverdoos", "Probox Overdoos") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PbxDeksel", "Probox Deksel") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PbxOnderdelendoos", "Probox Onderdelendoos") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PalletKartonUProfiel", "Pallet karton U-profiel") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New("1108481") Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.Condities.Insert(HeeftPalletVerpakkingConditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("MeenemerSet", "Meenemerset bij binnenlade") 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("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("IsBinnenlade")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandType")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("IsBinnenlade") Set Conditie.Operator = "=" Set Conditie.Waarde = "1" Do Rol.Condities.Insert(Conditie) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VoorWandType") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()" Do Rol.Condities.Insert(Conditie) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("MeenemerSet") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.LBXMeenemerSet).VolledigeSet()" Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) ]]> %Library.CacheStorage