Index: vhUnitTest/APPS/algemeen/VhintraShell/TestRegioBijEncryptedSessionService.cls.xml
===================================================================
diff -u -r29059 -r46357
--- vhUnitTest/APPS/algemeen/VhintraShell/TestRegioBijEncryptedSessionService.cls.xml	(.../TestRegioBijEncryptedSessionService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/algemeen/VhintraShell/TestRegioBijEncryptedSessionService.cls.xml	(.../TestRegioBijEncryptedSessionService.cls.xml)	(revision 46357)
@@ -37,6 +37,38 @@
 <Default>UTRegio</Default>
 </Parameter>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KlantUitRegio = ..MaakKlant(..#Regio,1)
+	Set ..KlantNietUitRegio = ..MaakKlant("AndereRegio",0)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..StopSessie()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..KlantUitRegio.GeefID())
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..KlantNietUitRegio.GeefID())
+	
+	Set Toegang = ##class(Derde.EC.Toegang).%OpenId(475)
+	#dim RegioPositie As %Integer = Toegang.Regio.Find(..#Regio)
+	If RegioPositie '= "" {
+		Do Toegang.Regio.RemoveAt(RegioPositie)
+	}
+	Do Toegang.%Save()
+	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestStartSessieMetKlantUitRegio">
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..KlantUitRegio.GeefID()
@@ -85,60 +117,29 @@
 <Method name="StopSessie">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $IsObject(..Session){
+	If $IsObject(..Session) {
 		Do ..Session.Delete()
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Set ..KlantUitRegio = ..MaakKlant(..#Regio,1)
-	Set ..KlantNietUitRegio = ..MaakKlant("AndereRegio",0)
-		
- 	Do ##super()
-]]></Implementation>
-</Method>
-
 <Method name="MaakKlant">
 <FormalSpec>Regio:%String,BewaarRegioInToegang:%Boolean</FormalSpec>
+<Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
 	Do Klant.ZetRegio(Regio)
 	Do Klant.Save()
 	
-	If BewaarRegioInToegang{
+	If BewaarRegioInToegang {
 		Set Toegang = ##class(Derde.EC.Toegang).%OpenId(475)
 		Do Toegang.Regio.Insert(Regio)
 		Do Toegang.%Save()	
 	}	
 	Quit Klant
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..KlantUitRegio.GeefID())
-	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..KlantNietUitRegio.GeefID())
-	
-	Set Toegang = ##class(Derde.EC.Toegang).%OpenId(475)
-	#dim RegioPositie As %Integer = Toegang.Regio.Find(..#Regio)
-	If RegioPositie '= "" {
-		Do Toegang.Regio.RemoveAt(RegioPositie)
-	}
-	Do Toegang.%Save()
-	Do ##super()
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ..StopSessie()
-	Do ##super(aTestName)
-]]></Implementation>
-</Method>
 </Class>