MS
This commit is contained in:
@@ -14,7 +14,7 @@ Public Class frmWM_CreateVersion
|
||||
Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
|
||||
If Not IsNothing(VERSION) Then
|
||||
VERSION = VERSION + 1
|
||||
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
|
||||
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)
|
||||
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
|
||||
clsDatabase.Execute_non_Query(upd, True)
|
||||
|
||||
Reference in New Issue
Block a user