Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r1571 -r1573
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 1571)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 1573)
@@ -589,7 +589,7 @@
 <Implementation><![CDATA[
 	#define DateH(%v)   $S(%v?5N1","1.5N:%v, 1:$ZDTH(%v,3))
 	
-	Set sDomVERW=$LG(##class(APPS.TBXWeb.XXXContext).GeefDomeinData(..WebDomain,$LB("VERW")),1)
+	Set sDomVERW=$LG(##class(APPS.TBXWeb.TBXContext).GeefDomeinData(..WebDomain,$LB("VERW")),1)
 	If sDomVERW="" {
 		$$$ThrowError($$$errGeneralError,"Ongeldig waarde voor WebDomain. De verwerker kan niet bepaald worden.")
 	}
@@ -660,7 +660,7 @@
 <FormalSpec>RefDatum:%String=$H</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set sDomVERW=$LG(##class(APPS.TBXWeb.XXXContext).GeefDomeinData(..WebDomain,$LB("VERW","KLNR")),1)
+	Set sDomVERW=$LG(##class(APPS.TBXWeb.TBXContext).GeefDomeinData(..WebDomain,$LB("VERW","KLNR")),1)
 	Set Shop=sDomVERW
 	Set NieuweActies = 0
 	If (Shop '= "")
@@ -961,7 +961,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	// Method implementation has been moved to class  APPS.TBXWeb.Context   (by WimV on 29/06/2011) 
-	Quit ##class(APPS.TBXWeb.XXXContext).GeefDomeinData($G(Domain),lbFieldName)
+	Quit ##class(APPS.TBXWeb.TBXContext).GeefDomeinData($G(Domain),lbFieldName)
 ]]></Implementation>
 </Method>
 
@@ -980,7 +980,7 @@
 	 
 	Set KLNr = ..KLNummer
 	Set:'$L(Taal) Taal = ..Taal
-	Set:'$L(VERW) VERW = $LG(##class(APPS.TBXWeb.XXXContext).GeefDomeinData(..WebDomain,$LB("VERW")),1)
+	Set:'$L(VERW) VERW = $LG(##class(APPS.TBXWeb.TBXContext).GeefDomeinData(..WebDomain,$LB("VERW")),1)
 	
 	Set arParam("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,"P"))
 	Set arParam("Taal")= $S($L(Taal):Taal,1:"N")
Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r1571 -r1573
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 1571)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 1573)
@@ -1012,7 +1012,7 @@
 <Implementation><![CDATA[
 	// Modified by WimV on 23/06/2011 : 
 	// Implementatie met TBXContext-object   i.p.v. ##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))
-	Set TBXContext=##class(APPS.TBXWeb.XXXContext).InitFromHttpRequest()
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
 
 	Set sDomain=TBXContext.GeefHttpRequestDomein()
 	Set sDomCVT=TBXContext.GeefWebDomein()
@@ -1059,7 +1059,7 @@
 	; New Domain,UrlBase,WSOrdID,RefEnc, VERW
 	Set Domain=""
 	If SwitchDomain Do
-	. Set Domain=##class(APPS.TBXWeb.XXXContext).GeefWebDomeinVoorKlant(KLNr)
+	. Set Domain=##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorKlant(KLNr)
 	. Set:(Domain'="") KLNr=""
 	Set:(Domain="") Domain="www.tandem-box.com"
 	Set UrlBase="http://"_Domain_"/VHISIE/TBX/main.csp"
Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r1571 -r1573
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 1571)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 1573)
@@ -107,7 +107,7 @@
 <Method name="Init">
 <FormalSpec>KLNr:%String,sDomVERW:%String,DCM:%String,Taal:%String="",lbAllowVPK:%List=""</FormalSpec>
 <Implementation><![CDATA[
-	#define TaalDfl   ##class(APPS.TBXWeb.XXXContext).GeefDefaultTaalVoorVerwerker(sDomVERW)
+	#define TaalDfl   ##class(APPS.TBXWeb.TBXContext).GeefDefaultTaalVoorVerwerker(sDomVERW)
 
 	Set ..KLNr=KLNr
 	Set ..sDomVERW=sDomVERW
Index: cspBasis/Library.mac.rou
===================================================================
diff -u -r1571 -r1573
--- cspBasis/Library.mac.rou	(.../Library.mac.rou)	(revision 1571)
+++ cspBasis/Library.mac.rou	(.../Library.mac.rou)	(revision 1573)
@@ -85,7 +85,6 @@
 		Quit:(Domain="test.sfsunimarket.biz"                    ) "tbx.sfsunimarket.biz"
 		Quit:(Domain="testtandembox.meubelbeslagholland.nl"     ) $$$TBoxWebDomeinMBHO
 		;Quit:(Domain="testtandembox.hafele.be"                 ) $$$TBoxWebDomeinHFLB
-		Quit:(Domain="testtbxhafele.tandem-box.com"             ) $$$TBoxWebDomeinHFLB   ; Tijdelijk, totdat het definitieve domein van Hafele.be bekend is.  Vermoedelijk dan de lijn hierboven actief 
  
 		Quit:(Domain="localdev.tandem-box.com"                  ) "www.tandem-box.com"
 		Quit:(Domain="localdev.optima-tbx.fr"                   ) "www.optima-tbx.fr"
Index: csp/queryvh.cls.xml
===================================================================
diff -u -r1074 -r1573
--- csp/queryvh.cls.xml	(.../queryvh.cls.xml)	(revision 1074)
+++ csp/queryvh.cls.xml	(.../queryvh.cls.xml)	(revision 1573)
@@ -10,31 +10,20 @@
 
 <Method name="BuildHRef">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <FormalSpec>query</FormalSpec>
 <Language>cache</Language>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
  #include APPS.TBXWeb
  #include PRGACNTs
- #define DomVHEPN     $$$TBoxWebDomeinVHEPN
- #define DomHEIN      $$$TBoxWebDomeinHEIN
- #define DomOPTIMA    $$$TBoxWebDomeinOPTIMA
- #define DomDUPONT    $$$TBoxWebDomeinDUPONT
- #define DomHELMY     $$$TBoxWebDomeinHELMY
- #define DomHFLE      $$$TBoxWebDomeinHFLE
- #define DomSFS       $$$TBoxWebDomeinSFS
- #define DomMBHO      $$$TBoxWebDomeinMBHO
- #define DomDEMO      $$$TBoxWebDomeinDEMO
  
  #define BldRefPg     "http://cache02/VHISIE/TBX/BuildRef.csp"
  #define BldRefPgIP   "http://192.168.1.67/VHISIE/TBX/BuildRef.csp"
- #define DomainDFL    $$$DomVHEPN
  #define QryVal(%v)   query.GetDataByName(%v)
  
  	New sDomain,sDomFull,sRef
- 	Set sDomain=query.GetDataByName("Domein")
- 	Set sDomain=$CASE(sDomain, "vh":$$$DomVHEPN, "hein":$$$DomHEIN, "optima":$$$DomOPTIMA, "dupont":$$$DomDUPONT, "destil":$$$DomHELMY, "hafele":$$$DomHFLE, "sfs":$$$DomSFS, "mbho":$$$DomMBHO, "demo":$$$DomDEMO, "":$$$DomainDFL, :sDomain)
+ 	Set sDomain=query.GetDataByName("Domein")   ; Geeft eigenlijk DomeinKort
+ 	Set sDomain=##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorAfkorting(sDomain)   ; $CASE(sDomain, "vh":$$$DomVHEPN, "hein":$$$DomHEIN, "optima":$$$DomOPTIMA, "dupont":$$$DomDUPONT, "destil":$$$DomHELMY, "hafele":$$$DomHFLE, "sfs":$$$DomSFS, "mbho":$$$DomMBHO, "demo":$$$DomDEMO, "":$$$DomainDFL, :sDomain)
  	Set sDomFull="http://"_sDomain_"/"_"VHISIE/TBX/"
  	Set sRef=$$$URL($$$QryVal("VERW")_"\"_$$$QryVal("KLNr")_"\"_$$$QryVal("OrdID")_"\"_"VIEW")   ; $$$QryVal("Mode")   ; "VHEPN\2009\2835\COMPLETE"
  	Quit $$$BldRefPg_"?"_"REF="_sRef_"&"_"PAGE="_sDomFull_"main.csp"_"&"_"URLTAAL="_$$$QryVal("Taal")_$S($$$QryVal("KLNr")=$$$KLNrListAll:"&HIST=1",1:"")_"&"_"SUBMIT="_"Encrypt"
@@ -45,7 +34,6 @@
 
 <Method name="OnPage">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  Do ..OnPagePREHTML()
@@ -57,7 +45,6 @@
 
 <Method name="OnPageBODY">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Write "<body>"
@@ -77,11 +64,8 @@
  Set sqlTBX=sqlTBX_$C(13,10)_"       DECODE(Domein, '"_$$$DomVHEPN_"','vh', '"_$$$DomHEIN_"','hein', '"_$$$DomOPTIMA_"','optima', '"_$$$DomDUPONT_"','dupont', '"_$$$DomHELMY_"','destil', '"_$$$DomHFLE_"','hafele', '"_$$$DomSFS_"','sfs', Domein) Domein, ClientHost" 
  Set sqlTBX=sqlTBX_$C(13,10)_"  FROM DW_WWW.SysLogTBX   WHERE LogTime %STARTSWITH '"_$ZD($H,3)_"' "
  */
- #If $$$NSpace="HADEV" 
- Set StartFromID=" (ID > 900000) AND"
- #Else
+ ;Set StartFromID=" (ID > 900000) AND"
  Set StartFromID=""
- #EndIf
  Set sqlTBX="SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, WSTotals, KlantNr KLNr, Verwerker VERW, LogTime, Taal, DomeinKort Domein, ClientHost"
  Set sqlTBX=sqlTBX_$C(13,10)_"  FROM DW_WWW.SysLogTBX   WHERE"_StartFromID_" LogTime %STARTSWITH '"_$ZD($H,3)_"' "
  ; SQL-statement for TBX WSOrder via ID
@@ -172,7 +156,7 @@
      Set queryA.RuntimeMode=2
      Set sqlStatement=$zstrip($tr((sqlActive),$C(9,13,10),"   "),"<>W")
      If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" {
-         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,136))
+         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,134))
          Quit
      }
      // translate tab/cr/nl to spaces
@@ -265,7 +249,7 @@
      Set queryOrd01.RuntimeMode=2
      Set sqlStatement=$zstrip($tr((sqlOrd01),$C(9,13,10),"   "),"<>W")
      If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" {
-         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,186))
+         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,184))
          Quit
      }
      // translate tab/cr/nl to spaces
