Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59932 -r59935
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59932)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59935)
@@ -122,13 +122,12 @@
 <Implementation><![CDATA[
 	Quit:(KenmerkValueBlumKenmerk="tandembox antaro") "TBX"
 	Quit:(KenmerkValueBlumKenmerk="dowel") ##class(DOM.PM.enu.TBXFrontBevestiging).Drevel()
-	Quit:(KenmerkValueBlumKenmerk="expando") ##class(DOM.PM.enu.TBXFrontBevestiging).EXPANDO()
-	Quit:(KenmerkValueBlumKenmerk="expando t (fixing system for thin fronts)") ##class(DOM.PM.enu.TBXFrontBevestiging).ExpandoT()
+	Quit:(KenmerkValueBlumKenmerk="expando") ##class(DOM.PM.enu.TBXFrontBevestiging).Expando()
 	Quit:(KenmerkValueBlumKenmerk="screw-on") ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef()
 	Quit:(KenmerkValueBlumKenmerk="inserta") ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
-	Quit:(KenmerkValueBlumKenmerk="blumotion") ##class(DOM.PM.enu.TBXGeleiderTechnologie).BLUMOTION()
-	Quit:(KenmerkValueBlumKenmerk="tip-on") ##class(DOM.PM.enu.TBXGeleiderTechnologie).TIPON()
-	Quit:(KenmerkValueBlumKenmerk="tip-on blumotion") ##class(DOM.PM.enu.TBXGeleiderTechnologie).TIPONBLUMOTION()
+	Quit:(KenmerkValueBlumKenmerk="blumotion") ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
+	Quit:(KenmerkValueBlumKenmerk="tip-on") ##class(DOM.PM.enu.TBXGeleiderTechnologie).Tipon()
+	Quit:(KenmerkValueBlumKenmerk="tip-on blumotion") ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()
 	Quit:(KenmerkValueBlumKenmerk="height c, boxcover") ##class(DOM.PM.enu.TBXLadehoogte).C()
 	Quit:(KenmerkValueBlumKenmerk="height c, gallery") ##class(DOM.PM.enu.TBXLadehoogte).C()
 	Quit:(KenmerkValueBlumKenmerk="height d, gallery") ##class(DOM.PM.enu.TBXLadehoogte).D()
@@ -137,16 +136,13 @@
 	Quit:(KenmerkValueBlumKenmerk="height n") ##class(DOM.PM.enu.TBXLadehoogte).N()
 	Quit:(KenmerkValueBlumKenmerk="silk white") ##class(DOM.PM.enu.TBXLadeKleur).SW()
 	Quit:(KenmerkValueBlumKenmerk="terra black") ##class(DOM.PM.enu.TBXLadeKleur).BZ()
-	
-	;Quit:(KenmerkValueBlumKenmerk="drawer") ##class(DOM.PM.enu.LBXKlasse).Lade() // Bestaat niet in TBX?
-	;Quit:(KenmerkValueBlumKenmerk="sink drawer") ##class(DOM.PM.enu.LBXKlasse).Spoelbak() // Bestaat niet in TBX?
-	;Quit:(KenmerkValueBlumKenmerk="with closed front piece") ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal() // Bestaat niet in TBX?
-	;Quit:(KenmerkValueBlumKenmerk="with design element") ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas() // Bestaat niet in TBX?
-	
 	Quit:(KenmerkValueBlumKenmerk="wood") ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
 	Quit:(KenmerkValueBlumKenmerk="chipboard back") ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
 	Quit:(KenmerkValueBlumKenmerk="steel back") ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 	
+	;Quit:(KenmerkValueBlumKenmerk="drawer") ##class(DOM.PM.enu.LBXKlasse).Lade() // Bestaat niet in TBX?
+	;Quit:(KenmerkValueBlumKenmerk="sink drawer") ##class(DOM.PM.enu.LBXKlasse).Spoelbak() // Bestaat niet in TBX?
+	
 	If ($$$Not($IsValidNum(KenmerkValueBlumKenmerk))) {
 		Set KenmerkValueBlumKenmerk = ""
 	}
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml
===================================================================
diff -u -r59932 -r59935
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml	(.../Test.cls.xml)	(revision 59932)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml	(.../Test.cls.xml)	(revision 59935)
@@ -18,12 +18,6 @@
  	Do ##super()
  	
  	Set ..Converter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New()
- 	
- 	/************************************************/
- 	/*                                              */
- 	/*     TODO: VOLLEDIG TE REFACTOREN TOT TBX     */
- 	/*                                              */
- 	/************************************************/
 ]]></Implementation>
 </Method>
 
