edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

div

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-17 14:26:29 +02:00
parent 100b1c3030
commit 6e2e6a5e38
6 changed files with 28 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1583,7 +1583,7 @@ Class IDS_Transaktionen
Public Function SAVE() As Boolean
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblIDS_Transaktionen WITH(updlock,serializable) WHERE TRS_NUM=@TRS_NUM ) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblIDS_Transaktionen WITH(updlock,serializable) WHERE TRS_NUM=@TRS_NUM AND BC_INVO_DATE=@BC_INVO_DATE ) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
@@ -1624,7 +1624,7 @@ Class IDS_Transaktionen
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblIDS_Transaktionen] SET " & str & " WHERE TRS_NUM=@TRS_NUM")
Return (" UPDATE [tblIDS_Transaktionen] SET " & str & " WHERE TRS_NUM=@TRS_NUM AND BC_INVO_DATE=@BC_INVO_DATE")
Catch ex As SqlException
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)