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)
]]>