Index: _vhisie/TBX/SelectStdLade.csp
===================================================================
diff -u -r757 -r1626
--- _vhisie/TBX/SelectStdLade.csp	(.../SelectStdLade.csp)	(revision 757)
+++ _vhisie/TBX/SelectStdLade.csp	(.../SelectStdLade.csp)	(revision 1626)
@@ -2,17 +2,17 @@
 <CSP:CLASS super="%CSP.Page,cspBasis.GAProdTBox" encoded="0" private="0">
 <CSP:Include page="PRGACNTs.INC">
 <SCRIPT language="cache" runat="server">
-#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"))   ; $$TBXDomainLU^cspBasis.Library(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"))   ; $$TBXDomainLU^cspBasis.Library(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 KLNr=$$SesDataFromRq^cspBasis.Library("KLNR",,"")
 	;Set VERW=$$SesDataFromRq^cspBasis.Library("VERW",,"")
 	
@@ -22,7 +22,7 @@
 	  ;d WL^vhDBG("klnr:"_KLNr_"  kleur:"_KleurKeuze_"  mdata:"_MData)
 	Do ..FullDataFromPDLs(.arInits, , KleurKeuze, MData)
 	  ;d WL^vhDBG($$ArrayToText^vhLib("arInits"))
-	Set KLNrStdL=sDomKLNr
+	Set KLNrStdL=TBXContext.GeefDomeinKlantNummer()
 	Do StdLadeArray^cspBasis.GAProdTBox.tmpDev(KLNrStdL,.arStdL)
 	  ;d WL^vhDBG($$ArrayToText^vhLib("arStdL"))
 </SCRIPT>