merge

VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb

@@ -64,6 +64,10 @@ Public Class cNCTSGestellungsadressen
     Public Function SAVE() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "tblNCTSGestellungsadressen", "", "FMZOLL") Then
+            Return False
+        End If
+
 
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTSGestellungsadressen WITH(updlock,serializable) WHERE nga_id=@nga_id) " &
                        " BEGIN " & getUpdateCmd() & " END " &