Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou
===================================================================
diff -u -r100 -r135
--- cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 100)
+++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 135)
@@ -132,7 +132,7 @@
 	. If blnRedir  Set %session.Data("UserType")=UserType
 	. Else  Kill %session.Data("UserType")
 	
-	If (blnLMC||blnSFS||blnMBHO||blnHFLB) && ( $$$Not(TBXContext.IsKlantIDIngevuld($G(RefArray("KLNR")))) ) Do
+	If (TBXContext.KlantGegevensViaDataOpt()) && ( $$$Not(TBXContext.IsKlantIDIngevuld($G(RefArray("KLNR")))) ) Do
 	. Set blnRedir=0
 	. Set LoginState="ERR"
 	
@@ -214,7 +214,8 @@
 	Set luSafe($$$TBoxWebDomeinMBHO,"MBHO","ENC")="meubelgeheimMBHO"
 	Set luSafe($$$TBoxWebDomeinMBHO,"VHEPN","PSW")="auftrage"   ; "pwd4682VH"
 	Set luSafe($$$TBoxWebDomeinMBHO,"VHEPN","ENC")="meubelgeheimMBHO"
-	Set luSafe($$$TBoxWebDomeinHFLB,"?","?")=""   ; Wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt 
+	Set luSafe($$$TBoxWebDomeinHFLB,"?","?")=""    ; luSafe wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt  ( !!! luTBX hieronder nog wel aanvullen) 
+	Set luSafe($$$TBoxWebDomeinKISCH,"?","?")=""   ; luSafe wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt  ( !!! luTBX hieronder nog wel aanvullen) 
 	; luTBX
 	; Temporary copied local values from (class(WS.TBX.Order).DomaimLookup/cdtFillArrayLU):
 	Set luTBX("www.tandem-box.com","UserType","VHEPN")=$$$utVerwAdmin
@@ -237,12 +238,14 @@
 	Set luTBX($$$TBoxWebDomeinMBHO,"UserType","MBHO")=$$$utVerwDomain
 	Set luTBX($$$TBoxWebDomeinHFLB,"UserType","VHEPN")=$$$utVerwAdmin
 	Set luTBX($$$TBoxWebDomeinHFLB,"UserType","HFLB")=$$$utVerwDomain
+	Set luTBX($$$TBoxWebDomeinKISCH,"UserType","VHEPN")=$$$utVerwAdmin
+	Set luTBX($$$TBoxWebDomeinKISCH,"UserType","KISCH")=$$$utVerwDomain
 	Quit
 ophGetUserType(KLNr,Domain,Verw,Mode)
 #If $$$NSpace="xDEMO" 
 	Quit:(Mode="A") $S(1:$$$utKlantAnon)
 #Else
-	Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, TBXContext.IsKlantIDIngevuld(KLNr):$$$utKlantKnown, 1:$$$utKlantAnon)   ; blnLMC,blnSFS,blnMBHO, : $$$utKlantKnown 
+	Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, TBXContext.IsKlantIDIngevuld(KLNr):$$$utKlantKnown, 1:$$$utKlantAnon)
 #EndIf
 	Quit:(Mode="W") $$ophGetVERWType(Domain,Verw)
 	Quit:(Mode="P") $$$utKlantAnon                        ; Temporary: fixed value
@@ -370,7 +373,8 @@
 	New OptimaKey,Data
 	Kill arData
 	Quit:($G(encData)="") ""
-	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)   ; $S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, sDomVERW="HFLB":$$$HafeleBEOptKey,  1:ERROR)
+	Set:(OptimaKey="") OptimaKey=ERROR   ; Trigger error 
 	If ($G(%blnBuildRef))&&($$$NotEncrypted(encData))  Set Data=encData
 	Else  Set Data=$$ophDecryptHashedRef(encData,OptimaKey)
 	Do OPTIMAAnalyseCommon(.Data,,.encData)
@@ -412,6 +416,7 @@
 OPTIMAEncryptData(Data,sDomVERW)
 	New OptimaKey,encData
 	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)   ; $S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, sDomVERW="HFLB":$$$HafeleBEOptKey,  1:ERROR)
+	Set:(OptimaKey="") OptimaKey=ERROR   ; Trigger error 
 	Set encData=$$ophEncryptRefHashed(Data,.OptimaKey)
 	Quit encData
\ No newline at end of file