@@ -315,7 +299,7 @@
      Set queryOrd02.RuntimeMode=2
      Set sqlStatement=$zstrip($tr((sqlOrd02),$C(9,13,10),"   "),"<>W")
      If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" {
-         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,202))
+         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,200))
          Quit
      }
      // translate tab/cr/nl to spaces
@@ -365,7 +349,7 @@
      Set queryOrdLn.RuntimeMode=2
      Set sqlStatement=$zstrip($tr((sqlOrdLn),$C(9,13,10),"   "),"<>W")
      If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" {
-         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,218))
+         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,216))
          Quit
      }
      // translate tab/cr/nl to spaces
@@ -415,7 +399,6 @@
 
 <Method name="OnPageCSPROOT">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Write !,!,!
@@ -425,7 +408,6 @@
 
 <Method name="OnPageHEAD">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Write "<head>"
@@ -478,7 +460,6 @@
 
 <Method name="OnPageHTML">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Write "<html>"
@@ -492,7 +473,6 @@
 
 <Method name="OnPagePOSTHTML">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Set queryA=$$$NULLOREF
@@ -504,7 +484,6 @@
 
 <Method name="OnPagePREHTML">
 <ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Set queryA=$$$NULLOREF
@@ -515,15 +494,15 @@
 </Method>
 
 <Parameter name="CSPFILE">
