Index: FaxMail2.mac.rou
===================================================================
diff -u -r734 -r921
--- FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 734)
+++ FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 921)
@@ -142,7 +142,12 @@
  Merge Data=DefData ; De default data copieren
  Merge DocNum=ORDNr,Data("DocNum")=ORDNr,OPData=Data
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D),R=^KOD(KLNr,"F",ORDNr,1),OrdRef=$P(R,D,3),(MailTav,Tav,DefFax)=$P($P(R,D,9),"#"),FaxNrOrEmail=$P(R,D,10)
- Set TextId=$G(TextId) Set:TextId="" TextId=$$TSELECT^DCFAX()
+ Set TextId=$G(TextId)
+ Do:TextId=""
+ . New IsConsument,VerzendWijze
+ . Set IsConsument=$P(^KKL(^KK1(KLNr),1),D,11)="Consument"
+ . Set VerzendWijze=$P($P($$DEFAULT^KLVERZW(,KLNr,ORDNr),"`"),";")
+ . Set TextId=$$TSELECT^DCFAX()
  Do:$L(TextId)
  . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
  . Set Taal=Data("Taal")