Index: DOM/common/VanHoeckeGebruikerBeheerder.cls.xml
===================================================================
diff -u -r29059 -r37653
--- DOM/common/VanHoeckeGebruikerBeheerder.cls.xml	(.../VanHoeckeGebruikerBeheerder.cls.xml)	(revision 29059)
+++ DOM/common/VanHoeckeGebruikerBeheerder.cls.xml	(.../VanHoeckeGebruikerBeheerder.cls.xml)	(revision 37653)
@@ -5,6 +5,12 @@
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.common.GebruikerBeheerder</Super>
+
+<Method name="GeefGebruikerViaPincode">
+<Abstract>1</Abstract>
+<FormalSpec>Pincode:TECH.String</FormalSpec>
+<ReturnType>DOM.common.VanHoeckeGebruiker</ReturnType>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(revision 37653)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.impl.VanHoeckeGebruikerBeheerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Pincode">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigePincode"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerId">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeGebruikerId"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerNaamIntern">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeGebruikerNaamIntern"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerNaamExtern">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeGebruikerNaamExtern"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerInitialen">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeGebruikerInitialen"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerBeheerder">
+<Type>DOM.common.VanHoeckeGebruikerBeheerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..GebruikerBeheerder = ##class(DOM.common.impl.VanHoeckeGebruikerBeheerder).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..MaakGebruiker()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderGebruiker()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef gebruiker">
+<Implementation><![CDATA[
+	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruiker(..GebruikerId))
+	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruikerViaPincode(..Pincode))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien geen pincode geregistreerd is">
+<Implementation><![CDATA[
+	Do ..VerwijderPincode()
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen gebruiker gevonden voor pincode", ..Pincode)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+	
+	Do ..GebruikerBeheerder.GeefGebruikerViaPincode(..Pincode)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien onbestaande gebruikerId">
+<Implementation><![CDATA[
+	#dim OnbestaandeGebruikerId As TECH.String = "OnbestaandeGebruikerId"
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen gebruiker gevonden met id", OnbestaandeGebruikerId)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+	
+	Do ..GebruikerBeheerder.GeefGebruiker(OnbestaandeGebruikerId)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGebruiker">
+<FormalSpec>Gebruiker:DOM.common.VanHoeckeGebruiker</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Gebruiker.GeefVhUserID(), ..GebruikerId)
+	Do $$$AssertEquals(Gebruiker.GeefInitialen(), ..GebruikerInitialen)
+	Do $$$AssertEquals(Gebruiker.GeefNaam(), ..GebruikerNaamExtern)
+]]></Implementation>
+</Method>
+
+<Method name="MaakGebruiker">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^vhUSER("IW", ..Pincode) = ..GebruikerId
+	Set ^vhUSER("D", ..GebruikerId) = "\" _ ..GebruikerNaamIntern _"\\" _ ..GebruikerInitialen _ "\" _ ..GebruikerNaamExtern _ "\\\\\\\\\\\\"
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderGebruiker">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VerwijderPincode()
+	Kill ^vhUSER("D", ..GebruikerId)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderPincode">
+<Private>1</Private>
+<Implementation><![CDATA[	Kill ^vhUSER("IW", ..Pincode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml
===================================================================
diff -u -r29059 -r37653
--- DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml	(.../VanHoeckeGebruikerBeheerder.cls.xml)	(revision 29059)
+++ DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml	(.../VanHoeckeGebruikerBeheerder.cls.xml)	(revision 37653)
@@ -3,7 +3,7 @@
 <Class name="DOM.common.impl.VanHoeckeGebruikerBeheerder">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.common.VanHoeckeGebruikerBeheerder</Super>
+<Super>TECH.RegisteredObject,DOM.common.VanHoeckeGebruikerBeheerder</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="GeefEigenaarID">
@@ -16,18 +16,37 @@
 <Description>
 De gebruiker id is de interne id van een medewerker. Dit zijn niet de initialen!</Description>
 <FormalSpec>GebruikerID:%String</FormalSpec>
-<ReturnType>DOM.common.Gebruiker</ReturnType>
+<ReturnType>DOM.common.VanHoeckeGebruiker</ReturnType>
 <Implementation><![CDATA[
-	Set Naam = $$USERNAME^vhUSER(GebruikerID,-1)
-	If (Naam = "")
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Onbestaande gebruiker id "_GebruikerID))
+	#dim Naam As TECH.String = $$USERNAME^vhUSER(GebruikerID, -1)
+	
+	If (Naam = "") {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen gebruiker gevonden met id '" _ GebruikerID _ "'."))
 	}
-	Set Code = $$USERNAME^vhUSER(GebruikerID,1)
 	
+	#dim Code As TECH.String = $$USERNAME^vhUSER(GebruikerID, 1)
+	
 	Quit ##class(DOM.common.impl.VanHoeckeGebruikerImpl).%New(GebruikerID, Code, Naam, ##this)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGebruikerViaPincode">
+<FormalSpec>Pincode:TECH.String</FormalSpec>
+<ReturnType>DOM.common.VanHoeckeGebruiker</ReturnType>
+<Implementation><![CDATA[
+	#dim Gebruiker As DOM.common.VanHoeckeGebruiker
+	#dim InterneId As TECH.String
+	
+	If ($Data(^vhUSER("IW", Pincode))) {
+		Set InterneId = ^vhUSER("IW", Pincode)
+		Set Gebruiker = ..GeefGebruiker(InterneId)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen gebruiker gevonden voor pincode '" _ Pincode _ "'."))
+	}
+	
+	Quit Gebruiker
+]]></Implementation>
+</Method>
 </Class>