Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml =================================================================== diff -u -r65596 -r65702 --- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml (.../TandemboxModel.cls.xml) (revision 65596) +++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml (.../TandemboxModel.cls.xml) (revision 65702) @@ -45,7 +45,7 @@ Do ..VoegToeEnumeratieKenmerk("Ladehoogte", "Ladehoogte", "C/D/B/G/N/M/K/L") Do ..VoegToeEnumeratieKenmerk("LadeKleur", "Ladekleur", "MG/WI/SW/BZ/OG/IN/BA/BI/AL/SA") Do ..VoegToeEnumeratieKenmerk("OpvullijstKleur", "Kleur opvullijst", "WI/PSG/S", "Wit/PlatinaGrijs/Zwart") - Do ..VoegToeEnumeratieKenmerk("RugHoogte", "Rughoogte", "N/M/K/C/D/B/G/X35/X40") + Do ..VoegToeEnumeratieKenmerk("RugHoogte", "Rughoogte", "N/M/K/C/D/B/G/X35/X38/X40") Do ..VoegToeEnumeratieKenmerk("RugwandMateriaal", "Materiaal rugwand", "Hout/Staal") Do ..VoegToeEnumeratieKenmerk("Toepassing", "Toepassing", "B/L/SP2/SY/SY2/SY3", "Buro/Lade/Spoelbak/SifonType1/SifonType2/SifonType3") Do ..VoegToeSamengesteldKenmerk("UitsparingData", "Uitsparingdata", "DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData", 1) @@ -54,7 +54,7 @@ Do ..VoegToeEnumeratieKenmerk("ZijkantHoogte", "zijkanthoogte", "N/M/K/L") Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingInschuifElementKleur", "Kleur inschuifelement zijwandverhoging", "FG8/8FZ8/AluMG/AluSW/AluBZ/ZV") Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingMateriaal", "Materiaal zijwandverhoging", "Glas/Alu/ZV") - Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingRelingKleur", "Kleur reling zijwandverhoging", "SW/MG/BZ") + Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingRelingKleur", "Kleur reling zijwandverhoging", "SW/MG/BZ/OG") Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingKleur", "Kleur zijwandverhoging", "SW/MG/BZ/FG8/8FZ8/AluMG/AluSW/AluBZ/ZV") Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingType", "Type zijwand", "Zonder/Reling/InschuifElement") Do ..VoegToeEnumeratieKenmerk("Designcode", "Design code", "A/B/F/I/MA/MT/S", "Antaro/Baliko/FDesign/Intivo/MengvormADesign/MengvormTDesign/StandaardDesign") @@ -85,14 +85,15 @@ 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("Designcode")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do ..Rollen.Insert(Rol) 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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur")) - 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("BinnenRugHouderSpoelbak") @@ -101,15 +102,17 @@ Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodem") - Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() + Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardOfBewerktBuilderType).%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("BodemKleur")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) + 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("PlaatMateriaal")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugwandMateriaal")) Do ..Rollen.Insert(Rol) @@ -137,18 +140,16 @@ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BodemsteunSchroef") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() - Do ..Rollen.Insert(Rol) - - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemstrook") - 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("Dwarsverdeling") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() + 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) @@ -166,13 +167,14 @@ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontBevestiging") 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("ZijkantHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("FrontBevestiging")) 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("Designcode")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GreepEnMeenemer")) Do ..Rollen.Insert(Rol) @@ -184,7 +186,7 @@ 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Frontplaat") @@ -195,6 +197,7 @@ 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("Designcode")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do ..Rollen.Insert(Rol) @@ -221,7 +224,7 @@ 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.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("HoutSchroef") @@ -235,7 +238,7 @@ 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("LadeZijkant") @@ -245,7 +248,7 @@ 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijkantHoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Opvullijst") @@ -292,6 +295,7 @@ 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("Designcode")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur")) Do ..Rollen.Insert(Rol) @@ -349,7 +353,7 @@ 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijkantHoogte")) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AftrekBodem","%Integer",##class(APPS.PM.enu.DataType).Getal())) Do ..Rollen.Insert(Rol) @@ -367,7 +371,7 @@ 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("StalenRug", "Stalen rug")