Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r63 -r79
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 63)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 79)
@@ -484,10 +484,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsKlantIDIngevuld">
+<Description>
+Controleert of het Klantnummer ingevuld is; mag zowel numeriek als niet-numeriek zijn. 
+OPMERKING : 0 (nul) wordt als ook als NIET-ingevuld beschouwd. 
+
+Deze method is ter vervanging van method IsGeldigKlantID() </Description>
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsIngevuld=0
+	If $L(KlantID) {
+		
+		If $IsValidNum(KlantID) {
+			// KlantID is numeriek :  testen op verschillend van 0 
+			If +KlantID=0 {
+				Set IsIngevuld=0
+			}
+			Else {
+				Set IsIngevuld=1
+			}
+		}
+		Else {
+			// KlantID is niet-numeriek 
+			Set IsIngevuld=1
+		}
+	}
+	Quit IsIngevuld
+]]></Implementation>
+</Method>
+
 <Method name="IsGeldigKlantID">
 <Description>
 Controle van het Klantnummer 
-Valideert alleen het formaat; controleert niet of Klantnummer effectief aanwezig is in de databank. </Description>
+Valideert alleen het formaat; controleert niet of Klantnummer effectief aanwezig is in de databank. 
+
+DEPRECATED : use method IsKlantIDIngevuld() instead! </Description>
 <FormalSpec>KlantID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -511,16 +543,6 @@
 		}
 	}
 	Quit IsGeldig
-	
- /*	
-	^WS.TBX.KlantData("HFLB",1000)=N\1000\Testklant\fma@vanhoecke.be\10
-	^WS.TBX.KlantData("HFLB",903103)=N\903103\W. van Deursen Keukenmontage\\10
-	^WS.TBX.KlantData("HFLB",1047378)=D\1047378\TEST 414 KUNDEN-ANBINDUNG EDV REF. 414\a.adrian@intershop.de\0
-	^WS.TBX.KlantData("HFLB",2722273)=D\2722273\HOLGER HUETTNER MOEBELWERKSTAETTE\\0
-	^WS.TBX.KlantData("HFLB",12345678)=N\12345678\AATestKlant_VH\wv@vanhoecke.be\10
-	^WS.TBX.KlantData("HFLB","BE2000000")=N\BE2000000\Testkunde EasyLink \\0
-	^WS.TBX.KlantData("HFLB","BE2005000")=N\BE2005000\De Smed BVBA \de.smed@skynet.be\0
- */
 ]]></Implementation>
 </Method>
 
@@ -535,7 +557,7 @@
 		Set IsToegelaten=(..HeeftToegangZonderLogin())
 	}
 	Else {
-		Set IsToegelaten=(..IsGeldigKlantID(KlantID))
+		Set IsToegelaten=(..IsKlantIDIngevuld(KlantID))
 	}
 	Quit IsToegelaten
 ]]></Implementation>
@@ -665,6 +687,11 @@
 		 	Set ToonKnop=1
 	 	}
 	}
+	ElseIf ..IsSFS {
+	 	If KLNr=10001 {
+		 	Set ToonKnop=1
+	 	}
+	}
  	Quit ToonKnop
 ]]></Implementation>
 </Method>
Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r41 -r79
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 41)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 79)
@@ -61,7 +61,7 @@
 	Set UserType=$$ophGetUserType(KLNr,TBXContext.GeefWebDomein(),VERW,sMode)
 	Set %session.Data("UserType")=UserType
 	;Set UserTypeTxt=$CASE(UserType, $$$utKlantAnon:"KlantAnon", $$$utKlantKnown:"KlantKnown", $$$utVerwSub:"VerwSub", $$$utVerwDomain:"VerwDomain", $$$utVerwAdmin:"VerwAdmin", "":"?", :UserType)
-	If (wsID="")&&(KLNr>0) Do
+	If (wsID="")&&(TBXContext.IsKlantIDIngevuld(KLNr)) Do
 	. ; New from Order (Copy into New) : wsIDFrom is passed by QS-parameter 
 	. Set wsIDFrom=$G(%request.Data("NEWFROMORD",1))
 	. Set blnNewFromOrd=($$ophCheckFromWSOrd(wsIDFrom,KLNr))
