Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml
===================================================================
diff -u -r69965 -r69967
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69965)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69967)
@@ -73,14 +73,19 @@
 <ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
 	Set KleurFront = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	#dim ProductieWijze As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "service levels").Value)
+
+	If ProductieWijze = "assembled" {
+		Set KleurFront = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
 		
-	Set KleurFront.Name = ..GeefKleurFrontName(Index)
-	
-	#dim DikteFront As %String = ..GeefBlumKenmerk(KenmerkenIterator, "front thickness").Value
-	#dim TypeMateriaal As %String = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value
-	#dim DecorNaam As %String = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value
+		Set KleurFront.Name = ..GeefKleurFrontName(Index)
+		
+		#dim DikteFront As %String = ..GeefBlumKenmerk(KenmerkenIterator, "front thickness").Value
+		#dim TypeMateriaal As %String = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value
+		#dim DecorNaam As %String = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value
 
-	Set KleurFront.Value = ..BepaalKleur(DecorNaam, DikteFront, "DikteFront", TypeMateriaal)
+		Set KleurFront.Value = ..BepaalKleur(DecorNaam, DikteFront, "DikteFront", TypeMateriaal)
+	}
 	
 	Quit KleurFront
 ]]></Implementation>
@@ -98,21 +103,25 @@
 <FormalSpec>KenmerkenIterator:TECH.Iterator,Index:%Integer</FormalSpec>
 <ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
-	#dim DecorNaam As %String
 	Set KleurPockBottomCover = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	#dim ProductieWijze As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "service levels").Value)
 	
-	Set KleurPockBottomCover.Name = ..GeefKleurPockBottomCoverName(Index)
-	#dim DiktePocket As %String = ..GeefBlumKenmerk(KenmerkenIterator, "pocket side thickness").Value
-	#dim TypeMateriaal As %String = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value
-	#dim MateriaalOpties As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "options").Value)
-	
-	If (MateriaalOpties = "wooden components with fronts ? two colors") {
-		Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name (material b)").Value
-	} Else {
-		Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value	
+	If ProductieWijze = "assembled" {	
+		#dim DecorNaam As %String
+			
+		Set KleurPockBottomCover.Name = ..GeefKleurPockBottomCoverName(Index)
+		#dim DiktePocket As %String = ..GeefBlumKenmerk(KenmerkenIterator, "pocket side thickness").Value
+		#dim TypeMateriaal As %String = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value
+		#dim MateriaalOpties As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "options").Value)
+		
+		If (MateriaalOpties = "wooden components with fronts ? two colors") {
+			Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name (material b)").Value
+		} Else {
+			Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value	
+		}
+		
+		Set KleurPockBottomCover.Value = ..BepaalKleur(DecorNaam, DiktePocket, "DiktePocket", TypeMateriaal)
 	}
-	
-	Set KleurPockBottomCover.Value = ..BepaalKleur(DecorNaam, DiktePocket, "DiktePocket", TypeMateriaal)
 	Quit KleurPockBottomCover
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml
===================================================================
diff -u -r69795 -r69967
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml	(.../TestGeefKleur.cls.xml)	(revision 69795)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml	(.../TestGeefKleur.cls.xml)	(revision 69967)
@@ -26,14 +26,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien KenmerkIterator leeg, wordt een lege string teruggegeven en een error gelogd en gemaild">
+<Method name="Test: Indien KenmerkIterator leeg en productiewijze assembled, wordt een lege string teruggegeven en een error gelogd en gemaild">
 <Implementation><![CDATA[
 	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurfront"
 	#dim VerwachteValue As %String = ""
 	
 	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
-	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
 	
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
 	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("ErrorMail","RVG BepaalKleur" ,"Property 'Decorname' is niet ingevuld.").DanDoeNiks().ExactAantalKeer(1)
 	Do LoggerMock.VerwachtMethodCall("ErrorMail","RVG BepaalKleur" ,"Property 'DikteFront' en/of 'TypeMateriaal' is niet ingevuld. DikteFront: '', TypeMateriaal: ''").DanDoeNiks().ExactAantalKeer(1)
@@ -48,6 +48,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien productiewijze niet voorgementeerd, geeft leeg kenmerk bij kleur front">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ""
+	#dim VerwachteValue As %String = ""
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO", "Components sized")
+	
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("ErrorMail", $$$ElkeWaarde , $$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New(, LoggerMock)
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = Converter.GeefKleurFront(KenmerkenIterator, ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteValue)
+	
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien productiewijze niet voorgementeerd, geeft leeg kenmerk bij kleur pocket">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ""
+	#dim VerwachteValue As %String = ""
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO", "Components sized")
+	
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("ErrorMail", $$$ElkeWaarde , $$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New(, LoggerMock)
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = Converter.GeefKleurPockBottomCover(KenmerkenIterator, ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteValue)
+	
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaardgedrag voor Kleur Front">
 <Implementation><![CDATA[
 	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurfront"
@@ -179,14 +221,15 @@
 </Method>
 
 <Method name="GeefRequest">
-<FormalSpec>ValueKenmerkProgramme:%String="REVEGO"</FormalSpec>
+<FormalSpec>ValueKenmerkProgramme:%String="REVEGO",ValueKenmerkProductiewijze:%String="assembled"</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest</ReturnType>
 <Implementation><![CDATA[
 	Set OPCKenmerkenRequest = ##class(WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest).%New()
 	Set BlumKenmerken = ##class(%ListOfObjects).%New()
 		
 	Do ..VoegToeVariantKenmerkInBlumKenmerkenLijst(BlumKenmerken, ValueKenmerkProgramme)
+	Do ..VoegToeProductiewijzeKenmerkInBlumKenmerkenLijst(BlumKenmerken, ValueKenmerkProductiewijze)
 	Set OPCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
 	Quit OPCKenmerkenRequest
@@ -204,6 +247,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeProductiewijzeKenmerkInBlumKenmerkenLijst">
+<FormalSpec>BlumKenmerken:%ListOfObjects,ValueKenmerkProgramme:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Kenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set Kenmerk.Name = "service levels"
+	Set Kenmerk.Value = ValueKenmerkProgramme
+	Do BlumKenmerken.Insert(Kenmerk)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDummyKenmerk">
 <FormalSpec>Name:%String="",Value:%String=""</FormalSpec>
 <Private>1</Private>