Index: ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml
===================================================================
diff -u -r51012 -r51026
--- ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml	(.../EconNaarEdi.cls.xml)	(revision 51012)
+++ ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml	(.../EconNaarEdi.cls.xml)	(revision 51026)
@@ -30,21 +30,20 @@
 <FormalSpec>EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
 <ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
-	#dim EdiKenmerken As EdiKenmerken = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	
 	Do ..Converter.Convert(EconKenmerken, EdiKenmerken, ..LadeEigenschappenConverteerOptiesEconNaarEdiTBX)
 	
-	Set EdiKenmerken.RugHoogte=$$$If($Length(EconKenmerken.RugHoogte), EconKenmerken.RugHoogte, EconKenmerken.ZijwandHoogte)
-	
 	Set:EconKenmerken.CorpusWandDikte="0" EdiKenmerken.CorpusWandDikte = ""
+	Set EdiKenmerken.RugHoogte = $$$If($Length(EconKenmerken.RugHoogte), EconKenmerken.RugHoogte, EconKenmerken.ZijwandHoogte)
 	Set EdiKenmerken.HeeftDwarsverdeling = $$$If(+EconKenmerken.DwarsverdelingAantal>0,$$$True,$$$False)
 	Set EdiKenmerken.Klasse = EconKenmerken.Toepassing
 	Set EdiKenmerken.Type = "TBX"
 	Set EdiKenmerken.GreepEnMeenemer = $Case(EconKenmerken.GreepEnMeenemer,"Zonder":"No","Greep":"Handle","Meenemer":"HandleAndLatch",:"No")
-	
 	Set EdiKenmerken.AantalDwarsverdelingen = EconKenmerken.DwarsverdelingAantal
+	Set EdiKenmerken.NietMeeleveren = ..GeefNietMeeleveren(EconKenmerken)
 	
 	Do ..ConverteerFrontOndersteuning(EconKenmerken, .EdiKenmerken)
-	Do ..ConverteerNietMeeleveren(EconKenmerken, .EdiKenmerken)
 	Do ..ConverteerZijwand(EconKenmerken, .EdiKenmerken)
 	Do ..ConverteerUitsparingen(EconKenmerken, .EdiKenmerken)
 	Do ..ConverteerMat(EconKenmerken, .EdiKenmerken)
