MS clswindream entfernt Umstieg auf Modulwindream
This commit is contained in:
Developer01
@@ -1,8 +1,6 @@
|
||||
Imports System.IO
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DD_LIB_Standards
|
||||
|
||||
Public Class frmRecordView
|
||||
Private recordView As ClassRecordView
|
||||
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID, RECORD_ID As Integer
|
||||
@@ -16,7 +14,7 @@ Public Class frmRecordView
|
||||
Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
|
||||
Private _Changed As Boolean = False
|
||||
|
||||
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
|
||||
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
|
||||
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
|
||||
End Function
|
||||
Public Structure SHELLEXECUTEINFO
|
||||
@@ -58,8 +56,6 @@ Public Class frmRecordView
|
||||
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
|
||||
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, "") '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)
|
||||
@@ -88,17 +84,15 @@ Public Class frmRecordView
|
||||
Dim ComboBox As DevExpress.XtraEditors.ComboBoxEdit = sender
|
||||
'Dim ItemComboBox As RepositoryItemComboBox
|
||||
'ItemComboBox = sender
|
||||
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
|
||||
Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
|
||||
Dim value As String = item.Value
|
||||
Dim configId As Integer = item.ConfigID
|
||||
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
|
||||
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
|
||||
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 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)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -111,16 +105,14 @@ Public Class frmRecordView
|
||||
Dim DatePicker As DateEdit = sender
|
||||
Dim value As DateTime = DatePicker.EditValue
|
||||
Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
|
||||
Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
|
||||
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
|
||||
Dim configId As Integer = ClassDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
|
||||
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
|
||||
Dim user As String = USER_USERNAME
|
||||
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 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)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -132,15 +124,13 @@ Public Class frmRecordView
|
||||
Dim TextBox As TextEdit = sender
|
||||
Dim value = TextBox.EditValue
|
||||
Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
|
||||
Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
|
||||
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
|
||||
Dim configId As Integer = ClassDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
|
||||
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
|
||||
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 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)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -172,7 +162,7 @@ Public Class frmRecordView
|
||||
tslblWindreamView.Text = msg
|
||||
|
||||
If DT_RESULT.Rows.Count > 0 Then
|
||||
ClassWindreamDocGrid.FillColumns(
|
||||
ClassDocGrid.FillColumns(
|
||||
GridViewDoc_Search,
|
||||
DT_RESULT,
|
||||
DT_WINDREAM_RESULTLIST,
|
||||
@@ -403,9 +393,7 @@ Public Class frmRecordView
|
||||
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 MYDB_ECM.ExecuteNonQuery(ins) Then
|
||||
If clsDatabase.DB_PROXY_INITIALIZED = True Then
|
||||
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -417,15 +405,12 @@ Public Class frmRecordView
|
||||
"WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
|
||||
End If
|
||||
If MYDB_ECM.ExecuteNonQuery(upd) Then
|
||||
If clsDatabase.DB_PROXY_INITIALIZED = True Then
|
||||
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID)
|
||||
End If
|
||||
End If
|
||||
|
||||
STATE_IDComboBox.SelectedIndex = -1
|
||||
|
||||
ClassWorkflow.Refresh_Workflows_Entity()
|
||||
ClassProxy.Refresh_Workflow_Data()
|
||||
'ClassProxy.Refresh_Workflow_Data()
|
||||
Load_Task_Data()
|
||||
Load_States()
|
||||
Check_end()
|
||||
@@ -458,47 +443,37 @@ Public Class frmRecordView
|
||||
End Sub
|
||||
|
||||
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
'Try
|
||||
' ClassWindreamDocGrid.RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
'Catch ex As Exception
|
||||
' ClassWindreamDocGrid.RESULT_DOC_PATH = Nothing
|
||||
'End Try
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
End Sub
|
||||
|
||||
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs)
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
'Try
|
||||
' ClassWindreamDocGrid.RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
'Catch ex As Exception
|
||||
' ClassWindreamDocGrid.RESULT_DOC_PATH = Nothing
|
||||
'End Try
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
|
||||
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
|
||||
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
|
||||
ClassHelper.File_open(row.Item("DOC_PATH"), 0)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
|
||||
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
|
||||
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
|
||||
ClassHelper.File_open(row.Item("DOC_PATH"), 0)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
|
||||
MsgBox("Could not read File Parameters(Properties RecordView)!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
|
||||
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
|
||||
If row.Item("DOC_PATH") <> "" Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim sei As New SHELLEXECUTEINFO
|
||||
@@ -631,7 +606,6 @@ Public Class frmRecordView
|
||||
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()
|
||||
Load_TASK_USER()
|
||||
End If
|
||||
|
||||
@@ -737,10 +711,7 @@ 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
|
||||
MYDB_ECM.ExecuteNonQuery(SQL)
|
||||
If clsDatabase.DB_PROXY_INITIALIZED Then
|
||||
MYDB_ECM.ExecuteNonQuery(SQL)
|
||||
End If
|
||||
MYDB_ECM.ExecuteNonQuery(sql)
|
||||
Load_TASK_USER()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -755,29 +726,29 @@ Public Class frmRecordView
|
||||
End Sub
|
||||
|
||||
Private Sub GridViewDoc_Search_FocusedRowChanged_1(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
End Sub
|
||||
|
||||
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
End Sub
|
||||
|
||||
Private Sub GridControlDocSearch_DoubleClick_1(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
|
||||
'Get_Doc_Items()
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
|
||||
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
|
||||
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
|
||||
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID) 'clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
|
||||
|
||||
If Not IsNothing(Result) Then
|
||||
|
||||
|
||||
Reference in New Issue
Block a user