Digicust -> Plausibitätsprüfungen

Aviso/frmDigicust.vb

@@ -81,7 +81,6 @@ Public Class frmDigicust
         Try
 
             If Not checkAttachment() Then
-
                 Exit Sub
             End If
 
@@ -299,7 +298,13 @@ Public Class frmDigicust
 
 
             getBezugsnr(BezugsNr)
+
+            If AVISO.LKW_Nr.Length > 10 Then
+                txtLKWId.Text = AVISO.LKW_Nr.Substring(0, 10)
+            Else
                 txtLKWId.Text = AVISO.LKW_Nr
+            End If
+
             txtLWKLand.Text = AVISO.LKW_Nationalitaet
 
 
@@ -420,9 +425,28 @@ Public Class frmDigicust
 
         If cboStammreferenz._value = "" Then
             lblInfo.Text = "Stammref. auswählen!"
+            cboStammreferenz.Focus()
             Return False
         End If
 
+        If txtLKWId.TextLength > 10 Then
+            lblInfo.Text = "LKW-Kennzeichen zu lang (max 10 Stellen)."
+            txtLKWId.Focus()
+            Return False
+        End If
+
+
+        If txtVorpapierT.Text > 2 Then
+            lblInfo.Text = "Vopapier-Code zu lang (max 2 Stellen)."
+            txtVorpapierT.Focus()
+            Return False
+        End If
+
+        If txtVorpapier.Text > 30 Then
+            lblInfo.Text = "Vopapier zu lang (max 30 Stellen)."
+            txtVorpapier.Focus()
+            Return False
+        End If
 
         'TODO
         Return True