Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper/TestSoortMat.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper/TestSoortMat.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper/TestSoortMat.cls.xml	(revision 58094)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper.TestSoortMat">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test AntislipFiber correcte mat soort">
+<Implementation><![CDATA[
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set IngegevenKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+
+	Do ..AssertAntislip(IngegevenKenmerken, $$$True)
+	Do ..AssertWolvilt(IngegevenKenmerken, $$$False)
+	Do ..AssertLederOfSchuimOfGlas(IngegevenKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test Wolvilt correcte mat soort">
+<Implementation><![CDATA[
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set IngegevenKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+
+	Do ..AssertAntislip(IngegevenKenmerken, $$$False)
+	Do ..AssertWolvilt(IngegevenKenmerken, $$$True)
+	Do ..AssertLederOfSchuimOfGlas(IngegevenKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test VinylFiberglass correcte mat soort">
+<Implementation><![CDATA[
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set IngegevenKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+
+	Do ..AssertAntislip(IngegevenKenmerken, $$$False)
+	Do ..AssertWolvilt(IngegevenKenmerken, $$$False)
+	Do ..AssertLederOfSchuimOfGlas(IngegevenKenmerken, $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="AssertAntislip">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set MatHelper = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper).%New()
+	Do $$$AssertEquals(MatHelper.IsAntiSlip(IngegevenKenmerken), VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertWolvilt">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set MatHelper = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper).%New()
+	Do $$$AssertEquals(MatHelper.IsWolVilt(IngegevenKenmerken), VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertLederOfSchuimOfGlas">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set MatHelper = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper).%New()
+	Do $$$AssertEquals(MatHelper.IsLederOfSchuimOfGlas(IngegevenKenmerken), VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper/IsHalffab1DimBewerkbareMat/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper/IsHalffab1DimBewerkbareMat/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper/IsHalffab1DimBewerkbareMat/Test.cls.xml	(revision 58094)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper.IsHalffab1DimBewerkbareMat.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test AntislipFiber geeft 1-dim bewerkbare mat">
+<Implementation><![CDATA[
+	Set MatHelper = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper).%New()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set IngegevenKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	
+	#dim Is1Dim As %Boolean = MatHelper.IsHalffab1DimBewerkbareMat(IngegevenKenmerken)
+	
+	Do $$$AssertTrue(MatHelper.IsHalffab1DimBewerkbareMat(IngegevenKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test VinylFiberglass geeft 1-dim bewerkbare mat">
+<Implementation><![CDATA[
+	Set MatHelper = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper).%New()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set IngegevenKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+		
+	Do $$$AssertFalse(MatHelper.IsHalffab1DimBewerkbareMat(IngegevenKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Onbekend Materiaal geeft een exceptie">
+<Implementation><![CDATA[
+	Set MatHelper = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper).%New()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set IngegevenKenmerken.Materiaal = "UT_onbekendeWaarde"
+
+	#dim Substrings as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor MAT materiaal 'UT_onbekendeWaarde' is geen definitie van Halffab1DimBewerkbareMat aanwezig")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Do MatHelper.IsHalffab1DimBewerkbareMat(IngegevenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/MAT/MatHelper.cls.xml	(revision 58094)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.MAT.MatHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Enum">
+<Type>DOM.PM.Maatwerk.MAT.impl.BaseEnums</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Enum = ##class(DOM.PM.Maatwerk.MAT.impl.BaseEnums).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsHalffab1DimBewerkbareMat">
+<Description>
+Bij matten hebben we 2 verschillende berekeningswijzen : 1-dim bewerkbare matten en 2-dim bewerkbare matten.
+Voor de builders en de kostenberekening is dit een essentieel onderscheid. </Description>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsHalffab1DimBewerkbareMat As %Boolean
+	If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.Materiaal, ..Enum.Materiaal.Antislip, ..Enum.Materiaal.AntislipFiber, ..Enum.Materiaal.Flock) {
+		Set IsHalffab1DimBewerkbareMat = $$$True
+	}
+	ElseIf ##class(TECH.StringUtils).Equals(IngegevenKenmerken.Materiaal, ..Enum.Materiaal.Wolvilt, ..Enum.Materiaal.VinylFiberglass, ..Enum.Materiaal.Leder, ..Enum.Materiaal.Geheugenschuim) {
+		Set IsHalffab1DimBewerkbareMat = $$$False
+	}
+	Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Voor MAT materiaal '"_IngegevenKenmerken.Materiaal_"' is geen definitie van Halffab1DimBewerkbareMat aanwezig.")
+	}
+	Quit IsHalffab1DimBewerkbareMat
+]]></Implementation>
+</Method>
+
+<Method name="IsAntiSlip">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(IngegevenKenmerken.Materiaal, ..Enum.Materiaal.Antislip, ..Enum.Materiaal.AntislipFiber, ..Enum.Materiaal.Flock)
+]]></Implementation>
+</Method>
+
+<Method name="IsWolVilt">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (IngegevenKenmerken.Materiaal = ..Enum.Materiaal.Wolvilt)
+]]></Implementation>
+</Method>
+
+<Method name="IsLederOfSchuimOfGlas">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(IngegevenKenmerken.Materiaal, ..Enum.Materiaal.Leder, ..Enum.Materiaal.Geheugenschuim, ..Enum.Materiaal.VinylFiberglass)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>