Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60250 -r60253
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60250)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60253)
@@ -136,6 +136,7 @@
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest)
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest)
 	
 	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
@@ -149,6 +150,7 @@
 	#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)
@@ -162,6 +164,7 @@
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"LEGRABOX")
 	
 	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)
@@ -173,6 +176,7 @@
 <Method name="Test: MeldingenAanGebruiker vanwege ontbrekende Ladekleur">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "LBX")
 	
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
 	
@@ -181,6 +185,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: MeldingenAanGebruiker vanwege ontbrekende Ladehoogte">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
+	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
+	
+	#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. ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: MeldingenAanGebruiker vanwege onconverteerbare Rughoogte">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "TBX")
+	
+	#dim BlumKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Construction type", "Voor Rughoogteconversie onbekende Ladehoogte")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, BlumKenmerkLadehoogte)
+	
+	#dim EconKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Data.Kenmerken.Ladehoogte", "Voor Rughoogteconversie onbekende Ladehoogte")
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerkLadehoogte, "TBX").DanReturn(EconKenmerkLadehoogte)
+	
+	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(), 1)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "De Rughoogte kon niet gevonden worden volgens Ladehoogte 'Voor Rughoogteconversie onbekende Ladehoogte'. ")
+]]></Implementation>
+</Method>
+
 <Method name="Test: MeldingenAanGebruiker indien kenmerk Programme = leeg">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"")
@@ -205,6 +241,7 @@
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "LBX")
 	
 	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe")
 	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, OnbekendBlumKenmerk)
@@ -225,6 +262,7 @@
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
+	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "LBX")
 	
 	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe")
 	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, OnbekendBlumKenmerk)
@@ -391,6 +429,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SluitUitMeldingVoorLadehoogte">
+<FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest,LadeType:%String="LBX"</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	#dim BlumKenmerkLadeHoogte As WS.Vhisie4.OCC.dto.Kenmerk
+	
+	If (LadeType = "LBX") {
+		Set BlumKenmerkLadeHoogte = ..GeefBlumKenmerkMetValue("Construction type", "LEGRABOX pure, height C")
+	} Else {
+		Set BlumKenmerkLadeHoogte = ..GeefBlumKenmerkMetValue("Construction type", "Height C, BOXCOVER")
+	}
+	Do BlumKenmerken.Insert(BlumKenmerkLadeHoogte)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerkLadeHoogte = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerkLadeHoogte.Name = "Data.Kenmerken.Ladehoogte"
+	If (LadeType = "LBX") {
+		Set EconKenmerkLadeHoogte.Value = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	} Else {
+		Set EconKenmerkLadeHoogte.Value = ##class(DOM.PM.enu.TBXLadehoogte).C()
+	}
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerkLadeHoogte, LadeType).DanReturn(EconKenmerkLadeHoogte)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBlumKenmerkMetValue">
 <FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60250 -r60253
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60250)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60253)
@@ -138,13 +138,14 @@
 <Implementation><![CDATA[
 	Do EconConfiguratieArray.SetAt("1", "Data.Lijn.Aantal")
 	Do EconConfiguratieArray.SetAt(##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), "Data.Kenmerken.Productiewijze")
-	Do ..VoegToeBodemKleur(EconConfiguratieArray, LadeType)
+	Do ..VoegToeBodemKleurVolgensLadeKleur(EconConfiguratieArray, LadeType)
 	Do ..VoegToeIsBinnenladeFalseIndienNodig(EconConfiguratieArray)
 	Do ..VoegToeCorpusWanddikteEnIsBinnenbreedteIndienNodig(EconConfiguratieArray)
+	Do ..VoegToeRugHoogteEnZijWandTypeVolgensLadeHoogte(EconConfiguratieArray, LadeType)
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeBodemKleur">
+<Method name="VoegToeBodemKleurVolgensLadeKleur">
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -218,6 +219,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeRugHoogteEnZijWandTypeVolgensLadeHoogte">
+<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")
+		If (LadeType = "TBX") {
+			Do ..VoegToeTbxRugHoogteVolgensLadeHoogte(EconConfiguratieArray, LadeHoogte)
+		} ElseIf (LadeType = "LBX") {
+			Do ..VoegToeLbxRugHoogteEnZijWandTypeVolgensLadeHoogte(EconConfiguratieArray, 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. ")
+	}
+]]></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>
+</Method>
+
 <Method name="GeefLadeType">
 <FormalSpec>KenmerkenIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>