EintragAviso ErfassungsDat

Aviso/frmEintragAviso.designer.vb

@@ -154,6 +154,7 @@ Partial Class frmEintragAviso
         Me.Label2 = New System.Windows.Forms.Label()
         Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
         Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
+        Me.lblErrErfasstDat = New System.Windows.Forms.Label()
         Me.panAdmin.SuspendLayout()
         Me.grpAviso.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -942,6 +943,7 @@ Partial Class frmEintragAviso
         Me.kdAuftraggeber._displayWoelflKd = False
         Me.kdAuftraggeber._hideIfListEmpty = True
         Me.kdAuftraggeber._loadKdData = False
+        Me.kdAuftraggeber._searchName1 = True
         Me.kdAuftraggeber._UseFIRMA = ""
         Me.kdAuftraggeber._ValueKdAndName = True
         Me.kdAuftraggeber.dgvpos = "LEFT"
@@ -970,6 +972,7 @@ Partial Class frmEintragAviso
         Me.kdAvisierer._displayWoelflKd = False
         Me.kdAvisierer._hideIfListEmpty = True
         Me.kdAvisierer._loadKdData = False
+        Me.kdAvisierer._searchName1 = True
         Me.kdAvisierer._UseFIRMA = ""
         Me.kdAvisierer._ValueKdAndName = True
         Me.kdAvisierer.dgvpos = "LEFT"
@@ -997,6 +1000,7 @@ Partial Class frmEintragAviso
         Me.kdFrächter._displayWoelflKd = False
         Me.kdFrächter._hideIfListEmpty = True
         Me.kdFrächter._loadKdData = False
+        Me.kdFrächter._searchName1 = True
         Me.kdFrächter._UseFIRMA = ""
         Me.kdFrächter._ValueKdAndName = True
         Me.kdFrächter.dgvpos = "LEFT"
@@ -1841,6 +1845,18 @@ Partial Class frmEintragAviso
         Me.UsrCntlEintragAvisoAtilla.TabIndex = 8
         Me.UsrCntlEintragAvisoAtilla.Visible = False
         '
+        'lblErrErfasstDat
+        '
+        Me.lblErrErfasstDat.AutoSize = True
+        Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red
+        Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5)
+        Me.lblErrErfasstDat.Name = "lblErrErfasstDat"
+        Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26)
+        Me.lblErrErfasstDat.TabIndex = 52
+        Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!"
+        Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErrErfasstDat.Visible = False
+        '
         'frmEintragAviso
         '
         Me.AcceptButton = Me.btnOK
@@ -1879,6 +1895,7 @@ Partial Class frmEintragAviso
         Me.Controls.Add(Me.lblErrFmZollKdNr)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.lblErrErfasstDat)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
@@ -2038,4 +2055,5 @@ Partial Class frmEintragAviso
     Friend WithEvents lblTeamFraechter As Label
     Friend WithEvents lblTeamAvisierer As Label
     Friend WithEvents cbxEintreffenAus As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblErrErfasstDat As Label
 End Class

Aviso/frmEintragAviso.resx

@@ -216,12 +216,6 @@
   <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

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)
+            'Werte(zuweisen)
-                dtpDatum.Value = myAviso.Datum
+            dtpDatum.Value = myAviso.Datum
-                If myAviso.Frächter_KdNr > 0 Then
+            If Not bearb Then dtpDatum.Enabled = False
-                    kdFrächter.KdNr = myAviso.Frächter_KdNr
+            If myAviso.Frächter_KdNr > 0 Then
-                Else
+                kdFrächter.KdNr = myAviso.Frächter_KdNr
-                    kdFrächter.Text = myAviso.Frächter
+            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