Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou
===================================================================
diff -u -r531 -r549
--- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 531)
+++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 549)
@@ -229,12 +229,13 @@
 #define TaalDfl          "F"
 	  s:('$D(ClientIP)) ClientIP="192.168.1.97"
 	  ;d WL^vhDBG($C(13,10))
-	New Ref,RefNew,RefArray,tmpRq,tmpAr,tmpTaal
+	New Ref,RefNew,RefArray,tmpRq,tmpAr,tmpTaal,TBXContext
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
 	Do ophInitLookups^cspBasis.TBX.DecodeURL.tmpDev
 	//   URL --> domain / sDomVERW / sDomKLNr
 	Set sDomain=$$GetURLDomain^cspBasis.Library
 	Set sDomCVT="www.optima-tbx.fr"   ; $$TBXDomainCVT^cspBasis.Library(sDomain)
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(sDomCVT,"")
 	Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))
 	Set sDomVERW=$LG(lbDomLU,1)
 	Set sDomKLNr=$LG(lbDomLU,2)
@@ -267,7 +268,7 @@
 	. Kill tmpAr
     . If blnEditFind Do
 	. . ; Show stored data
-	. . Set:($IsValidNum(KLNrOpt)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(sDomVERW,KLNrOpt,$LB("Stg","NoAction"))
+	. . Set:($IsValidNum(KLNrOpt)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(sDomVERW,KLNrOpt,TBXContext,$LB("Stg","NoAction"))
 	. . If $IsObject($G(KLMini)) Do
 	. . . Set tmpAr("Taal")= KLMini.Taal
 	. . . Set tmpAr("KLNummer")=KLMini.Nummer