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

21
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@@ -1,6 +1,5 @@
Imports System.IO
Imports System.Globalization
Imports DD_LIB_Standards
Imports System.ComponentModel
Public Class ClassHelper
@@ -179,7 +178,7 @@ Public Class ClassHelper
Dim EXT = Path.GetExtension(RESULT_DOC_PATH)
EXT = EXT.Replace(".", "")
Dim sql = String.Format("SELECT VIEWER FROM TBPMO_DOC_USER_VIEW WHERE USER_ID = {0} AND FILE_EXTENSION = '{1}'", USER_GUID, EXT)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count = 1 Then
Select Case DT.Rows(0).Item("VIEWER")
Case "DOC_VIEW"
@@ -271,10 +270,10 @@ Public Class ClassHelper
LOGGER.Debug($"Checking oExtension [{oExtension}]...")
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
Dim odwVersionId = clsDatabase.Execute_Scalar(oSql, False)
Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
clsDatabase.Execute_non_Query(oInsert, False)
MYDB_ECM.ExecuteNonQuery(oInsert)
End If
'oMyProcess.WaitForExit()
@@ -316,7 +315,7 @@ Public Class ClassHelper
COMMENT = COMMENT.Replace("'", "")
Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
Dim result = clsDatabase.Execute_non_Query(insert, False)
Dim result = MYDB_ECM.ExecuteNonQuery(insert)
Return result
Catch ex As Exception
LOGGER.Warn("Unexpected Error in InsertEssential_Log: " & ex.Message)
@@ -326,7 +325,7 @@ Public Class ClassHelper
Public Shared Function DeleteRecord(SELECTED_RECORD_ID As Integer, Optional Comment As String = "")
Try
Dim DeleteRecordSQL = String.Format("EXEC [dbo].[PRPMO_DELETE_RECORD] {0}, '{1}','{2}'", SELECTED_RECORD_ID, USER_USERNAME, Comment)
Dim result As Boolean = ClassDatabase.Execute_non_Query_withConn(DeleteRecordSQL, 1)
Dim result As Boolean = MYDB_ECM.ExecuteNonQuery(DeleteRecordSQL)
If result = False Then
Dim msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' konnte nicht gelöscht werden. Überprüfen Sie das log"
If USER_LANGUAGE <> "de-DE" Then
@@ -367,7 +366,7 @@ Public Class ClassHelper
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
LOGGER.Debug("RIGHT_ONLY_READ_RECORD_DOC SQL: (When true then disable) '" & sql & "'")
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Return CBool(MYDB_ECM.GetScalarValue(sql))
Catch ex As Exception
LOGGER.Warn("SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
Return False
@@ -386,7 +385,7 @@ Public Class ClassHelper
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
LOGGER.Debug("RIGHT_ONLY_READ_COC SQL: (When true then disable) '" & sql & "'")
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Return CBool(MYDB_ECM.GetScalarValue(sql))
Catch ex As Exception
LOGGER.Warn("RIGHT_WINDREAM_FORBIDDEN: " & sql)
Return False
@@ -395,7 +394,7 @@ Public Class ClassHelper
Public Shared Sub Create_USER_FILE_TABLE()
Try
Dim sql = String.Format("SELECT *, CONVERT(BIT,0) AS DELETE_FILE FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
CURRENT_TBPMO_FILES_USER = MYDB_ECM.GetDatatable(sql)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while creating User_File_Table")
End Try
@@ -403,7 +402,7 @@ Public Class ClassHelper
Public Shared Function DELETE_PMO_FILE_USER(GUID As Integer)
Try
Dim del As String = String.Format("DELETE FROM TBPMO_FILES_USER WHERE GUID = {0}", GUID)
Return ClassDatabase.Execute_non_Query(del, True)
Return MYDB_ECM.ExecuteNonQuery(del)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_PMO_FILE_USER: " & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -439,7 +438,7 @@ Public Class ClassHelper
Public Shared Function GetDocrecordLinks(pRECORDID As Integer)
Try
Dim oSQL = $"SELECT * FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = {pRECORDID}"
CURRENT_DT_TBPMO_DOC_RECORD_LINK = clsDatabase.Return_Datatable(oSQL, False)
CURRENT_DT_TBPMO_DOC_RECORD_LINK = MYDB_ECM.GetDatatable(oSQL)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in GetDocrecordLinks: " & ex.Message)
Return False