MDM-Sammelrechnung IDS Prüfung erweitert, Fakt.

2025-02-20 09:04:34 +01:00
parent d0048c512d
commit 5d03008258
4 changed files with 14 additions and 6 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
@@ -928,8 +928,13 @@ Public Class SQL
                    cmd.ExecuteNonQuery()

                    If id <= 0 Then
-                        Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn)
+                        Dim newcmd As New SqlCommand("SELECT CONVERT(int,isnull(@@IDENTITY,0))", conn)
                        id = CInt(newcmd.ExecuteScalar)
+                        If id = 0 Then
+                            Dim newcmd2 As New SqlCommand("SELECT CONVERT(int,isnull(SCOPE_IDENTITY(),0))", conn)
+                            id = CInt(newcmd2.ExecuteScalar)
+
+                        End If
                    End If

                End If