Index: FaxMail2.mac.rou
===================================================================
diff -u -r1047 -r3678
--- FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 1047)
+++ FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 3678)
@@ -463,7 +463,7 @@
  . Do:$P(^KKL(^KK1(KLNr),1),D,17)["F"
  . . Set IntVw=$$INTVW^KLOPV(KLNr)
  . . Set:IntVw DefData("VanUser")=IntVw,DefData("Van")=$$USERNAME^vhUSER(IntVw,2)
- . . Set DefData("TextId")=$S($$CheckConsument^FLOWBON5(DocNum,1):"CLA",$$CheckConsument^FLOWBON5(DocNum):"CLV",1:"S")
+ . . Set DefData("TextId")=$$CheckTextId^FLOWBON5(DocNum)
  . . Set DefData("BackGround")=1
  . . Do LEVERBON(.DocNum,.TextId,"Fax",.DefData)
  . 
@@ -485,8 +485,7 @@
  . . . Set $E(ToMail)=""
  . . . Set ToMail=$$USERNAME^vhUSER(ToMail,"@")
  . . Quit:ToMail=""
- . . Set DefData("TextId")=$S($$CheckConsument^FLOWBON5(DocNum,1):"CLA",$$CheckConsument^FLOWBON5(DocNum):"CLV",1:"S")
+ . . Set DefData("TextId")=$$CheckTextId^FLOWBON5(DocNum)
  . . Set DefData("em")=ToMail,DefData("BackGround")=1,DefData("Van")="info@vanhoecke.be"
  . . Do LEVERBON(.DocNum,.TextId,"Mail",.DefData)
- Quit
- 
\ No newline at end of file
+ Quit
\ No newline at end of file