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