Index: APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter.cls.xml
===================================================================
diff -u -r57644 -r57680
--- APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter.cls.xml	(.../TbxMatCodeConverter.cls.xml)	(revision 57644)
+++ APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter.cls.xml	(.../TbxMatCodeConverter.cls.xml)	(revision 57680)
@@ -56,20 +56,20 @@
 <Implementation><![CDATA[
 	#dim LegacyMatCode As %String = ""
 	If Product.HeeftMat {
-		If Product.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() {		
-			Set LegacyMatCode = "Z"
+		If Product.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() {
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).Zwart()
 		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart() {
-			Set LegacyMatCode = "ZW.AF"
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).ZwartAgoFiber()
 		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit() {
-			Set LegacyMatCode = "WI.AF"
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).WitAgoFiber()
 		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet() {
-			Set LegacyMatCode = "AN.AF"	
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).AntracietAgoFiber()
 		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).FlockZwart() {
-			Set LegacyMatCode = "ZW.AZ"	
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).ZwartFlock()
 		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet() {
-			Set LegacyMatCode = "AN.AZ"	
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).AntracietFlock()
 		} Else {
-			Set LegacyMatCode = "G"
+			Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
 		}
 	}
 	Quit LegacyMatCode