plose, etc.

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports System.Windows.Forms
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class cDakosyEZA
@@ -245,9 +246,17 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
         Return Me.SAVE
     End Function
 
+
+
+
     Public Function SAVE() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "tblDakosy_EZA", "", "FMZOLL") Then
+            Return False
+        End If
+
+
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_eza WITH(updlock,serializable) WHERE eza_Id=@eza_Id) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &