Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/RVG/Test.cls.xml =================================================================== diff -u -r68539 -r69045 --- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/RVG/Test.cls.xml (.../Test.cls.xml) (revision 68539) +++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/RVG/Test.cls.xml (.../Test.cls.xml) (revision 69045) @@ -18,6 +18,7 @@ #dim VerwachteOngeldigeProperties As %ListOfDataTypes = ##class(%ListOfDataTypes).%New() Do VerwachteOngeldigeProperties.Insert("Toepassing") + Do VerwachteOngeldigeProperties.Insert("VerpakkingType") Do ..ValideerKenmerken(RvgKenmerken, VerwachteOngeldigeProperties) ]]> Index: APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml =================================================================== diff -u -r68550 -r69045 --- APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 68550) +++ APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 69045) @@ -42,6 +42,7 @@ Set DomKenmerken.NominaleLengte = DtoKenmerken.NominaleLengte Set DomKenmerken.NominaleLengteLinks = DtoKenmerken.NominaleLengteLinks Set DomKenmerken.NominaleLengteRechts = DtoKenmerken.NominaleLengteRechts + Set DomKenmerken.PlaatMateriaal = DtoKenmerken.PlaatMateriaal Set DomKenmerken.PlanmatigeAanpak = DtoKenmerken.PlanmatigeAanpak Set DomKenmerken.PocketAchterwandDikte = DtoKenmerken.PocketAchterwandDikte Set DomKenmerken.PocketDiepte = DtoKenmerken.PocketDiepte @@ -50,10 +51,11 @@ Set DomKenmerken.StukLijst = DtoKenmerken.StukLijst Set DomKenmerken.TOBKleur = DtoKenmerken.TOBKleur Set DomKenmerken.Toepassing = DtoKenmerken.Toepassing + Set DomKenmerken.VerpakkingType = DtoKenmerken.VerpakkingType Set DomKenmerken.VoegBoven = DtoKenmerken.VoegBoven Set DomKenmerken.VoegOnder = DtoKenmerken.VoegOnder Set DomKenmerken.VoegZijkant = DtoKenmerken.VoegZijkant - + Quit DomKenmerken ]]> Index: DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml =================================================================== diff -u -r68548 -r69045 --- DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 68548) +++ DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69045) @@ -101,6 +101,10 @@ %Decimal + +%String + + DOM.PM.enu.RVGPlanmatigeAanpak @@ -133,6 +137,10 @@ DOM.PM.enu.RVGToepassing + +DOM.PM.enu.RVGVerpakkingType + + %Decimal @@ -279,6 +287,12 @@ StukLijst + +VerpakkingType + + +PlaatMateriaal + Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/RVG.cls.xml =================================================================== diff -u -r68538 -r69045 --- APPS/PM/Maatwerk/impl/KenmerkenValidator/RVG.cls.xml (.../RVG.cls.xml) (revision 68538) +++ APPS/PM/Maatwerk/impl/KenmerkenValidator/RVG.cls.xml (.../RVG.cls.xml) (revision 69045) @@ -9,6 +9,7 @@ #dim OngeldigeProperties As %ListOfDataTypes = ##class(%ListOfDataTypes).%New() Do:(RvgKenmerken.Toepassing = "") OngeldigeProperties.Insert("Toepassing") + Do:(RvgKenmerken.VerpakkingType = "") OngeldigeProperties.Insert("VerpakkingType") // Ter afwachting van verdere analyse in commentaar /*Do:(RvgKenmerken.PlanmatigeAanpak = "") OngeldigeProperties.Insert("PlanmatigAanpak") Index: APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml =================================================================== diff -u -r68548 -r69045 --- APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 68548) +++ APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69045) @@ -101,6 +101,10 @@ TECH.Numeric + +TECH.String + + DOM.PM.enu.RVGPlanmatigeAanpak @@ -133,6 +137,10 @@ DOM.PM.enu.RVGToepassing + +DOM.PM.enu.RVGVerpakkingType + + TECH.Numeric Index: DOM/PM/enu/RVGVerpakkingType.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGVerpakkingType.cls.xml (revision 0) +++ DOM/PM/enu/RVGVerpakkingType.cls.xml (revision 69045) @@ -0,0 +1,24 @@ + + + +datatype +TECH.Enumeration + + +;Pallet + + + +;Pallet + + + +1 +DOM.PM.enu.RVGVerpakkingType + + + + + + Index: ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml =================================================================== diff -u -r68962 -r69045 --- ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 68962) +++ ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69045) @@ -124,6 +124,11 @@ + +ECON.String + + + ECON.String @@ -164,6 +169,11 @@ + +ECON.String + + + ECON.String @@ -371,6 +381,12 @@ StukLijst + +VerpakkingType + + +PlaatMateriaal + Index: vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml =================================================================== diff -u -r68552 -r69045 --- vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 68552) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69045) @@ -36,6 +36,8 @@ Set RvgKenmerken.DeurSteunNaarBinnen = "false" Set RvgKenmerken.TOBKleur = ##class(DOM.PM.enu.RVGTOBKleur).Terrazwart() Set RvgKenmerken.StukLijst = "1;1.111.111.1;2;2.222.222.2;" + Set RvgKenmerken.VerpakkingType = ##class(DOM.PM.enu.RVGVerpakkingType).Pallet() + Set RvgKenmerken.PlaatMateriaal = "1700_PE_Steel_grey" Quit RvgKenmerken ]]> Index: vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml =================================================================== diff -u -r68963 -r69045 --- vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 68963) +++ vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69045) @@ -43,6 +43,8 @@ Do ..VoegToeKenmerk("Deursteunnaarbinnen", "false", RvgKenmerken) Do ..VoegToeKenmerk("Tobkleur", ##class(DOM.PM.enu.RVGTOBKleur).Terrazwart(), RvgKenmerken) Do ..VoegToeKenmerk("Stuklijst1", "1;1.111.111.1;2;2.222.222.2;", RvgKenmerken, "Data.Bomkenmerken.") + Do ..VoegToeKenmerk("Verpakkingtype", "Pallet", RvgKenmerken) + Do ..VoegToeKenmerk("Plaatmateriaal", "1700_PE_Steel_grey", RvgKenmerken) Quit RvgKenmerken ]]> Index: DOM/PM/enu/RVGVerpakkingType/AutoComplete.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGVerpakkingType/AutoComplete.cls.xml (revision 0) +++ DOM/PM/enu/RVGVerpakkingType/AutoComplete.cls.xml (revision 69045) @@ -0,0 +1,21 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +serial +1 +%SerialObject + + +%String +"Pallet" +1 +1 + + + + + Index: DOM/PM/enu/RVGVerpakkingType/Verwerker.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGVerpakkingType/Verwerker.cls.xml (revision 0) +++ DOM/PM/enu/RVGVerpakkingType/Verwerker.cls.xml (revision 69045) @@ -0,0 +1,32 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +1 +1 + + +1 +RVGVerpakkingType:DOM.PM.enu.RVGVerpakkingType + + + + +1 +1 + + + + + +