Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r59606 -r59628
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59606)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml	(.../BlumNaarEconKenmerkenConverter.cls.xml)	(revision 59628)
@@ -3,19 +3,53 @@
 <Class name="WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter.BlumNaarEconKenmerkenConverter">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="Latch">
+<Type>%String</Type>
+<Default>Latch</Default>
+</Parameter>
+
+<Parameter name="SideStabiliser">
+<Type>%String</Type>
+<Default>Side stabiliser</Default>
+</Parameter>
+
 <Method name="ConvertBlumNaarEconKenmerk">
 <FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
 <ReturnType>WS.Vhisie4.OCC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
+	// Conventie in deze klasse: Maak van BlumKenmerkNamen een klasse-parameter zodra:
+	//    1 mogelijke value ervan ook als value voor andere BlumKenmerkNamen gebruikt wordt 
+	//    EN die value daar een andere vertaling heeft naar EconValue.
+	// VOORBEELD: Latch heeft als mogelijke waarden Yes en No. Yes wordt vertaald naar VolledigeSet en No naar Zonder.
+	//            MAAR: Yes en No worden, als boolean, voor andere BlumKenmerkNamen vertaald naar true en false.
+	//            De EconValue hangt dus in dit geval af van niet enkel de BlumValue, maar ook van de BlumName.
+	
 	Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
 	
+	Do ..ConvertMeervoudigBlumKenmerkValueGebruik(BlumKenmerk, EconKenmerk)
+	
+	If ($$$Not($$$HasLength(EconKenmerk.Value))) {
+		Set EconKenmerk.Value = ..ConvertKenmerkValueBlumNaarEconKenmerk(BlumKenmerk.Value)
+	}
+	
 	Set EconKenmerk.Name = ..ConvertKenmerkNameBlumNaarEconKenmerk(BlumKenmerk.Name)
-	Set EconKenmerk.Value = ..ConvertKenmerkValueBlumNaarEconKenmerk(BlumKenmerk.Value)
 	
 	Quit EconKenmerk
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertMeervoudigBlumKenmerkValueGebruik">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..IsKenmerkValueBoolean(BlumKenmerk)) {
+		Do ..GeefKenmerkValueIsBoolean(BlumKenmerk, EconKenmerk)
+	} ElseIf ((BlumKenmerk.Value = "No") || (BlumKenmerk.Value = "Yes")) {
+		Do ..ConvertKenmerkValueYesOfNo(BlumKenmerk, EconKenmerk)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ConvertKenmerkNameBlumNaarEconKenmerk">
 <FormalSpec>KenmerkNameBlumKenmerk:%String</FormalSpec>
 <Private>1</Private>
@@ -26,11 +60,11 @@
 	Quit:(KenmerkNameBlumKenmerk="Lateral divider") "Data.Kenmerken.Dwarsverdelingaantal"
 	Quit:(KenmerkNameBlumKenmerk="Front fixing bracket") "Data.Kenmerken.Frontbevestiging"
 	Quit:(KenmerkNameBlumKenmerk="Motion technology") "Data.Kenmerken.Geleidertechnologie"
-	Quit:(KenmerkNameBlumKenmerk="Side stabiliser") "Data.Kenmerken.Heeftzijstabilisering"
+	Quit:(KenmerkNameBlumKenmerk=..#SideStabiliser) "Data.Kenmerken.Heeftzijstabilisering"
 	Quit:(KenmerkNameBlumKenmerk="Nominal length") "Data.Kenmerken.Ladediepte"
 	Quit:(KenmerkNameBlumKenmerk="Construction type") "Data.Kenmerken.Ladehoogte"
 	Quit:(KenmerkNameBlumKenmerk="Colour/Surface of pull-out system") "Data.Kenmerken.Ladekleur"
-	Quit:(KenmerkNameBlumKenmerk="Latch") "Data.Kenmerken.Meenemerset"
+	Quit:(KenmerkNameBlumKenmerk=..#Latch) "Data.Kenmerken.Meenemerset"
 	Quit:(KenmerkNameBlumKenmerk="Pull-out type") "Data.Kenmerken.Toepassing"
 	
 	Quit ""
@@ -44,7 +78,6 @@
 <Implementation><![CDATA[
 	Quit:(KenmerkValueBlumKenmerk="EXPANDO") ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
 	Quit:(KenmerkValueBlumKenmerk="BLUMOTION") ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	Quit:(KenmerkValueBlumKenmerk="No") "false"
 	Quit:(KenmerkValueBlumKenmerk="LEGRABOX, height M") ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	Quit:(KenmerkValueBlumKenmerk="Silk white") ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
 	Quit:(KenmerkValueBlumKenmerk="Drawer") ##class(DOM.PM.enu.LBXKlasse).Lade()
@@ -53,11 +86,55 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertMeervoudigGebruik">
+<Method name="IsKenmerkValueBoolean">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	// Bv "No" = soms "false" en soms ##class(APPS.PM.enu.LBXMeenemerSet).Zonder()
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// OPGELET: Het kenmerk hier enkel toevoegen als de waarde zowel in het BlumKenmerk als in het EconKenmerk een boolean is!!
+	
+	#dim BooleanKenmerkenLijst As %String = ..#SideStabiliser
+	
+	Quit ##class(TECH.StringUtils).Contains(BooleanKenmerkenLijst, BlumKenmerk.Name)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKenmerkValueIsBoolean">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If (BlumKenmerk = "Yes") {
+		Set EconKenmerk.Value = "true"
+	} Else {
+		Set EconKenmerk.Value = "false"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKenmerkValueYesOfNo">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (BlumKenmerk.Name = ..#Latch) {
+		Do ..ConvertKenmerkValueLatch(BlumKenmerk, EconKenmerk)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKenmerkValueLatch">
+<FormalSpec>BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (BlumKenmerk.Value = "No") {
+		Set EconKenmerk.Value = ##class(APPS.PM.enu.LBXMeenemerSet).Zonder()
+	} ElseIf (BlumKenmerk.Value = "Yes") {
+		Set EconKenmerk.Value = ##class(APPS.PM.enu.LBXMeenemerSet).VolledigeSet()
+	} Else {
+		// Logging geen waarde-vertaling gevonden
+	}
+]]></Implementation>
+</Method>
 </Class>