AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/frmWM_CreateVersion.vb
View File

@@ -11,13 +11,13 @@ Public Class frmWM_CreateVersion
If clsWD_SET.Create_Version(row.Item("FILEPATH"), txtComment.Text) Then
MsgBox("Version was created successfully!", MsgBoxStyle.Information)
Dim sql = "SELECT Version from TBPMO_DOCRESULT_LIST Where DocID = " & row.Item("DOC_ID")
Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
Dim VERSION = MYDB_ECM.GetScalarValue(sql)
If Not IsNothing(VERSION) Then
VERSION = VERSION + 1
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0},Change_DateTime = GETDATE() WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
clsDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd, True)
End If
End If
Else