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>
 
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r86 -r91
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 86)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 91)
@@ -523,6 +523,7 @@
 <FormalSpec>KlantID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+ /*
 	Set IsGeldig=0
 	If KlantID="" {
 		Set IsGeldig=0
@@ -543,6 +544,7 @@
 		}
 	}
 	Quit IsGeldig
+ */
 ]]></Implementation>
 </Method>
 
@@ -839,6 +841,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BulkConfigOptiesUitbreiden">
+<Description>
+Is bedoeld voor de verwerker in PROCESS-mode (VHEPN), om de verpakking alsnog te wijzigen alvorens de "Import into Admin" uit te voeren. </Description>
+<FormalSpec>lbBulkConfig:%List</FormalSpec>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set VerpakkingOpties=$LG(lbBulkConfig,1)
+	Set Delim=";"
+	
+	Set ListBulkConfig=""
+	If $$$Trim($TR(VerpakkingOpties,";",""))="" {
+		Set ListBulkConfig=##class(TECH.ListUtils).CreateListOfDataTypes("O","X")
+	}
+	Else {
+		Set ListBulkConfig=##class(TECH.ListUtils).PiecesToList(VerpakkingOpties,Delim)
+		Do:($$$Not(##class(TECH.ListUtils).Contains(ListBulkConfig,"O"))) ListBulkConfig.InsertAt("O",1)
+		Do:($$$Not(##class(TECH.ListUtils).Contains(ListBulkConfig,"X"))) ListBulkConfig.InsertAt("X",2)
+	}
+	Set VerpakkingOpties=##class(TECH.ListUtils).ListToPieces(ListBulkConfig,Delim)
+	Set $LI(lbBulkConfig,1)=VerpakkingOpties
+	
+	Quit lbBulkConfig
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r84 -r91
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 84)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 91)
@@ -527,13 +527,12 @@
 	; Show Order Details
 	Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd)
 	Set IsDesignBeschikbaar=(WSOrd.IsLadeDesignBeschikbaar(.DS))
- 
+	
 	Do MShowVervaldagOFFText
 	; Positie van de tekst t.o.v. de buttons
 	Set TextPos="RIGHT"   ; $S($IsObject(WSOrd)&&(WSOrd.IsSubmitted()):"LEFT", 1:"RIGHT")
-	Set lbBulkConfig=##class(cspBasis.GAProdTBox).GetKlantBulk(TBXContext.GeefDomeinVerwerker(),KLNr)
-	Set lbBulkConfig=$LB("O;X")   ; tijdelijke fix van WimV : uit te breiden naar  KlantBulk + O + X   (on 07/10/2011) 
-	Set blnAllowBulk=($LG(lbBulkConfig,1)'="")&&($LG(lbBulkConfig,1)'="S")
+	Set lbBulkConfig=TBXContext.BulkConfigOptiesUitbreiden(##class(cspBasis.GAProdTBox).GetKlantBulk(TBXContext.GeefDomeinVerwerker(),KLNr))
+	Set blnAllowBulk=1
 	; Button SwitchToViewMode
 	Do MShowSwitchToViewMode(('TBXContext.IsDomeinVHEPN())&& 1)   ; &&(WSOrd.BonType="INKP")
 	; Button PrintPage
@@ -552,10 +551,7 @@
 	. Set arShow("ChangeBulk","BTN")=(%RemoteIP?1(1"192.168.".E,1"127.0.0.1"))
 	. If arShow("ChangeBulk","BTN") Do
 	. . Do ophOrdToAdminSetSesData
-	. . Set arShow("ChangeBulk","EXPAND")=blnAllowBulk
-	. ;If blnAllowBulk Do   // ; Button ChangeBulk  OLD !!!
-	. ;. Do ophOrdToAdminSetSesData
-	. ;. Set arShow("ChangeBulk","BTN")=1
+	. . ;Set arShow("ChangeBulk","EXPAND")=0
 	Else  Do
 	. ; Button SubmitToVHEPN
 	. Do MShowSubmitToVHEPN(TBXContext.SubmitToVHviaCspPage(),WSOrd)
@@ -567,6 +563,7 @@
 	. ;  - http://tbx.sfsunimarket.biz/VHISIE/TBX/main.csp?Taal=D&HIST=1&REF=8H9XyVmkVvtSXca7DjMJpAFknWUyneyi4koTLULFuSk-
 	Set WSOrd=""
 	Quit
+	
 ophMMProcessFlowVHEPN()
 #define IsTextOnly(%v)   (%v'?.E1C.E)
 	New lbResult,tmpAr,sc