Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter/GeefLegacyMatCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter/GeefLegacyMatCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter/GeefLegacyMatCode/Test.cls.xml	(revision 57681)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter.GeefLegacyMatCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geen Mat aanwezig -&gt; code is leeg">
+<Implementation><![CDATA[
+	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.MatKleur = ""
+	Do ..AssertConverteerTbxMat(Product, "", "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Converteer Antractiet naar Grijs">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ..GeefEdiLadeMetMat(##class(DOM.PM.enu.MATKleur).Antraciet())
+	Do ..AssertConverteerTbxMat(Product, ##class(DOM.PM.enu.TBXAntislipmat).Grijs())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Converteer ZwartFlock">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ..GeefEdiLadeMetMat(##class(DOM.PM.enu.MATKleur).FlockZwart())
+	Do ..AssertConverteerTbxMat(Product, ##class(DOM.PM.enu.TBXAntislipmat).ZwartFlock())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Alle matkleuren NIET-ondersteund in TBX, converteren naar Grijs">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX
+	
+	#dim MatKleurenIt As TECH.Iterator = ##class(DOM.PM.enu.MATKleur).ValueListIterator()
+	While (MatKleurenIt.HasNext()) {
+		#dim MatKleur As DOM.PM.enu.MATKleur = MatKleurenIt.Next()
+		
+		If (..IsNietOndersteundInTbx(MatKleur)) {
+			Set Product = ..GeefEdiLadeMetMat(MatKleur)
+			Do ..AssertConverteerTbxMat(Product, ##class(DOM.PM.enu.TBXAntislipmat).Grijs(), "Conversie naar Grijs voor MatKleur "_MatKleur)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Alle matkleuren ondersteund in TBX, behalve Antraciet, converteren naar Niet Grijs">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX
+	
+	#dim MatKleurenIt As TECH.Iterator = ##class(DOM.PM.enu.MATKleur).ValueListIterator()
+	While (MatKleurenIt.HasNext()) {
+		#dim MatKleur As DOM.PM.enu.MATKleur = MatKleurenIt.Next()
+		
+		Continue:(..IsNietOndersteundInTbx(MatKleur))
+		Continue:(MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet())
+
+		Set Product = ..GeefEdiLadeMetMat(MatKleur)
+		Do ..AssertConverteerTbxMatNaarGeldigeCodeNietGrijs(Product)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverteerTbxMat">
+<FormalSpec>Product:APPS.EDI.common.dto.v001.LadeTBX,VerwachteMatCode:DOM.PM.enu.TBXAntislipmat,AssertMessage:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TbxProduct = ##class(APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).%New()
+	Set TbxMatCodeConverter = ##class(APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter).%New()
+
+	Do TbxMatCodeConverter.ConverteerEdiNaarLegacyMatCode(Product, TbxProduct)
+	
+	Do $$$AssertEquals(TbxProduct.ItemASM, VerwachteMatCode, AssertMessage)
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverteerTbxMatNaarGeldigeCodeNietGrijs">
+<FormalSpec>Product:APPS.EDI.common.dto.v001.LadeTBX</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MatKleur As DOM.PM.enu.MATKleur = Product.MatKleur
+	Set TbxProduct = ##class(APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).%New()
+	Set TbxMatCodeConverter = ##class(APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter).%New()
+	
+	Do TbxMatCodeConverter.ConverteerEdiNaarLegacyMatCode(Product, TbxProduct)
+	
+	If $$$AssertTrue($$$HasLength(TbxProduct.ItemASM), "ItemASM is ingevuld voor MatKleur "_MatKleur) {
+		Do $$$AssertStatusOK( ##class(DOM.PM.enu.TBXAntislipmat).IsValid(TbxProduct.ItemASM) , "Validate na conversie voor MatKleur "_MatKleur)
+		Do $$$AssertNotEquals(TbxProduct.ItemASM, ##class(DOM.PM.enu.TBXAntislipmat).Grijs(), "Conversie voor MatKleur "_MatKleur)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsNietOndersteundInTbx">
+<FormalSpec>MatKleur:DOM.PM.enu.MATKleur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(MatKleur, "BLW","OR","PG","ROT","ZW","BS","QZ","W","FGR")
+]]></Implementation>
+</Method>
+
+<Method name="GeefEdiLadeMetMat">
+<FormalSpec>MatKleur:DOM.PM.enu.MATKleur</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.HeeftMat = $$$True
+	Set Product.MatKleur = MatKleur
+	Quit Product
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>