Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r782 -r787
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 782)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 787)
@@ -38,7 +38,7 @@
 #define smClean         "Clean"
 #define smSave          "Save"
 #define smCleanSave     "CleanSave"
-	New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,blnRAEM,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
+	New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,blnRAEM,blnHEIN,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
 	Do gkdInitialize 
 	Set KLMini=""
 	For i=1:1:$LL(lbGetData) Do  Quit:($IsObject(KLMini))
@@ -59,6 +59,7 @@
 	Set blnHFLB=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE())
 	Set blnKISCH=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).Kisch())
 	Set blnRAEM=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck())
+	Set blnHEIN=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).Hein())
 	If blnVHEPN Do
 	. Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Ext")
 	. Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction)
@@ -81,7 +82,7 @@
 	Set KLData=$G($$$GlobalKLData(sDomVERW,KLNr))
 	Quit:(KLData="")
 	; Else 
-	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM||blnHEIN 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"))
@@ -98,7 +99,7 @@
 	Quit 
 gkdDataFromExternal
 	New KLData
-	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM||blnHEIN Do
 	. Set KLMini=$$GetKlantDataViaQS(.KLData)
 	. Set:(KLMini) KLNr=KLMini.Nummer
 	Else  If blnVHEPN Do
@@ -115,7 +116,7 @@
 	Quit:(flgStorageMode=$$$smClean)
 	Quit:('$IsObject(KLMini))
 	; Else : Save the data
-	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM||blnHEIN Do
 	. Set $$$GlobalKLData(sDomVERW,KLNr)=KLData
 	Quit
 
@@ -153,6 +154,10 @@
 	. Set Data=$G(%request.Data("DATAOPT",1))
 	. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck())
 	. Quit:(Data="")
+	If blnHEIN Do
+	. Set Data=$G(%request.Data("DATAOPT",1))
+	. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).Hein())
+	. Quit:(Data="") 
 	If Data'="" Do
 	. Set KLMini=##class(WS.TBX.KlantMini).%New()
 	. Set KLMini.Taal  =$$$ReplaceBackQuote($G(tmpAr("Taal")))