Index: APPS/EC/impl/DataServiceHandel.cls.xml
===================================================================
diff -u -r29059 -r45863
--- APPS/EC/impl/DataServiceHandel.cls.xml	(.../common/impl/DataServiceHandel.cls.xml)	(revision 29059)
+++ APPS/EC/impl/DataServiceHandel.cls.xml	(.../EC/impl/DataService.cls.xml)	(revision 45863)
@@ -1,60 +1,84 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.common.impl.DataServiceHandel">
+<Class name="APPS.EC.impl.DataService">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.RegisteredObject,APPS.common.DataService</Super>
+<Super>TECH.RegisteredObject</Super>
 
-<Property name="Personality">
-<Type>DOM.common.Personality</Type>
+<Property name="KlantDataBepaler">
+<Type>DOM.VKP.KlantDataBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="CommonApi">
+<Type>DOM.common.CommonAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerApi">
+<Type>DOM.common.GebruikerAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataService">
+<Type>APPS.common.impl.DataService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<FormalSpec>KlantDataBepaler:DOM.VKP.KlantDataBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Personality = Personality
+	set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlantDataBepaler())
+	set ..CommonApi =  ##class(DOM.DomeinContext).Instance().GeefCommonAPI()
+	set ..GebruikerApi = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI()
+	set ..DataService = ##class(APPS.common.impl.DataService).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPersonalityData">
+<FormalSpec>PersonalityId:%String</FormalSpec>
+<ReturnType>DOM.common.dto.PersonalityData</ReturnType>
+<Implementation><![CDATA[
+	if ##class(TECH.StringUtils).Equals(PersonalityId,##class(DOM.common.enu.Personality).VanHoeckeVoorHalux()) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("PersonalityId"_PersonalityId_"is geen handelspersonality")
+	}
+	quit ..DataService.GeefPersonalityData(PersonalityId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantData">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<FormalSpec>PersonalityId:%String,KlantId:%String</FormalSpec>
 <ReturnType>DOM.common.dto.KlantData</ReturnType>
-<Implementation><![CDATA[
-	#dim KlantDataBepaler As DOM.VKP.KlantDataBepaler = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlantDataBepaler()
-	Quit KlantDataBepaler.GeefKlantData(..Personality, KlantID)
+<Implementation><![CDATA[	Quit ..KlantDataBepaler.GeefKlantData(..CommonApi.GeefPersonality(PersonalityId), KlantId)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGebruikerData">
-<FormalSpec>GebruikerID:%String</FormalSpec>
+<FormalSpec>PersonalityId:%String,GebruikerId:%String</FormalSpec>
 <ReturnType>DOM.common.dto.GebruikerData</ReturnType>
 <Implementation><![CDATA[
-	Set GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
-	Set GebruikerData.ID = GebruikerID	
+	b:'$Data(GebruikerId)
+	if ##class(TECH.StringUtils).Equals(PersonalityId,##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.common.enu.Personality).VanHoeckeVoorHalux()) {
+		#dim Gebruiker As DOM.common.Gebruiker = ..GebruikerApi.GeefGebruiker(GebruikerId)
+		Do:$$$Not($IsObject(Gebruiker)) ##class(TECH.Exceptions.InvalidInputException).Throw("Geen gebruiker gevonden met ID: "_GebruikerId)
+		
+		Set GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
+		Set GebruikerData.ID = Gebruiker.GeefID()
+		Set GebruikerData.Code = Gebruiker.GeefCode()
+		Set GebruikerData.Naam = Gebruiker.GeefNaam()
+	} else {
+		Set GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
+		Set GebruikerData.ID = GebruikerId	
+	}
+	
 	Quit GebruikerData
 ]]></Implementation>
 </Method>
-
-<Method name="GeefPersonalityData">
-<FormalSpec>PersonalityID:%String</FormalSpec>
-<ReturnType>DOM.common.dto.PersonalityData</ReturnType>
-<Implementation><![CDATA[
-	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
-
-	Set PersonalityData = ##class(DOM.common.dto.PersonalityData).%New()
-	Set PersonalityData.ID = PersonalityID
-	Set PersonalityData.Code = PersonalityID
-	Set PersonalityData.Naam = Personality.GeefKlant().Naam
-	
-	Quit PersonalityData
-]]></Implementation>
-</Method>
 </Class>