Index: FaxMail2.mac.rou
===================================================================
diff -u -r29059 -r49940
--- FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 29059)
+++ FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 49940)
@@ -463,16 +463,16 @@
  . Do ^cA604
  Do:Document="L"
  . Set:'$G(KLNr) KLNr=$P(^KU1(DocNum,"F"),D)
- . Do:$P(^KKL(^KK1(KLNr),1),D,17)["F"
+ . Do:$P(^KKL(^KK1(KLNr),1),D,17)["F" // F = Faxen
  . . Set IntVw=$$INTVW^KLOPV(KLNr)
  . . Set:IntVw DefData("VanUser")=IntVw,DefData("Van")=$$USERNAME^vhUSER(IntVw,2)
  . . Set DefData("TextId")=$$CheckTextId^FLOWBON5(DocNum)
  . . Set DefData("BackGround")=1
  . . Do LEVERBON(.DocNum,.TextId,"Fax",.DefData)
  . 
- . Do:$P(^KKL(^KK1(KLNr),1),D,17)["M"
+ . Do:$P(^KKL(^KK1(KLNr),1),D,17)["M" // M = Mailen
  . . If KLNr'=$$$KlantVanHoeckeNV,KLNr'=$$$KlantVanHoeckeBV,KLNr'=$$$KlantAtlasHolding,KLNr'=$$$KlantHalux,KLNr'=$$$KlantBVanHoecke Do
- . . . Set Optie("NOPOP")=1,Optie("VWBEPERK")="AK2",Optie("FILTER")=1,Optie("PIECE")="6",Optie("CONNECT")="E",Optie("DOCVOORKEUR")="L"
+ . . . Set Optie("NOPOP")=1,Optie("FILTER")=1,Optie("PIECE")="6",Optie("CONNECT")="E",Optie("DOCVOORKEUR")="L"
  . . . Set ToMail=$P($$SELECT^PERSS("K",KLNr,.Optie),";")
  . . . Do:ToMail=""
  . . . . Kill Optie("DOCVOORKEUR")