Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MATKenmerken.cls.xml
===================================================================
diff -u -r54671 -r60871
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MATKenmerken.cls.xml	(.../MATKenmerken.cls.xml)	(revision 54671)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MATKenmerken.cls.xml	(.../MATKenmerken.cls.xml)	(revision 60871)
@@ -28,6 +28,57 @@
 	quit MATKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="BisterBruinLichtDonkerVinylFiberglassMat">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	set MATKenmerken.Breedte = 600
+	set MATKenmerken.Diepte = 500
+	set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker()
+	set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+	set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	
+	quit MATKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="FlockAntracietMat">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	set MATKenmerken.Breedte = 600
+	set MATKenmerken.Diepte = 500
+	set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet()
+	set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock()
+	set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	
+	quit MATKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="FlockZwartMat">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	set MATKenmerken.Breedte = 600
+	set MATKenmerken.Diepte = 500
+	set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).FlockZwart()
+	set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock()
+	set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	
+	quit MATKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefKleurCodeVoorKorttekst/Test.cls.xml
===================================================================
diff -u -r60867 -r60871
--- vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefKleurCodeVoorKorttekst/Test.cls.xml	(.../Test.cls.xml)	(revision 60867)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefKleurCodeVoorKorttekst/Test.cls.xml	(.../Test.cls.xml)	(revision 60871)
@@ -2,6 +2,90 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.impl.DataM.DataMMATCreator.GeefKleurCodeVoorKorttekst.Test">
 <Super>vhUnitTest.TestCase</Super>
+
+<Property name="ProductSpecificatie">
+<Type>DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BerekeningsSpecificatie">
+<Type>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostItem">
+<Type>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OpzetDependencies">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Mat(), Variant, IngegevenKenmerken)
+	Set ..BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
+	
+	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
+	Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken, ..BerekeningsSpecificatie)
+	
+	Set ..KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef kleur voor kortekst van matkleur met 4 chars initialen">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
+	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).Basis())
+		
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
+	#dim KleurKorttekst = DataMMATBasisCreator.GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
+	
+	Do $$$AssertEquals(KleurKorttekst,"ANTR")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef kleur voor kortekst van matkleur minder dan 4 chars initialen">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).BisterBruinLichtDonkerVinylFiberglassMat()
+	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).Basis())
+		
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
+	#dim KleurKorttekst = DataMMATBasisCreator.GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
+	
+	Do $$$AssertEquals(KleurKorttekst,"  BS")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef kleur voor kortekst van matkleur (4 chars initialen) met matmateriaal ">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).FlockAntracietMat()
+	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).Taorbox())
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
+	#dim KleurKorttekst = DataMMATBasisCreator.GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
+	
+	Do $$$AssertEquals(KleurKorttekst,"ANTR")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef kleur voor kortekst van matkleur (minder dan 4 chars) met matmateriaal">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).FlockZwartMat()
+	Do ..OpzetDependencies(IngegevenKenmerken, ##class(DOM.PM.enu.Variant).OrgaluxOpMaat())
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
+	#dim KleurKorttekst = DataMMATBasisCreator.GeefKleurCodeVoorKorttekst(IngegevenKenmerken)
+	
+	Do $$$AssertEquals(KleurKorttekst,"   S")
+]]></Implementation>
+</Method>
 </Class>