Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r508 -r531
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 508)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 531)
@@ -38,7 +38,7 @@
 #define smClean         "Clean"
 #define smSave          "Save"
 #define smCleanSave     "CleanSave"
-	New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
+	New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,blnRAEM,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
 	; Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()   ; Of als param doorgeven 
 	Do gkdInitialize 
 	Set KLMini=""
@@ -54,6 +54,7 @@
 	Set blnMBHO=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).MBHolland())
 	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())
 	If blnVHEPN Do
 	. Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Ext")
 	. Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction)
@@ -75,7 +76,7 @@
 	Set KLData=$G($$$GlobalKLData(sDomVERW,KLNr))
 	Quit:(KLData="")
 	; Else 
-	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH Do
+	If blnLMC||blnSFS||blnMBHO||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"))
@@ -92,7 +93,7 @@
 	Quit 
 gkdDataFromExternal
 	New KLData
-	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do
 	. Set KLMini=$$GetKlantDataViaQS(.KLData)
 	. Set:(KLMini) KLNr=KLMini.Nummer
 	Else  If blnVHEPN Do
@@ -109,7 +110,7 @@
 	Quit:(flgStorageMode=$$$smClean)
 	Quit:('$IsObject(KLMini))
 	; Else : Save the data
-	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH Do
+	If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do
 	. Set $$$GlobalKLData(sDomVERW,KLNr)=KLData
 	Quit
 
@@ -139,6 +140,10 @@
 	. Set Data=$G(%request.Data("DATAOPT",1))
 	. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).Kisch())
 	. Quit:(Data="")
+	If blnRAEM Do
+	. 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 Data'="" Do
 	. Set KLMini=##class(WS.TBX.KlantMini).%New()
 	. Set KLMini.Taal  =$$$ReplaceBackQuote($G(tmpAr("Taal")))