Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml	(revision 69795)
@@ -0,0 +1,222 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter.TestGeefKleur">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="Index">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="WinkelkarInfoPrefix">
+<Type>%String</Type>
+<Default>Data.Lijn.Winkelkarinfo</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien KenmerkIterator leeg, 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)
+	
+	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)
+	
+	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: Standaardgedrag voor Kleur Front">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurfront"
+	#dim VerwachteValue As %String = "Egger F416 ST10;Beige Textile;18mm HPL"
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Front thickness", "18"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Type of material surface", "HPL"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name", "Egger F416 ST10 - Beige Textile"))
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
+	
+	Set Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = Converter.GeefKleurFront(KenmerkenIterator, ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteValue)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag voor kleur PocketBottomCover met twee kleuren">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurpockbottomcover"
+	#dim VerwachteValue As %String = "Unilin 00020 CST;Basic white;18mm HPL"
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Pocket side thickness", "18"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Type of material surface", "HPL"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Options", "Wooden components with Fronts ? Two Colors"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name", "Egger F416 ST10 - Beige Textile"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name (Material B)", "Unilin 00020 CST - Basic white"))
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
+	
+	Set Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = Converter.GeefKleurPockBottomCover(KenmerkenIterator, ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteValue)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag voor kleur PocketBottomCover met één kleur">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurpockbottomcover"
+	#dim VerwachteValue As %String = "Egger F416 ST10;Beige Textile;18mm HPL"
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Pocket side thickness", "18"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Type of material surface", "HPL"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Options", "Wooden components with Fronts ? One Color"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name", "Egger F416 ST10 - Beige Textile"))
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
+	
+	Set Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = Converter.GeefKleurPockBottomCover(KenmerkenIterator, ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteValue)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien decornaam geen &apos;-&apos; bevat, wordt de originele waarde teruggegeven en een error gelogd en gemaild">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurfront"
+	#dim VerwachteValue As %String = "Egger F416 ST10 $$ Beige Textile;18mm HPL"
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Front thickness", "18"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Type of material surface", "HPL"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name", "Egger F416 ST10 $$ Beige Textile"))
+	#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 goed ingevuld: 'Egger F416 ST10 $$ Beige Textile'").DanDoeNiks().ExactAantalKeer(1)
+	
+	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 decornaam leeg is, wordt enkel de dikte en materiaaltype teruggegeven en een error gelogd en gemaild">
+<Implementation><![CDATA[
+	#dim VerwachteName As %String = ..#WinkelkarInfoPrefix_"["_..#Index_"].Kleurfront"
+	#dim VerwachteValue As %String = "18mm HPL"
+	
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Front thickness", "18"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Type of material surface", "HPL"))
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name", ""))
+	#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)
+	
+	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="AssertConversie">
+<FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteAXKenmerkName:%String,VerwachteAXKenmerkValue:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest("REVEGO")
+	Set BlumKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set BlumKenmerk.Name = "Name"
+	Set BlumKenmerk.Value = "REVEGO duo + duo | Zonder sokkel | Fronthoogte = 2104mm"
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerk)
+	
+	
+	Set BlumKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set BlumKenmerk.Name = BlumKenmerkName
+	Set BlumKenmerk.Value = BlumKenmerkValue
+	
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo(BlumKenmerk, "dummyTaal", ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteAXKenmerkName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteAXKenmerkValue)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequest">
+<FormalSpec>ValueKenmerkProgramme:%String="REVEGO"</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)
+	Set OPCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Quit OPCKenmerkenRequest
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeVariantKenmerkInBlumKenmerkenLijst">
+<FormalSpec>BlumKenmerken:%ListOfObjects,ValueKenmerkProgramme:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Kenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set Kenmerk.Name = "Programme"
+	Set Kenmerk.Value = ValueKenmerkProgramme
+	Do BlumKenmerken.Insert(Kenmerk)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDummyKenmerk">
+<FormalSpec>Name:%String="",Value:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[
+	Set DummyKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set DummyKenmerk.Name = Name
+	Set DummyKenmerk.Value = Value
+	
+	Quit DummyKenmerk
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml
===================================================================
diff -u -r69764 -r69795
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69764)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69795)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Parameter name="WinkelkarInfoPrefix">
 <Type>%String</Type>
 <Default>Data.Lijn.Winkelkarinfo</Default>
@@ -19,15 +24,15 @@
 </Parameter>
 
 <Method name="%OnNew">
