MS_08.06.2016
This commit is contained in:
SchreiberM
@@ -117,8 +117,11 @@ Public Class frmConstructor_Main
|
||||
Private FOLLOW_UPisActive As Boolean = False
|
||||
Private DT_FU_Record As DataTable
|
||||
Private DT_FU_ENTITY As DataTable
|
||||
Private gridGUID = 2
|
||||
Private COL_ARRAY_RESULTLIST As List(Of String)
|
||||
Private DT_WINDREAM_RESULTLIST_DEF As DataTable
|
||||
Private DT_WINDREAM_RESULTLIST As DataTable
|
||||
|
||||
Private USER_RESULTLIST_CONFIG_GUID As Integer = 0
|
||||
Private DT_TBPMO_FORM_VIEW As DataTable
|
||||
|
||||
|
||||
@@ -240,12 +243,9 @@ Public Class frmConstructor_Main
|
||||
'Die Standards ein/ausblenden
|
||||
End If
|
||||
Load_Tree_View(CONSTRUCTORID)
|
||||
Dim gridGUID = 2
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
gridGUID = 3
|
||||
End If
|
||||
Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = " & gridGUID
|
||||
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GET RESULTLIST KONFIG")
|
||||
|
||||
Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG"
|
||||
DT_WINDREAM_RESULTLIST_DEF = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
|
||||
|
||||
FORM_LOADED = True
|
||||
Dim elapsed As Double
|
||||
@@ -1088,49 +1088,76 @@ Public Class frmConstructor_Main
|
||||
sw.Done()
|
||||
End Sub
|
||||
Sub Load_Tree_View_Data()
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
|
||||
Try
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
|
||||
|
||||
If SelectedNode IsNot Nothing Then
|
||||
ENTITY_LOADED = False
|
||||
ENTITY_ID = SelectedNode.Tag
|
||||
CURRENT_FORM_ID = ENTITY_ID
|
||||
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
|
||||
If SelectedNode IsNot Nothing Then
|
||||
ENTITY_LOADED = False
|
||||
ENTITY_ID = SelectedNode.Tag
|
||||
CURRENT_FORM_ID = ENTITY_ID
|
||||
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
|
||||
|
||||
ACT_EBENE = 2
|
||||
CURRENT_ACT_LEVEL = 2
|
||||
If parentNode IsNot Nothing Then
|
||||
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
|
||||
If grandParentNode IsNot Nothing Then
|
||||
ACT_EBENE = 3
|
||||
CURRENT_ACT_LEVEL = 3
|
||||
ACT_EBENE = 2
|
||||
CURRENT_ACT_LEVEL = 2
|
||||
If parentNode IsNot Nothing Then
|
||||
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
|
||||
If grandParentNode IsNot Nothing Then
|
||||
ACT_EBENE = 3
|
||||
CURRENT_ACT_LEVEL = 3
|
||||
End If
|
||||
Else
|
||||
ACT_EBENE = 1
|
||||
CURRENT_ACT_LEVEL = 1
|
||||
End If
|
||||
Else
|
||||
ACT_EBENE = 1
|
||||
CURRENT_ACT_LEVEL = 1
|
||||
|
||||
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
|
||||
Select form
|
||||
Where form.Item("FORM_ID") = ENTITY_ID).Single()
|
||||
|
||||
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
|
||||
'Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
|
||||
'CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True)
|
||||
Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG")
|
||||
If DT.Rows.Count = 1 Then
|
||||
USER_RESULTLIST_CONFIG_GUID = DT.Rows(0).Item(0)
|
||||
DT_WINDREAM_RESULTLIST = Nothing
|
||||
DT_WINDREAM_RESULTLIST = DT
|
||||
Else
|
||||
USER_RESULTLIST_CONFIG_GUID = 0
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
gridGUID = 3
|
||||
End If
|
||||
Dim filteredDatatable = DT_WINDREAM_RESULTLIST_DEF.Copy()
|
||||
For Each row As DataRow In filteredDatatable.Rows
|
||||
If row.Item(0) <> gridGUID Then
|
||||
row.Delete()
|
||||
End If
|
||||
Next
|
||||
filteredDatatable.AcceptChanges()
|
||||
If filteredDatatable.Rows.Count = 1 Then
|
||||
DT_WINDREAM_RESULTLIST = Nothing
|
||||
DT_WINDREAM_RESULTLIST = filteredDatatable
|
||||
End If
|
||||
End If
|
||||
Dim elapsed As Double
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data1 took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
Get_RecordCounts_Nodes()
|
||||
|
||||
Load_Entity_Data(ACT_EBENE)
|
||||
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
elapsed = elapsed - sw.Elapsed.TotalSeconds
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data2 took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
End If
|
||||
|
||||
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
|
||||
Select form
|
||||
Where form.Item("FORM_ID") = ENTITY_ID).Single()
|
||||
|
||||
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
|
||||
'Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
|
||||
'CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True)
|
||||
|
||||
Dim elapsed As Double
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data1 took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
Get_RecordCounts_Nodes()
|
||||
|
||||
Load_Entity_Data(ACT_EBENE)
|
||||
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
elapsed = elapsed - sw.Elapsed.TotalSeconds
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data2 took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Load_Tree_View_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Get_RecordCounts_Nodes()
|
||||
@@ -3646,6 +3673,7 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
tslblWindreamView.Text = msg
|
||||
Dim DTGrid As New DataTable
|
||||
|
||||
Dim ColArray As New List(Of String)
|
||||
Try
|
||||
'Die Icon Colum erstellen und konfigurieren
|
||||
@@ -3660,9 +3688,8 @@ Public Class frmConstructor_Main
|
||||
colPath.ColumnName = "FULLPATH"
|
||||
colPath.Caption = "Fullpath"
|
||||
DTGrid.Columns.Add(colPath)
|
||||
'GridViewDoc_Search.Columns.
|
||||
'TODO: colPath ausblenden
|
||||
|
||||
|
||||
If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count = 1 Then
|
||||
Dim ColCount As Integer = 1
|
||||
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
@@ -3700,6 +3727,8 @@ Public Class frmConstructor_Main
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
COL_ARRAY_RESULTLIST = ColArray
|
||||
|
||||
For Each row As DataRow In DT_FILE_RESULT.Rows
|
||||
|
||||
Dim fullpath = "W:" & row.Item("FULL_FILENAME")
|
||||
@@ -3752,7 +3781,6 @@ Public Class frmConstructor_Main
|
||||
Else
|
||||
rowvalue = row.Item(Colname)
|
||||
End If
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue : '" & rowvalue.ToString & "'", False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "- Error: " & ex.Message)
|
||||
@@ -3765,7 +3793,6 @@ Public Class frmConstructor_Main
|
||||
NewRow.Item(i) = rowvalue.ToString
|
||||
i += 1
|
||||
Next
|
||||
|
||||
DTGrid.Rows.Add(NewRow)
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
@@ -3777,6 +3804,21 @@ Public Class frmConstructor_Main
|
||||
GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
|
||||
|
||||
For Each col As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If col.ColumnName.EndsWith("WIDTH") Or col.ColumnName.StartsWith("ADDED") Or col.ColumnName.StartsWith("CHANGED") Then
|
||||
Continue For
|
||||
End If
|
||||
Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName)
|
||||
If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then
|
||||
Continue For
|
||||
End If
|
||||
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
|
||||
If Not IsNothing(Width) And Not IsDBNull(Width) Then
|
||||
GridViewDoc_Search.Columns.Item(rowvalue). = Width
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
|
||||
@@ -5508,4 +5550,35 @@ Public Class frmConstructor_Main
|
||||
MsgBox("Unexpected Error in MassChange Collector:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub GridViewDoc_Search_ColumnWidthChanged(sender As Object, e As ColumnEventArgs) Handles GridViewDoc_Search.ColumnWidthChanged
|
||||
Try
|
||||
If USER_RESULTLIST_CONFIG_GUID = 0 Then
|
||||
Dim insert = String.Format("INSERT INTO TBPMO_USER_WINDREAM_RESULTLIST_CONFIG (USER_ID,CONSTRUCTOR_DETAIL_ID,COLUMN1,COLUMN1_WIDTH,COLUMN2,COLUMN2_WIDTH,COLUMN3,COLUMN3_WIDTH,COLUMN4,COLUMN4_WIDTH,COLUMN5,COLUMN5_WIDTH,COLUMN6,COLUMN6_WIDTH,COLUMN7,COLUMN7_WIDTH,ADDED_WHO)" & _
|
||||
" SELECT {0},{1},COLUMN1,COLUMN1_WIDTH,COLUMN2,COLUMN2_WIDTH,COLUMN3,COLUMN3_WIDTH,COLUMN4,COLUMN4_WIDTH,COLUMN5,COLUMN5_WIDTH,COLUMN6,COLUMN6_WIDTH,COLUMN7,COLUMN7_WIDTH,'{2}' FROM TBPMO_WINDREAM_RESULTLIST_CONFIG WHERE GUID = {3}", USER_GUID, CONSTRUCTOR_DETAIL_ID, Environment.UserName, gridGUID)
|
||||
If ClassDatabase.Execute_non_Query(insert) = True Then
|
||||
USER_RESULTLIST_CONFIG_GUID = ClassDatabase.Execute_Scalar("SELECT MAX GUID FROM TBPMO_USER_WINDREAM_RESULTLIST_CONFIG WHERE USER_ID = " & USER_GUID)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
Console.WriteLine("Column changed - Column name: " & e.Column.Name)
|
||||
Dim colNameGrid = e.Column.Name.Replace("col", "")
|
||||
'Jetzt über die Column der Configtabelle auf den Inhalt schliessen
|
||||
For Each col As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName)
|
||||
If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then
|
||||
Continue For
|
||||
End If
|
||||
If rowvalue = colNameGrid Then
|
||||
Dim update = String.Format("UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET {0}_WIDTH = {1} WHERE GUID = {2}", col.ColumnName, e.Column.Width, USER_RESULTLIST_CONFIG_GUID)
|
||||
ClassDatabase.Execute_non_Query(update)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in ColumnWidth-Change DocResult: " & ex.Message, False)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user