@@ -70,15 +70,16 @@
 	. Set wsIDFrom=wsID
 	. Set blnNewFromOrd=0
 	
-#If $$$NSpace="DEMO" 
-	Set blnCalcPrices=0
-	New CalcExpr
-	Set CalcExpr=$G(^UI.Settings("WWW-TBX","DEMO","CalcPrijs","ExprCondit"),0)
-	If @CalcExpr Set blnCalcPrices=1
-	;Set:(%RemoteIP?1(1"192.168.1.195")) blnCalcPrices=1
-#Else
-	Set blnCalcPrices=(KLNr>0)||(UserType>$$$utKlantAnon)
-#EndIf
+	Set blnCalcPrices=(TBXContext.IsKlantIDIngevuld(KLNr))||(UserType>$$$utKlantAnon)
+	If 0 && (blnCalcPrices) && ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("Nog_in_te_vullen") {
+		// Op de DEMO-site mogen geen prijzen berekend worden.  Daarom blnCalcPrices=0
+		// Uitzonderingen (bvb. voor bepaalde IP-adressen) kunnen via een Global-expression ingevuld worden. 
+		Set blnCalcPrices=0
+		New CalcExpr
+		Set CalcExpr=$G(^UI.Settings("WWW-TBX","DEMO","CalcPrijs","ExprCondit"),0)
+		If @CalcExpr Set blnCalcPrices=1
+		;Set:(%RemoteIP?1(1"192.168.1.195")) blnCalcPrices=1
+	}
 	Set blnPriceAvail=(blnCalcPrices)||($$ophGetPriceAvail(wsID))
 	Set blnCalcOFFAV=(blnCalcPrices)&&($$ophGetBonType(wsID)="OFFAV")
 	Set Munt="EUR"
