Index: DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml
===================================================================
diff -u -r42838 -r57682
--- DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 42838)
+++ DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 57682)
@@ -19,10 +19,20 @@
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
 	
-	Quit "MAT."_IngegevenKenmerken.Materiaal_"."_$J(DossierNummer,4)_".D"_IngegevenKenmerken.Diepte_"B"_$J($Normalize(IngegevenKenmerken.Breedte,-1),4)_$J(IngegevenKenmerken.Kleur,4)
+	Quit "MAT."_IngegevenKenmerken.Materiaal_"."_$J(DossierNummer,4)_".D"_IngegevenKenmerken.Diepte_"B"_$J($Normalize(IngegevenKenmerken.Breedte,-1),4)_..GeefKleurCodeVoorKorttekst(IngegevenKenmerken.Kleur)
 ]]></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="GeefClassificatie">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>