Index: _vhisie/TBX/SelectSPZK.csp
===================================================================
diff -u -r900 -r1626
--- _vhisie/TBX/SelectSPZK.csp	(.../SelectSPZK.csp)	(revision 900)
+++ _vhisie/TBX/SelectSPZK.csp	(.../SelectSPZK.csp)	(revision 1626)
@@ -11,18 +11,18 @@
  
 #define jsVTLAddVtl(%i,%tl,%tt,%vtl)       $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_%vtl_""";"_$C(13,10) 
 
-
-#define TaalDfl   $S(sDomVERW="HEIN":"D", sDomVERW="LMC":"F", sDomVERW="SFS":"D", 1:"N")
-	Set %session.AppTimeout = 905
+	;Set %session.AppTimeout = 905
 	  s:('$D(ClientIP)) ClientIP="192.168.1.97"
 	
 	//   URL --> domain / sDomVERW / sDomKLNr
-	Set sDomain=$$GetURLDomain^cspBasis.Library
-	Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain)
-	Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))
-	Set sDomVERW=$LG(lbDomLU,1)
-	Set sDomKLNr=$LG(lbDomLU,2)
-	Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,$$$TaalDfl)
+	;Set sDomain=$$GetURLDomain^cspBasis.Library
+	;Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain)
+	;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))
+	;Set sDomVERW=$LG(lbDomLU,1)
+	;Set sDomKLNr=$LG(lbDomLU,2)
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
+	
+	Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,TBXContext.GeefDefaultTaal())
 	Set blnDemo=(''$G(%request.Data("DEMO",1)))
 	Set DC=$G(%request.Data("DC",1),"S")
 	Set LT=$G(%request.Data("LCODE",1),"MS2")