#Include BL.Derde.KlantSpecifiek
 
FaxMail2 ;Beheer uitgaande faxen en mail (de oproepen) [ 10/23/2003  9:10 AM ]
 ;
 ; Vrije ingave vanuit het MENU
MENU
 New %J,R,Data,Taal,zb,ToDev,ProgLine,FaxId,Text,TextId,AutoDev,lFmt
 Write @F11,@F1,"   ",@FMTB,"TELEFAX - E-mail",@FMTb
 Lock +^FAX($I)
 Set R=$$SELECT^FAX()
 Do:$P(R,";")'="-"
 . Set Text=$P(R,";"),FaxId=$P(R,";",2)
 . Set Data("Via")="MENU",Data("Document")="?"
 . Set:Text=0 TextId="^",Data("TextId")=TextId
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail($S(FaxId:FaxId,1:$G(TextId)))
 . Set Data("Document")="?",Data("Via")="MENU"
 . Set sFmt="lFmt",lFmt(1)="2`C`L`8````"
 . Set ToDev=$$PI^vhPOPUP("C;C","-1OA","","FAXMAIL","OUTPUT")
 . Do:zb'="CANC"
 . . Set Data("ToDev")=ToDev
 . . Set:ToDev="F" AutoDev="Fax"
 . . Set Taal=Data("Taal")
 . . Set:FaxId Data("FaxId")=FaxId,TextId="?",Data("TextId")=TextId,ProgLine="EDIT"
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail($S(FaxId:FaxId,1:$G(TextId)))
 . . . Set:ToDev="MM" Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . Do VERWERK^FaxMail(.Data,.ProgLine,.AutoDev)
 . . Kill ^HULP(%J)
 Lock -^FAX($I)
 Quit
 ;
 ; Toelevering
