Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r60048 -r60051
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60048)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 60051)
@@ -118,10 +118,10 @@
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
 	
 	Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 4)
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Variant"), "LBX")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Productiewijze"), ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Variant"), "LBX", "Kenmerk 1")
+	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")
 ]]></Implementation>
 </Method>
 
@@ -131,12 +131,12 @@
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
 	
 	Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 6)
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Variant"), "LBX")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt(..#RandomKenmerkName_2), ..#RandomKenmerkValue_2)
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt(..#RandomKenmerkName_3), ..#RandomKenmerkValue_3)
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Productiewijze"), ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig())
+	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Variant"), "LBX", "Kenmerk 1")
+	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.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")
 ]]></Implementation>
 </Method>
 
@@ -215,15 +215,10 @@
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
 	
-	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
-	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk
-	Set OnbekendBlumKenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe")
-	Do BlumKenmerken.Insert(OnbekendBlumKenmerk)
-	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	#dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, OnbekendBlumKenmerk)
 	
-	Set OnbekendEconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
-	Set OnbekendEconKenmerk.Name = ..#OnvertaalbareBlumKenmerkName
-	Set OnbekendEconKenmerk.Value = ""
+	#dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue(..#OnvertaalbareBlumKenmerkName, "")
 	
 	Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", OnbekendBlumKenmerk, "LBX").DanReturn(OnbekendEconKenmerk)
 	
@@ -235,6 +230,49 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Uit te sluiten BlumKenmerken volgens Name of Name en Value en bijhorende MeldingenAanGebruiker">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(3)
+	Do ..SluitUitMeldingVoorBodemkleur(OCCKenmerkenRequest, "LBX")
+	
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "Language Package", "DoetErNietToe")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "Colour/Decor", "DoetErNietToe")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "Transportation lock for design elements (side)", "DoetErNietToe")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Glass BOXSIDE")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Height B, single walled BOXSIDE")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Height C, single walled BOXSIDE")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Height D, BOXCAP")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Height D, glass BOXSIDE")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Height D, double walled BOXSIDE")
+	Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, , "ConstructionType", "Height D, single walled BOXSIDE")
+	
+	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(..#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.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.MeldingenAanGebruiker.Count(), 10)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'Language Package' met Waarde: 'DoetErNietToe'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(2), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'Colour/Decor' met Waarde: 'DoetErNietToe'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(3), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'Transportation lock for design elements (side)' met Waarde: 'DoetErNietToe'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(4), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Glass BOXSIDE'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(5), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Height B, single walled BOXSIDE'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(6), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Height C, single walled BOXSIDE'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(7), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Height D, BOXCAP'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(8), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Height D, glass BOXSIDE'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(9), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Height D, double walled BOXSIDE'. ")
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(10), "Rechtmatige uitsluiting van BlumKenmerk met Naam: 'ConstructionType' met Waarde: 'Height D, single walled BOXSIDE'. ")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Het Request vraagt om een test-Response">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(4, $$$True)
@@ -301,7 +339,7 @@
 	}
 	
 	If (AantalKenmerken > 0) {
-		Do ..SluitInVariantKenmerk(BlumKenmerken, ValueKenmerkProgramme)
+		Do ..SluitInVariantKenmerkInBlumKenmerkenLijst(BlumKenmerken, ValueKenmerkProgramme)
 		
 		For Aantal=2:1:AantalKenmerken {
 			Set Kenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
@@ -320,7 +358,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SluitInVariantKenmerk">
+<Method name="SluitInBlumKenmerkInRequest">
+<FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest,BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk="",BlumKenmerkName:%String="",BlumKenmerkValue:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BlumKenmerken As %ListOfObjects = OCCKenmerkenRequest.BlumKenmerken
+	
+	If $IsObject(BlumKenmerk) {
+		Do BlumKenmerken.Insert(BlumKenmerk)
+	} Else {
+		Do BlumKenmerken.Insert(..GeefBlumKenmerkMetValue(BlumKenmerkName, BlumKenmerkValue))
+	}
+	
+	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="SluitInVariantKenmerkInBlumKenmerkenLijst">
 <FormalSpec>BlumKenmerken:%ListOfObjects,ValueKenmerkProgramme:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r59932 -r60051
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59932)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 60051)
@@ -54,10 +54,14 @@
 	} ElseIf ((LadeType = "TBX") || (LadeType = "LBX")) {
 		While (KenmerkenIterator.HasNext()) {
 			Set BlumKenmerk = KenmerkenIterator.Next()
-			Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType)
-			Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
-			If (EconKenmerk.Name = ..#OnvertaalbareBlumKenmerkName) {
-				Do ..MeldingenAanGebruiker.Insert("Conversie mislukt voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ")
+			If (..IsUitTeSluitenBlumKenmerk(BlumKenmerk)) {
+				Do ..MeldingenAanGebruiker.Insert("Rechtmatige uitsluiting van BlumKenmerk met Naam: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ")
+			} Else {
+				Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType)
+				Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
+				If (EconKenmerk.Name = ..#OnvertaalbareBlumKenmerkName) {
+					Do ..MeldingenAanGebruiker.Insert("Conversie mislukt voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ")
+				}
 			}
 		}
 		Do ..VoegToeDefaults(EconConfiguratieArray)
@@ -131,6 +135,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsUitTeSluitenBlumKenmerk">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsUitTeSluitenBlumKenmerk As %Boolean = $$$False
+	#dim BlumKenmerkNameInLower As %String = ##class(TECH.StringUtils).ToLower(BlumKenmerk.Name)
+	#dim BlumKenmerkValueInLower As %String = ##class(TECH.StringUtils).ToLower(BlumKenmerk.Value)
+	
+	If (##class(TECH.ListUtils).Contains(..GeefBlumKenmerkNamenUitsluitingslijst(), BlumKenmerkNameInLower)) {
+		Set IsUitTeSluitenBlumKenmerk = $$$True
+	} ElseIf ((BlumKenmerkNameInLower = "constructiontype") && (##class(TECH.ListUtils).Contains(..GeefBlumKenmerkValuesVoorConstructionTypeUitsluitingslijst(), BlumKenmerkValueInLower))) {
+		Set IsUitTeSluitenBlumKenmerk = $$$True
+	}
+	
+	Quit IsUitTeSluitenBlumKenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumKenmerkNamenUitsluitingslijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set BlumKenmerkNamenUitsluitingslijst = ##class(%ListOfDataTypes).%New()
+	
+	Do BlumKenmerkNamenUitsluitingslijst.Insert("language package")
+	Do BlumKenmerkNamenUitsluitingslijst.Insert("colour/decor")
+	Do BlumKenmerkNamenUitsluitingslijst.Insert("transportation lock for design elements (side)")
+	
+	Quit BlumKenmerkNamenUitsluitingslijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumKenmerkValuesVoorConstructionTypeUitsluitingslijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst = ##class(%ListOfDataTypes).%New()
+	
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("glass boxside")
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("height b, single walled boxside")
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("height c, single walled boxside")
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("height d, boxcap")
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("height d, glass boxside")
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("height d, double walled boxside")
+	Do BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst.Insert("height d, single walled boxside")
+	
+	Quit BlumKenmerkValuesVoorConstructionTypeUitsluitingslijst
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeDefaults">
 <FormalSpec>EconConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
 <Private>1</Private>