Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml
===================================================================
diff -u -r60264 -r60299
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml	(.../Test.cls.xml)	(revision 60264)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml	(.../Test.cls.xml)	(revision 60299)
@@ -127,13 +127,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: VoorWandTypeVanMBinnenlade">
-<Implementation><![CDATA[
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Version of front", "With closed front piece", "Data.Kenmerken.VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal())
-	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Version of front", "With design element", "Data.Kenmerken.VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas())
-]]></Implementation>
-</Method>
-
 <Method name="Test: RugWandMateriaal">
 <Implementation><![CDATA[
 	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Type of back", "Wood", "Data.Kenmerken.Rugwandmateriaal", ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
@@ -142,6 +135,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ConvertVersionOfFrontBlumNaarEconKenmerk">
+<Implementation><![CDATA[
+	Do ..AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken("Version of front", "With closed front piece", ##class(DOM.PM.enu.LBXLadeHoogte).K(), "Data.Kenmerken.Voorwandtypevankbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal())
+	Do ..AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken("Version of front", "With closed front piece", ##class(DOM.PM.enu.LBXLadeHoogte).M(), "Data.Kenmerken.Voorwandtypevanmbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal())
+	Do ..AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken("Version of front", "With design element", ##class(DOM.PM.enu.LBXLadeHoogte).M(), "Data.Kenmerken.Voorwandtypevanmbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas())
+	Do ..AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken("Version of front", "With high design element", ##class(DOM.PM.enu.LBXLadeHoogte).C(), "Data.Kenmerken.Voorwandtypevancbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog())
+	Do ..AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken("Version of front", "With low design element", ##class(DOM.PM.enu.LBXLadeHoogte).C(), "Data.Kenmerken.Voorwandtypevancbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag())
+	Do ..AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken("Version of front", "With cross gallery", ##class(DOM.PM.enu.LBXLadeHoogte).C(), "Data.Kenmerken.Voorwandtypevancbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling())
+]]></Implementation>
+</Method>
+
 <Method name="AssertConversieBlumKenmerkenNaarEconKenmerken">
 <FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteEconKenmerkName:%String,VerwachteKenmerkValue:%String</FormalSpec>
 <Private>1</Private>
@@ -156,6 +160,21 @@
 	Do $$$AssertEquals(Resultaat.Value, VerwachteKenmerkValue)
 ]]></Implementation>
 </Method>
+
+<Method name="AssertConversieVersionOfFrontBlumKenmerkenNaarEconKenmerken">
+<FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,LadeHoogte:%String,VerwachteEconKenmerkName:%String,VerwachteKenmerkValue:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BlumKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set BlumKenmerk.Name = BlumKenmerkName
+	Set BlumKenmerk.Value = BlumKenmerkValue
+	
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConvertVersionOfFrontBlumNaarEconKenmerk(BlumKenmerk, "LBX", LadeHoogte)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteEconKenmerkName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteKenmerkValue)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59665 -r60299
--- vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59665)
+++ vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 60299)
@@ -14,6 +14,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertBlumNaarEconKenmerk",BlumKenmerk,LadeType)
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertVersionOfFrontBlumNaarEconKenmerk">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String="",LadeHoogte:%String=""</FormalSpec>
+<ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertVersionOfFrontBlumNaarEconKenmerk",BlumKenmerk,LadeType,LadeHoogte)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59606 -r60299
--- vhTest/Fake/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59606)
+++ vhTest/Fake/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 60299)
@@ -13,6 +13,13 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertVersionOfFrontBlumNaarEconKenmerk">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String="LBX",LadeHoogte:%String</FormalSpec>
+<ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml
===================================================================
diff -u -r60264 -r60299
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml	(.../Test.cls.xml)	(revision 60264)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml	(.../Test.cls.xml)	(revision 60299)
@@ -135,6 +135,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ConvertVersionOfFrontBlumNaarEconKenmerk geeft voor TBX altijd een Onvertaalbaar kenmerk">
+<Implementation><![CDATA[
+	Set BlumKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set BlumKenmerk.Name = "Version of front"
+	Set BlumKenmerk.Value = "With cross gallery"
+	
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConvertVersionOfFrontBlumNaarEconKenmerk(BlumKenmerk, "TBX", "C")
+	
+	Do $$$AssertEquals(Resultaat.Name, ..#OnvertaalbaarKenmerk)
+	Do $$$AssertEquals(Resultaat.Value, ..#OnvertaalbaarKenmerk)
+]]></Implementation>
+</Method>
+
 <Method name="AssertConversieBlumKenmerkenNaarEconKenmerken">
 <FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteEconKenmerkName:%String,VerwachteKenmerkValue:%String,Comment:%String=""</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r60264 -r60299
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 60264)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 60299)
@@ -49,6 +49,70 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertVersionOfFrontBlumNaarEconKenmerk">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String="",LadeHoogte:%String=""</FormalSpec>
+<ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[
+	#dim BlumKenmerkValue As %String = ##class(TECH.StringUtils).ToLower(BlumKenmerk.Value)
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	
+	Set EconKenmerk.Name = ..ConvertKenmerkNameVersionOfFrontBlumNaarEconKenmerk(LadeType, LadeHoogte)
+	Set EconKenmerk.Value = ..ConvertKenmerkValueVersionOfFrontBlumNaarEconKenmerk(BlumKenmerkValue, LadeType, LadeHoogte)
+	
+	Quit EconKenmerk
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKenmerkNameVersionOfFrontBlumNaarEconKenmerk">
+<FormalSpec>LadeType:%String,LadeHoogte:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EconKenmerkNameVoorWandType As %String = ..#OnvertaalbaarKenmerk
+	
+	If (LadeType = "LBX") {
+		If (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()){
+			Set EconKenmerkNameVoorWandType = "Data.Kenmerken.Voorwandtypevancbinnenlade"
+		} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()){
+			Set EconKenmerkNameVoorWandType = "Data.Kenmerken.Voorwandtypevankbinnenlade"
+		} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()){
+			Set EconKenmerkNameVoorWandType = "Data.Kenmerken.Voorwandtypevanmbinnenlade"
+		}
+	}
+	
+	Quit EconKenmerkNameVoorWandType
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKenmerkValueVersionOfFrontBlumNaarEconKenmerk">
+<FormalSpec>BlumKenmerkValue:%String,LadeType:%String,LadeHoogte:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EconKenmerkValueVoorWandType As %String = ..#OnvertaalbaarKenmerk
+	
+	If (LadeType = "LBX") {
+		If (BlumKenmerkValue = "with closed front piece"){
+			If (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()) {
+				Set EconKenmerkValueVoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal()
+			} ElseIf (LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) {
+				Set EconKenmerkValueVoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()
+			}
+		} ElseIf (BlumKenmerkValue = "with design element"){
+			Set EconKenmerkValueVoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()
+		} ElseIf (BlumKenmerkValue = "with high design element"){
+			Set EconKenmerkValueVoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()
+		} ElseIf (BlumKenmerkValue = "with low design element"){
+			Set EconKenmerkValueVoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()
+		} ElseIf (BlumKenmerkValue = "with cross gallery"){
+			Set EconKenmerkValueVoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()
+		}
+	}
+	
+	Quit EconKenmerkValueVoorWandType
+]]></Implementation>
+</Method>
+
 <Method name="ConvertMeervoudigBlumKenmerkValueGebruik">
 <FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String</FormalSpec>
 <Private>1</Private>
