zoll land
This commit is contained in:
@@ -122,6 +122,20 @@ Public Class cEmailBenachrichtigung
|
||||
Dim Firmen As New cFirmenDAL
|
||||
Dim Firma As New cFirma
|
||||
|
||||
|
||||
'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist:
|
||||
If art = 3 Then '> Ankunft Export
|
||||
If (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = 0 Then
|
||||
art = 1
|
||||
End If
|
||||
End If
|
||||
If art = 4 Then '> Freigabe Export
|
||||
If (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = 0 Then
|
||||
art = 2
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'In diesen Strings werden die Mailadressen übergeben:
|
||||
Emails = ""
|
||||
Emails_CC = ""
|
||||
|
||||
Reference in New Issue
Block a user