@@ -137,22 +136,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerNietMeeleveren">
-<FormalSpec><![CDATA[EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken,&EdiKenmerken:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Method name="GeefNietMeeleveren">
+<FormalSpec>EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
 <Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Do:EconKenmerken.NietMeeleveren.FrontBevestiging="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMFB")
-	Do:EconKenmerken.NietMeeleveren.Geleider="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMCP")
-	Do:EconKenmerken.NietMeeleveren.Afdekkap="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMAK")
-	Do:EconKenmerken.NietMeeleveren.Reling="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMRL")
-	Do:EconKenmerken.NietMeeleveren.Bodemsteun="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMBDS")
-	Do:EconKenmerken.NietMeeleveren.Opvullijst="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMOVL")
-	Do:EconKenmerken.NietMeeleveren.InschuifElement="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMBS")
-	Do:EconKenmerken.NietMeeleveren.Antislipmat="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMASM")
+	#dim NietMeeleveren As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	Do:EconKenmerken.NietMeeleveren.TiponBlumotionSet="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMTOBSET")
-	Do:EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMTOBTOEB")
-	Do:EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang="true" EdiKenmerken.NietMeeleveren.InsertOrdered("NMTOBSTG")
+	Do:(EconKenmerken.NietMeeleveren.Afdekkap = "true") NietMeeleveren.Insert("NMAK")
+	Do:(EconKenmerken.NietMeeleveren.Antislipmat = "true") NietMeeleveren.Insert("NMASM")
+	Do:(EconKenmerken.NietMeeleveren.Bodemsteun = "true") NietMeeleveren.Insert("NMBDS")
+	Do:(EconKenmerken.NietMeeleveren.FrontBevestiging = "true") NietMeeleveren.Insert("NMFB")
+	Do:(EconKenmerken.NietMeeleveren.Geleider = "true") NietMeeleveren.Insert("NMCP")
+	Do:(EconKenmerken.NietMeeleveren.InschuifElement = "true") NietMeeleveren.Insert("NMBS")
+	Do:(EconKenmerken.NietMeeleveren.Opvullijst = "true") NietMeeleveren.Insert("NMOVL")
+	Do:(EconKenmerken.NietMeeleveren.Reling = "true") NietMeeleveren.Insert("NMRL")
+	Do:(EconKenmerken.NietMeeleveren.TiponBlumotionSet = "true") NietMeeleveren.Insert("NMTOBSET")
+	Do:(EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true") NietMeeleveren.Insert("NMTOBSTG")
+	Do:(EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "true") NietMeeleveren.Insert("NMTOBTOEB")
+	
+	Quit NietMeeleveren
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi/Test.cls.xml
===================================================================
diff -u -r51018 -r51026
--- vhUnitTest/ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 51018)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 51026)
@@ -16,72 +16,62 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet meeleveren bevat geen TiponBlumotion rollen">
+<Method name="Test: Niet meeleveren afzonderlijke rollen">
 <Implementation><![CDATA[
-	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade()
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSet = "false"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "false"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "false"
+	#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)
 	
-	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..Converter.Converteer(EconKenmerken)
-	
-	Do $$$AssertEquals(EdiKenmerken.NietMeeleveren.Count(), 0)
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBSET")
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBSTG")
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBTOEB")
+	While (PropertyIterator.HasNext()) {
+		#dim Property As %String = PropertyIterator.Next()
+		
+		Continue:(Property = "Spoelbakdwarslat")
+		Continue:(Property = "TiponBlumotionOnderdelen")
+		
+		If (EdiCodes.FindByKey(Property)) {
+			Do ..AssertNietMeeleveren(Property, EdiCodes.FindByKey(Property).Value)
+		} Else {
+			Do ..Fail("Geen code gevonden voor NietMeeleveren rol '" _ Property _ "'.")
+		}
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet meeleveren TiponBlumotionSet">
+<Method name="AssertNietMeeleveren">
+<FormalSpec>EconNietMeeleverenProperty:%String,VerwachteEdiCode:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade()
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSet = "true"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "false"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "false"
+	Set $Property(EconKenmerken.NietMeeleveren, EconNietMeeleverenProperty) = "true"
 	
 	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..Converter.Converteer(EconKenmerken)
 	
 	Do $$$AssertEquals(EdiKenmerken.NietMeeleveren.Count(), 1)
-	Do $$$AssertInList(EdiKenmerken.NietMeeleveren, "NMTOBSET")
-	
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBSTG")
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBTOEB")
+	Do $$$AssertInList(EdiKenmerken.NietMeeleveren, VerwachteEdiCode)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet meeleveren TiponBlumotionSynchronisatieStang">
+<Method name="GeefEdiCodes">
+<Private>1</Private>
+<ReturnType>TECH.KeyValue.List</ReturnType>
 <Implementation><![CDATA[
-	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade()
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSet = "false"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "false"
+	#dim EdiCodes As TECH.KeyValue.UniqueList = ##class(TECH.KeyValue.UniqueList).%New()
 	
-	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..Converter.Converteer(EconKenmerken)
+	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")
 	
-	Do $$$AssertEquals(EdiKenmerken.NietMeeleveren.Count(), 1)
-	Do $$$AssertInList(EdiKenmerken.NietMeeleveren, "NMTOBSTG")
-	
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBSET")
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBTOEB")
+	Quit EdiCodes
 ]]></Implementation>
 </Method>
-
-<Method name="Test: Niet meeleveren TiponBlumotionSynchronisatieToebehoren">
-<Implementation><![CDATA[
-	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade()
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSet = "false"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "false"
-	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "true"
-	
-	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..Converter.Converteer(EconKenmerken)
-	
-	Do $$$AssertEquals(EdiKenmerken.NietMeeleveren.Count(), 1)
-	Do $$$AssertInList(EdiKenmerken.NietMeeleveren, "NMTOBTOEB")
-	
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBSTG")
-	Do $$$AssertNotInList(EdiKenmerken.NietMeeleveren, "NMTOBSET")
-]]></Implementation>
-</Method>
 </Class>