Index: csp/vhisie/TBX/MailResult/tmpDev.mac.rou
===================================================================
diff -u -r1300 -r1571
--- csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1300)
+++ csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1571)
@@ -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