Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r781 -r787
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 781)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 787)
@@ -151,9 +151,16 @@
 	
 	;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(WebDomein,$LB("VERW","KLNR"))   ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR"))
 	Set lbDomLU=..GeefDomeinData(WebDomein,$LB("VERW","KLNR"))
-	Set ..DomeinVerwerker=$LG(lbDomLU,1)
+	Do ..ZetDomeinVerwerker($LG(lbDomLU,1))
 	Set ..DomeinKlantNummer=$LG(lbDomLU,2)
 	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RecalcIsProperties">
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set ..IsVHEPN = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).VanHoecke())
 	Set ..IsHEIN  = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).Hein())
 	Set ..IsLMC   = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).Optima())
@@ -165,12 +172,18 @@
 	Set ..IsHFLB  = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE())
 	Set ..IsKISCH = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).Kisch())
 	Set ..IsRAEM  = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck())
-	; ... uit te breiden voor nieuwe domeinen 
-	
-	Quit $$$OK
+	; ... uit te breiden voor nieuwe domeinen
 ]]></Implementation>
 </Method>
 
+<Method name="ZetDomeinVerwerker">
+<FormalSpec>DomeinVerwerker</FormalSpec>
+<Implementation><![CDATA[
+	set ..DomeinVerwerker = DomeinVerwerker
+	do ..RecalcIsProperties()
+]]></Implementation>
+</Method>
+
 <Method name="InitFromHttpRequest">
 <Description><![CDATA[
 URL --> domain / sDomVERW / sDomKLNr
@@ -683,7 +696,7 @@
 		Set Result=0
 	}
 	Else {
-		Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"MBHO",1"KISCH",1"RAEM"))    ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")   ; 1"SFS"
+		Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"MBHO",1"KISCH",1"RAEM",1"HEIN"))    ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")   ; 1"SFS"
 	}
 	Quit Result
 ]]></Implementation>
@@ -694,7 +707,7 @@
 De nieuwe handels maken gebruik van de klasse APPS.TBXWeb.OrderHandling voor de verzonden bestellingen 
 De vroeger geïmplementeerde handels versturen de mails via de implementatie in routine csp.vhisie.TBX.MailResult.tmpDev.MAC</Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM",1"HEIN")
 ]]></Implementation>
 </Method>
 
@@ -703,7 +716,7 @@
 Bij bestelling verzenden naar VH wijzigt het BonType van BBON naar INKP 
 (is enkel voor externe domeinen) </Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM")   ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM",1"HEIN")
 ]]></Implementation>
 </Method>
 
@@ -714,7 +727,7 @@
 Bij de andere domeinen wordt een ingave (offerte) verzonden als bestelbon, wat overeenkomt met "Goed voor Order" --> OFFTOBBON=1 
 Een prijsaanvraag voor 'Anonymous' gebruikers loopt via een OfferteAanvraag, i.e. BonType="OFFAV" ]]></Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).Hein()
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
@@ -813,7 +826,7 @@
 
 <Method name="ToonDesignGrijsIntivo">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker'?1(1"HEIN",1"SFS")
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
@@ -855,7 +868,7 @@
 	If ..DomeinVerwerker?1(1"VHEPN") {
 	 	Set ToonKlantrefProdBijIngaveMaten=1
 	}
-	ElseIf ..DomeinVerwerker?1(1"SFS",1"RAEM",1"HELMY",1"HFLB",1"KISCH") {
+	ElseIf ..DomeinVerwerker?1(1"SFS",1"RAEM",1"HELMY",1"HFLB",1"KISCH",1"HEIN") {
 	 	Set ToonKlantrefProdBijIngaveMaten=1
 	}
 	Quit ToonKlantrefProdBijIngaveMaten
@@ -903,7 +916,7 @@
 Contactgegevens van de klant in stap 1 (PData) van de Wizard. 
 Typisch worden deze verborgen voor handels via DataOpt </Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker'?1(1"LMC",1"HFLB",1"HFLE",1"KISCH",1"SFS",1"RAEM")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker'?1(1"LMC",1"HFLB",1"HFLE",1"KISCH",1"SFS",1"RAEM",1"HEIN")
 ]]></Implementation>
 </Method>