Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml
===================================================================
diff -u -r46020 -r52086
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 46020)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 52086)
@@ -55,7 +55,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestPrijzenInLijn">
+<Method name="Test: Prijzen in Lijn">
 <Implementation><![CDATA[
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	Do Lijn.ZetEenheidPrijsNettoExclBTW("Niet Te Gebruiken EenheidsPrijs")
@@ -75,7 +75,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestPrijzenInLijnBlumViaSfs">
+<Method name="Test: Prijzen in Lijn BlumViaSfs">
 <Implementation><![CDATA[
 	Set SFSFictievePrijsSessie = ##class(APPS.EC.impl.SFSWebshopSessie).%New( $$$DummyString )
 	Do SFSFictievePrijsSessie.ZetWebshopModus( ##class(APPS.EC.enu.WebshopModus).FictievePrijs() )
@@ -103,23 +103,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefLijn">
+<Method name="Test: GeefLijn">
 <Implementation><![CDATA[
-	// Setup
-	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,DataServiceStub)
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,, ..GeefDataServiceStub())
 	
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-		
-	// Actie
+	#dim WinkelkarId As %String = ..MaakWinkelkarEnGeefId()
+	#dim MaatwerkLijnId As %String = ..VoegToeMaatwerkLijnEnGeefId(WinkelkarId)
+	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarId, MaatwerkLijnId)
 	
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
-	
-	// Controle
 	If $$$AssertTrue($IsObject(Lijn)) {
 		Do $$$AssertTrue(Lijn.%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn"))
-		Do $$$AssertEquals(Lijn.LijnID, MaatwerkLijnID)
+		Do $$$AssertEquals(Lijn.LijnID, MaatwerkLijnId)
 	
 		#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 		
@@ -138,121 +132,120 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestWijzigLijnAantal">
+<Method name="Test: WijzigLijnAantal">
 <Implementation><![CDATA[
 	#define OudAantal 2
 	#define NieuwAantal 3
 	
-	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
-	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,DataServiceStub)
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,, ..GeefDataServiceStub())
 	
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
+	#dim WinkelkarId As %String = ..MaakWinkelkarEnGeefId()
+	#dim MaatwerkLijnId As %String = ..VoegToeMaatwerkLijnEnGeefId(WinkelkarId)
+	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarId, MaatwerkLijnId)
 	
-	// Actie
-	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, MaatwerkLijnID, $$$NieuwAantal)
+	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarId, MaatwerkLijnId, $$$NieuwAantal)
 	
-	// Controle
-	#dim LijnDtoNaWijziging As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
+	#dim LijnDtoNaWijziging As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarId, MaatwerkLijnId)
 	Quit:('$$$AssertTrue($IsObject(LijnDtoNaWijziging)))
 	Quit:('$$$AssertEquals($$$NieuwAantal, LijnDtoNaWijziging.Aantal))
 	Quit:('$$$AssertEquals(LijnDtoInitieel.EenheidPrijs, LijnDtoNaWijziging.EenheidPrijs))
 	Quit:('$$$AssertTrue(LijnDtoInitieel.TotaalPrijs < LijnDtoNaWijziging.TotaalPrijs))
 ]]></Implementation>
 </Method>
 
-<Method name="Test : WijzigLijnAantal met aantal 0 --&gt; Exceptie">
+<Method name="Test : Exceptie wordt geraised indien WijzigLijnAantal met aantal 0">
 <Implementation><![CDATA[
 	#define NieuwAantal 0
 	
-	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
-	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,DataServiceStub)
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,, ..GeefDataServiceStub())
 	
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
+	#dim WinkelkarId As %String = ..MaakWinkelkarEnGeefId()
+	#dim MaatwerkLijnId As %String = ..VoegToeMaatwerkLijnEnGeefId(WinkelkarId)
+	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarId, MaatwerkLijnId)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het aantal moet groter zijn dan 0.")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException,Substrings))
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het aantal moet groter zijn dan 0.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException, Substrings))
 	
-	// Actie
-	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, MaatwerkLijnID, $$$NieuwAantal)
+	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarId, MaatwerkLijnId, $$$NieuwAantal)
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefWinkelkarInclBewerkteIngave">
+<Method name="Test: GeefWinkelkarInclusiefBewerkteIngave">
 <Implementation><![CDATA[
-	Set GroepNaamBepalerStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
-	Do GroepNaamBepalerStub.IndienMethodCall("GeefGroepNaam",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("Een GroepNaam")
+	#dim GroepNaamBepalerStub As vhTest.Mock.APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
+	Do GroepNaamBepalerStub.IndienMethodCall("GeefGroepNaam", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn("Een GroepNaam")
+	
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,, GroepNaamBepalerStub, ..GeefDataServiceStub())
 
-	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,GroepNaamBepalerStub,DataServiceStub)
-
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID1 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID,"Een GroepNaam")
-	#dim MaatwerkLijnID2 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID,"Een GroepNaam")
-	#dim MaatwerkLijnID3 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID,"Een GroepNaam")
+	#dim WinkelkarId As %String = ..MaakWinkelkarEnGeefId()
+	#dim MaatwerkLijnId1 As %String = ..VoegToeMaatwerkLijnEnGeefId(WinkelkarId, "Een GroepNaam")
+	#dim MaatwerkLijnId2 As %String = ..VoegToeMaatwerkLijnEnGeefId(WinkelkarId, "Een GroepNaam")
+	#dim MaatwerkLijnId3 As %String = ..VoegToeMaatwerkLijnEnGeefId(WinkelkarId, "Een GroepNaam")
 	
 	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set NieuweIngegevenKenmerken.CorpusBreedte = "999" 
 	
-	// Actie
-	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkarInclusiefBewerkteIngaveGroeperingGewijzigd(WinkelkarID, NieuweIngegevenKenmerken,MaatwerkLijnID1)
-		
-	// Controle
-	Do $$$AssertTrue( $IsObject(WinkelkarDto)) 
-	Do $$$AssertEquals( 1, WinkelkarDto.Lijnen.Count()) 
+	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkarInclusiefBewerkteIngaveGroeperingGewijzigd(WinkelkarId, NieuweIngegevenKenmerken, MaatwerkLijnId1)
+	
+	Do $$$AssertTrue($IsObject(WinkelkarDto)) 
+	Do $$$AssertEquals(1, WinkelkarDto.Lijnen.Count()) 
 	Do $$$AssertTrue(WinkelkarDto.Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.GroepLijn"), WinkelkarDto.Lijnen.GetNext()) 
 	
 	#dim GroepLijn As APPS.EC.Winkelkar.dto.GroepLijn = WinkelkarDto.Lijnen.GetAt(1)
-	Do $$$AssertEquals(GroepLijn.Lijnen.Count(),3,"Er blijven drie lijnen inzitten.")
+	Do $$$AssertEquals(GroepLijn.Lijnen.Count(), 3, "Er blijven drie lijnen inzitten.")
 	
-	#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = GroepLijn.Lijnen.GetAt(1)
-	Do $$$AssertEquals(MaatwerkLijn.LijnID,MaatwerkLijnID1,"Lijn in tweede groep")
-	Do $$$AssertEquals(MaatwerkLijn.EenheidPrijs,"","Eenheidsprijs van gewijzigde lijn is leeg gemaakt.")
-	Do $$$AssertEquals(MaatwerkLijn.TotaalPrijs,"","Totaalprijs van gewijzigde lijn is leeg gemaakt.")
-	Do $$$AssertEquals(MaatwerkLijn.Aantal,"2","Aantal behouden.")
-	Do $$$AssertEquals(MaatwerkLijn.ProjectReferentie,"","Projectreferentie behouden.")
-	Set MaatwerkLijn = GroepLijn.Lijnen.GetAt(2)
-	Do $$$AssertEquals(MaatwerkLijn.LijnID,MaatwerkLijnID2,"Lijn in tweede groep")
-	Do $$$AssertFalse(MaatwerkLijn.EenheidPrijs = 0,"Eenheidsprijs van tweede lijn is ongewijzigd.")
-	Set MaatwerkLijn = GroepLijn.Lijnen.GetAt(3)
-	Do $$$AssertEquals(MaatwerkLijn.LijnID,MaatwerkLijnID3,"Lijn in tweede groep")
-	Do $$$AssertFalse(MaatwerkLijn.EenheidPrijs = 0,"Eenheidsprijs van derde lijn is ongewijzigd.")
+	#dim MaatwerkLijn1 As APPS.EC.Winkelkar.dto.MaatwerkLijn = GroepLijn.Lijnen.GetAt(1)
+	Do $$$AssertEquals(MaatwerkLijn1.LijnID, MaatwerkLijnId1, "Lijn in tweede groep")
+	Do $$$AssertEquals(MaatwerkLijn1.EenheidPrijs, "", "Eenheidsprijs van gewijzigde lijn is leeg gemaakt.")
+	Do $$$AssertEquals(MaatwerkLijn1.TotaalPrijs, "", "Totaalprijs van gewijzigde lijn is leeg gemaakt.")
+	Do $$$AssertEquals(MaatwerkLijn1.Aantal, "2", "Aantal behouden.")
+	Do $$$AssertEquals(MaatwerkLijn1.ProjectReferentie, "", "Projectreferentie behouden.")
+	
+	#dim MaatwerkLijn2 As APPS.EC.Winkelkar.dto.MaatwerkLijn = GroepLijn.Lijnen.GetAt(2)
+	Do $$$AssertEquals(MaatwerkLijn2.LijnID, MaatwerkLijnId2, "Lijn in tweede groep")
+	Do $$$AssertFalse(MaatwerkLijn2.EenheidPrijs = 0, "Eenheidsprijs van tweede lijn is ongewijzigd.")
+	
+	#dim MaatwerkLijn3 As APPS.EC.Winkelkar.dto.MaatwerkLijn = GroepLijn.Lijnen.GetAt(3)
+	Do $$$AssertEquals(MaatwerkLijn3.LijnID, MaatwerkLijnId3, "Lijn in tweede groep")
+	Do $$$AssertFalse(MaatwerkLijn3.EenheidPrijs = 0, "Eenheidsprijs van derde lijn is ongewijzigd.")
 ]]></Implementation>
 </Method>
 
