Index: BL/PPS/TBX/WPPers.cls.xml
===================================================================
diff -u -r29059 -r37293
--- BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 37293)
@@ -68,6 +68,28 @@
 <Default>8</Default>
 </Parameter>
 
+<Property name="MatFormatter">
+<Type>APPS.Halux.PPS.impl.Formatter.Mat</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TBXMatToEnuMatConverter">
+<Type>BL.PPS.TBX.impl.TBXMatToEnuMatConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..MatFormatter = ##class(APPS.Halux.PPS.impl.Formatter.Mat).%New()
+	set ..TBXMatToEnuMatConverter = ##class(BL.PPS.TBX.impl.TBXMatToEnuMatConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="InitTest">
 <Description>
 d ##class(BL.PPS.TBX.WPPers)InitTest()</Description>
@@ -523,7 +545,7 @@
 	Set:ODSP'="" PersStatus="?"
 	Set (Info1,Info2)=""
 	Set:LT="B" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"FRONT"
-	Set:"0"'[ASM Info1=$S($L(Info1):Info1_"; ",1:"R:")_"MAT "_ASM
+	Set:"0"'[ASM Info1=$S($L(Info1):Info1_"; ",1:"R:")_"MAT "_..MatFormatter.GeefLangeNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(ASM),..TBXMatToEnuMatConverter.GeefKleur(ASM))
 	Set:ODSP'="" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPECIAAL : "_$CASE(ODSP,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:ODSP)
 	Set:IsSpoel Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPOELBAK/SYFON"
 	Set:BM="T" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"TIP-ON"