Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml =================================================================== diff -u -r69814 -r69964 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml (.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml) (revision 69814) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml (.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml) (revision 69964) @@ -42,13 +42,14 @@ WS.Vhisie4.OPC.dto.Kenmerk WS.Vhisie4.OPC.dto.Kenmerk @@ -112,7 +113,6 @@ } Set KleurPockBottomCover.Value = ..BepaalKleur(DecorNaam, DiktePocket, "DiktePocket", TypeMateriaal) - Quit KleurPockBottomCover ]]> @@ -137,7 +137,7 @@ 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 _ ";" Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml =================================================================== diff -u -r69814 -r69964 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 69814) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 69964) @@ -63,6 +63,7 @@ #dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo(BlumKenmerk, ..#Index) + Do $$$AssertNotEquals(BlumKenmerk, Resultaat, "De kenmerken moeten gecloned zijn en mogen dus niet dezelfde OREF hebben") Do $$$AssertEquals(Resultaat.Name, VerwachteAXKenmerkName) Do $$$AssertEquals(Resultaat.Value, VerwachteAXKenmerkValue) ]]>