Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml =================================================================== diff -u -r2011 -r2015 --- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml (.../TestWinkelkarService.cls.xml) (revision 2011) +++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml (.../TestWinkelkarService.cls.xml) (revision 2015) @@ -132,11 +132,12 @@ Set IngegevenKenmerken.HeeftTipon = 0 - Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal) + Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie") Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven") Do $$$AssertEquals(Winkelkar.Lijnen.Count(),1,"Er is 1 groep toegevoegd") Do $$$AssertTrue(Winkelkar.Lijnen.GetAt(1).%Extends("APPS.EC.Winkelkar.dto.GroepLijn")) + Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).ProjectReferentie,"Dit is de projectreferentie","De projectreferentie") Set Winkelkar = WinkelkarService.VerwijderLijn(Applicatie, Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)