Index: vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59606 -r59638
--- vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59606)
+++ vhTest/Mock/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59638)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="ConvertBlumNaarEconKenmerk">
-<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String="LEGRABOX"</FormalSpec>
 <ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertBlumNaarEconKenmerk",BlumKenmerk)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertBlumNaarEconKenmerk",BlumKenmerk,LadeType)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r59630 -r59638
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 59630)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 59638)
@@ -3,32 +3,56 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: ">
+<Property name="Converter">
+<Type>WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	Set Converter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New()
-	
+ 	Do ##super()
+ 	
+ 	Set ..Converter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie van BlumKenmerken naar EconKenmerken">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Inner cabinet width", "600", "Data.Kenmerken.Corpusbreedte", "600")
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Dynamic carrying capacity", "40", "Data.Kenmerken.Draagkracht", ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "", "Data.Kenmerken.Dwarsverdelingaantal", "")
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Front fixing bracket", "EXPANDO", "Data.Kenmerken.Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Motion technology", "BLUMOTION", "Data.Kenmerken.Geleidertechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Side stabiliser", "No", "Data.Kenmerken.Heeftzijstabilisering", "false")
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Nominal length", "500", "Data.Kenmerken.Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Construction type", "LEGRABOX, height M", "Data.Kenmerken.Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).M())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Latch", "No", "Data.Kenmerken.Meenemerset", ##class(APPS.PM.enu.LBXMeenemerSet).Zonder())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Drawer", "Data.Kenmerken.Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ladekleur">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Stainless steel anti-fingerprint", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Inox())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Orion grey matt", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Polar silver matt", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).PolarZilver())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Silk white", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
+	Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Colour/Surface of pull-out system", "Terra black", "Data.Kenmerken.Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart())
+]]></Implementation>
+</Method>
+
+<Method name="AssertConversieBlumKenmerkenNaarEconKenmerken">
+<FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteEconKenmerkName:%String,VerwachteKenmerkValue:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set BlumKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
-	Set BlumKenmerk.Name = "Inner cabinet width"
-	Set BlumKenmerk.Value = "600"
+	Set BlumKenmerk.Name = BlumKenmerkName
+	Set BlumKenmerk.Value = BlumKenmerkValue
 	
-	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = Converter.ConvertBlumNaarEconKenmerk(BlumKenmerk)
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConvertBlumNaarEconKenmerk(BlumKenmerk)
 	
-	Do $$$AssertEquals(Resultaat.Name, "Data.Kenmerken.Corpusbreedte")
-	Do $$$AssertEquals(Resultaat.Value, "600")
-	
-	/*
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Corpusbreedte"), "600")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Draagkracht"), ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Dwarsverdelingaantal"), "")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Frontbevestiging"), ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Geleidertechnologie"), ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Heeftzijstabilisering"), "false")
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladediepte"), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladehoogte"), ##class(DOM.PM.enu.LBXLadeHoogte).M())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Ladekleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Meenemerset"), ##class(APPS.PM.enu.LBXMeenemerSet).Zonder())
-	Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Toepassing"), ##class(DOM.PM.enu.LBXKlasse).Lade())
-	*/
+	Do $$$AssertEquals(Resultaat.Name, VerwachteEconKenmerkName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteKenmerkValue)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml
===================================================================
diff -u -r59607 -r59638
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59607)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml	(.../OCCKenmerkenConverter.cls.xml)	(revision 59638)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MeldingenAanGebruiker">
+<Type>TECH.String</Type>
+<Collection>list</Collection>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>BlumNaarEconKenmerkenConverter:WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter=""</FormalSpec>
 <Private>1</Private>
