Index: _vhisie/TBX/SelectVulstukKleur.csp
===================================================================
diff -u -r900 -r1626
--- _vhisie/TBX/SelectVulstukKleur.csp	(.../SelectVulstukKleur.csp)	(revision 900)
+++ _vhisie/TBX/SelectVulstukKleur.csp	(.../SelectVulstukKleur.csp)	(revision 1626)
@@ -13,18 +13,17 @@
 
 #define MaxItemsPerRow  4
 
-#define TaalDfl   $S(sDomVERW="HEIN":"D", sDomVERW="LMC":"F", sDomVERW="SFS":"D", 1:"N")
-
 	Set %session.AppTimeout = 905
 	Set:('$D(%ClientIP)) %ClientIP="192.168.1.195"
 	
 	//   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 Taal="N"
 	Set blnDemo=(''$G(%request.Data("DEMO",1)))