-<Default>c:\cachesys\csp\httplog\queryVH.csp</Default>
+<Default>c:\cache\cache2005v021\csp\httplog\queryVH.csp</Default>
 </Parameter>
 
 <Parameter name="CSPURL">
 <Default>/csp/httplog/queryVH.csp</Default>
 </Parameter>
 
 <Parameter name="FileTimestamp">
-<Default>62105,37324</Default>
+<Default>62272,49586</Default>
 </Parameter>
 </Class>
 </Export>
FishEye: Tag 1573 refers to a dead (removed) revision in file `APPS/TBXWeb/XXXContext.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DW/WWW/SysLogTBX.cls.xml
===================================================================
diff -u -r1571 -r1573
--- DW/WWW/SysLogTBX.cls.xml	(.../SysLogTBX.cls.xml)	(revision 1571)
+++ DW/WWW/SysLogTBX.cls.xml	(.../SysLogTBX.cls.xml)	(revision 1573)
@@ -203,7 +203,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Domein:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.TBXWeb.XXXContext).GeefDomeinKort(Domein)
+<Implementation><![CDATA[	Quit ##class(APPS.TBXWeb.TBXContext).GeefDomeinKort(Domein)
 ]]></Implementation>
 </Method>
 
Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou
===================================================================
diff -u -r1571 -r1573
--- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1571)
+++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1573)
@@ -97,7 +97,7 @@
 	Do ophInitLookups^cspBasis.TBX.DecodeURL.tmpDev
  
 	New TBXContext,DefaultTaal
-	Set TBXContext=##class(APPS.TBXWeb.XXXContext).InitFromHttpRequest()
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
 	Set sDomain=TBXContext.GeefHttpRequestDomein()
 	Set sDomCVT=TBXContext.GeefWebDomein()
 	Set sDomVERW=TBXContext.GeefDomeinVerwerker()
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/TBXContext.cls.xml	(revision 0)
+++ APPS/TBXWeb/TBXContext.cls.xml	(revision 1573)
@@ -0,0 +1,660 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.TBXContext">
+<IncludeCode>APPS.TBXWeb,PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/***   *** /
+
+Oproepen via :
+
+	Set TBXContext=##class(APPS.TBXWeb.XXXContext).InitFromHttpRequest()
+
+	Set sDomain=TBXContext.GeefHttpRequestDomein()
+	Set sDomCVT=TBXContext.GeefWebDomein()
+	Set sDomVERW=TBXContext.GeefDomeinVerwerker()
+	Set sDomKLNr=TBXContext.GeefDomeinKlantNummer()
+	Set Taal=TBXContext.GeefDefaultTaal()
+
+Copy-Paste template-jes:
+========================
+TBXContext.GeefDomeinVerwerker()
+TBXContext.IsDomeinVHEPN()
+
+TBXContext.KlantGegevensViaDataOpt()
+TBXContext.GeefDefaultTaal()
+##class(APPS.TBXWeb.XXXContext).GeefDefaultTaalVoorVerwerker(sDomVERW)
+
+/***   ***/
+
+]]></Content>
+</UDLText>
+
+<Property name="HttpRequestDomein">
+<Description>
+Is het domein letterlijk uit de URL  (kan dus bijvoorbeeld test.tandem-box.com zijn) </Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WebDomein">
+<Description>
+Bevat de conversie van het HttpRequestDomein 
+i.e. de correcte naam van het officiele domein in de productie-omgeving (bvb www.tandem-box.com) </Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DomeinVerwerker">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DomeinKlantNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsVHEPN">
+<Description>
+Van Hoecke : domein voor de klanten van Van Hoecke </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsHEIN">
+<Description>
+Hein (Duitsland) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsLMC">
+<Description>
+LMC / Optima Pack (Frankrijk) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsDUPO">
+<Description>
+Dupont (Alain Leyssens, BE)</Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsHELMY">
+<Description>
+Destil,  ex: Helmondse Yzerhandel  (NL) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsHFLE">
+<Description>
+Haefele NL  (anonymous ingave) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsSFS">
+<Description>
+SFS unimarket (Zwitserland) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsMBHO">
+<Description>
+Meubelbeslag Holland  (NL) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsHFLB">
+<Description>
+Haefele BE  (met login) </Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WebDomein:%String,HttpRequestDomein:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..WebDomein=WebDomein
+	Set ..HttpRequestDomein=HttpRequestDomein   // HttpRequestDomein is optional 
+	
+	;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(WebDomein,$LB("VERW","KLNR"))   ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR"))
+	Set lbDomLU=..GeefDomeinData(WebDomein,$LB("VERW","KLNR"))
+	Set ..DomeinVerwerker=$LG(lbDomLU,1)
+	Set ..DomeinKlantNummer=$LG(lbDomLU,2)
+	
+	Set ..IsVHEPN=(..DomeinVerwerker="VHEPN")
+	Set ..IsHEIN=(..DomeinVerwerker="HEIN")
+	Set ..IsLMC=(..DomeinVerwerker="LMC")
+	Set ..IsDUPO=(..DomeinVerwerker="DUPO")
+	Set ..IsHELMY=(..DomeinVerwerker="HELMY")
+	Set ..IsHFLE=(..DomeinVerwerker="HFLE")
+	Set ..IsSFS=(..DomeinVerwerker="SFS")
+	Set ..IsMBHO=(..DomeinVerwerker="MBHO")
+	Set ..IsHFLB=(..DomeinVerwerker="HFLB")
+	; ... uit te breiden voor nieuwe domeinen 
+	
+	Quit $$$OK
+
+]]></Implementation>
+</Method>
+
+<Method name="InitFromHttpRequest">
+<Description><![CDATA[
+URL --> domain / sDomVERW / sDomKLNr
+Oproepen via :
+  Set TBXContext=##class(APPS.TBXWeb.XXXContext).InitFromHttpRequest() ]]></Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set HttpRequestDomein=$$GetURLDomain^cspBasis.Library
+	Set WebDomein=$$TBXDomainCVT^cspBasis.Library(HttpRequestDomein)
+ 
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(WebDomein,HttpRequestDomein)
+	/*
+	Set sDomain=TBXContext.GeefHttpRequestDomein()
+	Set sDomCVT=TBXContext.GeefWebDomein()
+	Set sDomVERW=TBXContext.GeefDomeinVerwerker()
+	Set sDomKLNr=TBXContext.GeefDomeinKlantNummer()
+	Set Taal=TBXContext.GeefDefaultTaal()
+	*/
+	Quit TBXContext
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefDomeinData">
+<Description>
+Oproepen via : 
+   w ##class(APPS.TBXWeb.XXXContext).GeefDomeinData(Domain,lbFieldNames) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Domain:%String,lbFieldNames:%List</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	// the value of Domain must be all lowercase !!!
+	Quit:(Domain="") ""
+	Set lbVal=""
+	Do cdtFillArrayLU(.arLookupTBX,Domain)
+	For i=1:1:$LL(lbFieldNames) Set:($L($LG(lbFieldNames,i))) lbVal=lbVal_$LB(arLookupTBX($LI(lbFieldNames,i)))
+	Quit lbVal
+cdtFillArrayLU(arLookupTBX,Domain)
+	If Domain="www.tandem-box.com" {
+		Set arLookupTBX("VERW")="VHEPN"
+		Set arLookupTBX("KLNR")="4682"
+	}
+	ElseIf Domain="tbx.tandem-box.de" {
+		Set arLookupTBX("VERW")="HEIN"
+		Set arLookupTBX("KLNR")="7833"
+	}
+	ElseIf Domain="www.optima-tbx.fr" {
+		Set arLookupTBX("VERW")="LMC"
+		Set arLookupTBX("KLNR")="6279"
+	}
+	ElseIf Domain="tbx.du-pont.be" {
+		Set arLookupTBX("VERW")="DUPO"
+		Set arLookupTBX("KLNR")="1736"
+	}
+	ElseIf Domain="tbx.destil.nl" {
+		Set arLookupTBX("VERW")="HELMY"
+		Set arLookupTBX("KLNR")="4598"   ; Old="2127"  New="4598" (by WimV on 17/01/2006)
+	}
+	ElseIf Domain="hafele.tandem-box.com" {
+		Set arLookupTBX("VERW")="HFLE"
+		Set arLookupTBX("KLNR")="2671"
+	}
+	ElseIf Domain="tbx.sfsunimarket.biz" {
+		Set arLookupTBX("VERW")="SFS"
+		Set arLookupTBX("KLNR")="12486"
+	}
+	ElseIf Domain="demo.tandem-box.com" {
+		Set arLookupTBX("VERW")="VHEPN"
+		Set arLookupTBX("KLNR")="6819"
+	}
+	ElseIf Domain="demo.sfsunimarket.biz" {
+		Set arLookupTBX("VERW")="SFS"
+		Set arLookupTBX("KLNR")="12486"
+	}
+	ElseIf Domain=$$$TBoxWebDomeinMBHO {
+		Set arLookupTBX("VERW")="MBHO"
+		Set arLookupTBX("KLNR")=$$$TBoxWebKlantNrMBHO
+	}
+	ElseIf Domain=$$$TBoxWebDomeinHFLB {
+		Set arLookupTBX("VERW")="HFLB"
+		Set arLookupTBX("KLNR")=$$$TBoxWebKlantNrHFLB
+	}
+	Else {
+		Set arLookupTBX=""	
+	}
+	Quit
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebDomeinVoorKlant">
+<Description>
+Oproepen via : 
+   w ##class(APPS.TBXWeb.XXXContext).GeefWebDomeinVoorKlant(KLNr) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set WebDomein = $CASE(KLNr,
+							"4682"  : $$$TBoxWebDomeinVHEPN, 
+							"7833"  : $$$TBoxWebDomeinHEIN, 
+							"6279"  : $$$TBoxWebDomeinOPTIMA, 
+							"1736"  : $$$TBoxWebDomeinDUPONT, 
+							"4598"  : $$$TBoxWebDomeinHELMY, 
+							"2671"  : $$$TBoxWebDomeinHFLE, 
+							"12486" : $$$TBoxWebDomeinSFS, 
+							$$$TBoxWebKlantNrMBHO : $$$TBoxWebDomeinMBHO, 
+							$$$TBoxWebKlantNrHFLB : $$$TBoxWebDomeinHFLB, 
+							        : "" )   ; niet naar demo verwijzen ($$$TBoxWebDomeinDEMO)
+	Quit WebDomein
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefDomeinKort">
+<Description>
+Oproepen via : 
+   w ##class(APPS.TBXWeb.XXXContext).GeefDomeinKort(WebDomein) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WebDomein:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set DomeinKort = $CASE(WebDomein, 
+			 				$$$TBoxWebDomeinVHEPN  : "vh", 
+			 				$$$TBoxWebDomeinHEIN   : "hein", 
+			 				$$$TBoxWebDomeinOPTIMA : "optima", 
+			 				$$$TBoxWebDomeinDUPONT : "dupont", 
+			 				$$$TBoxWebDomeinHELMY  : "destil", 
+			 				$$$TBoxWebDomeinHFLE   : "hfle.nl", 
+			 				$$$TBoxWebDomeinSFS    : "sfs", 
+			 				$$$TBoxWebDomeinMBHO   : "mbho", 
+			 				$$$TBoxWebDomeinHFLB   : "hfle.be", 
+			 				$$$TBoxWebDomeinDEMO   : "demo", 
+			 				 : WebDomein )
+	Quit DomeinKort
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebDomeinVoorAfkorting">
+<Description>
+Oproepen via : 
+   w ##class(APPS.TBXWeb.XXXContext).GeefWebDomeinVoorAfkorting(DomeinKort) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DomeinKort:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set WebDomein = $CASE(DomeinKort, 
+			 				"vh"      : $$$TBoxWebDomeinVHEPN, 
+			 				"hein"    : $$$TBoxWebDomeinHEIN,
+			 				"optima"  : $$$TBoxWebDomeinOPTIMA,
+			 				"dupont"  : $$$TBoxWebDomeinDUPONT,
+			 				"destil"  : $$$TBoxWebDomeinHELMY,
+			 				"hf"      : $$$TBoxWebDomeinHFLE,
+			 				"sfs"     : $$$TBoxWebDomeinSFS,
+			 				"mbho"    : $$$TBoxWebDomeinMBHO,
+			 				"hfle.nl" : $$$TBoxWebDomeinHFLE,
+			 				"hfle.be" : $$$TBoxWebDomeinHFLB,
+			 				"demo"    : $$$TBoxWebDomeinDEMO, 
+			 				 : DomeinKort )
+	Quit WebDomein
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebDomein">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit ..WebDomein
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefHttpRequestDomein">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit ..HttpRequestDomein
+
+]]></Implementation>
+</Method>
+
+<Method name="IsDomeinVHEPN">
+<Implementation><![CDATA[
+	Quit ..IsVHEPN
+
+]]></Implementation>
+</Method>
+
+<Method name="IsDomeinHEIN">
+<Implementation><![CDATA[
+	Quit ..IsHEIN
+
+]]></Implementation>
+</Method>
+
+<Method name="IsDomeinSFS">
+<Implementation><![CDATA[
+	Quit ..IsSFS
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefDomeinVerwerker">
+<Implementation><![CDATA[
+	Quit ..DomeinVerwerker
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefDomeinKlantNummer">
+<Implementation><![CDATA[
+	Quit ..DomeinKlantNummer
+
+]]></Implementation>
+</Method>
+
+<Method name="IsOngeldigDomein">
+<Implementation><![CDATA[
+	Quit (..DomeinVerwerker="")||(..DomeinKlantNummer'>0)
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefDefaultTaal">
+<Implementation><![CDATA[
+	Quit ..GeefDefaultTaalVoorVerwerker(..DomeinVerwerker)
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefDefaultTaalVoorVerwerker">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>sDomVERW:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit $S(sDomVERW="HEIN":"D", sDomVERW="LMC":"F", sDomVERW="SFS":"D", 1:"N")
+
+]]></Implementation>
+</Method>
+
+<Method name="MagAndereTaalKiezen">
+<Implementation><![CDATA[
+	Quit (..IsVHEPN||..IsSFS)
+
+]]></Implementation>
+</Method>
+
+<Method name="AlleenToegangZonderLogin">
+<Description>
+De domeinen die voorzien dat enkel via anonymous kan worden ingegeven. 
+D.w.z. klanten hebben niet de mogelijkheid om via de WebShop (van de betreffende handel) in te loggen </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..DomeinVerwerker?1(1"HFLE",1"HELMY",1"DUPO"))
+
+]]></Implementation>
+</Method>
+
+<Method name="HeeftToegangZonderLogin">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// Op tandem-box.com (VHEPN) is zowel toegang MET login als toegang ZONDER login mogelijk 
+	Quit (..IsVHEPN) || (..AlleenToegangZonderLogin())
+
+]]></Implementation>
+</Method>
+
+<Method name="HeeftToegangMetLogin">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..IsVHEPN) || (..IsLMC||..IsSFS||..IsMBHO||..IsHFLB)
+
+]]></Implementation>
+</Method>
+
+<Method name="AlleenToegangMetLogin">
+<Description>
+is doorverwijzing naar de method ..KlantGegevensViaDataOpt() </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..KlantGegevensViaDataOpt())
+
+]]></Implementation>
+</Method>
+
+<Method name="KlantGegevensViaDataOpt">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..IsLMC||..IsSFS||..IsMBHO||..IsHFLB)
+
+]]></Implementation>
+</Method>
+
+<Method name="IsIPvanSFS">
+<Description>
+Toegang voor de TestDataOpt page : beperkt via controle op IP-adres </Description>
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit IP?1(1"77.59.193.234",1"195.141.221.1")
+
+]]></Implementation>
+</Method>
+
+<Method name="IsIPvanMBHO">
+<Description>
+Toegang voor de TestDataOpt page : beperkt via controle op IP-adres </Description>
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit IP?1(1"217.21.251.83")
+
+]]></Implementation>
+</Method>
+
+<Method name="IsIPvanHFLB">
+<Description>
+Toegang voor de TestDataOpt page : beperkt via controle op IP-adres </Description>
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit $$$AccessTestPageDataOptHFLB(IP)   ; IP?1(1"194.78.193.29")
+
+]]></Implementation>
+</Method>
+
+<Method name="IsIPvanOptima">
+<Description>
+Toegang voor de TestDataOpt page : beperkt via controle op IP-adres </Description>
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit IP?1(1"92.103.129.165",1"212.103.4.85")
+
+]]></Implementation>
+</Method>
+
+<Method name="HeeftToegangTotFixOptimaPage">
+<Description>
+Toegang voor OptimaFIX page : beperkt via controle op IP-adres </Description>
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..IsLMC)&&(IP?1(1"92.103.129.165",1"92.103.129.172",1"92.103.129.174",1"192.168.1."1.3N))
+	// PREVIOUS IP's(IP?1(1"212.103.4.85")           ; No longer in use by Optima
+
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwerkerToegelaten">
+<Description>
+De button "ExportXML" voor een bestelling is beschikbaar </Description>
+<FormalSpec>VERW:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(..IsVHEPN) (VERW="VHEPN")
+	Quit:('..IsVHEPN) ((VERW="VHEPN")||(VERW=..DomeinVerwerker))
+
+]]></Implementation>
+</Method>
+
+<Method name="IsBeschikbaarExportXML">
+<Description>
+De button "ExportXML" voor een bestelling is beschikbaar </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..IsVHEPN)
+
+]]></Implementation>
+</Method>
+
+<Method name="ToonAlgemeneVoorwaarden">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..IsVHEPN)||(..IsHEIN)||(..IsSFS)   ; $$$Not(..IsLMC||..IsDUPO||..IsHELMY||..IsHFLE||..IsMBHO)
+
+]]></Implementation>
+</Method>
+
+<Method name="ToonInfoAppTesterPagina">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// Nieuwere domeinen toevoegen 
+	Quit (..DomeinVerwerker'?1(1"HFLB"))
+
+]]></Implementation>
+</Method>
+
+<Method name="SubmitToVHviaCspPage">
+<Description>
+Bestelling verzenden naar VH via de mainpage (csp) mogelijk. 
+(is enkel voor externe domeinen) </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Result=0
+	If ..DomeinVerwerker="SFS" {
+		Set Result=1   ; voor SFS geldt in de eerste plaats: Submit via WebService, maar als backup kunnen ze nog steeds submitten vanuit de mainpage (csp) 
+	}
+	Else {
+		Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"MBHO",1"HFLB"))    ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")   ; 1"SFS"
+	}
+	Quit Result
+
+]]></Implementation>
+</Method>
+
+<Method name="StatusInkoopAlsOrderToVH">
+<Description>
+Bij bestelling verzenden naar VH wijzigt het BonType van BBON naar INKP 
+(is enkel voor externe domeinen) </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit ..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"SFS",1"MBHO",1"HFLB")   ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")
+
+]]></Implementation>
+</Method>
+
+<Method name="VerzendOfferteAlsAanvraag">
+<Description><![CDATA[
+Offerte (OFF) verzenden als prijsaanvraag. 
+Voorlopig enkel voor HEIN. 
+Bij de andere domeinen wordt een ingave (offerte) verzonden als bestelbon, wat overeenkomt met "Goed voor Order" --> OFFTOBBON=1 
+Een prijsaanvraag voor 'Anonymous' gebruikers loopt via een OfferteAanvraag, i.e. BonType="OFFAV" ]]></Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit ..DomeinVerwerker="HEIN"
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefMuntEenheid">
+<Description>
+Geeft de munteenheid van het domein</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit $S(..DomeinVerwerker="SFS":"CHF", 1:"EUR")
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefUserMuntEenheid">
+<Description>
+Geeft de munteenheid van het domein of voor verwerker VHEPN op extern domein 
+Zie ook routine  GetUserMunt^cspBasis.Library.MAC  voor de oude implementatie </Description>
+<FormalSpec>VERW:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit $S(VERW="VHEPN":"EUR", 1:..GeefMuntEenheid())
+
+]]></Implementation>
+</Method>
+
+<Method name="ToonKnopDupliceerEnWijzig">
+<Description>
+De button voor het dupliceren van een order/offerte tonen. </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToonKnop=$$$Not( (..IsHEIN)||(..IsDUPO)||(..IsHELMY)||(..IsHFLE) )   ; DupliceerEnWijzig is momenteel nog niet mogelijk voor Anonymous accounts 
+ 	Quit ToonKnop
+
+]]></Implementation>
+</Method>
+
+<Method name="ToonKnopHttpRequestTestpage">
+<Description>
+De button voor de Testpage van HttpRequest kan hier geactiveerd worden.  Is meestal tijdelijk. </Description>
+<FormalSpec>KLNr:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToonKnop=0
+	If ..IsVHEPN {
+		// Reeds eerder toegelaten klanten :  (nieuwe KLNr's vooraan toevoegen  --> historiek) 
+		//   KLNr= 999999 / 14937 / 12848 / 14484 / 3524 / 8575 / 5977 / 10096 /10939 / 4137 / 10547 / 5872 / 8537 / 4874 / 1093 / 8537 / 2118     --> 999999 = disabled 
+	 	If KLNr=999999 {
+		 	Set ToonKnop=1
+	 	}
+	}
+ 	Quit ToonKnop
+
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method Geef() As %Boolean
+{
+	Quit 0
+}
+
+Method Geef() As %Boolean
+{
+	Quit 0
+}
+
+Method Geef() As %Boolean
+{
+	Quit 0
+}
+
+
+*/
+
+]]></Content>
+</UDLText>
+</Class>
+</Export>
Index: _csp/httplog/queryVH.csp
===================================================================
diff -u -r1571 -r1573
--- _csp/httplog/queryVH.csp	(.../queryVH.csp)	(revision 1571)
+++ _csp/httplog/queryVH.csp	(.../queryVH.csp)	(revision 1573)
@@ -243,7 +243,7 @@
 
 	New sDomain,sDomFull,sRef
 	Set sDomain=query.GetDataByName("Domein")   ; Geeft eigenlijk DomeinKort
-	Set sDomain=##class(APPS.TBXWeb.XXXContext).GeefWebDomeinVoorAfkorting(sDomain)   ; $CASE(sDomain, "vh":$$$DomVHEPN, "hein":$$$DomHEIN, "optima":$$$DomOPTIMA, "dupont":$$$DomDUPONT, "destil":$$$DomHELMY, "hafele":$$$DomHFLE, "sfs":$$$DomSFS, "mbho":$$$DomMBHO, "demo":$$$DomDEMO, "":$$$DomainDFL, :sDomain)
+	Set sDomain=##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorAfkorting(sDomain)   ; $CASE(sDomain, "vh":$$$DomVHEPN, "hein":$$$DomHEIN, "optima":$$$DomOPTIMA, "dupont":$$$DomDUPONT, "destil":$$$DomHELMY, "hafele":$$$DomHFLE, "sfs":$$$DomSFS, "mbho":$$$DomMBHO, "demo":$$$DomDEMO, "":$$$DomainDFL, :sDomain)
 	Set sDomFull="http://"_sDomain_"/"_"VHISIE/TBX/"
 	Set sRef=$$$URL($$$QryVal("VERW")_"\"_$$$QryVal("KLNr")_"\"_$$$QryVal("OrdID")_"\"_"VIEW")   ; $$$QryVal("Mode")   ; "VHEPN\2009\2835\COMPLETE"
 	Quit $$$BldRefPg_"?"_"REF="_sRef_"&"_"PAGE="_sDomFull_"main.csp"_"&"_"URLTAAL="_$$$QryVal("Taal")_$S($$$QryVal("KLNr")=$$$KLNrListAll:"&HIST=1",1:"")_"&"_"SUBMIT="_"Encrypt"
Index: WV GAProduct WWW.prj.xml
===================================================================
diff -u -r1571 -r1573
--- WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1571)
+++ WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1573)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct WWW" LastModified="2011-06-14 18:22:50" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct WWW" LastModified="2011-06-30 15:36:27" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -172,7 +172,9 @@
     <ProjectItem name="vhConsistency.Checks.NietVerwerkteTBXOrders" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110526x1642" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110608x0944" type="CLS"/>
+    <ProjectItem name="vhDeploy.WV.Deploy20110630x1132" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
+    <ProjectItem name="vhisie/TBX/TestDataOptHFLB.csp" type="CSP"/>
     <ProjectItem name="wv.tmpDev3.MAC" type="MAC"/>
   </Items>
 </Project>
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r1571 -r1573
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1571)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1573)
@@ -24,7 +24,7 @@
 	  ;d:($D(tmpTransfStatus)) WL^vhDBG("tmpTransfStatus: "_tmpTransfStatus)
 	Set:($D(tmpTransfStatus)) %session.Data("TransfStatus")=tmpTransfStatus
 	
-	Set TBXContext=##class(APPS.TBXWeb.XXXContext).InitFromHttpRequest()
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
 	Set sDomain=TBXContext.GeefHttpRequestDomein()
 	Set sDomCVT=TBXContext.GeefWebDomein()
 	Set sDomVERW=TBXContext.GeefDomeinVerwerker()