Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml =================================================================== diff -u -r65441 -r65445 --- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml (.../TandemboxModel.cls.xml) (revision 65441) +++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml (.../TandemboxModel.cls.xml) (revision 65445) @@ -80,50 +80,50 @@ // // //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// - - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugHouder") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Afdekkap") 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("ProductVerpakking")) - o Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("StalenRug", "Stalen rug") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BevestigingDwarsverdeling", "Bevestiging dwarsverdeling") 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("InterneBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal())) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingZijkant", "Reling zijkant") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodem") 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("Designcode")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur")) - Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Opties","%String",##class(APPS.PM.enu.DataType).Tekst())) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) + Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Geleider") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemsteun") 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("GeleiderTechnologie")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("IsBinnenlade")) + Do ..Rollen.Insert(Rol) + + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemstrook") + Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() + Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() + Set BewerkingInfo.Aftrek = 0 + 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("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugwandMateriaal")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontHouder") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Dwarsverdeling") 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("Designcode")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorwandVerhogingType")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontBevestiging") @@ -133,27 +133,21 @@ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("FrontBevestiging")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Afdekkap") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontGreep") 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 ..Rollen.Insert(Rol) - - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingVoor", "Reling vooraan") - Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() - Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() - Set BewerkingInfo.Aftrek = 0 - 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("ZijwandVerhogingRelingKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GreepEnMeenemer")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemsteun") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontHouder") 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("IsBinnenlade")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorwandVerhogingType")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Frontplaat") @@ -165,58 +159,41 @@ 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("FrontGreep") - 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("LadeKleur")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GreepEnMeenemer")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Stabilisator") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Geleider") 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("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) - Do ..Rollen.Insert(Rol) - - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("LadeZijkant") - 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("Designcode")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GeleiderTechnologie")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) - Do ..Rollen.Insert(Rol) - /* - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("OpvulstukPalletStapeling", "Opvulstuk palletstapeling") - 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("LadeDiepte")) - Do ..Rollen.Insert(Rol) - */ + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht")) + Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Sifonkap") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("HoudersInschuifElement", "Houders inschuifelement") 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")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) - Do ..Rollen.Insert(Rol) + Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BevestigingDwarsverdeling", "Bevestiging dwarsverdeling") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("InschuifElement") 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("ZijwandVerhogingRelingKleur")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingInschuifElementKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Dwarsverdeling") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("LadeZijkant") 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("ZijwandVerhogingRelingKleur")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Opvullijst") @@ -225,28 +202,35 @@ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("OpvullijstKleur")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodem") - 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("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) - Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal())) - - Do ..Rollen.Insert(Rol) - - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemstrook") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingVoor", "Reling vooraan") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 0 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("ZijwandVerhogingRelingKleur")) + Do ..Rollen.Insert(Rol) + + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingZijkant", "Reling zijkant") + 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("Designcode")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugwandMateriaal")) - Do ..Rollen.Insert(Rol) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur")) + Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Opties","%String",##class(APPS.PM.enu.DataType).Tekst())) + Do ..Rollen.Insert(Rol) + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugHouder") + 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("ProductVerpakking")) + o Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) + Do ..Rollen.Insert(Rol) + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Rugstrook") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() @@ -269,22 +253,29 @@ Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AftrekBodem","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("HoudersInschuifElement", "Houders inschuifelement") + 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).LinksRechts() + 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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("InschuifElement") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Stabilisator") 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("Designcode")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingInschuifElementKleur")) + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do ..Rollen.Insert(Rol) + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("StalenRug", "Stalen rug") + 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("InterneBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal())) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) + Do ..Rollen.Insert(Rol) + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSetEenhedenMeenemersEnAdapters", "TIP-ON BLUMOTION set eenheden, meenemers en adapters") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()