@@ -25,24 +30,27 @@
 <FormalSpec>OCCKenmerkenRequest:WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse</ReturnType>
 <Implementation><![CDATA[
+	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 IsTestRequestVolgensBlumKenmerken As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test")
+	#dim LadeType As %String = ..GeefLadeType(KenmerkenIterator)
 	
 	If IsTestRequestVolgensBlumKenmerken {
 		Set EconConfiguratieArray = ..GeefTestEconConfiguratieArray()
-	} Else {
+	} ElseIf ((LadeType = "TANDEMBOX antaro") || (LadeType = "LEGRABOX")) {
 		While (KenmerkenIterator.HasNext()) {
 			Set BlumKenmerk = KenmerkenIterator.Next()
-			;Do ##class(Tools.Wlip).%New(191).String("BlumKenmerkName: '"_BlumKenmerk.Name_"' - BlumKenmerkValue: '"_BlumKenmerk.Value_"'")
-			Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk)
+			;Do ##class(Tools.Wlip).%New(191).String("BlumKenmerk: '"_BlumKenmerk_"' - BlumKenmerkName: '"_BlumKenmerk.Name_"' - BlumKenmerkValue: '"_BlumKenmerk.Value_"'")
+			Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk) // LadeType NOG MEE TE GEVEN !!!!!
 			Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name)
 		}
 	}
 	
 	Set NaarEconGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse).%New()
 	Set NaarEconGeconverteerdeKenmerkenResponse.EconKenmerken = EconConfiguratieArray
+	Set NaarEconGeconverteerdeKenmerkenResponse.MeldingenAanGebruiker = ..MeldingenAanGebruiker
 	
 	Quit NaarEconGeconverteerdeKenmerkenResponse
 ]]></Implementation>
@@ -101,6 +109,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeType">
+<FormalSpec>KenmerkenIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeType As %String = ""
+	#dim IsKenmerkNameGevonden As %Boolean = $$$False
+	#dim Kenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim MeldingAanGebruiker As %String
+	
+	Do KenmerkenIterator.Reset()
+	While (KenmerkenIterator.HasNext() & $$$Not(IsKenmerkNameGevonden)) {
+		Set Kenmerk = KenmerkenIterator.Next()
+		If (##class(TECH.StringUtils).ToLower(Kenmerk.Name) = "programme") {
+			Set LadeType = Kenmerk.Value
+			Set IsKenmerkNameGevonden = $$$True
+		}
+	}
+	Do KenmerkenIterator.Reset()
+	
+	If ($$$Not($$$HasLength(LadeType))) {
+		Set MeldingAanGebruiker = "Het kenmerk 'Programme' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welk 'LadeType' het gaat. "
+		Do ..MeldingenAanGebruiker.Insert(MeldingAanGebruiker)
+	} ElseIf (($$$Not(LadeType = "TANDEMBOX antaro")) && ($$$Not(LadeType = "LEGRABOX"))) {
+		Set MeldingAanGebruiker = "Het kenmerk 'Programme' bevat een ongeldige waarde om voor de vertaling van de decision list te bepalen over welk LadeType het gaat. Dit moet 'TANDEMBOX antaro' of 'LEGRABOX' zijn. "
+		Do ..MeldingenAanGebruiker.Insert(MeldingAanGebruiker)
+	}
+	
+	Quit LadeType
+]]></Implementation>
+</Method>
+
 <Method name="BevatKenmerkenIteratorKenmerk">
 <FormalSpec>KenmerkenIterator:TECH.Iterator,KenmerkName:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r59629 -r59638
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 59629)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 59638)
@@ -60,7 +60,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: MeldingenAanGebruiker wordt momenteel nog niet gebruikt en is een lege lijst">
+<Method name="Test: Er zijn geen MeldingenAanGebruiker">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1)
 	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