@@ -91,7 +155,6 @@
 	Quit:(KenmerkNameBlumKenmerk="colour/surface of pull-out system") "Data.Kenmerken.Ladekleur"
 	Quit:(KenmerkNameBlumKenmerk=..#Latch) "Data.Kenmerken.Meenemerset"
 	Quit:(KenmerkNameBlumKenmerk="pull-out type") "Data.Kenmerken.Toepassing"
-	Quit:(KenmerkNameBlumKenmerk="version of front") "Data.Kenmerken.VoorWandTypeVanMBinnenlade"
 	Quit:(KenmerkNameBlumKenmerk="type of back") "Data.Kenmerken.Rugwandmateriaal"
 	
 	Quit ..#OnvertaalbaarKenmerk
@@ -172,8 +235,6 @@
 	Quit:(KenmerkValueBlumKenmerk="high fronted pull-out") ##class(DOM.PM.enu.LBXKlasse).Lade()
 	Quit:(KenmerkValueBlumKenmerk="drawer") ##class(DOM.PM.enu.LBXKlasse).Lade()
 	Quit:(KenmerkValueBlumKenmerk="sink drawer") ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
-	Quit:(KenmerkValueBlumKenmerk="with closed front piece") ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()
-	Quit:(KenmerkValueBlumKenmerk="with design element") ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()
 	Quit:(KenmerkValueBlumKenmerk="wood") ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
 	Quit:(KenmerkValueBlumKenmerk="chipboard back") ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
 	Quit:(KenmerkValueBlumKenmerk="steel back") ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60272 -r60299
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60272)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60299)
@@ -45,7 +45,9 @@
 	Set ..MeldingenAanGebruiker = ##class(%ListOfDataTypes).%New()
 	#dim EconConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
 	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OCCKenmerkenRequest.BlumKenmerken)
