Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigMeerdereMaatwerkLijnen/Test.cls.xml
===================================================================
diff -u -r29059 -r31130
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigMeerdereMaatwerkLijnen/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigMeerdereMaatwerkLijnen/Test.cls.xml	(.../Test.cls.xml)	(revision 31130)
@@ -38,30 +38,40 @@
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
 	Do ..Winkelkar.Delete()
+	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
-<Method name="Test">
+<Method name="Test : Wanneer lijn 1 en 3 gewijzigd worden blijft lijn 2 ongewijzigd">
 <Implementation><![CDATA[
 	#dim WinkelkarID As TECH.String = ..Winkelkar.GeefID()
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).CLade()
 	
 	Set WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
-	#dim LijnID As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1)
+	#dim LijnID1 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1)
+	#dim LijnID2 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1)
+	#dim LijnID3 As %String = WinkelkarService.VoegToeMaatwerk(WinkelkarID, ..#GroepNaam, IngegevenKenmerken, 1)
 	
+	#dim GewijzigdeIngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = IngegevenKenmerken.%ConstructClone(1)
+	Set GewijzigdeIngegevenKenmerken.LadeDiepte = 450
+	
 	Set MaatwerkLijnIngegevenKenmerkenLijst = ##class(%ListOfObjects).%New()
 	Do MaatwerkLijnIngegevenKenmerkenLijst.Insert(##class(APPS.EC.Winkelkar.WinkelkarService.dto.MaatwerkLijnIngegevenKenmerken).%New())
-	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(1).LijnID = LijnID
-	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(1).IngegevenKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).CLade()
-	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(1).IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
-	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(1).IngegevenKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(1).LijnID = LijnID1
+	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(1).IngegevenKenmerken = GewijzigdeIngegevenKenmerken
+	
+	Do MaatwerkLijnIngegevenKenmerkenLijst.Insert(##class(APPS.EC.Winkelkar.WinkelkarService.dto.MaatwerkLijnIngegevenKenmerken).%New())
+	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(2).LijnID = LijnID3
+	Set MaatwerkLijnIngegevenKenmerkenLijst.GetAt(2).IngegevenKenmerken = GewijzigdeIngegevenKenmerken
+		
 	Do WinkelkarService.WijzigMeerdereMaatwerkLijnen(WinkelkarID, MaatwerkLijnIngegevenKenmerkenLijst)
 	
-	#dim TeruggekregenIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Winkelkar.GeefLijn(LijnID).GeefIngegevenKenmerken()
-	Do $$$AssertEquals(TeruggekregenIngegevenKenmerken.LadeHoogte,##class(DOM.PM.enu.LBXLadeHoogte).K())
-	Do $$$AssertEquals(TeruggekregenIngegevenKenmerken.RugHoogte,##class(DOM.PM.enu.LBXRugHoogte).M()) ;Deze is fout, dit zou K moeten zijn.
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New().GeefWinkelkar(WinkelkarID)
+	
+	Do $$$AssertEquals(Winkelkar.GeefLijn(LijnID1).GeefIngegevenKenmerken().LadeDiepte,450)
+	Do $$$AssertEquals(Winkelkar.GeefLijn(LijnID2).GeefIngegevenKenmerken().LadeDiepte,300)
+	Do $$$AssertEquals(Winkelkar.GeefLijn(LijnID3).GeefIngegevenKenmerken().LadeDiepte,450)
 ]]></Implementation>
 </Method>
 </Class>