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

10
app/DD-Record-Organizer/Classes/ClassRecordState.vb
View File

@@ -7,9 +7,9 @@
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", USER_USERNAME, RecordId)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(SQL, True)
MYDB_ECM.ExecuteNonQuery(SQL)
End If
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(Sql)
Catch ex As Exception
MsgBox("Error in LockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -26,9 +26,9 @@
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 0, IN_WORK_WHO = NULL WHERE GUID = {0}", RecordId)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(SQL, True)
MYDB_ECM.ExecuteNonQuery(SQL)
End If
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(Sql)
Catch ex As Exception
MsgBox("Error in UnlockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -37,7 +37,7 @@
Public Shared Function IsRecordLocked(RecordId As Integer) As String
Try
Dim SQL As String = String.Format("SELECT IN_WORK, IN_WORK_WHO FROM TBPMO_RECORD WHERE GUID = {0}", RecordId)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
If dt.Rows.Count = 1 Then