-	#dim BlumKenmerk, EconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim BlumKenmerk, EconKenmerk, BlumKenmerkVersionOfFront As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim IsBlumKenmerkVersionOfFrontAanwezig As %Boolean = $$$False
+	#dim LadeHoogte As DOM.PM.enu.LBXLadeHoogte = ""
 	#dim IsTestRequestVolgensBlumKenmerken As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test")
 	#dim LadeType As %String = ..GeefLadeType(KenmerkenIterator)
 	
@@ -54,13 +56,31 @@
 	} ElseIf ((LadeType = "TBX") || (LadeType = "LBX")) {
 		While (KenmerkenIterator.HasNext()) {
 			Set BlumKenmerk = KenmerkenIterator.Next()
-			Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType)
+			If (BlumKenmerk.Name = "Version of front") {
+				Set BlumKenmerkVersionOfFront = BlumKenmerk
+				Set IsBlumKenmerkVersionOfFrontAanwezig = $$$True
+			} Else {
+				Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType)
+				If ((EconKenmerk.Name = ..#OnvertaalbaarKenmerk) || (EconKenmerk.Value = ..#OnvertaalbaarKenmerk)) {
+					Do ..MeldingenAanGebruiker.Insert("Geen conversie voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ")
+				} Else {
+					Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
+					If (EconKenmerk.Name = "Data.Kenmerken.Ladehoogte") {
+						Set LadeHoogte = EconKenmerk.Value
+					}
+				}
+			}
+		}
+		
+		If (IsBlumKenmerkVersionOfFrontAanwezig) {
+			Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertVersionOfFrontBlumNaarEconKenmerk(BlumKenmerkVersionOfFront, LadeType, LadeHoogte)
 			If ((EconKenmerk.Name = ..#OnvertaalbaarKenmerk) || (EconKenmerk.Value = ..#OnvertaalbaarKenmerk)) {
-				Do ..MeldingenAanGebruiker.Insert("Geen conversie voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ")
+				Do ..MeldingenAanGebruiker.Insert("Geen conversie voor BlumKenmerk: '"_BlumKenmerkVersionOfFront.Name_"' met Waarde: '"_BlumKenmerkVersionOfFront.Value_"'. Mogelijke oorzaak: LadeType: '"_LadeType_"' en LadeHoogte: '"_LadeHoogte_"' zijn hiervoor noodzakelijk. ")
 			} Else {
 				Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
 			}
 		}
+		
 		Do ..VoegToeDefaults(EconConfiguratieArray, LadeType, KenmerkenIterator)
 	} Else {
 		#dim OCCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OCCKenmerkenRequest.Header
@@ -418,16 +438,6 @@
 	#dim LoggingHoofding As %String = "Binnenkomend OCC-request voor klant: '"_OCCKenmerkenRequestHeader.KlantId_"' en Personality: '"_OCCKenmerkenRequestHeader.PersonalityId_"'. "
 	Set LoggingHoofding = LoggingHoofding_"RequestId: '"_OCCKenmerkenRequestHeader.RequestId_"', SessieId: '"_OCCKenmerkenRequestHeader.SessieId_"'. "_$$$CRLF
 	
-	#dim LoggingMeldingen As %String = ""
-	#dim MeldingLogging As %String
-	#dim Melding As %String
-	#dim MeldingIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..MeldingenAanGebruiker)
-	While (MeldingIterator.HasNext()) {
-		Set Melding = MeldingIterator.Next()
-		Set MeldingLogging = "MeldingAanGebruiker: '"_Melding_"' "_$$$CRLF
-		Set LoggingMeldingen = ##class(TECH.StringUtils).Concatenate(LoggingMeldingen, MeldingLogging)
-	}
-	
 	#dim LoggingEconKenmerken As %String = ""
 	#dim EconKenmerkLogging As %String
 	#dim EconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
@@ -438,6 +448,16 @@
 		Set LoggingEconKenmerken = ##class(TECH.StringUtils).Concatenate(LoggingEconKenmerken, EconKenmerkLogging)
 	}
 	