TOELEV(TOENr,TextId,AutoDev,To,BackGround) 
 New %J,I,R,LEVNr,Data,MTData,OPData,Taal,Tav,Document,DocNum,zb,ToDev
 Set Data("Via")="TOE",(Document,Data("Document"))="T"
 Merge DocNum=TOENr,Data("DocNum")=TOENr,OPData=Data
 Set R=^KTO1(TOENr),LEVNr=$P(R,D)
 Set TextId=$G(TextId) Set:TextId="" TextId=$$TSELECT^DCFAX()
 Do:$L(TextId)
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),LevINIT^FaxMail(LEVNr,.Data)
 . Set AutoDev=$$UPCASE^vhRtn1($G(AutoDev)),ToDev=$S(AutoDev:"P",AutoDev="FAX":"F",AutoDev="MAIL":"M",1:AutoDev)
 . Do:0[ToDev
 . . New lFmt
 . . Set sFmt="lFmt",lFmt(1)="2`C`L`8````"
 . . Set ToDev=$$PI^vhPOPUP("C;C","-1OA","","FAXMAIL","OUTPUT")
 . Quit:$G(zb)="CANC"
 . Set Data("ToDev")=ToDev
 . Set:$G(BackGround) Data("BackGround")=1
 . Set:ToDev="F" AutoDev="Fax"
 . If TextId=0,ToDev'="P" Set TextId=$S(ToDev="F":"Z",ToDev="MM":"Z",1:"?") ; Zonder voorblad doorfaxen of MAIL STEEDS MET VOORBLAD
 . If 0'[TextId Do
 . . Set Taal=Data("Taal")
 . . Set Data("TextId")=TextId
 . . Set Tav=$S($L($G(To)):To,1:$$GetDefaultTavLev^FaxMail(LEVNr))
 . . Set Data("Tav")=$P(Tav,D) Set:$L($P(Tav,D,2)) Data("Fax")=$P(Tav,D,2)
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail(),LevINIT^FaxMail(LEVNr,.Data)
 . . . If ToDev="MM" Set Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . . Else  Do
 . . . . Set R=$$TXT^DCALG("Toelev","DCTOE")
 . . . . Set Data("Betreft")=$$Betreft(R,.TOENr)
 . . . . Set Data("em")=$S($L($G(To)):To,1:$$GetDefaultemLev^FaxMail(LEVNr,,1))
 . . Set Taal=Data("Taal")
 . . Set R=$$TXT^DCALG("Toelev","DCTOE")
 . . Set Data("Betreft")=$$Betreft(R,.TOENr)
 . . Set MTData("DOCNaam")=$$UPCASE^vhRtn1($E(R))_$$LOCASE^vhRtn1($E(R,2,99)),MTData("DocNum")=TOENr
 . . Set MTData("Taal")=Taal
 . . For I="Type","Van","Aan","Tav","Betreft","Datum" Merge MTData(I)=Data(I)
 . . Do MERGETXT^DCFAX(TextId,.MTData)
 . . Do:TextId'["?"
 . . . If Data("FopType")="F",Data("Fax")'="" Quit
 . . . If Data("FopType")="M",Data("em")'="" Quit
 . . . Set TextId=TextId_"?"
 . . If TextId'["?" Do
 . . . Do SAVE^DCFAX(.Data)
 . . . Do:Data("FopType")="F" PRINT^FaxMail(.Data,0,.AutoDev)
 . . . Do:Data("FopType")="M" MAIL^FaxMail(.Data)
 . . Else  Do VERWERK^FaxMail(.Data,"EDIT")
 . Else  Kill Data Merge Data=OPData Do PRINT^FaxMail(.Data,0,.AutoDev) ; Enkel afdruk
 . Kill ^HULP(%J)
 Quit
 ;
 ; Offerte
OFFERTE(OFFNr,TextId,AutoDev,DefData) 
 New %J,I,R,KLNr,Data,MTData,OPData,Taal,Tav,Document,DocNum,OffTyp,zb,ToDev,OffRef,DevVoorkeur,DefFax
 Set Data("Via")="OFF",(Document,Data("Document"))="A"
 Merge Data=DefData ; De default data copieren
 Merge DocNum=OFFNr,Data("DocNum")=OFFNr,OPData=Data
 Set R=^KOFKL1(OFFNr,"F"),KLNr=$P(R,D),R=^KOFKL(KLNr,"F",OFFNr,1),OffRef=$P(R,D,3),OffTyp=$P(R,D,25)
 Set TextId=$G(TextId) Set:TextId="" TextId=$$TSELECT^DCFAX()
 Do:$L(TextId)
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . Set Taal=Data("Taal")
 . Set AutoDev=$$UPCASE^vhRtn1($G(AutoDev)),ToDev=$S(AutoDev:"P",AutoDev="FAX":"F",AutoDev="MAIL":"M",1:AutoDev)
 . Set DefFax=$$GetDefaultTavKlant^FaxMail(KLNr,,"A")
 . Do:0[ToDev
 . . Set DevVoorkeur=$P(^KKL(^KK1(KLNr),3),D,9)
 . . Set ToDev=$$ToDev(DefFax,$$GetDefaultemKlant^FaxMail(KLNr,,,"5,6","A"),$S(DevVoorkeur="F":"F",1:"M"))
 . Quit:$G(zb)="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . If TextId=0,ToDev'="P" Set TextId=$S(ToDev="F":"Z",ToDev="MM":"Z",1:"?") ; Zonder voorblad doorfaxen of MAIL STEEDS MET VOORBLAD
 . If 0'[TextId Do
 . . Set Taal=Data("Taal")
 . . Set Data("TextId")=TextId
 . . Set Tav=DefFax
 . . Set Data("Tav")=$P(Tav,D) Set:$L($P(Tav,D,2)) Data("Fax")=$P(Tav,D,2)
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . . . If ToDev="MM" Set Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . . Else  Do
 . . . . Set R=$$TXT^DCALG("Offer"_$S("D"[OffTyp:"D",1:OffTyp),"DCOFFD",$S(OffTyp="C":3,1:2))
 . . . . Set:OffTyp="K" R=R_" "_$$TXT^DCALG("OfferK","DCOFFD",3)
 . . . . Set Data("Betreft")=$$Betreft(R,.OFFNr,OffRef)
 . . . . Set Data("em")=$$GetDefaultemKlant^FaxMail(KLNr,,1,,"A")
 . . Set Taal=Data("Taal")
 . . Set R=$$TXT^DCALG("Offer"_$S("D"[OffTyp:"D",1:OffTyp),"DCOFFD",$S(OffTyp="C":3,1:2))
 . . Set:OffTyp="K" R=R_" "_$$TXT^DCALG("OfferK","DCOFFD",3)
 . . Set Data("Betreft")=$$Betreft(R,.OFFNr,OffRef)
 . . Set MTData("DOCNaam")=$$UPCASE^vhRtn1($E(R))_$$LOCASE^vhRtn1($E(R,2,99)),MTData("DocNum")=OFFNr
 . . Set MTData("Taal")=Taal
 . . For I="Type","Van","Aan","Tav","Betreft","Datum" Merge MTData(I)=Data(I)
 . . Do MERGETXT^DCFAX(TextId,.MTData)
 . . Do:TextId'["?"
 . . . If Data("FopType")="F",Data("Fax")'="" Quit
 . . . If Data("FopType")="M",Data("em")'="" Quit
 . . . Set TextId=TextId_"?"
 . . If TextId'["?" Do
 . . . Do SAVE^DCFAX(.Data)
 . . . Do:Data("FopType")="F" PRINT^FaxMail(.Data,0,.AutoDev)
 . . . Do:Data("FopType")="M" MAIL^FaxMail(.Data)
 . . Else  Do VERWERK^FaxMail(.Data,"EDIT",.AutoDev)
 . Else  Kill Data Merge Data=OPData Do PRINT^FaxMail(.Data,0,.AutoDev) ; Enkel afdruk
 . Kill ^HULP(%J)
 Quit
 ;
 ; Order
ORDER(ORDNr,TextId,AutoDev,DefData) 
 New %J,I,R,KLNr,Data,MTData,OPData,Taal,Tav,Document,DocNum,zb,ToDev,FaxNrOrEmail,OrdRef,DefFax,MaatWerk,MailTav
 Set MaatWerk=$$BevatMaatWerk^FLOWCHK("O",ORDNr)
 Set Data("Via")="ORD",(Document,Data("Document"))="O"
 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()
 Do:$L(TextId)
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . Set Taal=Data("Taal")
 . Set AutoDev=$$UPCASE^vhRtn1($G(AutoDev)),ToDev=$S(AutoDev:"P",AutoDev="FAX":"F",AutoDev="MAIL":"M",1:AutoDev)
 . Set:DefFax="" DefFax=$$GetDefaultTavKlant^FaxMail(KLNr,,"O"_$S(MaatWerk:"M",1:""))
 . Set:0[ToDev ToDev=$$ToDev(DefFax,$$GetDefaultemKlant^FaxMail(KLNr,,,"5,6","O"_$S(MaatWerk:"M",1:"")),$S(FaxNrOrEmail["@":"M",1:"F"))
 . Quit:$G(zb)="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . If TextId=0,ToDev'="P" Set TextId=$S(ToDev="F":"Z",ToDev="MM":"Z",1:"?") ; Zonder voorblad doorfaxen of MAIL STEEDS MET VOORBLAD
 . If 0'[TextId Do
 . . Set Taal=Data("Taal")
 . . Set Data("TextId")=TextId
 . . Set Tav=DefFax
 . . Set Data("Tav")=$P(Tav,D) Set:$L($P(Tav,D,2)) Data("Fax")=$P(Tav,D,2)
 . . If $L(FaxNrOrEmail),FaxNrOrEmail'["@" Set Data("Fax")=FaxNrOrEmail
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . . . If ToDev="MM" Set Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . . Else  Do
 . . . . Set R=$$TXT^DCALG("Order","DCORD")
 . . . . Set Data("Betreft")=$$Betreft(R,.ORDNr,OrdRef)
 . . . . Set Data("em")=$S(FaxNrOrEmail["@":FaxNrOrEmail,1:$$GetDefaultemKlant^FaxMail(KLNr,,1,,"O"_$S(MaatWerk:"M",1:"")))
 . . Set Taal=Data("Taal")
 . . Set R=$$TXT^DCALG("Order","DCORD")
 . . Set Data("Betreft")=$$Betreft(R,.ORDNr,OrdRef_$S($L(MailTav):" "_$S(Taal="F":"a l'att.",Taal="D":"z. Hd.",Taal="E":"\attn.",1:"t.a.v.")_MailTav,1:""))
 . . Set MTData("DOCNaam")=$$UPCASE^vhRtn1($E(R))_$$LOCASE^vhRtn1($E(R,2,99)),MTData("DocNum")=ORDNr
 . . Set MTData("Taal")=Taal
 . . For I="Type","Van","Aan","Tav","Betreft","Datum" Merge MTData(I)=Data(I)
 . . Do MERGETXT^DCFAX(TextId,.MTData)
 . . Do:TextId'["?"
 . . . If Data("FopType")="F",Data("Fax")'="" Quit
 . . . If Data("FopType")="M",Data("em")'="" Quit
 . . . Set TextId=TextId_"?"
 . . If TextId'["?" Do
 . . . Do SAVE^DCFAX(.Data)
 . . . Do:Data("FopType")="F" PRINT^FaxMail(.Data,0,.AutoDev)
 . . . Do:Data("FopType")="M" MAIL^FaxMail(.Data)
 . . Else  Do VERWERK^FaxMail(.Data,"EDIT",.AutoDev)
 . Else  Kill Data Merge Data=OPData Do PRINT^FaxMail(.Data,0,.AutoDev) ; Enkel afdruk
 . Kill ^HULP(%J)
 Quit
 ;
 ; Bon
LEVERBON(BONNr,TextId,AutoDev,DefData) 
 New %J,I,R,KLNr,Data,MTData,OPData,Taal,Tav,Document,DocNum,zb,ToDev,DefFax
 Set Data("Via")="BON",(Document,Data("Document"))="L"
 Merge Data=DefData ; De default data copieren
 Merge DocNum=BONNr,Data("DocNum")=BONNr,OPData=Data
 Set R=^KU1(BONNr,"F"),KLNr=$P(R,D)
 Set TextId=$G(TextId) Set:TextId="" TextId=$G(DefData("TextId")) Set:TextId="" TextId=$$TSELECT^DCFAX()
 Do:$L(TextId)
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . Set Taal=Data("Taal")
 . Set AutoDev=$$UPCASE^vhRtn1($G(AutoDev)),ToDev=$S(AutoDev:"P",AutoDev="FAX":"F",AutoDev="MAIL":"M",1:AutoDev)
 . Set DefFax=$$GetDefaultTavKlant^FaxMail(KLNr,,"L")
 . Set:0[ToDev ToDev=$$ToDev(DefFax,$$GetDefaultemKlant^FaxMail(KLNr,,,"5,6","L"))
 . Quit:$G(zb)="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . If TextId=0,ToDev'="P" Set TextId=$S(ToDev="F":"Z",ToDev="MM":"Z",1:"?") ; Zonder voorblad doorfaxen of MAIL STEEDS MET VOORBLAD
 . If 0'[TextId Do
 . . Set Taal=Data("Taal")
 . . Set Data("TextId")=TextId
 . . Set Tav=DefFax
 . . Set Data("Tav")=$P(Tav,D) Set:$L($P(Tav,D,2)) Data("Fax")=$P(Tav,D,2)
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . . . If ToDev="MM" Set Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . . Else  Do
 . . . . Set R=$$TXT^DCALG("LevBon","DCBON")
 . . . . Set Data("Betreft")=$$Betreft(R,.BONNr)
 . . . . Set Data("em")=$S($L($G(DefData("em"))):DefData("em"),1:$$GetDefaultemKlant^FaxMail(KLNr,,1,,"L"))
 . . . . Set:$L($G(DefData("cc"))) Data("cc")=DefData("cc")
 . . . . Set:$L($G(DefData("bcc"))) Data("bcc")=DefData("bcc")
 . . Set:$L($G(DefData("Van"))) Data("Van")=DefData("Van")
 . . Set:$L($G(DefData("VanUser"))) Data("VanUser")=DefData("VanUser")
 . . Set Taal=Data("Taal")
 . . Set R=$$TXT^DCALG("LevBon","DCBON")
 . . Set Data("Betreft")=$$Betreft(R,.BONNr)
 . . Set MTData("DOCNaam")=$$UPCASE^vhRtn1($E(R))_$$LOCASE^vhRtn1($E(R,2,99)),MTData("DocNum")=BONNr
 . . Set MTData("Taal")=Taal
 . . For I="Type","Van","Aan","Tav","Betreft","Datum" Merge MTData(I)=Data(I)
 . . Do MERGETXT^DCFAX(TextId,.MTData)
 . . Do:TextId'["?"
 . . . If Data("FopType")="F",Data("Fax")'="" Quit
 . . . If Data("FopType")="M",Data("em")'="" Quit
 . . . Set TextId=TextId_"?"
 . . If TextId'["?" Do
 . . . Do SAVE^DCFAX(.Data)
 . . . Do:Data("FopType")="F" PRINT^FaxMail(.Data,0,.AutoDev)
 . . . Do:Data("FopType")="M" MAIL^FaxMail(.Data)
 . . Else  Do VERWERK^FaxMail(.Data,"EDIT",.AutoDev)
 . Else  Kill Data Merge Data=OPData Do PRINT^FaxMail(.Data,0,.AutoDev) ; Enkel afdruk
 . Kill ^HULP(%J)
 Quit
 ;
 ; Factuur
FACTUUR(FANr,TextId,AutoDev,DefData) 
 New %J,I,R,KLNr,Data,MTData,OPData,Taal,Tav,Document,DocType,DocNum,zb,ToDev,DefFax
 Set Data("Via")="FACT",(Document,Data("Document"))="F"
 Merge Data=DefData ; De default data copieren
 Merge DocNum=FANr,Data("DocNum")=FANr,OPData=Data
 Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),DocType=$P(R,D,2)
 Set TextId=$G(TextId) Set:TextId="" TextId=$$TSELECT^DCFAX()
 Do:$L(TextId)
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . Set Taal=Data("Taal")
 . Set AutoDev=$$UPCASE^vhRtn1($G(AutoDev)),ToDev=$S(AutoDev:"P",AutoDev="FAX":"F",AutoDev="MAIL":"M",1:AutoDev)
 . Set DefFax=$$GetDefaultTavKlant^FaxMail(KLNr,"BH","F")
 . Set:0[ToDev ToDev=$$ToDev(DefFax,$S($L($G(DefData("em"))):DefData("em"),1:$$GetDefaultemKlant^FaxMail(KLNr,"BH",,"5,6","F")))
 . Quit:$G(zb)="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . If TextId=0,ToDev'="P" Set TextId=$S(ToDev="F":"Z",ToDev="MM":"Z",1:"?") ; Zonder voorblad doorfaxen of MAIL STEEDS MET VOORBLAD
 . If 0'[TextId Do
 . . Set Taal=Data("Taal")
 . . Set Data("TextId")=TextId
 . . Set Tav=DefFax
 . . Set Data("Tav")=$P(Tav,D) Set:$L($P(Tav,D,2)) Data("Fax")=$P(Tav,D,2)
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . . . If ToDev="MM" Set Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . . Else  Do
 . . . . Set R=$$TXT^DCALG($S(DocType="C":"Kred",1:"Fakt"),"DCFAKT")
 . . . . Set Data("Betreft")=$$Betreft(R,.FANr)
 . . . . Set Data("em")=$S($L($G(DefData("em"))):DefData("em"),1:$$GetDefaultemKlant^FaxMail(KLNr,"BH",1,,"F"))
 . . Set Taal=Data("Taal")
 . . Set R=$$TXT^DCALG($S(DocType="C":"Kred",1:"Fakt"),"DCFAKT")
 . . Set Data("Betreft")=$$Betreft(R,.FANr)
 . . Set MTData("DOCNaam")=$$UPCASE^vhRtn1($E(R))_$$LOCASE^vhRtn1($E(R,2,99)),MTData("DocNum")=FANr
 . . Set MTData("Taal")=Taal
 . . For I="Type","Van","Aan","Tav","Betreft","Datum" Merge MTData(I)=Data(I)
 . . Do MERGETXT^DCFAX(TextId,.MTData)
 . . Do:TextId'["?"
 . . . If Data("FopType")="F",Data("Fax")'="" Quit
 . . . If Data("FopType")="M",Data("em")'="" Quit
 . . . Set TextId=TextId_"?"
 . . Merge Data=DefData ; De default data finaal copieren
 . . If TextId'["?" Do
 . . . Do SAVE^DCFAX(.Data)
 . . . Do:Data("FopType")="F" PRINT^FaxMail(.Data,0,.AutoDev)
 . . . Do:Data("FopType")="M" MAIL^FaxMail(.Data)
 . . Else  Do VERWERK^FaxMail(.Data,"EDIT",.AutoDev)
 . Else  Kill Data Merge Data=OPData Do PRINT^FaxMail(.Data,0,.AutoDev) ; Enkel afdruk
 . Kill ^HULP(%J)
 Quit
 ;
 ; Proforma
PROFORMA(PROFNr,TextId,AutoDev,DefData) 
 New %J,I,R,KLNr,Data,MTData,OPData,Taal,Tav,Document,DocType,DocNum,zb,ToDev,DefFax
 Set Data("Via")="PROF",(Document,Data("Document"))="V"
 Merge Data=DefData ; De default data copieren
 Merge DocNum=PROFNr,Data("DocNum")=PROFNr,OPData=Data
 Set R=^KFAP("F",PROFNr,0,0),KLNr=$P(R,D),DocType=$P(R,D,2)
 Set TextId=$G(TextId) Set:TextId="" TextId=$$TSELECT^DCFAX()
 Do:$L(TextId)
 . Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . Set Taal=Data("Taal")
 . Set AutoDev=$$UPCASE^vhRtn1($G(AutoDev)),ToDev=$S(AutoDev:"P",AutoDev="FAX":"F",AutoDev="MAIL":"M",1:AutoDev)
 . Set DefFax=$$GetDefaultTavKlant^FaxMail(KLNr,"BH","F")
 . Set:0[ToDev ToDev=$$ToDev(DefFax,$$GetDefaultemKlant^FaxMail(KLNr,"BH",,"5,6","F"))
 . Quit:$G(zb)="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . If TextId=0,ToDev'="P" Set TextId=$S(ToDev="F":"Z",ToDev="MM":"Z",1:"?") ; Zonder voorblad doorfaxen of MAIL STEEDS MET VOORBLAD
 . If 0'[TextId Do
 . . Set Taal=Data("Taal")
 . . Set Data("TextId")=TextId
 . . Set Tav=DefFax
 . . Set Data("Tav")=$P(Tav,D) Set:$L($P(Tav,D,2)) Data("Fax")=$P(Tav,D,2)
 . . Do:$E(ToDev)="M"
 . . . Do MailINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . . . If ToDev="MM" Set Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . . . Else  Do
 . . . . Set R=$$TXT^DCALG($S(DocType="C":"Kred",1:"Fakt"),"DCFAKTP")
 . . . . Set Data("Betreft")=$$Betreft(R,.PROFNr)
 . . . . Set Data("em")=$$GetDefaultemKlant^FaxMail(KLNr,"BH",1,,"F")
 . . Set Taal=Data("Taal")
 . . Set R=$$TXT^DCALG($S(DocType="C":"Kred",1:"Fakt"),"DCFAKTP")
 . . Set Data("Betreft")=$$Betreft(R,.PROFNr)
 . . Set MTData("DOCNaam")=$$UPCASE^vhRtn1($E(R))_$$LOCASE^vhRtn1($E(R,2,99)),MTData("DocNum")=PROFNr
 . . Set MTData("Taal")=Taal
 . . For I="Type","Van","Aan","Tav","Betreft","Datum" Merge MTData(I)=Data(I)
 . . Do MERGETXT^DCFAX(TextId,.MTData)
 . . Do:TextId'["?"
 . . . If Data("FopType")="F",Data("Fax")'="" Quit
 . . . If Data("FopType")="M",Data("em")'="" Quit
 . . . Set TextId=TextId_"?"
 . . If TextId'["?" Do
 . . . Do SAVE^DCFAX(.Data)
 . . . Do:Data("FopType")="F" PRINT^FaxMail(.Data,0,.AutoDev)
 . . . Do:Data("FopType")="M" MAIL^FaxMail(.Data)
 . . Else  Do VERWERK^FaxMail(.Data,"EDIT",.AutoDev)
 . Else  Kill Data Merge Data=OPData Do PRINT^FaxMail(.Data,0,.AutoDev) ; Enkel afdruk
 . Kill ^HULP(%J)
 Quit
 ;
 ; Vrije ingave via een leverancier
LEV(LEVNr)
 New %J,R,Data,Taal,zb,ToDev,ProgLine,TextId,AutoDev,lFmt
 Write @F11,@F1,"   ",@FMTB,"TELEFAX - E-mail",@FMTb
 Lock +^FAX($I)
 Do INIT^FaxMail("N"),FaxINIT^FaxMail(),LevINIT^FaxMail(LEVNr,.Data)
 Set Data("Via")="LEV",Data("Document")="?"
 Set sFmt="lFmt",lFmt(1)="2`C`L`8````"
 Set ToDev=$$PI^vhPOPUP("C;C","-1OA","","FAXMAIL","OUTPUT")
 Do:zb'="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . Set Taal=Data("Taal")
 . Set TextId="?",Data("TextId")=TextId,ProgLine="NIEUW"
 . Do:$E(ToDev)="M"
 . . Do MailINIT^FaxMail(),LevINIT^FaxMail(LEVNr,.Data)
 . . Set:ToDev="MM" Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . Do VERWERK^FaxMail(.Data,.ProgLine,.AutoDev)
 . Kill ^HULP(%J)
 Lock -^FAX($I)
 Quit
 ;
 ; Vrije ingave via een klant
KLANT(KLNr)
 New %J,R,Data,Taal,zb,ToDev,ProgLine,TextId,AutoDev,lFmt
 Write @F11,@F1,"   ",@FMTB,"TELEFAX - E-mail",@FMTb
 Lock +^FAX($I)
 Do INIT^FaxMail("N"),FaxINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 Set Data("Via")="KLANT",Data("Document")="?"
 Set sFmt="lFmt",lFmt(1)="2`C`L`8````"
 Set ToDev=$$PI^vhPOPUP("C;C","-1OA","","FAXMAIL","OUTPUT")
 Do:zb'="CANC"
 . Set Data("ToDev")=ToDev
 . Set:ToDev="F" AutoDev="Fax"
 . Set Taal=Data("Taal")
 . Set TextId="?",Data("TextId")=TextId,ProgLine="NIEUW"
 . Do:$E(ToDev)="M"
 . . Do MailINIT^FaxMail(),KlINIT^FaxMail(KLNr,.Data)
 . . Set:ToDev="MM" Data("em")=$$USERNAME^vhUSER(,"@"),Data("Van")=""
 . Do VERWERK^FaxMail(.Data,.ProgLine,.AutoDev)
 . Kill ^HULP(%J)
 Lock -^FAX($I)
 Quit
 ;
EXTERN(Document,DocNum,AutoDev,Data,DefData)
 New FakSoort,TextId
 If '$G(DocNum) Set DocNum=$O(DocNum(""))
 Kill:$G(DocNum) DocNum(DocNum)
 Merge Data=DefData ; De default data initieel opzetten
 Set TextId=$G(Data("TextId"))
 If Document="T" Do TOELEV(.DocNum,.TextId,.AutoDev)
 If Document="A" Do OFFERTE(.DocNum,.TextId,.AutoDev,.DefData)
 If Document="O" Do ORDER(.DocNum,.TextId,.AutoDev,.DefData)
 If Document="L" Do
 . Set FakSoort=$$NODE^FLOWBON(DocNum)
 . If '$D(^KU1(DocNum,"F")) Set FakSoort=$$^vhTXTPOP("DCPRINT","BONONBEKEND","",DocNum) Quit  ; Bon bestaat niet
 . If FakSoort'="F" Do  Quit:'$$^vhTXTPOP("DCPRINT","BONGEFACTUREERD","",DocNum,KlNaam) ; Kan en mag een bon afgedrukt worden?
 . . Set KLNr=$P(^KU1(DocNum,"F"),D),KlNaam=$P(^KKL(^KK1(KLNr),0),D,2)
 . Do LEVERBON(.DocNum,.TextId,.AutoDev,.DefData)
 If Document="F" Do FACTUUR(.DocNum,.TextId,.AutoDev,.DefData)
 If Document="V" Do PROFORMA(.DocNum,.TextId,.AutoDev,.DefData)
 Quit
 ;
 ; Automatisch afdrukken op een printer of fax of mail zonder verdere vragen,
 ; behalve voor fax en mail eventueel de vraag naar voorblad
AUTO(Document,DocNum,AutoDev,Data)
 Set:AutoDev Data("TextId")=$G(Data("TextId"),"Z")
 Do EXTERN(Document,DocNum,.AutoDev,.Data)
 Quit
 ;
 ; Selecteer het output device
ToDev(DefFax,DefMail,DevVoorkeur)
 New ToDev,sFmt,lFmt
 Set sFmt="lFmt",lFmt(1)="2`C`L`8````"
 Set ToDev=$$PI^vhPOPUP("C;C","-1OAL","","FAXMAIL","OUTPUT",$G(DevVoorkeur))
 Quit ToDev
 ;
 ; Mag 'fax' en/of 'mail mij' gekozen worden ?
 ; Indien leverancier Halux enkel print
CBSelOutput(Ref)
 New D,R,LEVNr,KLNr,FopType,Include
 Set D="\",FopType=$G(Data("FopType")),Include=1
 Do:$L(FopType)
 . If $G(Data("Type"))="L" Do  Quit
 . . If $G(Data("LEVNr"))=6332,$P(Ref,"`")'="P" Set Include=0
 . Quit:$P(Ref,"`")'="F"  
 . ; Indien fax voor klant nazien of TKFAX = ja
 . Set KLNr=$G(Data("KLNr"))
 . Quit:'KLNr
 . Set R=^KKL(^KK1(KLNr),1),Include='$P(R,D,26) ; TKFAX = ja
 If Include,$P(Ref,"`")="MM" Set Include=$L($$USERNAME^vhUSER(,"@"),"@")=2 ; Is er een en slechts een mail adres voor mail mij
 Quit Include
 ;
 ; Toevoegen van naam aan de elementen 'Fax' en 'Mail'
CBAddName
 For sY=1:1:sY Do:$L($G(sY(sY)))
 . If $P(sY(sY),"`")="F",$L($G(DefFax)) Set sY(sY)=sY(sY)_" - "_$P(DefFax,"\")
 . If $P(sY(sY),"`")="M",$L($G(DefMail)) Set sY(sY)=sY(sY)_" - "_$P(DefMail,"\")
 . Set:$L($P(sY(sY),"`",2))>$P(lFmt(1),"`",4) $P(lFmt(1),"`",4)=$L($P(sY(sY),"`",2))
 Quit
 ;
Betreft(Txt,DocNum,Append)
 New Betreft
 Set Betreft=$$UPCASE^vhRtn1($E(Txt))_$$LOCASE^vhRtn1($E(Txt,2,99))_" "_$$EXTNUM^vhDTyp(DocNum,0,".",0)
 If '$O(DocNum(DocNum)),'$O(DocNum(DocNum),-1)
 Else  Set Betreft=Betreft_",..."
 Set:$L($G(Append)) Betreft=Betreft_"/"_Append
 Quit Betreft
 ;
 ; Moet er volgens de settings een extra exemplaar naar de klant verzonden worden?
KLSettings(KLNr,Document,DocNum) 
 New (KLNr,Document,DocNum)
 Do
 . New KLNr,Document,DocNum
 . Set Q="K"
 . Do ^cA604
 Do:Document="L"
 . Set:'$G(KLNr) KLNr=$P(^KU1(DocNum,"F"),D)
 . 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",DefData("BackGround")=1
 . . Do LEVERBON(.DocNum,.TextId,"Fax",.DefData)
 . 
 . Do:$P(^KKL(^KK1(KLNr),1),D,17)["M"
 . . 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 ToMail=$P($$SELECT^PERSS("K",KLNr,.Optie),";")
 . . . Do:ToMail=""
 . . . . Kill Optie("DOCVOORKEUR")
 . . . . Set ToMail=$P($$SELECT^PERSS("K",KLNr,.Optie),";")
 . . . . Set:ToMail="" ToMail=$P(^KKL(^KK1(KLNr),2),D,19)
 . . Else  Do
 . . . Set ToMail="",BLNr=100
 . . . For  Set BLNr=$O(^KUL(KLNr,"F",DocNum,BLNr)) Quit:'BLNr  Do
 . . . . Set R=^KUL(KLNr,"F",DocNum,BLNr)
 . . . . Quit:$P(R,D,17)'="KF5"
 . . . . Set UserId=$P($P(R,D,4),"#")
 . . . . If UserId,ToMail'[UserId Set ToMail=ToMail_";"_UserId
 . . . Set $E(ToMail)=""
 . . . Set ToMail=$$USERNAME^vhUSER(ToMail,"@")
 . . Quit:ToMail=""
 . . Set DefData("TextId")="S",DefData("em")=ToMail,DefData("BackGround")=1,DefData("Van")="info@vanhoecke.be"
 . . Do LEVERBON(.DocNum,.TextId,"Mail",.DefData)
 Quit