neu

Aviso/frmEintragAviso.vb

@@ -518,6 +518,7 @@ Public Class frmEintragAviso
             lblErr_Grenzstelle.Visible = False
             lblErr_Uhrzeit.Visible = False
             lblErr_LKW.Visible = False
+            lblErr_KdNr.Visible = False
             lblSendungsanzahl.Visible = False
             lblErrVorraussuchtlEintreffen.Visible = False
 
@@ -559,6 +560,19 @@ Public Class frmEintragAviso
 
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+                If Not cbxFrächterUnbekannt.Checked Then
+                    If kdFrächter.KdNr_value <= 0 Then
+                        kdFrächter.Focus()
+                        lblErr_KdNr.Visible = True
+                        Exit Sub
+                    End If
+                End If
+                If kdAvisierer.KdNr_value <= 0 Then
+                    kdAvisierer.Focus()
+                    lblErr_KdNr.Visible = True
+                    Exit Sub
+                End If
+
             Else
                 If cboGrenzstelle.Text.Trim = "" Then
                     ' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
@@ -1628,7 +1642,7 @@ Public Class frmEintragAviso
             kdFrächter.Text = ""
             kdFrächter.Enabled = False
         Else
-            kdFrächter.Enabled = False
+            kdFrächter.Enabled = True
         End If
     End Sub