edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-19 08:37:24 +02:00
parent 780d763ba4
commit c9eb9307ef
5 changed files with 69 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -872,6 +872,7 @@ Public Class frmFormulare
Next
Next
Dim dest_path = ""
If list.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
@@ -4246,14 +4247,27 @@ Public Class FormularManagerNEU
Dim MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
Dim Mail_Subject = ""
Dim Mail_CC = ""
Dim Mail_BCC = ""
Dim Mail_To = ""
If usrCntl.KdNR > 0 Then
'lt. Kerstin: Steuerberater braucht den Verbringungsnachweis nicht
' Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
' If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
'Mail aus kunden Kontakte Spezial:
Dim EMAILTMP = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(usrCntl.KdNR, "Fiskal")
If EMAILTMP <> "" Then Mail_To = EMAILTMP
Dim EMAILTMPCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(usrCntl.KdNR, "Fiskal")
If EMAILTMPCC <> "" Then Mail_CC = EMAILTMPCC
Dim EMAILTMPBCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(usrCntl.KdNR, "Fiskal")
If EMAILTMPBCC <> "" Then Mail_bCC = EMAILTMPBCC
If EMAILTMP = "" Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
End If
End If
@@ -4424,8 +4438,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "</div>"
listMail.Add(New FormMangagerEmail(Mail_To, Mail_CC, "", Mail_Subject, MailHTMLText))
listMail.Add(New FormMangagerEmail(Mail_To, Mail_CC, Mail_BCC, Mail_Subject, MailHTMLText))
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)