Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r588 -r718
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 588)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 718)
@@ -62,7 +62,7 @@
 	If blnVHEPN Do
 	. Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Ext")
 	. Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction)
-	Else  If blnHFLE Do
+	Else  If 0 Do
 	. Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Stg")
 	. Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction)
 	Else  Do   ; Default   ; (If blnLMC||blnSFS||blnMBHO Do) 
@@ -81,15 +81,15 @@
 	Set KLData=$G($$$GlobalKLData(sDomVERW,KLNr))
 	Quit:(KLData="")
 	; Else 
-	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
 	. Do OPTIMAAnalyseData^cspBasis.TBX.DecodeURL.tmpDev(KLData,.tmpAr)   ; Analyse only, KLData already decrypted
 	. Set KLMini=##class(WS.TBX.KlantMini).%New()
 	. Set KLMini.Taal  =$G(tmpAr("Taal"))
 	. Set KLMini.Nummer=$G(tmpAr("KLNummer"))
 	. Set KLMini.Naam  =$G(tmpAr("KLNaam"))
 	. Set KLMini.EMail =$G(tmpAr("EMail"))
 	. Set KLMini.Korting=$G(tmpAr("Korting"))
-	Else  If blnHFLE Do
+	Else  If 0 Do
 	. Set KLMini=##class(WS.TBX.KlantMini).%New()
 	. Set KLMini.Naam  =$P(KLData,"\",3)
 	. Set KLMini.EMail =$P(KLData,"\",4)
@@ -98,7 +98,7 @@
 	Quit 
 gkdDataFromExternal
 	New KLData
-	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
 	. Set KLMini=$$GetKlantDataViaQS(.KLData)
 	. Set:(KLMini) KLNr=KLMini.Nummer
 	Else  If blnVHEPN Do
@@ -115,7 +115,7 @@
 	Quit:(flgStorageMode=$$$smClean)
 	Quit:('$IsObject(KLMini))
 	; Else : Save the data
-	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
 	. Set $$$GlobalKLData(sDomVERW,KLNr)=KLData
 	Quit
 
@@ -137,6 +137,10 @@
 	. Set Data=$G(%request.Data("DATAOPT",1))
 	. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,"MBHO")
 	. Quit:(Data="")
+	If blnHFLE Do
+	. Set Data=$G(%request.Data("DATAOPT",1))
+	. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).HafeleNL())
+	. Quit:(Data="")
 	If blnHFLB Do
 	. Set Data=$G(%request.Data("DATAOPT",1))
 	. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE())