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
+
+
+
+
+
+