Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml =================================================================== diff -u -r70565 -r71230 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml (.../TestGeefKleur.cls.xml) (revision 70565) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/TestGeefKleur.cls.xml (.../TestGeefKleur.cls.xml) (revision 71230) @@ -116,7 +116,7 @@ #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("Type of material surface (Material B)", "HPL")) Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Options", "Wooden components with Fronts ? Two Colors")) Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name (Material B)", "Egger F416 ST10 - Beige Textile")) Do OPCKenmerkenRequest.BlumKenmerken.Insert(..GeefDummyKenmerk("Decor name", "Unilin 00020 CST - Basic white")) Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml =================================================================== diff -u -r70565 -r71230 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml (.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml) (revision 70565) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml (.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml) (revision 71230) @@ -86,13 +86,15 @@ Set KleurFront.Value = "/" } Else { #dim DikteFront As %String = ..GeefBlumKenmerk(KenmerkenIterator, "front thickness").Value - #dim TypeMateriaal As %String = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value + #dim TypeMateriaal As %String #dim DecorNaam As %String If (MateriaalOpties = "wooden components with fronts ? two colors") { Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name (material b)").Value + Set TypeMateriaal = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface (material b)").Value } Else { - Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value + Set DecorNaam = ..GeefBlumKenmerk(KenmerkenIterator, "decor name").Value + Set TypeMateriaal = ..GeefBlumKenmerk(KenmerkenIterator, "type of material surface").Value } Set KleurFront.Value = ..BepaalKleur(DecorNaam, DikteFront, "DikteFront", TypeMateriaal)