Index: vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefKleurCodeVoorKorttekst/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefKleurCodeVoorKorttekst/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefKleurCodeVoorKorttekst/Test.cls.xml	(revision 60867)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.DataM.DataMMATCreator.GeefKleurCodeVoorKorttekst.Test">
+<Super>vhUnitTest.TestCase</Super>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefDimensieVoorKorttekst/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefDimensieVoorKorttekst/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMMATCreator/GeefDimensieVoorKorttekst/Test.cls.xml	(revision 60867)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.DataM.DataMMATCreator.GeefDimensieVoorKorttekst.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)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef dimensie voor kortekst in L en B formaat voor variant Basis">
+<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())
+	
+	#dim DimensieSeparator As %String = "B"
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..ProductSpecificatie, ..BerekeningsSpecificatie, ..HalffabItemsBoom, ..KostItem)
+	#dim Dimensie = DataMMATBasisCreator.GeefDimensieVoorKorttekst(IngegevenKenmerken, DimensieSeparator)
+	
+	Do ##class(Tools.Wlip).%New(43).String("Dimensie"_Dimensie)
+	//Do $$$AssertEquals($$$Length(Dimensie),8)
+	Do $$$AssertEquals(1,1)
+	Do $$$AssertEquals(Dimensie,$J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4))
+	Do $$$AssertEquals(Dimensie,"500B 600")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef dimensie voor kortekst in lengtexbreedte formaat voor variant Taor">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
+	
+	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Mat(), ##class(DOM.PM.enu.Variant).Taorbox(), 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()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
+	
+	Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
+	
+	#dim DimensieSeparator As %String = "x"
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	#dim Dimensie = DataMMATBasisCreator.GeefDimensieVoorKorttekst(IngegevenKenmerken, DimensieSeparator)
+	
+	Do ##class(Tools.Wlip).%New(43).String("Dimensie"_Dimensie)
+	//Do $$$AssertEquals($$$Length(Dimensie),8)
+	Do $$$AssertEquals(1,1)
+	Do $$$AssertEquals(Dimensie,$J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4))
+	Do $$$AssertEquals(Dimensie,"500x 600")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef dimensie voor kortekst in lengtexbreedte formaat voor variant Orgalux">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade()
+	
+	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Mat(), ##class(DOM.PM.enu.Variant).OrgaluxOpMaat(), 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()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
+	
+	Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New($$$DummyString)
+	
+	#dim DimensieSeparator As %String = "x"
+	
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	#dim Dimensie = DataMMATBasisCreator.GeefDimensieVoorKorttekst(IngegevenKenmerken, DimensieSeparator)
+	
+	Do ##class(Tools.Wlip).%New(43).String("Dimensie"_Dimensie)
+	//Do $$$AssertEquals($$$Length(Dimensie),8)
+	Do $$$AssertEquals(1,1)
+	Do $$$AssertEquals(Dimensie,$J(IngegevenKenmerken.Diepte,3)_DimensieSeparator_$J($Normalize(IngegevenKenmerken.Breedte,-1),4))
+	Do $$$AssertEquals(Dimensie,"500x 600")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r51921 -r60867
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 51921)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 60867)
@@ -31,7 +31,7 @@
 
 <Method name="Test: De Korttekst mag maximaal 25 karakters bevatten">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	Set DataMMATBasisCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(..#ProductId)
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Maximum toegelaten aantal karakters is 25. De ingegeven tekst 'Korttekst is 26 kar. lang.' is 26 lang.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))