AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Anpassungen Structure Nodes etc

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-12 11:56:29 +02:00
parent 0876b7b4e4
commit 8103f5d055
31 changed files with 7605 additions and 4379 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -109,7 +109,7 @@ Public Class frmConstructor_Main
Private EBENE2_GRID_RESULT
Private EBENE3_GRID_RESULT
Private act_FormViewID
Private DT_SELECTION As DataTable
Private EDIT_STATE As EditState = EditState.None
Private GRID_TYPE As GridType = GridType.Tiles
Private GRID_TYPE_ID As Integer = 1
@@ -173,7 +173,6 @@ Public Class frmConstructor_Main
Private COUNT_RO_CONTROLS As Integer
Private FORMVIEW_ID As Integer
Private _ENTITYSQL As String
Private _VIEWNAME As String
Private _ENTITYSTRING As String
@@ -359,7 +358,7 @@ Public Class frmConstructor_Main
Dim bimage = row.Item("NODE_IMAGE")
If Not IsDBNull(bimage) Then
Dim Node_image = ByteArrayToBitmap(bimage)
TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image)
TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString, Node_image) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
End If
Catch ex As Exception
@@ -1196,6 +1195,21 @@ Public Class frmConstructor_Main
ClassLogger.Add("Error in SearchNodeForRecord: " & ex.Message, True)
End Try
End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
If NODE_NAVIGATION = False Then
If grvwGrid.Columns.Count > 0 Then
Save_Grid_Layout()
End If
If DOC_SEARCH_TAB1 = True Then
Save_DocGrid_Layout()
End If
Else
If Not IsNothing(TreeViewMain.SelectedNode) Then
TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
End If
End If
End Sub
Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
Dim sw As New SW("TreeViewMain_AfterSelect1")
Dim swAll As New SW("TreeViewMain_AfterSelect")
@@ -1233,8 +1247,8 @@ Public Class frmConstructor_Main
If SelectedNode IsNot Nothing Then
Update_Status_Label(True, SelectedNode.Tag)
ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID)
ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID, SelectedNode)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then
@@ -1287,21 +1301,7 @@ Public Class frmConstructor_Main
End If
sw.Done()
End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
If NODE_NAVIGATION = False Then
If grvwGrid.Columns.Count > 0 Then
Save_Grid_Layout()
End If
If DOC_SEARCH_TAB1 = True Then
Save_DocGrid_Layout()
End If
Else
If Not IsNothing(TreeViewMain.SelectedNode) Then
TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
End If
End If
End Sub
Sub Load_TreeView_Node_Navigation()
MyTreeview = Nothing
Dim newTreeview As TreeView
@@ -1947,14 +1947,14 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE
Case 1
EBENE1_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
End If
Next
Case 2
EBENE2_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
End If
@@ -1972,7 +1972,7 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE
Case 1
EBENE1_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
If EBENE1_COLUMNNAME = "" Then
EBENE1_GRID_RESULT = "No Column configured"
@@ -1984,7 +1984,7 @@ Public Class frmConstructor_Main
Next
Case 2
EBENE2_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
If EBENE2_COLUMNNAME = "" Then
EBENE2_GRID_RESULT = "No Column configured"
@@ -2427,8 +2427,8 @@ Public Class frmConstructor_Main
Dim QuickViewSQL = query.Single().Item("SQL_QUICK_VIEW")
_ENTITYSQL = Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, GRID_TYPE, USER_GUID, QuickViewSQL, IS_SINGLE_RECORD, FORM_TYPE, VIEW_ID, GridControlMain, grvwGrid)
' _ENTITYSQL = GridSQL
CURRENT_ENTITYSQL = Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, GRID_TYPE, USER_GUID, QuickViewSQL, IS_SINGLE_RECORD, FORM_TYPE, VIEW_ID, GridControlMain, grvwGrid)
' CURRENT_ENTITYSQL = GridSQL
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)
@@ -2472,12 +2472,12 @@ Public Class frmConstructor_Main
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWPMO_ENTITY_TABLE" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
CURRENT_ENTITYSQL = "SELECT T.* FROM VWPMO_ENTITY_TABLE" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
_ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Else
SELECTED_RECORD_ID = 0
@@ -2513,12 +2513,12 @@ Public Class frmConstructor_Main
PARENT_RECORDID = EBENE2_RECID
Try
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWPMO_ENTITY_TABLE" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
CURRENT_ENTITYSQL = "SELECT T.* FROM VWPMO_ENTITY_TABLE" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
_ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Catch ex As Exception
ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
@@ -2540,7 +2540,7 @@ Public Class frmConstructor_Main
'End Select
EBENE3_GRID_RESULT = Nothing
End Select
CURRENT_ENTITYSQL = _ENTITYSQL
_ENTITYSTRING = ACT_EBENE_STRING
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
@@ -2598,14 +2598,14 @@ Public Class frmConstructor_Main
If LOCK_CONTROLS_BG_LOAD = True Then
SplitContainerMain.Panel2.Enabled = False
End If
Dim DTEntity As DataTable
Try
Dim async As New ClassAsyncSQL(_ENTITYSQL)
Dim async As New ClassAsyncSQL(CURRENT_ENTITYSQL)
async.bw.RunWorkerAsync()
While async.bw.IsBusy
Application.DoEvents()
End While
DTEntity = async.dt
CURRENT_ENTITY_DT = async.dt
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async EntitySQL", ex.Message, ex.StackTrace)
End Try
@@ -2617,10 +2617,10 @@ Public Class frmConstructor_Main
progressLoadEntity.Visible = False
labelLoadEntity.Visible = False
If IsNothing(DTEntity) Then
If IsNothing(CURRENT_ENTITY_DT) Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in getting Entity-Data - Check logfile")
Else
DTEntity.TableName = "VWPMO_ENTITY_TABLE" & ENTITY_ID
CURRENT_ENTITY_DT.TableName = "VWPMO_ENTITY_TABLE" & ENTITY_ID
Dim SQL_AutoValues = "SELECT GUID AS CONTROL_ID, CONNECTION_ID_1 AS CONNECTION_ID, SQL_COMMAND_1 AS SQL_COMMAND FROM TBPMO_CONTROL WHERE CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID
Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, True)
CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
@@ -2630,13 +2630,13 @@ Public Class frmConstructor_Main
End If
Try
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
primaryKey(0) = CURRENT_ENTITY_DT.Columns("Record-ID")
CURRENT_ENTITY_DT.PrimaryKey = primaryKey
Catch ex As Exception
ClassLogger.Add("Could not set the primary Key(Record-ID): " & ex.Message, True)
End Try
DT_SELECTION = DTEntity
LoadGrid_Records()
If GRID_TYPE = GridType.Grid Then
grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
@@ -2769,11 +2769,11 @@ Public Class frmConstructor_Main
Sub Load_Entity_Data_Only()
Try
ENTITY_LOADING_PROCESS = False
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, True)
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, True)
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
DT_SELECTION = DTEntity
CURRENT_ENTITY_DT = DTEntity
LoadGrid_Records()
Load_Grid_Layout()
Catch ex As Exception
@@ -2787,7 +2787,7 @@ Public Class frmConstructor_Main
Dim ImageIndex As Integer = -1
Dim i As Integer = 0
Dim j As Integer = 0
Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
Dim DT As DataTable = DirectCast(CURRENT_ENTITY_DT, DataTable)
If DT Is Nothing Then
MsgBox("Daten können nicht geladen werden - Datatable SELECTION is empty", MsgBoxStyle.Critical)
Exit Sub
@@ -3061,7 +3061,7 @@ Public Class frmConstructor_Main
'Grid leeren
Clear_Grid_View()
Dim gridFormatter As New ClassGridFormatter.ConstructorView(DT_SELECTION, ENTITY_ID)
Dim gridFormatter As New ClassGridFormatter.ConstructorView(CURRENT_ENTITY_DT, ENTITY_ID)
Dim DT_RESULT As DataTable = gridFormatter.FormatDatatable()
GridControlMain.DataSource = DT_RESULT
gridFormatter.FormatGridView(grvwGrid)
@@ -4113,11 +4113,11 @@ Public Class frmConstructor_Main
If ClassDatabase.Execute_non_Query(upd) = True Then
' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1
MsgBox("Stanard-View was saved successfully!", MsgBoxStyle.Information)
MsgBox("Standard-View was saved successfully!", MsgBoxStyle.Information)
End If
End Sub
Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
' TODO: Ansicht zurücksetzen
'TODO: Ansicht zurücksetzen
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) Then
@@ -5577,7 +5577,7 @@ Public Class frmConstructor_Main
Exit Sub
End If
Refresh_Selected_Table()
Dim frm As New frmDocLink_to_Record() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
Dim frm As New frmDocRecordLink ' frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
frm.Show()
Catch ex As Exception
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
@@ -6569,7 +6569,7 @@ Public Class frmConstructor_Main
If Not IsNothing(CURRENT_NODE_CONFIGURABLE_ID) And CURRENT_NODE_CONFIGURABLE_ID > 0 Then
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = CURRENT_NODE_CONFIGURABLE_ID.ToString & "#" & ENTITY_ID Then
If img = CURRENT_NODE_CONFIGURABLE_ID.ToString Then 'CURRENT_NODE_CONFIGURABLE_ID.ToString & "#" & ENTITY_ID
Exit For
End If
index += 1
@@ -6589,7 +6589,7 @@ Public Class frmConstructor_Main
Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_STRUCTURE_NODES WHERE NODE_CONFIG_ID = {0} AND NODE_CAPTION = '{1}'", CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text)
Dim NEW_GUID = ClassDatabase.Execute_Scalar(sel)
ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID)
ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID, Nothing)
NEWNODE.Tag = ClassNodeNavigation.CreateNODE_TAG(ENTITY_ID, NEW_GUID, NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID)
If where = "HERE" Then
@@ -6666,6 +6666,15 @@ Public Class frmConstructor_Main
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
'If File.Exists(row.Item("DOC_PATH")) = False Then
' If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then
' ClassHelper.MSGBOX_Handler("ERROR", "File-Open", "File is existing in windream, but it seems as You don't have access to windream-drive! " & vbNewLine & "Please check Your windream-drive and contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
' Exit Sub
' Else
' ClassHelper.MSGBOX_Handler("ERROR", "File-Open", "This file is not existing in windream! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
' Exit Sub
' End If
'End If
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Else