MS_05042016

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -675,7 +675,12 @@ Public Class ClassControlBuilder
 
             'SQL-Command vorhanden also Ausführen des SQL
             If sqlcommand.Length > 1 Then
-                Dim result = ClassDatabase.Execute_Scalar(sqlcommand)
+                Dim result
+                If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then
+                    result = Nothing
+                Else
+                    result = ClassDatabase.Execute_Scalar(sqlcommand, True)
+                End If
                 If Not IsNothing(result) Then
                     If Not IsDBNull(result) Then
                         If Not IsNothing(result) Then