Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60051 -r60214
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60051)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60214)
@@ -38,26 +38,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bodemkleur neemt de waarde over die op Ladekleur gezet is">
+<Method name="Test: Bodemkleur wordt gezet volgens Ladekleur">
 <Implementation><![CDATA[
-	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
+	;Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.TBXLadeKleur).??(), ##class(DOM.PM.enu.TBXBodemKleur)..Lichtgrijs(), "TANDEMBOX antaro")
+	Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.TBXLadeKleur).SW(), ##class(DOM.PM.enu.TBXBodemKleur).Wit(), "TANDEMBOX antaro")
+	Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.TBXLadeKleur).BZ(), ##class(DOM.PM.enu.TBXBodemKleur).Terrazwart(), "TANDEMBOX antaro")
 	
-	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
-	#dim BlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("colour/surface of pull-out system", ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
-	Do BlumKenmerken.Insert(BlumKenmerk)
-	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
-	
-	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
-	Set EconKenmerk.Name = "Data.Kenmerken.Ladekleur"
-	Set EconKenmerk.Value = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	
-	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "LBX").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.Ladekleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Bodemkleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
+	;Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.LBXLadeKleur).Inox(), ##class(DOM.PM.enu.LBXBodemKleur).??(), "LEGRABOX")
+	Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs(), ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs(), "LEGRABOX")
+	Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.LBXLadeKleur).PolarZilver(), ##class(DOM.PM.enu.LBXBodemKleur).LichtGrijs(), "LEGRABOX")
+	Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.LBXLadeKleur).Zijdewit(), ##class(DOM.PM.enu.LBXBodemKleur).Wit(), "LEGRABOX")
+	Do ..AssertLadekleurBodemkleur(##class(DOM.PM.enu.LBXLadeKleur).Terrazwart(), ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart(), "LEGRABOX")
 ]]></Implementation>
 </Method>
 
@@ -254,7 +245,7 @@
 	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt(..#RandomKenmerkName_2), ..#RandomKenmerkValue_2, "Kenmerk 2")
 	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt(..#RandomKenmerkName_3), ..#RandomKenmerkValue_3, "Kenmerk 3")
 	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladekleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit(), "Kenmerk toegevoegd door ..SluitUitMeldingVoorBodemkleur()")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Bodemkleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit(), "Default vanwege ..SluitUitMeldingVoorBodemkleur()")
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Bodemkleur"), ##class(DOM.PM.enu.LBXBodemKleur).Wit(), "Default vanwege ..SluitUitMeldingVoorBodemkleur()")
 	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")
@@ -435,6 +426,32 @@
 	Quit Kenmerk
 ]]></Implementation>
 </Method>
+
+<Method name="AssertLadekleurBodemkleur">
+<FormalSpec>BlumKenmerkLadekleur:%String,VerwachteWaardeEconKenmerkBodemkleur:%String,LadeType:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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)
+	Do BlumKenmerken.Insert(BlumKenmerk)
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set EconKenmerk.Name = "Data.Kenmerken.Ladekleur"
+	Set EconKenmerk.Value = BlumKenmerkLadekleur
+	
+	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", BlumKenmerk, "LBX").DanReturn(EconKenmerk)
+	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.Ladekleur"), BlumKenmerkLadekleur)
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Bodemkleur"), VerwachteWaardeEconKenmerkBodemkleur)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r60051 -r60214
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60051)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60214)
@@ -64,7 +64,7 @@
 				}
 			}
 		}
-		Do ..VoegToeDefaults(EconConfiguratieArray)
+		Do ..VoegToeDefaults(EconConfiguratieArray, LadeType)
 	} Else {
 		#dim OCCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OCCKenmerkenRequest.Header
 		#dim Logging As %String = "Onvoorzien LadeType: '"_LadeType_"'. Binnenkomend OCC-request voor klant: '"_OCCKenmerkenRequestHeader.KlantId_"' en Personality: '"_OCCKenmerkenRequestHeader.PersonalityId_"'. "
@@ -187,29 +187,64 @@
 </Method>
 
 <Method name="VoegToeDefaults">
-<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
+<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String</FormalSpec>
 <Private>1</Private>
 <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)
+	Do ..VoegToeBodemKleur(EconConfiguratieArray, LadeType)
 	Do ..VoegToeIsBinnenladeFalseIndienNodig(EconConfiguratieArray)
 	Do ..VoegToeCorpusWanddikteEnIsBinnenbreedteIndienNodig(EconConfiguratieArray)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeBodemKleur">
-<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
+<FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim BodemKleur As %String
+	
 	If (EconConfiguratieArray.IsDefined("Data.Kenmerken.Ladekleur")) {
-		Do EconConfiguratieArray.SetAt(EconConfiguratieArray.GetAt("Data.Kenmerken.Ladekleur"), "Data.Kenmerken.Bodemkleur")
+		#dim LadeKleur As %String = EconConfiguratieArray.GetAt("Data.Kenmerken.Ladekleur")
+		If (LadeType = "TBX") {
+			Set BodemKleur = ..GeefTbxBodemKleurVolgensLadeKleur(LadeKleur)
+		} ElseIf (LadeType = "LBX") {
+			Set BodemKleur = ..GeefLbxBodemKleurVolgensLadeKleur(LadeKleur)
+		}
+		
+		Do EconConfiguratieArray.SetAt(BodemKleur, "Data.Kenmerken.Bodemkleur")
 	} Else {
 		Do ..MeldingenAanGebruiker.Insert("Omdat Ladekleur niet kon geconverteerd worden kan ook de Bodemkleur niet bepaald worden bij de vertaling van BlumKenmerken naar EconKenmerken. ")
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTbxBodemKleurVolgensLadeKleur">
+<FormalSpec>LadeKleur:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TBXBodemKleur</ReturnType>
+<Implementation><![CDATA[
+	;Quit:(LadeKleur=##class(DOM.PM.enu.TBXLadeKleur).??()) ##class(DOM.PM.enu.TBXBodemKleur).Lichtgrijs()
+	Quit:(LadeKleur=##class(DOM.PM.enu.TBXLadeKleur).SW()) ##class(DOM.PM.enu.TBXBodemKleur).Wit()
+	Quit:(LadeKleur=##class(DOM.PM.enu.TBXLadeKleur).BZ()) ##class(DOM.PM.enu.TBXBodemKleur).Terrazwart()
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefLbxBodemKleurVolgensLadeKleur">
+<FormalSpec>LadeKleur:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.LBXBodemKleur</ReturnType>
+<Implementation><![CDATA[
+	;Quit:(LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).Inox()) ##class(DOM.PM.enu.LBXBodemKleur).??()
+	Quit:(LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()) ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Quit:(LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).PolarZilver()) ##class(DOM.PM.enu.LBXBodemKleur).LichtGrijs()
+	Quit:(LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()) ##class(DOM.PM.enu.LBXBodemKleur).Wit()
+	Quit:(LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).Terrazwart()) ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart()
+	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeIsBinnenladeFalseIndienNodig">
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
 <Private>1</Private>