Index: vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TestBase.cls.xml
===================================================================
diff -u -r30761 -r32129
--- vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30761)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32129)
@@ -19,12 +19,19 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
+]]></Implementation>
+</Method>
+
 <Method name="AssertGroepNaam">
 <FormalSpec>Taal:DOM.enu.Taal,GroepNaam:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New(..Kenmerken, Taal)
-	do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(), GroepNaam)
+	
+	do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(..Kenmerken, Taal), GroepNaam)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml
===================================================================
diff -u -r30849 -r32129
--- APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 30849)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 32129)
@@ -23,26 +23,17 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="GeefGroepNaam">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set ..Taal = Taal
 	set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
 	set ..KleurCodeVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal)
 	
 	do IngegevenKenmerken.Accept(##this)
-	
-	quit $$$OK
-]]></Implementation>
-</Method>
 
-<Method name="GeefGroepNaam">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..GroepNaam
+	Quit ..GroepNaam
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r31588 -r32129
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 31588)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 32129)
@@ -588,8 +588,8 @@
 	#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 	
 	#dim Taal As DOM.enu.Taal = ..GeefTaal(WinkelkarImpl)
-	Set GroepNaamVoorIngegevenKenmerkenBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New(Kenmerken,Taal)
-	#dim GroepNaam As %String = GroepNaamVoorIngegevenKenmerkenBepaler.GeefGroepNaam()
+	Set GroepNaamVoorIngegevenKenmerkenBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
+	#dim GroepNaam As %String = GroepNaamVoorIngegevenKenmerkenBepaler.GeefGroepNaam(Kenmerken,Taal)
 	
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn
 	
Index: APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml
===================================================================
diff -u -r29059 -r32129
--- APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml	(.../GroepNaamVoorLijnBepaler.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml	(.../GroepNaamVoorLijnBepaler.cls.xml)	(revision 32129)
@@ -40,7 +40,7 @@
 	If (Taal = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Taal is niet ingesteld op de RuntimeContext."))
 	}
-	Set ..GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New(MaatwerkLijn.GeefIngegevenKenmerken(),Taal).GeefGroepNaam()
+	Set ..GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New().GeefGroepNaam(MaatwerkLijn.GeefIngegevenKenmerken(),Taal)
 	Quit $$$OK
 ]]></Implementation>
 </Method>