Provisionsabrechnung

VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 
 Public Class cKunde
     Property KundenNr As Object = Nothing
@@ -201,8 +202,9 @@ Public Class cKunde
             'Prüfung Neuanlage:
             If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
             If checkEORI() Then ERROR_TXT = "Die EORI Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
+            If Abfertigungsverbot And (If(Abfertigungsverbot_Grund, "") = "" OrElse Abfertigungsverbot_seit Is Nothing) Then ERROR_TXT = "Wenn Abfertigungsverbot gesetzt, muss ein Grund und Datum angegeben werden!" : Return False
         End If
-        Return True
+            Return True
     End Function
     Function checkEORI() As Boolean
         If If(EORITIN, String.Empty) <> String.Empty Then