From f102b84630a2cad733816a7f9657c3c7a145c971 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 20 Jun 2025 12:26:50 +0200 Subject: [PATCH] Fix Emailbenachtichtigun beim Import/Export --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 1 - VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb | 7 +++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 977db24d..6f5a622d 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -1204,7 +1204,6 @@ Public Class cAvisoDAL daten.Warenort = If(dr.Item("Warenort") Is DBNull.Value, Nothing, dr.Item("Warenort")) daten.ZOLLDigitalEingereicht = If(dr.Item("ZOLLDigitalEingereicht") Is DBNull.Value, Nothing, dr.Item("ZOLLDigitalEingereicht")) daten.Transportmittelart = If(dr.Item("Transportmittelart") Is DBNull.Value, Nothing, dr.Item("Transportmittelart")) - daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV")) daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus")) daten.VerwahrungStatusDate = If(dr.Item("VerwahrungStatusDate") Is DBNull.Value, Nothing, dr.Item("VerwahrungStatusDate")) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb index 8cdbb74a..f3d6dbe8 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb @@ -125,12 +125,15 @@ Public Class cEmailBenachrichtigung '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 + 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")) + If AnkungMail = 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 + 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(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0")) + If FreigabeMail = 0 Then art = 2 End If End If