EintragAviso ErfassungsDat

Aviso/frmEintragAviso.vb

@@ -310,6 +310,7 @@ Public Class frmEintragAviso
             Neuanlage = True
             Me.Text = "Neuanlage LKW-Aviso"
             dtpDatum.Value = Now
+            If Not bearb Then dtpDatum.Enabled = False
             datVoraussichtlichesEintreffen.Value = Now.AddDays(-1)
             If cboFirma._value = "ATILLA" Then datVoraussichtlichesEintreffen.Value = Now 'Bei ATILLA gibt es meist kein voraussichtliches Eintreffdatum.
 
@@ -347,12 +348,13 @@ Public Class frmEintragAviso
 
                 myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
 
-                'Werte(zuweisen)
-                dtpDatum.Value = myAviso.Datum
-                If myAviso.Frächter_KdNr > 0 Then
-                    kdFrächter.KdNr = myAviso.Frächter_KdNr
-                Else
-                    kdFrächter.Text = myAviso.Frächter
+            'Werte(zuweisen)
+            dtpDatum.Value = myAviso.Datum
+            If Not bearb Then dtpDatum.Enabled = False
+            If myAviso.Frächter_KdNr > 0 Then
+                kdFrächter.KdNr = myAviso.Frächter_KdNr
+            Else
+                kdFrächter.Text = myAviso.Frächter
                 End If
 
                 If myAviso.Auftraggeber_KdNr > 0 Then
@@ -618,6 +620,7 @@ Public Class frmEintragAviso
             lblErr_Uhrzeit.Visible = False
             lblErr_LKW.Visible = False
             lblErr_KdNr.Visible = False
+            lblErrErfasstDat.Visible = False
             lblSendungsanzahl.Visible = False
             lblErrVorraussuchtlEintreffen.Visible = False
 
@@ -631,6 +634,11 @@ Public Class frmEintragAviso
             End If
 
 
+            If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
+                lblErrErfasstDat.Visible = True
+                dtpDatum.Focus()
+                Exit Sub
+            End If
 
             If optAvisoEingang.Checked Then
                 If CDate(dtpAvisoEingangDatum.Value) > Now Then