Index: vhUnitTest/ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon/Test.cls.xml	(revision 0)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon/Test.cls.xml	(revision 51043)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.ECONimpl.PM.Maatwerk.EdiConverter.EdiNaarEcon.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>ECONimpl.PM.Maatwerk.EdiConverter.EdiNaarEcon</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Converter = ##class(ECONimpl.PM.Maatwerk.EdiConverter.EdiNaarEcon).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Default staan e-con niet meeleveren rollen op false">
+<Implementation><![CDATA[
+	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ..Converter.Converteer(EdiKenmerken)
+	
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("ECON.PM.Maatwerk.dto.TbxKenmerken.NietMeeleveren")
+	#dim PropertyIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Properties)
+	
+	While (PropertyIterator.HasNext()) {
+		#dim Property As %String = PropertyIterator.Next()
+	
+		Do $$$AssertEquals($Property(EconKenmerken.NietMeeleveren, Property), "false")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Niet meeleveren afzonderlijke rollen">
+<Implementation><![CDATA[
+	#dim EdiCodes As TECH.KeyValue.UniqueList = ..GeefEdiCodes() 
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("ECON.PM.Maatwerk.dto.TbxKenmerken.NietMeeleveren")
+	#dim PropertyIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Properties)
+	
+	While (PropertyIterator.HasNext()) {
+		#dim Property As %String = PropertyIterator.Next()
+		
+		Continue:(Property = "Spoelbakdwarslat")
+		Continue:(Property = "TiponBlumotionOnderdelen")
+		
+		If (EdiCodes.FindByKey(Property)) {
+			Do ..AssertNietMeeleveren(EdiCodes.FindByKey(Property).Value, Property)
+		} Else {
+			Do ..Fail("Geen code gevonden voor NietMeeleveren rol '" _ Property _ "'.")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertNietMeeleveren">
+<FormalSpec>EdiCode:%String,VerwachteEconNietMeeleverenProperty:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
+	Do EdiKenmerken.NietMeeleveren.Insert(EdiCode)
+	
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ..Converter.Converteer(EdiKenmerken)
+	Do $$$AssertEquals($Property(EconKenmerken.NietMeeleveren, VerwachteEconNietMeeleverenProperty), "true")
+]]></Implementation>
+</Method>
+
+<Method name="GeefEdiCodes">
+<Private>1</Private>
+<ReturnType>TECH.KeyValue.List</ReturnType>
+<Implementation><![CDATA[
+	#dim EdiCodes As TECH.KeyValue.UniqueList = ##class(TECH.KeyValue.UniqueList).%New()
+	
+	Do EdiCodes.InsertKeyValue("Afdekkap", "NMAK")
+	Do EdiCodes.InsertKeyValue("Antislipmat", "NMASM")
+	Do EdiCodes.InsertKeyValue("Bodemsteun", "NMBDS")
+	Do EdiCodes.InsertKeyValue("FrontBevestiging", "NMFB")
+	Do EdiCodes.InsertKeyValue("Geleider", "NMCP")
+	Do EdiCodes.InsertKeyValue("InschuifElement", "NMBS")
+	Do EdiCodes.InsertKeyValue("Opvullijst", "NMOVL")
+	Do EdiCodes.InsertKeyValue("Reling", "NMRL")
+	Do EdiCodes.InsertKeyValue("TiponBlumotionSet", "NMTOBSET")
+	Do EdiCodes.InsertKeyValue("TiponBlumotionSynchronisatieStang", "NMTOBSTG")
+	Do EdiCodes.InsertKeyValue("TiponBlumotionSynchronisatieToebehoren", "NMTOBTOEB")
+	
+	Quit EdiCodes
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>