-<FormalSpec>Vertaler:DOM.common.Transl.Vertaler=""</FormalSpec>
+<FormalSpec>Vertaler:DOM.common.Transl.Vertaler="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	#dim VertaalGroepen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.common.Transl.enu.VertaalGroep).TechnischeTermen())
 	Set ..Vertaler = $$$Inject(Vertaler, ##class(DOM.common.Transl.impl.Vertaler).%New(VertaalGroepen))
-	
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("OPCService [BlumKenmerkNaarWinkelkarLijnInfoConverter]"))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -69,18 +74,13 @@
 	Set KleurFront = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
 	
 	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 Kleur As %String = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value)
-	// 18
-	// HPL
-	// Egger F416 ST10 - Beige Textile
 	
-	// 18mm HPL
-	// Egger F416 ST10
-	// Beige Textile
-	Set KleurFront.Value = DikteFront_"mm "_TypeMateriaal_" "_$Replace(Kleur, "_", " ")
-	
+	#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)
+
 	Quit KleurFront
 ]]></Implementation>
 </Method>
@@ -97,23 +97,23 @@
 <FormalSpec>KenmerkenIterator:TECH.Iterator,Index:%Integer</FormalSpec>
 <ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
-	#dim Kleur As %String
-	Set KleurFront = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	#dim DecorNaam As %String
+	Set KleurPockBottomCover = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
 	
-	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)
+	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 Kleur = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "decor name (material b)").Value)	
+		Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name (material b)").Value
 	} Else {
-		Set Kleur = ##class(TECH.StringUtils).ToLower(..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value)	
+		Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value	
 	}
 	
-	Set KleurFront.Value = DiktePocket_"mm "_TypeMateriaal_" "_$Replace(Kleur, "_", " ")
+	Set KleurPockBottomCover.Value = ..BepaalKleur(DecorNaam, DiktePocket, "DiktePocket", TypeMateriaal)
 	
-	Quit KleurFront
+	Quit KleurPockBottomCover
 ]]></Implementation>
 </Method>
 
@@ -125,6 +125,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalKleur">
+<FormalSpec>DecorNaam:%String,Dikte:%String,PropertyNaamDike:%String,TypeMateriaal:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %String = ""
+	
+	#dim LijstDecornummerEnKleur As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(DecorNaam, " - ")
+
+	If (LijstDecornummerEnKleur.Size = 2) {
+		#dim Decornummer As %String = LijstDecornummerEnKleur.GetAt(1)
+		#dim Kleur As %String = LijstDecornummerEnKleur.GetAt(2)
+
+		Set Resultaat = Decornummer _ ";" _ Kleur _ ";" 
+	} ElseIf (LijstDecornummerEnKleur.Size = 1) {
+		Set Resultaat = DecorNaam _ ";"
+		
+		Do ..Logger.ErrorMail("RVG BepaalKleur", "Property 'Decorname' is niet goed ingevuld: '" _ DecorNaam _ "'")
+	} Else {
+		Do ..Logger.ErrorMail("RVG BepaalKleur", "Property 'Decorname' is niet ingevuld.")
+	}
+
+	If ($$$HasLength(Dikte) && $$$HasLength(TypeMateriaal)) {
+		Set Resultaat = Resultaat _ Dikte _ "mm " _ TypeMateriaal
+	} Else {
+		Do ..Logger.ErrorMail("RVG BepaalKleur", "Property '" _ PropertyNaamDike _ "' en/of 'TypeMateriaal' is niet ingevuld. " _ PropertyNaamDike _ ": '" _ Dikte _ "', TypeMateriaal: '" _ TypeMateriaal _ "'")
+	}
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="GeefGroepering">
 <FormalSpec>KenmerkenIterator:TECH.Iterator,Index:%Integer,Taal:DOM.enu.Taal</FormalSpec>
 <ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
@@ -207,8 +239,6 @@
 <Implementation><![CDATA[
 	#dim VertaaldeKenmerkValue = ..ConvertNumericOfMaakLeeg(KenmerkValueBlum)
 	
-	Do ##class(Tools.Wlip).%New(26).String(VertaaldeKenmerkValue)
-	Do ##class(Tools.Wlip).%New(26).String(KenmerkNameBlum)
 	If ($$$Not(##class(TECH.StringUtils).ToLower(KenmerkNameBlum) = "amount")) {
 		Set VertaaldeKenmerkValue = VertaaldeKenmerkValue _ "mm"
 	}
Index: vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml
===================================================================
diff -u -r69641 -r69795
--- vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69641)
+++ vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml	(.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml)	(revision 69795)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>Vertaler:DOM.common.Transl.Vertaler=""</FormalSpec>
+<FormalSpec>Vertaler:DOM.common.Transl.Vertaler="",Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>