MDM. USTVA, SammelRE, Leistender, etc.

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -91,6 +91,8 @@ Public Class frmMDMDatenverarbetiung
 
         Dim errorTmp = False
 
+        If Not checkAbrechnungsdatum(CDate(datPloseAnhang.Value)) Then Exit Sub
+
         If test Then
             If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
         End If
@@ -4236,17 +4238,22 @@ Public Class frmMDMDatenverarbetiung
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
+
+
         If test Then
             If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
         End If
 
         If vbYes = MsgBox("Möchten Sie den Vorgang wirklich manuell ausgeführen (wird bei Rechnungserstellung automatisch ausgeführt)", vbYesNoCancel) Then
 
+            If Not checkAbrechnungsdatum(datPloseAnhang.Value) Then Exit Sub
+
             MautD_Befuellen()
         End If
     End Sub
 
     Function MautD_Befuellen(Optional kdNr = "", Optional _Lieferant = "") As Boolean
+
         Select Case LIEFERANT
             Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
             Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr)
@@ -4817,4 +4824,22 @@ RabattBerechnen:
         End If
 
     End Function
+
+    Private Function checkAbrechnungsdatum(abrDate As Date)
+
+
+        Dim checkDate As Boolean = False
+
+        If Not (abrDate.Day = 15 Or abrDate.Day = 30 Or abrDate.Day = 31 Or (abrDate.Month = 2 And abrDate.Day = 28)) Then
+            If Not vbYes = MsgBox("ACHTUNG, immer als Abrechnungsdatum den 15. bzw. den letzten Tag des Monats angeben!" & vbNewLine & "Dies kann zu Fehlern bei der Verrechnung führen!" & vbNewLine & "Möchten Sie wirklich mit dem " & abrDate.ToShortDateString & " fortfahren?", vbYesNoCancel) Then
+                checkDate = False
+            Else
+                checkDate = True
+            End If
+        Else
+            checkDate = True
+        End If
+
+        Return checkDate
+    End Function
 End Class