Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60744 -r60748
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60744)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60748)
@@ -130,6 +130,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: TBX - BlumKenmerkName &apos;Construction type&apos; met Value &apos;Height B, 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 B, 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).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())
+]]></Implementation>
+</Method>
+
 <Method name="Test: ProductieWijze wordt gedefault op Volledig">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60744 -r60748
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60744)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60748)
@@ -198,6 +198,7 @@
 	Do ..VoegToeIsBinnenladeFalseIndienNodig(EconConfiguratieArray)
 	Do ..VoegToeCorpusWanddikteEnIsBinnenbreedteIndienNodig(EconConfiguratieArray)
 	Do ..VoegToeRugHoogteVolgensLadeHoogte(EconConfiguratieArray, LadeType)
+	Do ..VoegToeExtraKenmerkenVolgensConstructionType(EconConfiguratieArray, LadeType, KenmerkenIterator)
 	Do ..VoegToeZijWandTypeIndienNodig(EconConfiguratieArray, LadeType, KenmerkenIterator)
 	Do ..VoegToeVerpakkingV1(EconConfiguratieArray, LadeType)
 	Do ..VoegToeZijwandVerhogingMateriaalEnZijwandVerhogingInschuifelementKleurIndienNodig(EconConfiguratieArray, LadeType, KenmerkenIterator)
@@ -282,6 +283,12 @@
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	// NOG AAN TE PASSEN... VOOR TBX = INBOUWHOOGTE IPV LADEHOOGTE (al OK in onderliggende converter, maar hier nog niet) + ONTBREKENDE TESTEN VOOR RUGHOOGTE !!!
+	// IS NOG AF TE WACHT OF BIJ TESTEN OP ACCEPT IS GEBLEKEN OF RUGHOOGTE NU WEL OF NIET MEEGEGEVEN MOET WORDEN BIJ TBX !!!
+	// Indien niet, dan mag de code hieronder voor TBX gewoon weg.
+	// Indien wel, dan moet de code hieronder dus aangepast worden.
+	// Momenteel wordt voor TBX rughoogte NIET meegegeven, want er wordt gecheckt op Ladehoogte, terwijl het bij TBX Inbouhoogte is.
+	
 	If (EconConfiguratieArray.IsDefined("Data.Kenmerken.Ladehoogte")) {
 		#dim LadeHoogte As %String = EconConfiguratieArray.GetAt("Data.Kenmerken.Ladehoogte")
 		#dim RugHoogte As %String = ""
@@ -323,6 +330,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeExtraKenmerkenVolgensConstructionType">
+<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String,KenmerkenIterator: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")
+		#dim ZijkantHoogte As %String = ""
+		#dim ZijwandHoogte As %String = ""
+		#dim ZijwandVerhogingType As %String = ""
+		
+		// Logica...
+		
+		If ($$$HasLength(ZijkantHoogte)) {
+			Do EconConfiguratieArray.SetAt(ZijkantHoogte, "Data.Kenmerken.Zijkanthoogte")
+		} Else {
+			;Do ..MeldingenAanGebruiker.Insert("De ZijkantHoogte kon niet gevonden worden volgens InbouwHoogte '"_InbouwHoogte_"'. ")
+		}
+		
+		If ($$$HasLength(ZijwandHoogte)) {
+			Do EconConfiguratieArray.SetAt(ZijwandHoogte, "Data.Kenmerken.Zijwandhoogte")
+		} Else {
+			;Do ..MeldingenAanGebruiker.Insert("De ZijwandHoogte kon niet gevonden worden volgens InbouwHoogte '"_InbouwHoogte_"'. ")
+		}
+		
+		If ($$$HasLength(ZijwandVerhogingType)) {
+			Do EconConfiguratieArray.SetAt(ZijwandVerhogingType, "Data.Kenmerken.Rughoogte")
+		} Else {
+			;Do ..MeldingenAanGebruiker.Insert("Het ZijwandVerhogingType kon niet gevonden worden volgens InbouwHoogte '"_InbouwHoogte_"'. ")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeZijWandTypeIndienNodig">
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String,KenmerkenIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>