@@ -49,10 +43,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: Toepassing">
+<Method name="Test: Toepassing">
 <Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Drawer", "Data.Kenmerken.Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Sink drawer", "Data.Kenmerken.Toepassing", ##class(DOM.PM.enu.LBXKlasse).Spoelbak())
+	// Bestaat niet in TBX?
+	;Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Drawer", "Data.Kenmerken.Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade())
+	;Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Sink drawer", "Data.Kenmerken.Toepassing", ##class(DOM.PM.enu.LBXKlasse).Spoelbak())
 ]]></Implementation>
 </Method>
 
@@ -86,73 +81,54 @@
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: LadeDiepte">
+<Method name="Test: LadeDiepte">
 <Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "270", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "300", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "350", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte350())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "400", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "450", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte450())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "500", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "550", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "600", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte600())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "650", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "270", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte270())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "300", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte300())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "350", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte350())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "400", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte400())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "450", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte450())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "500", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte500())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "550", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte550())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "600", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte600())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "650", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte650())
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: Draagkracht">
+<Method name="Test: Draagkracht">
 <Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "40", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "70", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht70())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "20", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht20())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "30", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "50", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht50())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "65", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65())
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: FrontBevestiging">
+<Method name="Test: FrontBevestiging">
 <Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "Dowel", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).Drevel())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "EXPANDO", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "EXPANDO T (fixing system for thin fronts)", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).ExpandoT())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "Screw-on", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "Dowel", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.TBXFrontBevestiging).Drevel())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "EXPANDO", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.TBXFrontBevestiging).Expando())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "Screw-on", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "Inserta", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta())
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: MeenemerSet">
+<Method name="Test: GeleiderTechnologie">
 <Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Latch", "Yes", "Data.Kenmerken.Meenemerset", ##class(APPS.PM.enu.LBXMeenemerSet).VolledigeSet())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Latch", "No", "Data.Kenmerken.Meenemerset", ##class(APPS.PM.enu.LBXMeenemerSet).Zonder())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "BLUMOTION", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "TIP-ON", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.TBXGeleiderTechnologie).Tipon())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "TIP-ON BLUMOTION", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion())
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: GeleiderTechnologie">
+<Method name="Test: RugWandMateriaal">
 <Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "BLUMOTION", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "TIP-ON", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "TIP-ON BLUMOTION", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Wood", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Chipboard back", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Steel back", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: HeeftZijstabilisering">
-<Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Side stabiliser", "Yes", "Data.Kenmerken.Heeftzijstabilisering", "true")
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Side stabiliser", "No", "Data.Kenmerken.Heeftzijstabilisering", "false")
-]]></Implementation>
-</Method>
-
-<Method name="zTest: VoorWandTypeVanMBinnenlade">
-<Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Version of front", "With closed front piece", "Data.Kenmerken.VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Version of front", "With design element", "Data.Kenmerken.VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas())
-]]></Implementation>
-</Method>
-
-<Method name="zTest: RugWandMateriaal">
-<Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Wood", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Chipboard back", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Steel back", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal())
-]]></Implementation>
-</Method>
-
 <Method name="AssertConversieBlumKenmerkenNaarEconKenmerken">
 <FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteEconKenmerkName:%String,VerwachteKenmerkValue:%String,Comment:%String=""</FormalSpec>
 <Private>1</Private>