This commit is contained in:
SchreiberM
2017-01-23 15:15:52 +01:00
parent 0d59a9613a
commit 9670c2ec1b
12 changed files with 49 additions and 43 deletions

View File

@@ -7,7 +7,7 @@
End If
Dim Username As String = USER_USERNAME
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", Username, RecordId)
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(SQL, True)
End If
ClassDatabase.Execute_non_Query(SQL)
@@ -26,7 +26,7 @@
Exit Sub
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 0, IN_WORK_WHO = NULL WHERE GUID = {0}", RecordId)
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(SQL, True)
End If
ClassDatabase.Execute_non_Query(SQL)