@@ -88,8 +89,8 @@
 	Set:(blnPriceAvail )||(sMode'="A") lbShowFT=lbShowFT_$LB("OFF")
 	Set:(TBXContext.IsDomeinHEIN())||(sMode'="A")||((wsID>0)&&(sMode'="A")) lbShowFT=lbShowFT_$LB("BBON")
 	Set BTWInputMode=$S($$$NSpace="DEMO":0, 'blnVHEPN:0, blnCalcPrices:1, 1:3)   ; 0=hidden, 1=shown but optional, 3=shown+obligatory
-	Set:(blnVHEPN)&&(KLNr>0) BTWInputMode=0   ; Overrules previous line 
-	Set blnShowDynSpace=(blnVHEPN)&&(KLNr?1(1"4645x",1"6821"))
+	Set:(blnVHEPN)&&(TBXContext.IsKlantIDIngevuld(KLNr)) BTWInputMode=0   ; Overrules previous line 
+	Set blnShowDynSpace=0   ; (blnVHEPN)&&(KLNr?1(1"4645x",1"6821"))
 	// Design Choice Mode : Intivo, Standaard of eXpert 
 	Set DCM=""
 	Set:(wsIDFrom>0) DCM=##class(WS.TBX.Order).DCMCalc(wsIDFrom)   ; wsID or wsIDFrom 
@@ -116,7 +117,7 @@
 	Quit 1
 ophGetUserType(KLNr,Domain,Verw,Mode)
 	  ;d WL^vhDBG("KLNr"_KLNr_"   Mode="_Mode_"   wsID="_wsID_"   Verw="_Verw_"   Domain="_Domain)
-	Quit:(Mode="A") $S(TBXContext.AlleenToegangZonderLogin():$$$utKlantAnonWP, KLNr>0:$$$utKlantKnown, 1:$$$utKlantAnon)
+	Quit:(Mode="A") $S(TBXContext.AlleenToegangZonderLogin():$$$utKlantAnonWP, TBXContext.IsKlantIDIngevuld(KLNr):$$$utKlantKnown, 1:$$$utKlantAnon)
 	Quit:(Mode="W") $$ophGetVERWType(Domain,Verw)
 	Quit:(Mode="P") $$$utKlantAnon                        ; Temporary: fixed value
 	;Else
@@ -131,7 +132,7 @@
 	Quit:('$IsObject(WSOrd)) 0
 	Set OrdDomVERW=$LG(##class(WS.TBX.Order).DomainLookUp($$TBXDomainCVT^cspBasis.Library(WSOrd.WebDomain),$LB("VERW")),1)
 	Quit:(OrdDomVERW'=TBXContext.GeefDomeinVerwerker()) 0   ; Onbekend of foutief domein
-	Quit (WSOrd.KLNummer>0)&&(WSOrd.KLNummer=MatchKLNr)
+	Quit (TBXContext.IsKlantIDIngevuld(WSOrd.KLNummer))&&(WSOrd.KLNummer=MatchKLNr)
 ophInschfElmntInfo(wsID)
 	// bepalen of InschuifElement reeds gekozen is kan adhv bestaand order.
 	
Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou
===================================================================
diff -u -r18 -r79
--- cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 18)
+++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 79)
@@ -128,7 +128,7 @@
 	. If blnRedir  Set %session.Data("UserType")=UserType
 	. Else  Kill %session.Data("UserType")
 	
-	If (blnLMC||blnSFS||blnMBHO||blnHFLB)&&($G(RefArray("KLNR"))'>0) Do
+	If (blnLMC||blnSFS||blnMBHO||blnHFLB) && ( $$$Not(TBXContext.IsKlantIDIngevuld($G(RefArray("KLNR")))) ) Do
 	. Set blnRedir=0
 	. Set LoginState="ERR"
 	
@@ -238,7 +238,7 @@
 #If $$$NSpace="xDEMO" 
 	Quit:(Mode="A") $S(1:$$$utKlantAnon)
 #Else
-	Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, KLNr>0:$$$utKlantKnown, 1:$$$utKlantAnon)   ; blnLMC,blnSFS,blnMBHO, : $$$utKlantKnown 
+	Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, TBXContext.IsKlantIDIngevuld(KLNr):$$$utKlantKnown, 1:$$$utKlantAnon)   ; blnLMC,blnSFS,blnMBHO, : $$$utKlantKnown 
 #EndIf
 	Quit:(Mode="W") $$ophGetVERWType(Domain,Verw)
 	Quit:(Mode="P") $$$utKlantAnon                        ; Temporary: fixed value
@@ -388,7 +388,7 @@
 	. Set %OptimaVar("Data")=Data
 	. Set %OptimaVar("EncData")=$G(encData)
 	. Set Data=""
-	. Quit:($IsValidNum(KLNr))&&($G(ForceKLNrLookup,1)=0)
+	. Quit:($IsValidNum(KLNr))&&($G(ForceKLNrLookup,1)=0)   ; TBXContext.IsKlantIDIngevuld(KLNr) 
 	. ; Else  match encData with values from global
 	. Set KLNr=##class(cspBasis.GAProdTBox).GetOptimaFixKLNr($G(encData))
 	. Set:($L(KLNr)) %OptimaVar("KLNr")=KLNr
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r46 -r79
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 46)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 79)
@@ -83,7 +83,7 @@
 	. . Set:($L($G(tmpRq("REF")))) tmpRq("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,$G(RefArray("MODE"))))
 	. . Kill tmpRq("DATAOPT")
 	. . ;Do ophBuildSwitchTLArray   ; Once again, but with the NEW QueryString-values 
-	. Else  If ($IsValidNum(KLNr))&&($G(%request.Data("Taal",1))="") Do
+	. Else  If (TBXContext.IsKlantIDIngevuld(KLNr))&&($G(%request.Data("Taal",1))="") Do
 	. . Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,$LB("Stg","NoAction"))
 	. . Set:($IsObject(KLMini))&&(KLMini.Taal?1(1"N",1"F",1"E",1"D")) Taal=KLMini.Taal
 	. . Set KLMini=""
@@ -141,7 +141,11 @@
 	. Set blnAllowedBrowser=$$$IsAllowedMacBrowser(%request.UserAgent)
 	Else  Do
 	. Set blnAllowedBrowser=$$$IsAllowedBrowser(%request.UserAgent)      ; Browser list : MSIE, Firefox, Opera, Chrome, Safari 
- 
+ 	
+	If (TBXContext.IsDomeinSFS())&&($G(KLNr)=10001) {
+		Set blnAllowedBrowser=1
+ 	}
+ 	
 	// Placed in comment by WimV on 02/08/2011  --> universele oplossing in klasse %CSP.UserAgent 
  ;	If $$$IsRecentBrowser(%request.UserAgent) Do   ; Added by WimV on 28/03/2011 
  ;	. Set %session.BrokerImplementation=2          ; use XMLHTTPRequest method 
