Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml	(revision 59770)
@@ -0,0 +1,160 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter.Tbx.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..Converter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New()
+ 	
+ 	/************************************************/
+ 	/*                                              */
+ 	/*     TODO: VOLLEDIG TE REFACTOREN TOT TBX     */
+ 	/*                                              */
+ 	/************************************************/
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie met integer als EconKenmerkValue">
+<Implementation><![CDATA[	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Inner cabinet width", "600", "Data.Kenmerken.Corpusbreedte", "600")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Dwarsverdelingaantal">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "0", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "1", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Een())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "2", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Twee())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "3", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Drie())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "4", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Vier())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "2x2", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).TweeMaalTwee())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: 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())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: IsBinnenlade">
+<Implementation><![CDATA[
+	// ("Data.Kenmerken.Isbinnenlade", "false") => Wordt opgevangen (kan enkel daar) in bovenliggende WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Inner drawer", "Data.Kenmerken.Isbinnenlade", "true")
+]]></Implementation>
+</Method>
+
+<Method name="zTest: Ladekleur">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Stainless steel anti-fingerprint", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Inox())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Orion grey matt", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Polar silver matt", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).PolarZilver())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Silk white", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Terra black", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: LadeHoogte">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX pure, height C", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX free, height C", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX pure, height F", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).F())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX, height K", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).K())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX, height M", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).M())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX, height N", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).N())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: 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())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: 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())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: 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())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: MeenemerSet">
+<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())
+]]></Implementation>
+</Method>
+
+<Method name="zTest: GeleiderTechnologie">
+<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())
+]]></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</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BlumKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set BlumKenmerk.Name = BlumKenmerkName
+	Set BlumKenmerk.Value = BlumKenmerkValue
+	
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConvertBlumNaarEconKenmerk(BlumKenmerk, "TBX")
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteEconKenmerkName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteKenmerkValue)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59759 -r59770
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59759)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59770)
@@ -63,6 +63,8 @@
 	If ((BlumKenmerk.Name = "pull-out type") && (BlumKenmerk.Value = "inner drawer")) {
 		Set EconKenmerk.Name = "Data.Kenmerken.Isbinnenlade"
 		Set EconKenmerk.Value = "true"
+	} ElseIf ((LadeType = "TBX") & (BlumKenmerk.Name = "lateral divider")) {
+		Do ..ConvertTbxKenmerkValueLateralDivider(BlumKenmerk, EconKenmerk)
 	}
 ]]></Implementation>
 </Method>
@@ -224,6 +226,28 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertTbxKenmerkValueLateralDivider">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (BlumKenmerk.Value = "0") {
+		Set EconKenmerk.Value = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()
+	} ElseIf (BlumKenmerk.Value = "1") {
+		Set EconKenmerk.Value = ##class(DOM.PM.enu.TBXDwarsverdeling).Een()
+	} ElseIf (BlumKenmerk.Value = "2") {
+		Set EconKenmerk.Value = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	} ElseIf (BlumKenmerk.Value = "3") {
+		Set EconKenmerk.Value = ##class(DOM.PM.enu.TBXDwarsverdeling).Drie()
+	} ElseIf (BlumKenmerk.Value = "4") {
+		Set EconKenmerk.Value = ##class(DOM.PM.enu.TBXDwarsverdeling).Vier()
+	} ElseIf (BlumKenmerk.Value = "2x2") {
+		Set EconKenmerk.Value = ##class(DOM.PM.enu.TBXDwarsverdeling).TweeMaalTwee()
+	} Else {
+		Do ##class(TECH.ExceptionHandler).%New().Throw(##class(TECH.Exceptions.UnimplementedException).%New("De BlumKenmerkValue '"_BlumKenmerk.Value_"' voor BlumKenmerkName '"_BlumKenmerk.Name_"', zijnde 'Dwarsverdeling' in Caché, kan voor TBX niet gevonden worden in de enumeratie DOM.PM.enu.TBXDwarsverdeling. "))
+	}
+]]></Implementation>
+</Method>
 </Class>