Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60751 -r60753
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60751)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60753)
@@ -341,67 +341,83 @@
 		#dim ZijwandVerhogingType As %String = ""
 		
 		If (EconConfiguratieArray.IsDefined("Data.Kenmerken.Inbouwhoogte")) {
-			Set InbouwHoogte = 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()
-			}
+			Set InbouwHoogte = EconConfiguratieArray.GetAt("Data.Kenmerken.Inbouwhoogte") // Dit is de TBX-vertaling van het BlumKenmerk 'Construction type'
+			Do ..SetExtraKenmerkenVolgensInbouwHoogte(InbouwHoogte, .ZijkantHoogte, .ZijwandHoogte, .ZijwandVerhogingType, EconConfiguratieArray)
 		} 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()
+				Set ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D() 
+				// Voor 'Construction type' 'height d, double gallery' willen we Inbouwhoogte leeg laten en enkel Zijwandhoogte meegeven. 
+				// Dit om af te dwingen dat de klant voor Zijwandverhogingtype 'Reling' kan kiezen, omdat wij 'Dubbele reling' niet doen.
 			}
 		}
 		
-		If ($$$HasLength(ZijkantHoogte)) {
-			Do EconConfiguratieArray.SetAt(ZijkantHoogte, "Data.Kenmerken.Zijkanthoogte")
+		Do ..SluitInExtraKenmerkenVolgensInbouwHoogte(InbouwHoogte, ZijkantHoogte, ZijwandHoogte, ZijwandVerhogingType, EconConfiguratieArray)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SetExtraKenmerkenVolgensInbouwHoogte">
+<FormalSpec><![CDATA[InbouwHoogte:%String,&ZijkantHoogte:%String,&ZijwandHoogte:%String,&ZijwandVerhogingType:%String,EconConfiguratieArray:%ArrayOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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 {
-			Do ..MeldingenAanGebruiker.Insert("De ZijkantHoogte kon niet gevonden worden volgens InbouwHoogte '"_InbouwHoogte_"'. ")
+			Set ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M()
 		}
-		
-		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.Zijwandverhogingtype")
-		} Else {
-			Do ..MeldingenAanGebruiker.Insert("Het ZijwandVerhogingType kon niet gevonden worden volgens InbouwHoogte '"_InbouwHoogte_"'. ")
-		}
+		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()
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="SluitInExtraKenmerkenVolgensInbouwHoogte">
+<FormalSpec>InbouwHoogte:%String,ZijkantHoogte:%String,ZijwandHoogte:%String,ZijwandVerhogingType:%String,EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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.Zijwandverhogingtype")
+	} 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>
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60751 -r60753
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60751)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60753)
@@ -341,9 +341,48 @@
 </Method>
 
 <Method name="Test: TBX - MeldingenAanGebruiker indien BlumKenmerkName &apos;Construction type&apos; ontbreekt">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	
+	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "TBX")
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "TBX")
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 3)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "De ZijkantHoogte kon niet gevonden worden volgens InbouwHoogte ''. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(2), "De ZijwandHoogte kon niet gevonden worden volgens InbouwHoogte ''. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(3), "Het ZijwandVerhogingType kon niet gevonden worden volgens InbouwHoogte ''. ")
+]]></Implementation>
 </Method>
 
 <Method name="Test: TBX - MeldingenAanGebruiker indien BlumKenmerkName &apos;Construction type&apos; aanwezig =&gt; maar vertaling ervan is niet voorzien">
+<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 = "Onvoorziene waarde"
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "TBX").DanReturn(EconKenmerk)
+	
+	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "TBX")
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "TBX")
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 3)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "De ZijkantHoogte kon niet gevonden worden volgens InbouwHoogte 'Onvoorziene waarde'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(2), "De ZijwandHoogte kon niet gevonden worden volgens InbouwHoogte 'Onvoorziene waarde'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(3), "Het ZijwandVerhogingType kon niet gevonden worden volgens InbouwHoogte 'Onvoorziene waarde'. ")
+]]></Implementation>
 </Method>
 
 <Method name="Test: ProductieWijze wordt gedefault op Volledig">
@@ -519,8 +558,8 @@
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	
-	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest)
-	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest)
+	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "LBX")
 	
 	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)