Index: APPS/VKP/Klantspecifiek/NewSobelwood/VullingCodeMapping.cls.xml
===================================================================
diff -u -r51890 -r55772
--- APPS/VKP/Klantspecifiek/NewSobelwood/VullingCodeMapping.cls.xml	(.../VullingCodeMapping.cls.xml)	(revision 51890)
+++ APPS/VKP/Klantspecifiek/NewSobelwood/VullingCodeMapping.cls.xml	(.../VullingCodeMapping.cls.xml)	(revision 55772)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Klantspecifiek.NewSobelwood.VullingCodeMapping">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="GlasKleurMapping">
 <Type>%String</Type>
@@ -91,6 +91,10 @@
 	Do ..GlasKleurMapping.SetAt("ALVULCX","CX CHOCO BRUN ACIDE")
 	Do ..GlasKleurMapping.SetAt("ALVULTX","TX TERRA ACIDE")
 	Do ..GlasKleurMapping.SetAt("ALVULGX","GX GRIS PERLE ACIDE")
+	Do ..GlasKleurMapping.SetAt("ALVULKM","KM CATHEDRAL MAX")
+	Do ..GlasKleurMapping.SetAt("ALVULMS","MS MASTER SOFT FLOAT")
+	Do ..GlasKleurMapping.SetAt("ALVULMW","MW MASTER SOFT WHITE")
+	Do ..GlasKleurMapping.SetAt("ALVULMZ","MZ MASTER SOFT BLACK")
  ;	Do ..GlasKleurMapping.SetAt("ALVULLY","1023 YELLOW RICH")
 	Do ..GlasKleurMapping.SetAt("ALVULLG","1164 GREEN LUMINOUS")
 	Do ..GlasKleurMapping.SetAt("ALVULLR","1586 ROUGE LUMINEUX")
@@ -107,7 +111,7 @@
 <Method name="GeefGlasKleurVoorCode">
 <FormalSpec>VullingCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..GlasKleurMapping.GetAt($ZConvert(VullingCode,"U"))
+<Implementation><![CDATA[	Quit ..GlasKleurMapping.GetAt($$$UCase(VullingCode))
 ]]></Implementation>
 </Method>