+	#dim LoggingMeldingen As %String = ""
+	#dim MeldingLogging As %String
+	#dim Melding As %String
+	#dim MeldingIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..MeldingenAanGebruiker)
+	While (MeldingIterator.HasNext()) {
+		Set Melding = MeldingIterator.Next()
+		Set MeldingLogging = "MeldingAanGebruiker: '"_Melding_"' "_$$$CRLF
+		Set LoggingMeldingen = ##class(TECH.StringUtils).Concatenate(LoggingMeldingen, MeldingLogging)
+	}
+	
 	Do ..Logger.Info("Uitgaande OCCResponse", ##class(TECH.StringUtils).Concatenate(LoggingHoofding, LoggingMeldingen, LoggingEconKenmerken))
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60272 -r60299
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60272)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60299)
@@ -66,7 +66,7 @@
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	
 	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
-	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Inner cabinet width", "500")
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Inner cabinet width", "500")
 	Do BlumKenmerken.Insert(BlumKenmerk)
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
@@ -163,6 +163,71 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor Version of front wordt ConvertVersionOfFrontBlumNaarEconKenmerk van de OCCKenmerkenConverter aangeroepen">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
+	
+	#dim BlumKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "LEGRABOX pure, height C")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, BlumKenmerkLadehoogte)
+	#dim EconKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerkLadehoogte, "LBX").DanReturn(EconKenmerkLadehoogte)
+	
+	#dim BlumKenmerkVoorWandTypeVanCBinnenlade As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Version of front", "With high design element")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, BlumKenmerkVoorWandTypeVanCBinnenlade)
+	#dim EconKenmerkVoorWandTypeVanCBinnenlade As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Data.Kenmerken.Voorwandtypevancbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog())
+	Do ..BlumNaarEconKenmerkenConverterMock.VerwachtMethodCall("ConvertVersionOfFrontBlumNaarEconKenmerk", BlumKenmerkVoorWandTypeVanCBinnenlade, "LBX", ##class(DOM.PM.enu.LBXLadeHoogte).C()).DanReturn(EconKenmerkVoorWandTypeVanCBinnenlade)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 9)
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Variant"), "LBX", "Kenmerk 1")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladehoogte"), ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Rughoogte"), ##class(DOM.PM.enu.LBXRugHoogte).C())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandtype"), ##class(DOM.PM.enu.LBXZijWandType).Pure())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Voorwandtypevancbinnenlade"), ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1", "Default 1")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false", "Default 2")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Productiewijze"), ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), "Default 3")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Verpakkingtype"), ##class(DOM.PM.enu.LBXVerpakkingType).V1(), "Default 4")
+	Do ..BlumNaarEconKenmerkenConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Version of front wordt ConvertVersionOfFrontBlumNaarEconKenmerk van de OCCKenmerkenConverter aangeroepen =&gt; Indien Onvertaalbaar kenmerk =&gt; MeldingenAanGebruiker">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
+	
+	#dim BlumKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Construction type", "LEGRABOX pure, height C")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, BlumKenmerkLadehoogte)
+	#dim EconKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerkLadehoogte, "LBX").DanReturn(EconKenmerkLadehoogte)
+	
+	#dim BlumKenmerkVoorWandTypeVanCBinnenlade As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Version of front", "With high design element")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, BlumKenmerkVoorWandTypeVanCBinnenlade)
+	#dim EconKenmerkVoorWandTypeVanCBinnenlade As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Data.Kenmerken.Voorwandtypevancbinnenlade", ..#OnvertaalbaarKenmerk)
+	Do ..BlumNaarEconKenmerkenConverterMock.VerwachtMethodCall("ConvertVersionOfFrontBlumNaarEconKenmerk", BlumKenmerkVoorWandTypeVanCBinnenlade, "LBX", ##class(DOM.PM.enu.LBXLadeHoogte).C()).DanReturn(EconKenmerkVoorWandTypeVanCBinnenlade)
+	
+	Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 8)
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Variant"), "LBX", "Kenmerk 1")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladehoogte"), ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Rughoogte"), ##class(DOM.PM.enu.LBXRugHoogte).C())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Zijwandtype"), ##class(DOM.PM.enu.LBXZijWandType).Pure())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1", "Default 1")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false", "Default 2")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Productiewijze"), ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), "Default 3")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Verpakkingtype"), ##class(DOM.PM.enu.LBXVerpakkingType).V1(), "Default 4")
+	Do ..BlumNaarEconKenmerkenConverterMock.Verifieer()
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 2)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Geen conversie voor BlumKenmerk: 'Version of front' met Waarde: 'With high design element'. Mogelijke oorzaak: LadeType: 'LBX' en LadeHoogte: 'C' zijn hiervoor noodzakelijk. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(2), "Omdat Ladekleur niet kon geconverteerd worden kan ook de Bodemkleur niet bepaald worden bij de vertaling van BlumKenmerken naar EconKenmerken. ")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Er zijn geen MeldingenAanGebruiker">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
@@ -259,10 +324,10 @@
 	#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")
