From b148ea911f60f918c0fd2a7f9b5c7aa8c97d50b9 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 18 Jun 2025 08:43:41 +0200 Subject: [PATCH 1/2] vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index afa80f5c..42ead457 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From 0415d4cd432d49fe09d70cdd2de63ca4c14176be Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 18 Jun 2025 11:56:16 +0200 Subject: [PATCH 2/2] zoll land --- .../Classes/cEmailBenachrichtigung.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb index c3852236..8cdbb74a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb @@ -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 = ""