Personalakte

This commit is contained in:
Developer01
2025-06-18 09:33:52 +02:00
parent 0159fa79c4
commit cfe631a568
18 changed files with 561 additions and 345 deletions

View File

@@ -14,9 +14,6 @@ Public Class ClassFileResult
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
End If
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
InWork = True
Return True
Else
@@ -32,9 +29,6 @@ Public Class ClassFileResult
Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',CHANGED_WHO = '{2}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
Return True
Else
Return False