@@ -220,7 +224,7 @@
 	; In case of "Bad Encryption", try getting KLData from storage
 	If '$IsObject(KLMini) Do   
 	. Set KLNr=$G(%OptimaVar("KLNr"))
-	. Set:($IsValidNum(KLNr)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,$LB("Stg","NoAction"))
+	. Set:(TBXContext.IsKlantIDIngevuld(KLNr)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,$LB("Stg","NoAction"))
 	. Set sDomVERW=TBXContext.GeefDomeinVerwerker()
 	. Set msg="WARNING : Bad encryption for "_$S(sDomVERW="LMC":"Optima",1:sDomVERW)_" customer (n� "_$G(KLNr)_")"
 	. Set msg=msg_$$$CRLF_"Ref            : "_($$ophGetRef^cspBasis.TBX.DecodeURL.tmpDev(Ref))_$$$CRLF_"Enc. Data      : "_$G(%OptimaVar("EncData"))_$$$CRLF_"Decrypted Data : "_$G(%OptimaVar("Data"))_$$$CRLF_"KLNr via Lookup: "_$G(%OptimaVar("KLNrViaLookup"))
@@ -285,7 +289,7 @@
 	. // Onbekend of foutief domein - GEEN TOEGANG !!!    WSOrder moet steeds binnen WebDomein blijven !!!
 	. Set arValues(0,"ERROR")="Onbekend of foutief domein"
 	; Else   ; ==> sDomVERW=OrdDomVERW
-	Quit:(%RemoteIP?1(1"192.168.1.")1.3N)&&(MatchKLNr=1000) 1
+	Quit:(%RemoteIP?1(1"192.168.")1.3N1"."1.3N)&&(MatchKLNr=1000) 1
 	Set OrdKLNr=WSOrd.KLNummer
 	Set blnOK=0
 	If TBXContext.IsDomeinVHEPN() Do  Quit blnOK
@@ -469,7 +473,7 @@
 	; Button PrintPage
 	Do MShowPrintPage(1,blnOFFVervallen||blnDynaplugERR||$$$Not(IsDesignBeschikbaar))
 	; Button BookmarkPage
-	Do MShowBookmarkPage('$IsValidNum(KLNr),WSOrd)
+	Do MShowBookmarkPage((KLNr=""),WSOrd)
 	; Button Show XML
 	Do MShowExportXML((TBXContext.IsBeschikbaarExportXML())&&((KLNr=$$$TBoxWebKlantNrVHEPN)||(KLNr=$$$TBoxWebKlantNrHEIN)) )
 	; Button Submit
@@ -665,7 +669,7 @@
 	Quit
 	
 MShowNewOrder(Visible)
-	Quit:((TBXContext.AlleenToegangMetLogin())&&(KLNr'>0))
+	Quit:((TBXContext.AlleenToegangMetLogin())&&('TBXContext.IsKlantIDIngevuld(KLNr)))
 	Quit:(KLNr=$$$KLNrListAll)&&($$$Not((sMode="START")&&(TBXContext.AlleenToegangZonderLogin())))
 	Quit:('$G(blnValidKlant,1))
 	New tmpAr
Index: vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(revision 79)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.TBXWeb.TestTBXContext">
+<Description>
+Oproepen via 
+	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.TestTBXContext") 
+	</Description>
+<IncludeCode>APPS.TBXWeb,PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<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")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsGebruikerToegelatenVHEPN">
+<Implementation><![CDATA[
+	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")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsKlantIDIngevuldDUPO">
+<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")
+]]></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")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsKlantIDIngevuldSFS">
+<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")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsGebruikerToegelatenHFLB">
+<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")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContextVHEPN">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinVHEPN)
+	Quit TBXContext
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContextDUPO">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinDUPONT)
+	Quit TBXContext
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContextSFS">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinSFS)
+	Quit TBXContext
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContextHFLB">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinHFLB)
+	Quit TBXContext
+]]></Implementation>
+</Method>
+</Class>
+</Export>