Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou
===================================================================
diff -u -r96 -r135
--- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 96)
+++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 135)
@@ -48,7 +48,7 @@
 	Do
 	. Set %blnBuildRef=1
     . Set DataOpt=$G(%request.Data("DATAOPT",1))
-    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", 1:""))
+    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", 1:""))
 	. Kill %blnBuildRef
 	
 	If ($G(%request.Data("SUBMIT",1))="Encrypt") Do
@@ -59,7 +59,7 @@
 	. ;If $L($G(%request.Data("DATAOPT",1))) Do
 	. If $L(DataOpt) Do
 	..  Set DataOptCheck=DataOpt
-	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", 1:""))
+	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", 1:""))
 	..  ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
 	. ;New Page,UrlTaal
 	. Set Page=$G(%request.Data("PAGE",1))
@@ -141,14 +141,15 @@
 	Else  If sDomVERW="LMC"  Set blnNoAccess=$$$Not($$$AccessTestPageDataOptLMC(%RemoteIP)||($$IsInternIPAdres^cspBasis.Library(%RemoteIP)))  || 1    ; blocked for all IP 
 	Else  If sDomVERW="MBHO" Set blnNoAccess=$$$Not($$$AccessTestPageDataOptMBHO(%RemoteIP)||($$IsInternIPAdres^cspBasis.Library(%RemoteIP)))
 	Else  If sDomVERW="HFLB" Set blnNoAccess=$$$Not($$$AccessTestPageDataOptHFLB(%RemoteIP)||($$IsInternIPAdres^cspBasis.Library(%RemoteIP)))
+	Else  If sDomVERW="KISCH" Set blnNoAccess=1
 	Else  Set blnNoAccess=1
 	
 		d WLIP^vhDBG(97,"blnNoAccess="_blnNoAccess_"")
 	Set RefOut=Ref
 	If 'blnNoAccess Do
 	. Set %blnBuildRef=1
     . Set DataOpt=$G(%request.Data("DATAOPT",1))
-    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", 1:"LMC"))
+    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="KISCH":"KISCH", 1:"LMC"))
     . Kill %blnBuildRef
 	Set tmpTaal=$G(tmpAr("Taal"))
 	Set:(tmpTaal?1(1"N",1"F",1"E",1"D")) Taal=tmpTaal
@@ -190,19 +191,20 @@
 	. ;If $L($G(%request.Data("DATAOPT",1))) Do
 	. If $L(DataOpt) Do
 	..  Set DataOptCheck=DataOpt
-	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", 1:"LMC"))
+	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="KISCH":"KISCH", 1:"LMC"))
 	..  ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
 	..  If blnKeySteps Do ophOPTIMAIntermediates(DataOpt,sDomVERW)
 	. ;New Page,UrlTaal
 	. Set Page=$G(%request.Data("PAGE",1))
 	. Set UrlTaal=$G(%request.Data("URLTAAL",1))
 	. Set UrlOut=$S($L(Page):Page_"?REF="_EncRefOut_$S($L(UrlTaal):"&Taal="_UrlTaal,1:""), 1:"")
-	Do ophAddToLog($S(sDomVERW="LMC":"TESTOPTIMA", sDomVERW="SFS":"TESTOPTSFS", sDomVERW="MBHO":"TESTOPTMBHO", sDomVERW="HFLB":"TESTOPTHFLB", 1:"TESTDATAOPT"))
+	Do ophAddToLog($S(sDomVERW="LMC":"TESTOPTIMA", sDomVERW="SFS":"TESTOPTSFS", sDomVERW="MBHO":"TESTOPTMBHO", sDomVERW="HFLB":"TESTOPTHFLB", sDomVERW="KISCH":"TESTOPTKISCH", 1:"TESTDATAOPT"))
 	Quit 1
 ophOPTIMAIntermediates(Data,sDomVERW)
 	New OptimaKey,encData,Step1,Step2,Step3,Step4,Step2Hex
 	Quit:($G(Data)="") ""
-	Set OptimaKey=$S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, sDomVERW="HFLB":$$$HafeleBEOptKey, 1:ERROR)
+	Set OptimaKey=##class(APPS.TBXWeb.TBXContext).%New("").GeefDataOptKeyVoorDomVerwerker(sDomVERW)
+	Set:(OptimaKey="") OptimaKey=ERROR   ; Trigger error 
 	Set Step1=Data
 	Set Step2=$system.Encryption.AESEncode(Step1,OptimaKey)
 	Set Step3=$TR($system.Encryption.Base64Encode(Step2),$$$CRLF,"")