cFakt, Kundenblatt, ustva, etc.

SDL/mdm/frmDatumsabfrage.vb

@@ -2,6 +2,7 @@
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmDatumsabfrage
+    Dim onlypastDate As Boolean = True
 
     Sub New()
 
@@ -9,11 +10,21 @@ Public Class frmDatumsabfrage
         InitializeComponent()
     End Sub
 
+    Sub New(title As String, _onlypastDate As Boolean)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        onlypastDate = _onlypastDate
+        lbl.Text = title
+    End Sub
+
     Public Datum As Date = CDate(Now.ToShortDateString)
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Label1.Text = ""
 
-        If CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
+        If onlypastDate And CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
             Label1.Text = "Muss heute oder früher sein!"
             Me.DialogResult = DialogResult.None
             Exit Sub