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

Mailbenachrichtigungen

Browse Source
This commit is contained in:
d.breimaier
2025-06-25 13:25:34 +02:00
parent 2afdb174cc
commit fe17b29564
1 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -1,6 +1,7 @@
 
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports com.sun.xml.internal.rngom.digested
Public Class cEmailBenachrichtigungList Public Class cEmailBenachrichtigungList
Property eb_KundenNr As Object = Nothing Property eb_KundenNr As Object = Nothing
@@ -122,22 +123,24 @@ Public Class cEmailBenachrichtigung
Dim Firmen As New cFirmenDAL Dim Firmen As New cFirmenDAL
Dim Firma As New cFirma Dim Firma As New cFirma
'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist: 'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist:
Dim kdn_er As New cKundenErweitert(Kdnr)
If kdn_er IsNot Nothing Then
If art = 3 Then '> Ankunft Export If art = 3 Then '> Ankunft Export
Dim AnkungMail = IIf((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = "False", "0", (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0")) Dim AnkunftMail = CBool((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("EmailAnkunft_Export", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", False))
If AnkungMail = 0 Then If AnkunftMail Then
art = 1 art = 1
End If End If
End If ElseIf art = 4 Then '> Freigabe Export
Dim FreigabeMail = CBool((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("EmailFreigabe_Export", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", False))
If art = 4 Then '> Freigabe Export If FreigabeMail Then
Dim FreigabeMail = IIf((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = "False", "0", (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0"))
If FreigabeMail = 0 Then
art = 2 art = 2
End If End If
End If End If
End If
'In diesen Strings werden die Mailadressen übergeben: 'In diesen Strings werden die Mailadressen übergeben:
Emails = "" Emails = ""