Index: _csp/httplog/queryVH.csp
===================================================================
diff -u -r1254 -r1571
--- _csp/httplog/queryVH.csp	(.../queryVH.csp)	(revision 1254)
+++ _csp/httplog/queryVH.csp	(.../queryVH.csp)	(revision 1571)
@@ -236,24 +236,14 @@
 <SCRIPT method="BuildHRef" language="Cache" arguments="query" returntype="%String">
 #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.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 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"