Index: WSimpl/Halux/AAP/GebruikerService.cls.xml
===================================================================
diff -u -r55505 -r55512
--- WSimpl/Halux/AAP/GebruikerService.cls.xml	(.../GebruikerService.cls.xml)	(revision 55505)
+++ WSimpl/Halux/AAP/GebruikerService.cls.xml	(.../GebruikerService.cls.xml)	(revision 55512)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>AanmeldingRepository:DOM.Halux.AAP.AanmeldingRepository</FormalSpec>
 <Private>1</Private>
@@ -16,6 +21,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..AanmeldingRepository = $$$Inject(AanmeldingRepository, ##class(DOM.Halux.AAP.AanmeldingRepository).%New())
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -26,6 +32,9 @@
 <Implementation><![CDATA[
 	Set Aanmelding = ##class(DOM.Halux.AAP.Aanmelding).%New()
 	Set Aanmelding.Initialen = GebruikerAanmeldenRequest.Initialen
+	Set Aanmelding.ComputerNaam = GebruikerAanmeldenRequest.Header.ComputerNaam
+	Set Aanmelding.AangemeldSinds = ..DateTimeAPI.CurrentTimeStamp()
+	Set Aanmelding.LoginCode = GebruikerAanmeldenRequest.LoginCode
 	
 	Do ..AanmeldingRepository.Bewaar(Aanmelding)
 	
Index: vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml
===================================================================
diff -u -r55505 -r55512
--- vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55505)
+++ vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55512)
@@ -5,15 +5,22 @@
 
 <Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	
 	Set Aanmelding = ##class(DOM.Halux.AAP.Aanmelding).%New()
 	Set Aanmelding.Initialen = "TVE"
+	Set Aanmelding.ComputerNaam = "Een computernaam"
+	Set Aanmelding.AangemeldSinds = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
+	Set Aanmelding.LoginCode = "1234"
 	
 	Set AanmeldingRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.AanmeldingRepository).%New()
 	Do AanmeldingRepositoryMock.VerwachtMethodCall("Bewaar",..Matches.Object(Aanmelding)).ExactAantalKeer(1)
 	
 	Set GebruikerAanmeldenRequest = ##class(WS.Halux.AAP.GebruikerAanmeldenRequest).%New()
 	Set GebruikerAanmeldenRequest.Initialen = "TVE"
-	
+	Set GebruikerAanmeldenRequest.Header.ComputerNaam = "Een computernaam"
+	Set GebruikerAanmeldenRequest.LoginCode = "1234"
+		
 	Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock)
 	Do GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest)