Index: vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml
===================================================================
diff -u -r79 -r91
--- vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(.../TestTBXContext.cls.xml)	(revision 79)
+++ vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(.../TestTBXContext.cls.xml)	(revision 91)
@@ -13,10 +13,10 @@
 <Method name="TestIsKlantIDIngevuldVHEPN">
 <Implementation><![CDATA[
 	Set TBXContext=..GeefTBXContextVHEPN()
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(4645),1,"Waarde 4645 is geldig klantID voor VHEPN")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(""),0,"Waarde """" (leeg) is een ongeldig klantID voor VHEPN")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(-0.0),0,"Waarde ""-0.0"" (leeg) is een ongeldig klantID voor VHEPN")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld("BE1234"),1,"Waarde BE1234 is een ongeldig klantID voor VHEPN")
+	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(4645),1,"KlantID waarde 4645 is ingevuld")
+	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(""),0,"KlantID waarde """" (leeg) is niet ingevuld")
+	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(-0.0),0,"KlantID waarde ""-0.0"" (nul) is niet ingevuld")
+	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld("BE1234"),1,"KlantID waarde BE1234 is ingevuld")
 ]]></Implementation>
 </Method>
 
@@ -25,61 +25,45 @@
 	Set TBXContext=..GeefTBXContextVHEPN()
 	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(4645),1,"Klant 4645 is toegelaten op VHEPN")
 	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),1,"Klant """" (leeg) is toegelaten op VHEPN")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234"),1,"Klant BE1234 is niet toegelaten op VHEPN")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234"),1,"Klant BE1234 is toegelaten op VHEPN")
 ]]></Implementation>
 </Method>
 
-<Method name="TestIsKlantIDIngevuldDUPO">
+<Method name="TestIsGebruikerToegelatenSFS">
 <Implementation><![CDATA[
-	Set TBXContext=..GeefTBXContextDUPO()
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(4645),1,"Waarde 4645 is ongeldig klantID voor DUPO")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(""),0,"Waarde """" (leeg) is een geldig klantID voor DUPO")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld("BE1234"),1,"Waarde BE1234 is een ongeldig klantID voor DUPO")
+	Set TBXContext=..GeefTBXContextSFS()
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(12345),1,"Klant 12345 is toegelaten op SFS")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),0,"Klant """" (leeg) is niet toegelaten op SFS")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234"),1,"Klant BE1234 is toegelaten op SFS")
 ]]></Implementation>
 </Method>
 
 <Method name="TestIsGebruikerToegelatenDUPO">
 <Implementation><![CDATA[
 	Set TBXContext=..GeefTBXContextDUPO()
 	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),1,"Klant """" (leeg) is toegelaten op DUPO")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(4645),1,"Klant 4645 is toegelaten op DUPO")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234"),1,"Klant BE1234 is niet toegelaten op VHEPN")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234"),1,"Klant BE1234 is toegelaten op DUPO")
 ]]></Implementation>
 </Method>
 
-<Method name="TestIsKlantIDIngevuldSFS">
+<Method name="TestIsGebruikerToegelatenHFLB">
 <Implementation><![CDATA[
-	Set TBXContext=..GeefTBXContextSFS()
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(12345),1,"Waarde 12345 is geldig klantID voor SFS")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(""),0,"Waarde """" (leeg) is een ongeldig klantID voor SFS")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld("BE1234"),1,"Waarde BE1234 is een ongeldig klantID voor SFS")
-]]></Implementation>
-</Method>
-
-<Method name="TestIsGebruikerToegelatenSFS">
-<Implementation><![CDATA[
-	Set TBXContext=..GeefTBXContextSFS()
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(12345),1,"Klant 12345 is toegelaten op SFS")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),0,"Klant """" (leeg) is toegelaten op SFS")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234"),1,"Klant BE1234 is niet toegelaten op SFS")
-]]></Implementation>
-</Method>
-
-<Method name="TestIsKlantIDIngevuldHFLB">
-<Implementation><![CDATA[
 	Set TBXContext=..GeefTBXContextHFLB()
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld("BE1234567"),1,"Waarde BE1234567 is een geldig klantID voor HFLB")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(1234555),1,"Waarde 1234555 is ongeldig klantID voor HFLB")
-	Do $$$AssertEquals(TBXContext.IsKlantIDIngevuld(""),0,"Waarde """" (leeg) is een ongeldig klantID voor HFLB")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234567"),1,"Klant BE1234567 is toegelaten op HFLB")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(1234555),1,"Klant 1234555 is toegelaten op HFLB")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),0,"Klant """" (leeg) is niet toegelaten op HFLB")
 ]]></Implementation>
 </Method>
 
-<Method name="TestIsGebruikerToegelatenHFLB">
+<Method name="TestBulkConfigOptiesUitbreiden">
 <Implementation><![CDATA[
-	Set TBXContext=..GeefTBXContextHFLB()
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("BE1234567"),1,"Klant BE1234567 is niet toegelaten op HFLB")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(1234555),1,"Klant 1234555 is toegelaten op HFLB")
-	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),0,"Klant """" (leeg) is toegelaten op HFLB")
+	Set TBXContext=..GeefTBXContextVHEPN()
+	Do $$$AssertEquals(TBXContext.BulkConfigOptiesUitbreiden(""),$LB("O;X"),"De BulkConfigOpties zijn uitgebreid (1)")
+	Do $$$AssertEquals(TBXContext.BulkConfigOptiesUitbreiden($LB("P",20)),$LB("O;X;P",20),"De BulkConfigOpties zijn uitgebreid (2)")
+	Do $$$AssertEquals(TBXContext.BulkConfigOptiesUitbreiden($LB("O",1)),$LB("O;X",1),"De BulkConfigOpties zijn uitgebreid (3)")
+	Do $$$AssertEquals(TBXContext.BulkConfigOptiesUitbreiden($LB("X",1)),$LB("O;X",1),"De BulkConfigOpties zijn uitgebreid (4)")
+	Do $$$AssertEquals($$$LCVT(TBXContext.BulkConfigOptiesUitbreiden($LB("A;B",1))),$$$LCVT($LB("O;X;A;B",1)),"De BulkConfigOpties zijn uitgebreid (5)")
+	Do $$$AssertEquals(TBXContext.BulkConfigOptiesUitbreiden($LB("",1)),$LB("O;X",1),"De BulkConfigOpties zijn uitgebreid (6)")
 ]]></Implementation>
 </Method>