Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60748 -r60750
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60748)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60750)
@@ -331,16 +331,54 @@
 </Method>
 
 <Method name="VoegToeExtraKenmerkenVolgensConstructionType">
-<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String,KenmerkenIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String,BlumKenmerkenIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ((LadeType = "TBX") && (EconConfiguratieArray.IsDefined("Data.Kenmerken.Inbouwhoogte"))) {
-		#dim InbouwHoogte As %String = EconConfiguratieArray.GetAt("Data.Kenmerken.Inbouwhoogte")
+	If (LadeType = "TBX") {
 		#dim ZijkantHoogte As %String = ""
 		#dim ZijwandHoogte As %String = ""
 		#dim ZijwandVerhogingType As %String = ""
 		
-		// Logica...
+		If (EconConfiguratieArray.IsDefined("Data.Kenmerken.Inbouwhoogte")) {
+			#dim InbouwHoogte As %String = EconConfiguratieArray.GetAt("Data.Kenmerken.Inbouwhoogte")
+			
+			If (InbouwHoogte = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).B()) {
+				Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M()
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).B()
+				Set ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling()
+			} ElseIf (InbouwHoogte = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).CM()) {
+				Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M()
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C()
+			} ElseIf (InbouwHoogte = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).DM()) {
+				If (EconConfiguratieArray.IsDefined("Data.Kenmerken.Zijkanthoogte")) {
+					Set ZijkantHoogte = EconConfiguratieArray.GetAt("Data.Kenmerken.Zijkanthoogte")
+					If (ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).K()) {
+						Do EconConfiguratieArray.SetAt(##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).DK(), "Data.Kenmerken.Inbouwhoogte")
+					}
+				} Else {
+					Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M()
+				}
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D()
+			} ElseIf (InbouwHoogte = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).K()) {
+				Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).K()
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).K()
+				Set ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder()
+			} ElseIf (InbouwHoogte = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).M()) {
+				Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M()
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M()
+				Set ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder()
+			} ElseIf (InbouwHoogte = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).N()) {
+				Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).N()
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).N()
+				Set ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder()
+			}
+		} ElseIf (..BevatKenmerkenIteratorKenmerk(BlumKenmerkenIterator, "construction type")) {
+			#dim BlumKenmerkConstructionType As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkUitKenmerkenIteratorVolgensName(BlumKenmerkenIterator, "construction type")
+			
+			If (##class(TECH.StringUtils).ToLower(BlumKenmerkConstructionType.Value) = "height d, double gallery") {
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D()
+			}
+		}
 		
 		If ($$$HasLength(ZijkantHoogte)) {
 			Do EconConfiguratieArray.SetAt(ZijkantHoogte, "Data.Kenmerken.Zijkanthoogte")
@@ -355,7 +393,7 @@
 		}
 		
 		If ($$$HasLength(ZijwandVerhogingType)) {
-			Do EconConfiguratieArray.SetAt(ZijwandVerhogingType, "Data.Kenmerken.Rughoogte")
+			Do EconConfiguratieArray.SetAt(ZijwandVerhogingType, "Data.Kenmerken.Zijwandverhogingtype")
 		} Else {
 			;Do ..MeldingenAanGebruiker.Insert("Het ZijwandVerhogingType kon niet gevonden worden volgens InbouwHoogte '"_InbouwHoogte_"'. ")
 		}
@@ -512,7 +550,7 @@
 <Method name="GeefKenmerkUitKenmerkenIteratorVolgensName">
 <FormalSpec>KenmerkenIterator:TECH.Iterator,KenmerkName:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
+<ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
 	#dim IsKenmerkNameGevonden As %Boolean = $$$False
 	#dim Kenmerk As WS.Vhisie4.OCC.dto.Kenmerk
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60748 -r60750
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60748)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60750)
@@ -140,21 +140,206 @@
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
 	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
-	Set EconKenmerk.Name = "Data.Kenmerken.InbouwHoogte"
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
 	Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).B()
 	
 	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
 	
 	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
 	
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.InbouwHoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).B())
-	;Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.ZijkantHoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M())
-	;Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.ZijwandHoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).B())
-	;Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.ZijwandVerhogingType"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).B())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).B())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandverhogingtype"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height C, gallery&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height C, gallery")
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).CM()
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).CM())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C())
+	Do $$$AssertFalse(Resultaat.EconKenmerken.IsDefined("Data.Kenmerken.Zijwandverhogingtype"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height D, double gallery&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height D, double gallery")
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set EconKenmerk.Value = "Onvertaalbaar kenmerk"
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D())
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Geen conversie voor BlumKenmerk: 'construction type' met Waarde: 'height d, double gallery'. ")
+	Do $$$AssertFalse(Resultaat.EconKenmerken.IsDefined("Data.Kenmerken.Inbouwhoogte"))
+	Do $$$AssertFalse(Resultaat.EconKenmerken.IsDefined("Data.Kenmerken.Zijkanthoogte"))
+	Do $$$AssertFalse(Resultaat.EconKenmerken.IsDefined("Data.Kenmerken.Zijwandverhogingtype"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height D, gallery&apos; en geen BlumKenmerkName &apos;Drawer side height&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height D, gallery")
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).DM()
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).DM())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D())
+	Do $$$AssertFalse(Resultaat.EconKenmerken.IsDefined("Data.Kenmerken.Zijwandverhogingtype"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height D, gallery&apos; en BlumKenmerkName &apos;Drawer side height&apos; met Value &apos;K&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	
+	#dim ConstructionTypeBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height D, gallery")
+	Do BlumKenmerken.Insert(ConstructionTypeBlumKenmerk)
+	
+	#dim DrawerSideHeightBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Drawer side height", "K")
+	Do BlumKenmerken.Insert(DrawerSideHeightBlumKenmerk)
+	
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set ConstructionTypeEconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set ConstructionTypeEconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set ConstructionTypeEconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).DM()
+	
+	Set DrawerSideHeightEconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set DrawerSideHeightEconKenmerk.Name = "Data.Kenmerken.Zijkanthoogte"
+	Set DrawerSideHeightEconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).K()
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", ConstructionTypeBlumKenmerk, "TBX").DanReturn(ConstructionTypeEconKenmerk)
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", DrawerSideHeightBlumKenmerk, "TBX").DanReturn(DrawerSideHeightEconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).DK())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).K())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D())
+	Do $$$AssertFalse(Resultaat.EconKenmerken.IsDefined("Data.Kenmerken.Zijwandverhogingtype"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height K&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height K")
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).K()
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).K())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).K())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).K())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandverhogingtype"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder())
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height M&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height M")
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).M()
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).M())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandverhogingtype"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder())
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height N&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "Height N")
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Inbouwhoogte"
+	Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).N()
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Inbouwhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXInbouwHoogte).N())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijkanthoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).N())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandhoogte"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).N())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandverhogingtype"), ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder())
+]]></Implementation>
+</Method>
+
 <Method name="Test: ProductieWijze wordt gedefault op Volledig">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)