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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-10 13:51:31 +02:00
parent 8f8b0f4252
commit 021cce6f04
48 changed files with 6001 additions and 727 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
View File

@@ -191,7 +191,7 @@ Public Class cKundenVermerkItem
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVermerke WITH(updlock,serializable) WHERE kvm_id=@kvm_id) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
@@ -203,7 +203,7 @@ Public Class cKundenVermerkItem
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblKundenVermerke] WITH(updlock,serializable) WHERE kvm_id=" & Me.kvm_id
Dim sqlstr = " DELETE FROM [tblKundenVermerke] WHERE kvm_id=" & Me.kvm_id
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function