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

70
app/DD-Record-Organizer/frmRecordView.vb
View File

@@ -56,21 +56,21 @@ Public Class frmRecordView
'Titel updaten
Me.Text &= " " + RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
ENTITY_ID = ClassDatabase.Execute_Scalar(sql, True)
ENTITY_ID = MYDB_ECM.GetScalarValue(sql)
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
ClassProxy.Refresh_Workflow_Data()
'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'MYDB_ECM.GetDatatable(sql)
' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
Dim expression As String = String.Format("ENTITY_ID = {0} And LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE") 'MYDB_ECM.GetDatatable(sql)
'Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_RESULTLIST = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql_ResultList, True)
DT_WINDREAM_RESULTLIST = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
Dim sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True)
DT_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(sql_ResultList)
TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")
@@ -95,7 +95,7 @@ Public Class frmRecordView
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -117,7 +117,7 @@ Public Class frmRecordView
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, dateString, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -137,7 +137,7 @@ Public Class frmRecordView
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -258,9 +258,9 @@ Public Class frmRecordView
End If
Dim Sql = "SELECT GUID FROM TBPMO_FORM_VIEW WHERE SCREEN_ID = 1 AND FORM_ID = " & ENTITY_ID
FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql, True)
FORMVIEW_ID = MYDB_ECM.GetScalarValue(Sql)
Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql, True)
PARENT_ENTITY_ID = MYDB_ECM.GetScalarValue(Sql)
Catch ex As Exception
@@ -283,7 +283,7 @@ Public Class frmRecordView
If WF_TASK_ID > 0 Then
lblTaskState.Text = "No active workflows"
lblTaskState.Visible = False
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
Dim sel = MYDB_ECM.GetScalarValue("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID)
If Not IsNothing(sel) Then
Load_Selectable_Users(sel)
End If
@@ -305,7 +305,7 @@ Public Class frmRecordView
Sub Check_end()
Try
Dim sql As String = String.Format("SELECT FINISHED FROM TBPMO_WORKFLOW_TASK WHERE GUID = {0}", WF_TASK_ID)
Dim finished = ClassDatabase.Execute_Scalar(sql, True)
Dim finished = MYDB_ECM.GetScalarValue(sql)
If Not IsNothing(finished) Then
If CBool(finished) = True Then
lblTaskState.Text = "Workflow-Ende erreicht!"
@@ -331,9 +331,9 @@ Public Class frmRecordView
Sub Load_States()
Try
Dim sql As String = String.Format("SELECT STATE_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE " &
"INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" & _
"INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" &
"SELECT STATE_ID FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE WF_TASK_ID = {2})", USER_LANGUAGE, ENTITY_ID, WF_TASK_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql, True)
If DT.Rows.Count > 0 Then
STATE_IDComboBox.Enabled = True
STATE_IDComboBox.DataSource = DT
@@ -356,7 +356,7 @@ Public Class frmRecordView
Sub Load_Selectable_Users(sel As String)
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sel)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@@ -392,7 +392,7 @@ Public Class frmRecordView
End Try
Dim sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_TASK_STATE WHERE GUID = {1}", USER_LANGUAGE, STATE_IDComboBox.SelectedValue)
Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
Dim State_DESC = MYDB_ECM.GetScalarValue(sql)
Dim Comment
If COMMENTTextBox.Text <> "" Then
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & "" & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
@@ -402,9 +402,9 @@ Public Class frmRecordView
If STATE_id > 0 Then
ins = String.Format("INSERT INTO TBPMO_WORKFLOW_TASK_HISTORY (WF_TASK_ID,STATE_ID,STATE_DESC,COMMENT,ADDED_WHO) VALUES" &
"({0},{1},'{2}','{3}','{4}')", WF_TASK_ID, STATE_id, State_DESC, Comment, USER_USERNAME)
If ClassDatabase.Execute_non_Query(ins) Then
If MYDB_ECM.ExecuteNonQuery(ins) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID, True)
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID)
End If
End If
@@ -416,9 +416,9 @@ Public Class frmRecordView
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}',CHANGED_WHO = '{2}', TASK_DATE = '{3}' " &
"WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
End If
If ClassDatabase.Execute_non_Query(upd) Then
If MYDB_ECM.ExecuteNonQuery(upd) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID, True)
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID)
End If
End If
@@ -540,7 +540,7 @@ Public Class frmRecordView
Sub Drag_Drop(e As DragEventArgs)
If FORMVIEW_ID <> 0 Then
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -552,15 +552,7 @@ Public Class frmRecordView
Console.WriteLine("DragDrop-Wert: " & Wert)
If Wert.Contains("SCAN") Then
Exit Sub
'Dim split() = Wert.Split(";")
'If IsNumeric(split(1)) Then
' CURRENT_FILEID = split(1)
' CURRENT_PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
' CURRENT_RECORD_ID = JUMP_RECORD_ID
' CURRENT_FORMVIEW_ID = FORMVIEW_ID
' frmWD_Index_Dokart.ShowDialog()
' RUN_WDSEARCH_GRID()
'End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
@@ -590,7 +582,7 @@ Public Class frmRecordView
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, USER_USERNAME, DropType)
If ClassDatabase.Execute_non_Query(insert, True) = False Then
If MYDB_ECM.ExecuteNonQuery(insert, True) = False Then
Exit Sub
End If
End If
@@ -598,10 +590,10 @@ Public Class frmRecordView
Next
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
If MYDB_ECM.GetScalarValue(sql) >= 1 Then
ClassHelper.Create_USER_FILE_TABLE()
If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
For Each Filerow As DataRow In CURRENT_TBPMO_FILES_USER.Rows
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
@@ -633,10 +625,10 @@ Public Class frmRecordView
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBPMO_WORKFLOW_TASK_USER Where USER_ID = " & row.Item(5) & " AND WF_TASK_ID = " & WF_TASK_ID
If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
'##
Dim Ins = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID],ADDED_WHO) VALUES (" & WF_TASK_ID & ", " & row.Item(5) & ",'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(Ins, False) = False Then
If MYDB_ECM.ExecuteNonQuery(Ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical)
Else
ClassProxy.Refresh_Workflow_Data()
@@ -654,7 +646,7 @@ Public Class frmRecordView
Try
'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & USER_USERNAME & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & WF_TASK_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim count As Integer = 0
If DT Is Nothing = False Then
ListViewExclusiveUser.Items.Clear()
@@ -694,7 +686,7 @@ Public Class frmRecordView
Sub Get_Description()
Try
Dim sql = String.Format("SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE WF_ID = {0} AND STATE_ID = {1} AND ENTITY_ID = {2}", WF_IDTextBox.Text, STATE_IDComboBox.SelectedValue, ENTITY_ID)
Dim result = ClassDatabase.Execute_Scalar(sql, True)
Dim result = MYDB_ECM.GetScalarValue(sql)
txtDescriptionStep.Text = result
Catch ex As Exception
@@ -745,9 +737,9 @@ Public Class frmRecordView
Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
ClassDatabase.Execute_non_Query(sql, False)
MYDB_ECM.ExecuteNonQuery(SQL)
If clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(sql, False)
MYDB_ECM.ExecuteNonQuery(SQL)
End If
Load_TASK_USER()
End If