-<Method name="MaakWinkelkarEnGeefID">
+<Method name="MaakWinkelkarEnGeefId">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
-	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
-	do Winkelkar.ZetKlantID("UT_SFS_Klantnummer")
-	do $$$AssertEquals($$$OK, Winkelkar.%Save())
-	quit Winkelkar.%Id()
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
+	
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
+	Do Winkelkar.ZetKlantID("UT_SFS_Klantnummer")
+	Do $$$AssertEquals($$$OK, Winkelkar.%Save())
+	
+	Quit Winkelkar.%Id()
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeMaatwerkLijnEnGeefID">
+<Method name="VoegToeMaatwerkLijnEnGeefId">
 <FormalSpec>WinkelkarID:%String,Groepnaam:%String="GroepNaam"</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, Groepnaam, IngegevenKenmerken, ..#AantalProductenInLijn).LijnID
-	Quit LijnID
+	#dim LijnId As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, Groepnaam, IngegevenKenmerken, ..#AantalProductenInLijn).LijnID
+	
+	Quit LijnId
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataServiceStub">
 <Private>1</Private>
 <ReturnType>vhTest.Mock.APPS.EC.DataService</ReturnType>
 <Implementation><![CDATA[
-	Set DataServiceStub = ##class(vhTest.Mock.APPS.EC.DataService).%New()
-	do DataServiceStub.IndienMethodCall("GeefPersonalityData",3).DanReturn(##class(vhTest.Utils.DOM.common.dto.PersonalityData).SFS())
-	do DataServiceStub.IndienMethodCall("GeefKlantData",3,"UT_SFS_Klantnummer").DanReturn(##class(vhTest.Utils.DOM.common.dto.KlantData).SFS())
+	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ##class(vhTest.Mock.APPS.EC.DataService).%New()
+	
+	Do DataServiceStub.IndienMethodCall("GeefPersonalityData", 3).DanReturn(##class(vhTest.Utils.DOM.common.dto.PersonalityData).SFS())
+	Do DataServiceStub.IndienMethodCall("GeefKlantData", 3, "UT_SFS_Klantnummer").DanReturn(##class(vhTest.Utils.DOM.common.dto.KlantData).SFS())
+	
 	Quit DataServiceStub
 ]]></Implementation>
 </Method>