Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml
===================================================================
diff -u -r69346 -r69421
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69346)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69421)
@@ -52,9 +52,8 @@
 	Set KleurFront.Name = ..GeefKleurFrontName(Index)
 	#dim DikteFront As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "front thickness").Value)
 	#dim TypeMateriaal As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value)
-	#dim Leverancier As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "supplier").Value)
 	#dim Kleur As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value)
-	Set KleurFront.Value = DikteFront_"mm "_TypeMateriaal_" "_Leverancier_" "_$Replace(Kleur, "_", " ")
+	Set KleurFront.Value = DikteFront_"mm "_TypeMateriaal_" "_$Replace(Kleur, "_", " ")
 	
 	Quit KleurFront
 ]]></Implementation>
@@ -77,9 +76,8 @@
 	Set KleurFront.Name = ..GeefKleurPockBottomCoverName(Index)
 	#dim DiktePocket As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "pocket side thickness").Value)
 	#dim TypeMateriaal As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value)
-	#dim Leverancier As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "supplier").Value)
 	#dim Kleur As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value)
-	Set KleurFront.Value = DiktePocket_"mm "_TypeMateriaal_" "_Leverancier_" "_$Replace(Kleur, "_", " ")
+	Set KleurFront.Value = DiktePocket_"mm "_TypeMateriaal_" "_$Replace(Kleur, "_", " ")
 	
 	Quit KleurFront
 ]]></Implementation>