Index: WV GAProduct WWW.prj.xml
===================================================================
diff -u -r18 -r25
--- WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 18)
+++ WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 25)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct WWW" LastModified="2011-07-15 14:18:58" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct WWW" LastModified="2011-08-30 17:57:50" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -76,7 +76,6 @@
     <ProjectItem name="Prod.GAData.Product.tmpDev2.MAC" type="MAC"/>
     <ProjectItem name="Prod.GAData.Product.tmpKPRCreate.MAC" type="MAC"/>
     <ProjectItem name="Prod.GAData.Template" type="CLS"/>
-    <ProjectItem name="Prod.GAData.Template.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="Prod.GAMeta.BT.GRPDesign" type="CLS"/>
     <ProjectItem name="Prod.GAMeta.BT.KostPlaats" type="CLS"/>
     <ProjectItem name="Prod.GAMeta.BT.LadeCode" type="CLS"/>
@@ -178,7 +177,6 @@
     <ProjectItem name="vhDeploy.Deploy20110608x0944" type="CLS"/>
     <ProjectItem name="vhDeploy.WV.Deploy20110630x1132" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
-    <ProjectItem name="wv.tmpDev3.MAC" type="MAC"/>
     <ProjectItem name="zTryout.WV.APPS.OV.OrderBevestigingSFS" type="CLS"/>
   </Items>
 </Project>
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r18 -r25
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 18)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 25)
@@ -505,7 +505,7 @@
 
 <Method name="ToonAlgemeneVoorwaarden">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IsVHEPN)||(..IsHEIN)||(..IsSFS)   ; $$$Not(..IsLMC||..IsDUPO||..IsHELMY||..IsHFLE||..IsMBHO)
+<Implementation><![CDATA[	Quit (..IsVHEPN)||(..IsHEIN)||(..IsSFS)||(..IsHFLB)   ; $$$Not(..IsLMC||..IsDUPO||..IsHELMY||..IsHFLE||..IsMBHO)
 ]]></Implementation>
 </Method>
 
@@ -620,6 +620,7 @@
 												"SFS"  : "", 
 												"HFLE" : "", 
 												"MBHO" : $$$TBoxInfoPageMBHO, 
+												"HFLB" : "", 
 												       : "http://www.vanhoecke.be/"_$S(Taal="F":"fr/produits",1:"nl/producten")_"/tandem-box/" )
 	Quit UrlGeneralInfo
 ]]></Implementation>
@@ -657,6 +658,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefContactInfoOpeningsUren">
+<Description>
+Geeft een taal-afhankelijke URL naar de contactinfo pagina van de handel.</Description>
+<FormalSpec>Taal:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ContactInfoOpeningsUren=""
+	If ..DomeinVerwerker="HFLB" {
+		Set ContactInfoOpeningsUren=$CASE(Taal, "N" : "Iedere werkdag van 8.00 tot 12.00 u. en van 13.00 tot 17.00 u. Op vrijdag tot 15.00 u.", 
+												"F" : "Chaque jour de semaine de 08:00 à 12:00 et de 13:00 à 17:00. Le vendredi, jusqu’à 15:00.", 
+												"D" : "Jeden Wochentag von 8.00 - 12.00 Uhr und von 13.00 - 17.00 Uhr. Freitags bis 15.00 Uhr.", 
+												    : "[ContactInfoOpeningsUren-"_Taal_"]" )
+	}
+	
+	Quit ContactInfoOpeningsUren
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdministratorEmail">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
Index: APPS/TBXWeb/EMailAdressen.inc.rou
===================================================================
diff -u -r2 -r25
--- APPS/TBXWeb/EMailAdressen.inc.rou	(.../EMailAdressen.inc.rou)	(revision 2)
+++ APPS/TBXWeb/EMailAdressen.inc.rou	(.../EMailAdressen.inc.rou)	(revision 25)
@@ -58,6 +58,7 @@
 	#define EMailTBXInfo2SfsFR  "ferrements@sfsunimarket.biz"
 	#define EMailTBXInfo2SfsDU  "beschlaege@sfsunimarket.biz"
 	#define EMailTBXInfo2Mbho   "info@meubelbeslagholland.nl"
+	#define EMailTBXInfo2Hflb   "info@hafele.be"
 	
 	; === E-mail adressen voor ICT-administrator ===    (in geval van fout bij "Verzenden van het Order") 
  	#define EMailICTAdminMbho   "info@meubelbeslagholland.nl"
\ No newline at end of file
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r20 -r25
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 20)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 25)
@@ -652,7 +652,7 @@
 ophAlgVoorw
 	Quit:('TBXContext.ToonAlgemeneVoorwaarden())
 	New Intern,VTL
-	Set Intern="AlgVoorw"_$CASE(TBXContext.GeefDomeinVerwerker(), "HEIN":"HEIN", "SFS":"SFS", :"VH")
+	Set Intern="AlgVoorw"_$CASE(TBXContext.GeefDomeinVerwerker(), "VHEPN":"VH", :TBXContext.GeefDomeinVerwerker())
 	Set arShow("AlgVoorw","INFO")=##class(cspBasis.GAProdTBox).WebTextValue(Intern,Taal,"L")
 	Quit
 ophOrdToAdminSetSesData