Mahnlauf, Mailbenachrichtung, Fakt, MDMEinarbeitung, etc.

2025-06-26 15:33:05 +02:00
parent 4b40d5ffcf
commit a08e27deea
6 changed files with 98 additions and 54 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
@@ -124,6 +124,7 @@ Public Class cEmailBenachrichtigung
        Dim Firma As New cFirma

        If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
+        If Kdnr < 0 Then Exit Sub

        'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist:
        Dim kdn_er As New cKundenErweitert(Kdnr)