Index: DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml
===================================================================
diff -u -r46094 -r57682
--- DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 46094)
+++ DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 57682)
@@ -24,10 +24,20 @@
 	If IngegevenKenmerken.Type = ##class(DOM.PM.enu.MatType).ORGALUX() {
 		Set Prefix = "IO"
 	}
-	Quit Prefix_"."_IngegevenKenmerken.Materiaal_$J($E(IngegevenKenmerken.Kleur,2),2)_$J(DossierNummer,4)_$J(IngegevenKenmerken.Diepte,3)_"x"_$J(IngegevenKenmerken.Breedte,4)_"  "_$J(IngegevenKenmerken.Kleur,4)
+	Quit Prefix_"."_IngegevenKenmerken.Materiaal_$J($E(IngegevenKenmerken.Kleur,2),2)_$J(DossierNummer,4)_$J(IngegevenKenmerken.Diepte,3)_"x"_$J(IngegevenKenmerken.Breedte,4)_"  "_..GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleurCodeVoorKorttekst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KleurCodeVoorKorttelkst As %String = $Piece(IngegevenKenmerken.Kleur, "-"_IngegevenKenmerken.Materiaal, 1)
+	Quit $J(KleurCodeVoorKorttelkst,4)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLangtekst">
 <FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>