Index: DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml
===================================================================
diff -u -r60787 -r60857
--- DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 60787)
+++ DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 60857)
@@ -18,11 +18,19 @@
 <ReturnType>%String</ReturnType>
 <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)_..GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
+	#dim Dimensie As %String = ".D"_..GeefDimensieVoorKorttekst(IngegevenKenmerken, "B")
+	Quit "MAT."_IngegevenKenmerken.Materiaal_"."_$J(DossierNummer,4)_Dimensie_..GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDimensieVoorKorttekst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken,DimensieSeparator:%String="x"</FormalSpec>
+<Implementation><![CDATA[
+	#dim Dimensie As %String = $J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4)
+	Quit $Extract(Dimensie, 1, 8)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKleurCodeVoorKorttekst">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml
===================================================================
diff -u -r60787 -r60857
--- DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 60787)
+++ DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 60857)
@@ -24,10 +24,21 @@
 	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)_"  "_..GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
+
+	#dim Dimensie As %String = ..GeefDimensieVoorKorttekst(IngegevenKenmerken, "x")
+
+	Quit Prefix_"."_IngegevenKenmerken.Materiaal_$J($E(IngegevenKenmerken.Kleur,2),2)_$J(DossierNummer,4)_Dimensie_"  "_..GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDimensieVoorKorttekst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken,DimensieSeparator:%String="x"</FormalSpec>
+<Implementation><![CDATA[
+	#dim Dimensie As %String = $J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4)
+	Quit $Extract(Dimensie, 1, 8)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKleurCodeVoorKorttekst">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
 <Private>1</Private>