Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r520 -r549
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 520)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 549)
@@ -84,7 +84,7 @@
 	. . Kill tmpRq("DATAOPT")
 	. . ;Do ophBuildSwitchTLArray   ; Once again, but with the NEW QueryString-values 
 	. Else  If (TBXContext.IsKlantIDIngevuld(KLNr))&&($G(%request.Data("Taal",1))="") Do
-	. . Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,$LB("Stg","NoAction"))
+	. . Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr, TBXContext, $LB("Stg","NoAction"))
 	. . Set:($IsObject(KLMini))&&(KLMini.Taal?1(1"N",1"F",1"E",1"D")) Taal=KLMini.Taal
 	. . Set KLMini=""
  	Else  Do
@@ -215,11 +215,11 @@
 	Quit:($G(%request.Data("DATAOPT",1))="")
 	New KLMini,tmpTaal,msg,sDomVERW
 	Kill %OptimaMsg
-	Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),"",$LB("Ext","CleanSave"))
+	Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),"",TBXContext,$LB("Ext","CleanSave"))
 	; In case of "Bad Encryption", try getting KLData from storage
 	If '$IsObject(KLMini) Do   
 	. Set KLNr=$G(%OptimaVar("KLNr"))
-	. Set:(TBXContext.IsKlantIDIngevuld(KLNr)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,$LB("Stg","NoAction"))
+	. Set:(TBXContext.IsKlantIDIngevuld(KLNr)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,TBXContext,$LB("Stg","NoAction"))
 	. Set sDomVERW=TBXContext.GeefDomeinVerwerker()
 	. Set msg="WARNING : Bad encryption for "_$S(sDomVERW="LMC":"Optima",1:sDomVERW)_" customer (n� "_$G(KLNr)_")"
 	. Set msg=msg_$$$CRLF_"Ref            : "_($$ophGetRef^cspBasis.TBX.DecodeURL.tmpDev(Ref))_$$$CRLF_"Enc. Data      : "_$G(%OptimaVar("EncData"))_$$$CRLF_"Decrypted Data : "_$G(%OptimaVar("Data"))_$$$CRLF_"KLNr via Lookup: "_$G(%OptimaVar("KLNrViaLookup"))
@@ -983,7 +983,7 @@
 	New KLNaam,KLMini
 	If TBXContext.HeeftToegangMetLogin() Do
 	. Quit:($$$KLNrClean="")
-	. Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr)
+	. Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(TBXContext.GeefDomeinVerwerker(),KLNr,TBXContext)
 	. ; If KLMini Do
 	. ;.  Set KLNaam=KLMini.Naam
 	. Set:(KLMini) KLNaam=KLMini.Naam