Index: APPS/Halux/PPS/impl/Formatter/Mat.cls.xml
===================================================================
diff -u -r37274 -r37287
--- APPS/Halux/PPS/impl/Formatter/Mat.cls.xml	(.../Mat.cls.xml)	(revision 37274)
+++ APPS/Halux/PPS/impl/Formatter/Mat.cls.xml	(.../Mat.cls.xml)	(revision 37287)
@@ -3,19 +3,47 @@
 <Class name="APPS.Halux.PPS.impl.Formatter.Mat">
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="KorteNotatieKleur">
+<Type>%String</Type>
+<Default>,BL,O,GR,R,S,BR,Q,S,A,W,W,S,A,GR</Default>
+</Parameter>
+
+<Parameter name="LangeNotatieKleur">
+<Type>%String</Type>
+<Default>,Blauw,Oranje,Grijs,Rood,Zwart,Bruin,Quartz,Zwart,Antraciet,Wit,Wit,Zwart,Antraciet,Lichtgrijs</Default>
+</Parameter>
+
+<Parameter name="KorteNotatieMateriaal">
+<Type>%String</Type>
+<Default>,W,L,S,V,A,F</Default>
+</Parameter>
+
+<Parameter name="LangeNotatieMateriaal">
+<Type>%String</Type>
+<Default>,Wolvilt,Leder,Schuim,Vinyl,Antislip,AS-Fiber</Default>
+</Parameter>
+
 <Method name="GeefKorteNotatie">
 <FormalSpec>Materiaal:DOM.PM.enu.MATMateriaal,Kleur:DOM.PM.enu.MATKleur</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit Kleur_" "_Materiaal
+<Implementation><![CDATA[	quit $piece(..#KorteNotatieMateriaal,",",..Pos(##class(DOM.PM.enu.MATMateriaal).ValueList(),Materiaal))_"/"_$piece(..#KorteNotatieKleur,",",..Pos(##class(DOM.PM.enu.MATKleur).ValueList(),Kleur))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLangeNotatie">
 <FormalSpec>Materiaal:DOM.PM.enu.MATMateriaal,Kleur:DOM.PM.enu.MATKleur</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit Kleur_" "_Materiaal
+<Implementation><![CDATA[	quit $piece(..#LangeNotatieMateriaal,",",..Pos(##class(DOM.PM.enu.MATMateriaal).ValueList(),Materiaal))_" "_$piece(..#LangeNotatieKleur,",",..Pos(##class(DOM.PM.enu.MATKleur).ValueList(),Kleur))
 ]]></Implementation>
 </Method>
+
+<Method name="Pos">
+<FormalSpec>ValueList:%ListOfDataTypes,Value:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ValueList.Find(Value)+1
+]]></Implementation>
+</Method>
 </Class>