@@ -69,6 +69,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Er zijn geen MeldingenAanGebruiker vanwege het kenmerk &apos;Programme&apos; = &apos;TANDEMBOX antaro&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"TANDEMBOX antaro")
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zijn geen MeldingenAanGebruiker vanwege het kenmerk &apos;Programme&apos; = &apos;LEGRABOX&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"LEGRABOX")
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MeldingenAanGebruiker indien kenmerk Programme = leeg">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"")
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Het kenmerk 'Programme' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welk 'LadeType' het gaat. ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: MeldingenAanGebruiker indien kenmerk Programme = NIET leeg MAAR ook NIET &apos;TANDEMBOX antaro&apos; of &apos;LEGRABOX&apos;">
+<Implementation><![CDATA[
+	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,,"RandomLadeType")
+	#dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1), "Het kenmerk 'Programme' bevat een ongeldige waarde om voor de vertaling van de decision list te bepalen over welk LadeType het gaat. Dit moet 'TANDEMBOX antaro' of 'LEGRABOX' zijn. ")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Het Request vraagt om een test-Response">
 <Implementation><![CDATA[
 	#dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(4, $$$True)
@@ -122,6 +160,8 @@
 <Method name="Test: LBX StandaardLade">
 <Implementation><![CDATA[
 	#dim BlumKenmerken As %ListOfObjects = ##class(vhTest.Utils.Vhisie4.OCC.PM.Maatwerk.BlumLbxKenmerken).StandaardLade()
+	Do BlumKenmerken.Insert(..GeefKenmerkProgrammeMetValue())
+	
 	Set OCCKenmerkenRequest = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest).%New()
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
@@ -130,7 +170,7 @@
 	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(), 11)
+	Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 12)
 	Do ..BlumNaarEconKenmerkenConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -155,7 +195,7 @@
 </Method>
 
 <Method name="GeefRequestMetKenmerken">
-<FormalSpec>AantalKenmerken:%Integer,IsTestRequest:%Boolean=0</FormalSpec>
+<FormalSpec>AantalKenmerken:%Integer,IsTestRequest:%Boolean=0,ValueKenmerkProgramme:%String="LEGRABOX"</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest</ReturnType>
 <Implementation><![CDATA[
@@ -170,20 +210,41 @@
 		Do BlumKenmerken.Insert(Kenmerk)
 	}
 	
-	For Aantal=1:1:AantalKenmerken {
+	If (AantalKenmerken > 0) {
 		Set Kenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
-		Set Kenmerk.Name = ..#RandomKenmerkName_Aantal
-		Set Kenmerk.Value = ..#RandomKenmerkValue_Aantal
+		Set Kenmerk.Name = "Programme"
+		Set Kenmerk.Value = ValueKenmerkProgramme
 		Do BlumKenmerken.Insert(Kenmerk)
-		
 		Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", Kenmerk).DanReturn(Kenmerk)
+		
+		For Aantal=2:1:AantalKenmerken {
+			Set Kenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+			Set Kenmerk.Name = ..#RandomKenmerkName_Aantal
+			Set Kenmerk.Value = ..#RandomKenmerkValue_Aantal
+			Do BlumKenmerken.Insert(Kenmerk)
+			
+			Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", Kenmerk).DanReturn(Kenmerk)
+		}
 	}
 	
 	Set OCCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
 	Quit OCCKenmerkenRequest
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKenmerkProgrammeMetValue">
+<FormalSpec>Value:%String="LEGRABOX"</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+	Set Kenmerk.Name = "Programme"
+	Set Kenmerk.Value = Value
+	
+	Quit Kenmerk
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59628 -r59638
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59628)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59638)
@@ -14,7 +14,7 @@
 </Parameter>
 
 <Method name="ConvertBlumNaarEconKenmerk">
-<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String="LEGRABOX"</FormalSpec>
 <ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
 	// Conventie in deze klasse: Maak van BlumKenmerkNamen een klasse-parameter zodra:
@@ -26,6 +26,8 @@
 	
 	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
 	
+	// TODO: LADETYPE-CONFORME INVULLING VAN VALUES (volgens LadeType-enumeraties)
+	
 	Do ..ConvertMeervoudigBlumKenmerkValueGebruik(BlumKenmerk, EconKenmerk)
 	
 	If ($$$Not($$$HasLength(EconKenmerk.Value))) {
@@ -79,7 +81,11 @@
 	Quit:(KenmerkValueBlumKenmerk="EXPANDO") ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
 	Quit:(KenmerkValueBlumKenmerk="BLUMOTION") ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
 	Quit:(KenmerkValueBlumKenmerk="LEGRABOX, height M") ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Quit:(KenmerkValueBlumKenmerk="Stainless steel anti-fingerprint") ##class(DOM.PM.enu.LBXLadeKleur).Inox()
+	Quit:(KenmerkValueBlumKenmerk="Orion grey matt") ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Quit:(KenmerkValueBlumKenmerk="Polar silver matt") ##class(DOM.PM.enu.LBXLadeKleur).PolarZilver()
 	Quit:(KenmerkValueBlumKenmerk="Silk white") ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
+	Quit:(KenmerkValueBlumKenmerk="Terra black") ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart()
 	Quit:(KenmerkValueBlumKenmerk="Drawer") ##class(DOM.PM.enu.LBXKlasse).Lade()
 	
 	Quit KenmerkValueBlumKenmerk