Digicust -> Plausibitätsprüfungen

Aviso/frmDigicust.vb

@@ -81,7 +81,6 @@ Public Class frmDigicust
         Try
 
             If Not checkAttachment() Then
-
                 Exit Sub
             End If
 
@@ -299,28 +298,34 @@ Public Class frmDigicust
 
 
             getBezugsnr(BezugsNr)
-            txtLKWId.Text = AVISO.LKW_Nr
+
+            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
 
 
-            If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
-                txtVorpapier.Text = SENDUNG.tblSnd_Vorpapier
-                txtVorpapierT.Text = cDy_ART
+                If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
+                    txtVorpapier.Text = SENDUNG.tblSnd_Vorpapier
+                    txtVorpapierT.Text = cDy_ART
+                End If
+
+                If SENDUNG.tblSnd_EmpfaengerKdNr > -1 Then
+                    UsrCntl_Consignee.kdFirma.initKdBox(Me)
+                    UsrCntl_Consignee.kdFirma.KdNr = SENDUNG.tblSnd_EmpfaengerKdNr
+                End If
+
+
+                If SENDUNG.tblSnd_AbsenderKdNr > -1 Then
+                    usrCntl_consignor.kdFirma.initKdBox(Me)
+                    usrCntl_consignor.kdFirma.KdNr = SENDUNG.tblSnd_AbsenderKdNr
+                End If
+
             End If
 
-            If SENDUNG.tblSnd_EmpfaengerKdNr > -1 Then
-                UsrCntl_Consignee.kdFirma.initKdBox(Me)
-                UsrCntl_Consignee.kdFirma.KdNr = SENDUNG.tblSnd_EmpfaengerKdNr
-            End If
-
-
-            If SENDUNG.tblSnd_AbsenderKdNr > -1 Then
-                usrCntl_consignor.kdFirma.initKdBox(Me)
-                usrCntl_consignor.kdFirma.KdNr = SENDUNG.tblSnd_AbsenderKdNr
-            End If
-
-        End If
-
 
     End Sub
 
@@ -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