From e11c87ce61f46798f35a6bf0a18e54612237315d Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 27 Oct 2023 13:37:23 +0200
Subject: [PATCH] =?UTF-8?q?Digicust=20->=20Plausibit=C3=A4tspr=C3=BCfungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/frmDigicust.vb | 60 +++++++++++++++++++++++++++++++-------------
 1 file changed, 42 insertions(+), 18 deletions(-)

diff --git a/Aviso/frmDigicust.vb b/Aviso/frmDigicust.vb
index eb05af9..3020f90 100644
--- a/Aviso/frmDigicust.vb
+++ b/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