div. Änderungen, etc.

SDL/Classes/cCMR.vb

@@ -567,12 +567,19 @@ Public Class cCMR
         End If
 
 
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "CMR", "", "FMZOLL") Then
+            Return False
+        End If
+
+
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM CMR WITH(updlock,serializable) WHERE CMR_ID=@CMR_ID) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " END " &
                        " commit tran "
-        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
         Me.CMR_ID = SQL.doSQLVarListID(Me.CMR_ID, sqlstr, "FMZOLL", True, list)
         Return CBool(Me.CMR_ID > 0)
     End Function