Index: DOM/PM/enu/RVGTypeMateriaalOppervlakte.cls.xml
===================================================================
diff -u -r69748 -r72921
--- DOM/PM/enu/RVGTypeMateriaalOppervlakte.cls.xml (.../RVGTypeMateriaalOppervlakte.cls.xml) (revision 69748)
+++ DOM/PM/enu/RVGTypeMateriaalOppervlakte.cls.xml (.../RVGTypeMateriaalOppervlakte.cls.xml) (revision 72921)
@@ -5,11 +5,11 @@
TECH.Enumeration
-;HPL;Melamine
+;HPL;Melamine;raw
-;HPL;Melamine
+;HPL;Melamine;raw
@@ -25,6 +25,13 @@
+
+
+1
+DOM.PM.enu.RVGTypeMateriaalOppervlakte
+
+
Index: DOM/PM/enu/RVGTypeMateriaalOppervlakte/AutoComplete.cls.xml
===================================================================
diff -u -r69748 -r72921
--- DOM/PM/enu/RVGTypeMateriaalOppervlakte/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 69748)
+++ DOM/PM/enu/RVGTypeMateriaalOppervlakte/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 72921)
@@ -22,6 +22,13 @@
1
1
+
+
+%String
+"raw"
+1
+1
+
Index: DOM/PM/enu/RVGTypeMateriaalOppervlakte/Verwerker.cls.xml
===================================================================
diff -u -r69748 -r72921
--- DOM/PM/enu/RVGTypeMateriaalOppervlakte/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 69748)
+++ DOM/PM/enu/RVGTypeMateriaalOppervlakte/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 72921)
@@ -16,6 +16,8 @@
Do ..VerwerkHPL()
} ElseIf RVGTypeMateriaalOppervlakte = "Melamine" {
Do ..VerwerkMelamine()
+ } ElseIf RVGTypeMateriaalOppervlakte = "raw" {
+ Do ..VerwerkRaw()
} Else {
Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(RVGTypeMateriaalOppervlakte,"DOM.PM.enu.RVGTypeMateriaalOppervlakte",$classname())
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -34,6 +36,12 @@
1
+
+
+1
+1
+
+