Index: csp/vhisie/TBX/MailResult/tmpDev.mac.rou
===================================================================
diff -u -r2 -r22
--- csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 2)
+++ csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 22)
@@ -35,7 +35,7 @@
 	If $L(PageDomain)&&$L(WSOrd.WebDomain)&&(WSOrd.WebDomain'=PageDomain) Do  Quit
 	. Set errmsg = "The domain does not match the corresponding value in the order."
 	// Else: 
-	Set OrderbevEmail=$G(%request.Data("EMAILORDERBEVESTIGING",1)) 
+	Set OrderbevEmail=$G(%request.Data("EMAILORDERBEVESTIGING",1))
 	Set LevTOms=$G(%request.Data("LEVERTIJD",1))
 	Set LevDatum=$G(%request.Data("LEVERTIJDID",1))
 	Set:($IsValidNum(LevDatum)) LevTOms=$$$Replace(LevTOms,"?"," ")                              ; Added by WimV on 13/01/2010  - reason: Form submit converts   and "�"-characters to "?" 
@@ -48,7 +48,7 @@
 	Set:($L(sComments)) WSOrd.Opmerking1=sComments
 	Set sc=WSOrd.%Save()
 	Set blnOFFToBBON=(WSOrd.BonType="OFF")&&($G(%request.Data("OFFTOBBON",1))=1)
-	Set blnViaNewImplementation=(sDomVERW?1(1"SFS",1"MBHO"))   ; SFS en MBHolland gebruiken de nieuwe implementatie van APPS.TBXWeb.OrderHandling 
+	Set blnViaNewImplementation=(sDomVERW?1(1"SFS",1"MBHO",1"HFLB"))   ; SFS en MBHolland gebruiken de nieuwe implementatie van APPS.TBXWeb.OrderHandling 
 	If (blnOFFToBBON)&&('blnViaNewImplementation) Do   ; Status OFF change to BBON
 	. Set WSOrd.BonType="BBON"
 	
@@ -72,6 +72,8 @@
 	. Do tsmMailFldsSFS
 	Else  If sDomVERW="MBHO" Do
 	. ;Do tsmMailFldsMBHO
+	Else  If sDomVERW="HFLB" Do
+	. ;Do tsmMailFldsHFLB
 	Else  Do
 	. Do tsmMailFldsVHEPN
 	Set BodyIsStream=0
@@ -291,7 +293,11 @@
 	$$$ThrowError($$$errGeneralError,"OrderHandling via Old method is disabled. OrderHandling must use new implementation.")
 	Quit
  
+tsmMailFldsHFLB
+	$$$ThrowError($$$errGeneralError,"OrderHandling via Old method is disabled. OrderHandling must use new implementation.")
+	Quit
  
+ 
 tsmMailFldsVHEPN
 	;Set From=$S($$$EMailValid(WSOrd.KLEMail):$S($L(WSOrd.KLNaam):""""_WSOrd.KLNaam_""" ", 1:"")_"<"_WSOrd.KLEMail_">", 1:""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <AdminTBX@vanhoecke.be>")
     Set From=""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
@@ -431,6 +437,8 @@
     . Do tsmMailFldsSFS
     Else  If sDomVERW="MBHO" Do
     . Do tsmMailFldsMBHO
+    Else  If sDomVERW="HFLB" Do
+    . Do tsmMailFldsHFLB
     Else  Do
     . Do tsmMailFldsVHEPN
 	Set BodyIsStream=0