Index: vhUnitTest/BL/PPS/TBX/impl/TBXMatToEnuMatConverter/GeefMateriaal/Test.cls.xml
===================================================================
diff -u -r37322 -r58815
--- vhUnitTest/BL/PPS/TBX/impl/TBXMatToEnuMatConverter/GeefMateriaal/Test.cls.xml	(.../Test.cls.xml)	(revision 37322)
+++ vhUnitTest/BL/PPS/TBX/impl/TBXMatToEnuMatConverter/GeefMateriaal/Test.cls.xml	(.../Test.cls.xml)	(revision 58815)
@@ -33,6 +33,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Alle AGO-Flock Matten">
+<Implementation><![CDATA[
+	Do ..AssertMatMateriaal(##class(DOM.PM.enu.TBXAntislipmat).ZwartFlock()      , ##class(DOM.PM.enu.MATMateriaal).Flock())
+	Do ..AssertMatMateriaal(##class(DOM.PM.enu.TBXAntislipmat).AntracietFlock()  , ##class(DOM.PM.enu.MATMateriaal).Flock())
+]]></Implementation>
+</Method>
+
 <Method name="Test TBXMat &apos;Geen&apos; geeft geen Materiaal">
 <Implementation><![CDATA[	Do ..AssertMatMateriaal(##class(DOM.PM.enu.TBXAntislipmat).Geen() , "")
 ]]></Implementation>
Index: vhUnitTest/BL/PPS/TBX/impl/TBXMatToEnuMatConverter/GeefKleur/Test.cls.xml
===================================================================
diff -u -r37322 -r58815
--- vhUnitTest/BL/PPS/TBX/impl/TBXMatToEnuMatConverter/GeefKleur/Test.cls.xml	(.../Test.cls.xml)	(revision 37322)
+++ vhUnitTest/BL/PPS/TBX/impl/TBXMatToEnuMatConverter/GeefKleur/Test.cls.xml	(.../Test.cls.xml)	(revision 58815)
@@ -16,15 +16,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test AGO Zwart">
+<Method name="Test Alle AGO-antislip kleuren">
 <Implementation><![CDATA[
 	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).Zwart() , ##class(DOM.PM.enu.MATKleur).ZwartAntislip())
 	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).Grijs() , ##class(DOM.PM.enu.MATKleur).Antraciet())
 	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).Rood()  , ##class(DOM.PM.enu.MATKleur).Rood())
 ]]></Implementation>
 </Method>
 
-<Method name="Test AGO-Fiber Zwart">
+<Method name="Test Alle AGO-Fiber kleuren">
 <Implementation><![CDATA[
 	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).ZwartAgoFiber()     , ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart())
 	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).WitAgoFiber()       , ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit())
@@ -33,6 +33,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Alle AGO-Flock kleuren">
+<Implementation><![CDATA[
+	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).ZwartFlock()     , ##class(DOM.PM.enu.MATKleur).FlockZwart())
+	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).AntracietFlock() , ##class(DOM.PM.enu.MATKleur).FlockAntraciet())
+]]></Implementation>
+</Method>
+
 <Method name="Test TBXMat &apos;Geen&apos; geeft geen Kleur">
 <Implementation><![CDATA[	Do ..AssertMatKleur(##class(DOM.PM.enu.TBXAntislipmat).Geen() , "")
 ]]></Implementation>
Index: BL/PPS/TBX/impl/TBXMatToEnuMatConverter.cls.xml
===================================================================
diff -u -r57671 -r58815
--- BL/PPS/TBX/impl/TBXMatToEnuMatConverter.cls.xml	(.../TBXMatToEnuMatConverter.cls.xml)	(revision 57671)
+++ BL/PPS/TBX/impl/TBXMatToEnuMatConverter.cls.xml	(.../TBXMatToEnuMatConverter.cls.xml)	(revision 58815)
@@ -16,6 +16,8 @@
 	Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).WitAgoFiber()) EnumMatKleur.AntiSlipFiberWit
 	Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).LichtgrijsAgoFiber()) EnumMatKleur.AntiSlipFiberLichtGrijs
 	Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).AntracietAgoFiber()) EnumMatKleur.AntiSlipFiberAntraciet
+	Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).ZwartFlock()) EnumMatKleur.FlockZwart
+	Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).AntracietFlock()) EnumMatKleur.FlockAntraciet
 	
 	// Wolvilt 
 	; Zie svn rev. 50128 (+revert)
@@ -34,6 +36,8 @@
 	#dim Materiaal As DOM.PM.enu.MATMateriaal = ""
 	If (TBXMat [ ".AF") {
 		Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	} ElseIf (TBXMat [ ".AZ") {
+		Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock()
 	} ElseIf (TBXMat [ ".CV") {
 		Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
 	} Else {