+	#dim BlumKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("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")
+	#dim EconKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Data.Kenmerken.Ladehoogte", "Voor Rughoogteconversie onbekende Ladehoogte")
 	
 	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerkLadehoogte, "TBX").DanReturn(EconKenmerkLadehoogte)
 	
@@ -279,10 +344,10 @@
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
 	
-	#dim BlumKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Construction type", "Voor Rughoogteconversie onbekende Ladehoogte")
+	#dim BlumKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("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")
+	#dim EconKenmerkLadehoogte As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Data.Kenmerken.Ladehoogte", "Voor Rughoogteconversie onbekende Ladehoogte")
 	
 	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerkLadehoogte, "LBX").DanReturn(EconKenmerkLadehoogte)
 	
@@ -321,10 +386,10 @@
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
 	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "LBX")
 	
-	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe")
+	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Unknown", "DoetErNietToe")
 	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, OnbekendBlumKenmerk)
 	
-	#dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue(..#OnvertaalbaarKenmerk, "")
+	#dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue(..#OnvertaalbaarKenmerk, "")
 	
 	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", OnbekendBlumKenmerk, "LBX").DanReturn(OnbekendEconKenmerk)
 	
@@ -342,10 +407,10 @@
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
 	Do ..SluitUitMeldingVoorLadehoogte(OCCKenmerkenRequest, "LBX")
 	
-	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe")
+	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("Unknown", "DoetErNietToe")
 	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, OnbekendBlumKenmerk)
 	
-	#dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("", ..#OnvertaalbaarKenmerk)
+	#dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("", ..#OnvertaalbaarKenmerk)
 	
 	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", OnbekendBlumKenmerk, "LBX").DanReturn(OnbekendEconKenmerk)
 	
@@ -451,7 +516,7 @@
 	If $IsObject(BlumKenmerk) {
 		Do BlumKenmerken.Insert(BlumKenmerk)
 	} Else {
-		Do BlumKenmerken.Insert(..GeefBlumKenmerkMetValue(BlumKenmerkName, BlumKenmerkValue))
+		Do BlumKenmerken.Insert(..GeefKenmerkMetValue(BlumKenmerkName, BlumKenmerkValue))
 	}
 	
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
@@ -488,9 +553,9 @@
 	#dim BlumKenmerkLadeKleur As WS.Vhisie4.OCC.dto.Kenmerk
 	
 	If (LadeType = "LBX") {
-		Set BlumKenmerkLadeKleur = ..GeefBlumKenmerkMetValue("Colour/surface of pull-out system", ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
+		Set BlumKenmerkLadeKleur = ..GeefKenmerkMetValue("Colour/surface of pull-out system", ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
 	} Else {
-		Set BlumKenmerkLadeKleur = ..GeefBlumKenmerkMetValue("Colour/surface of pull-out system", ##class(DOM.PM.enu.TBXLadeKleur).SW())
+		Set BlumKenmerkLadeKleur = ..GeefKenmerkMetValue("Colour/surface of pull-out system", ##class(DOM.PM.enu.TBXLadeKleur).SW())
 	}
 	Do BlumKenmerken.Insert(BlumKenmerkLadeKleur)
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
@@ -515,9 +580,9 @@
 	#dim BlumKenmerkLadeHoogte As WS.Vhisie4.OCC.dto.Kenmerk
 	
 	If (LadeType = "LBX") {
-		Set BlumKenmerkLadeHoogte = ..GeefBlumKenmerkMetValue("Construction type", "LEGRABOX pure, height C")
+		Set BlumKenmerkLadeHoogte = ..GeefKenmerkMetValue("Construction type", "LEGRABOX pure, height C")
 	} Else {
-		Set BlumKenmerkLadeHoogte = ..GeefBlumKenmerkMetValue("Construction type", "Height C, BOXCOVER")
+		Set BlumKenmerkLadeHoogte = ..GeefKenmerkMetValue("Construction type", "Height C, BOXCOVER")
 	}
 	Do BlumKenmerken.Insert(BlumKenmerkLadeHoogte)
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
@@ -534,7 +599,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBlumKenmerkMetValue">
+<Method name="GeefKenmerkMetValue">
 <FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
@@ -554,7 +619,7 @@
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,, LadeType)
 	
 	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
-	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("colour/surface of pull-out system", BlumKenmerkLadekleur)
+	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefKenmerkMetValue("colour/surface of pull-out system", BlumKenmerkLadekleur)
 	Do BlumKenmerken.Insert(BlumKenmerk)
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken