This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-04 10:33:11 +02:00
parent 00c7d956c1
commit 0876b7b4e4
25 changed files with 7682 additions and 5917 deletions

View File

@@ -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)