Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60253 -r60261
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60253)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60261)
@@ -193,7 +193,7 @@
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
 	
 	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1)
-	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Omdat Ladehoogte niet kon geconverteerd worden kan ook de Rughoogte en het Zijwandtype niet bepaald worden bij de vertaling van BlumKenmerken naar EconKenmerken. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Omdat Ladehoogte niet kon geconverteerd worden kan ook de Rughoogte niet bepaald worden bij de vertaling van BlumKenmerken naar EconKenmerken. ")
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60253 -r60261
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60253)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60261)
@@ -141,7 +141,7 @@
 	Do ..VoegToeBodemKleurVolgensLadeKleur(EconConfiguratieArray, LadeType)
 	Do ..VoegToeIsBinnenladeFalseIndienNodig(EconConfiguratieArray)
 	Do ..VoegToeCorpusWanddikteEnIsBinnenbreedteIndienNodig(EconConfiguratieArray)
-	Do ..VoegToeRugHoogteEnZijWandTypeVolgensLadeHoogte(EconConfiguratieArray, LadeType)
+	Do ..VoegToeRugHoogteVolgensLadeHoogte(EconConfiguratieArray, LadeType)
 ]]></Implementation>
 </Method>
 
@@ -219,49 +219,51 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeRugHoogteEnZijWandTypeVolgensLadeHoogte">
+<Method name="VoegToeRugHoogteVolgensLadeHoogte">
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (EconConfiguratieArray.IsDefined("Data.Kenmerken.Ladehoogte")) {
 		#dim LadeHoogte As %String = EconConfiguratieArray.GetAt("Data.Kenmerken.Ladehoogte")
+		#dim RugHoogte As %String = ""
+		
 		If (LadeType = "TBX") {
-			Do ..VoegToeTbxRugHoogteVolgensLadeHoogte(EconConfiguratieArray, LadeHoogte)
+			If (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).C()) {
+				Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).C()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).D()) {
+				Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).D()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).K()) {
+				Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).K()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M()) {
+				Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).N()) {
+				Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).N()
+			}
 		} ElseIf (LadeType = "LBX") {
-			Do ..VoegToeLbxRugHoogteEnZijWandTypeVolgensLadeHoogte(EconConfiguratieArray, LadeHoogte)
+			If (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()) {
+				Set RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).F()) {
+				Set RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).F()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()) {
+				Set RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).K()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) {
+				Set RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()) {
+				Set RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).N()
+			}
 		}
+		
+		If ($$$HasLength(RugHoogte)) {
+			Do EconConfiguratieArray.SetAt(RugHoogte, "Data.Kenmerken.Rughoogte")
+		} Else {
+			Do ..MeldingenAanGebruiker.Insert("De Rughoogte kon niet gevonden worden volgens Ladehoogte '"_LadeHoogte_"'. ")
+		}
 	} Else {
-		Do ..MeldingenAanGebruiker.Insert("Omdat Ladehoogte niet kon geconverteerd worden kan ook de Rughoogte en het Zijwandtype niet bepaald worden bij de vertaling van BlumKenmerken naar EconKenmerken. ")
+		Do ..MeldingenAanGebruiker.Insert("Omdat Ladehoogte niet kon geconverteerd worden kan ook de Rughoogte niet bepaald worden bij de vertaling van BlumKenmerken naar EconKenmerken. ")
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeTbxRugHoogteVolgensLadeHoogte">
-<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeHoogte:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim RugHoogte As DOM.PM.enu.TBXRugHoogte = ""
-	
-	If (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).C()) {
-		Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).C()
-	} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).D()) {
-		Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).D()
-	} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).K()) {
-		Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).K()
-	} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M()) {
-		Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M()
-	} ElseIf (LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).N()) {
-		Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).N()
-	}
-	
-	If ($$$HasLength(RugHoogte)) {
-		Do EconConfiguratieArray.SetAt(RugHoogte, "Data.Kenmerken.Rughoogte")
-	} Else {
-		Do ..MeldingenAanGebruiker.Insert("De Rughoogte kon niet gevonden worden volgens Ladehoogte '"_LadeHoogte_"'. ")
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VoegToeLbxRugHoogteEnZijWandTypeVolgensLadeHoogte">
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeHoogte:%String</FormalSpec>
 <Private>1</Private>