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

MS_31.03

Browse Source
This commit is contained in:
SchreiberM
2016-03-31 17:29:40 +02:00
parent 49f2dc6f3f
commit b9eb1e1981
36 changed files with 5461 additions and 2247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -125,6 +125,8 @@ Public Class frmConstructor_Main
Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim sw As New Stopwatch
sw.Start()
tsslblRecord.Text = ""
tsslblStatus.Text = ""
_FormClosing = False
@@ -155,7 +157,11 @@ Public Class frmConstructor_Main
End If
Load_Tree_View(CONSTRUCTORID)
FORM_LOADED = True
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(">> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As System.Exception
MsgBox("Error while Loading Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
System.Windows.Forms.MessageBox.Show(ex.Message)
@@ -726,7 +732,8 @@ Public Class frmConstructor_Main
End Sub
Sub Load_Tree_View(ConstructorId As Integer)
Dim sw As New Stopwatch
sw.Start()
TreeViewMain.Nodes.Clear()
Dim SQL As String
Dim DT, DT2, DT3 As DataTable
@@ -804,13 +811,19 @@ Public Class frmConstructor_Main
TreeViewMain.ExpandAll()
TreeViewMain.Nodes(0).EnsureVisible()
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(">> TreeView Load took " & Format(elapsed, "0.000000000") & " seconds", False)
End If
End Sub
Sub Load_Tree_View_Data()
Dim sw As New Stopwatch
sw.Start()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
@@ -831,13 +844,22 @@ Public Class frmConstructor_Main
ENTITY_ID = FormId
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()
If LogErrorsOnly = False Then ClassLogger.Add(">> Load_Tree_View_Data2 took " & Format(elapsed, "0.000000000") & " seconds", False)
End If
End Sub
Sub Get_RecordCounts_Nodes()
Try
Dim sw As New Stopwatch
sw.Start()
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes
@@ -882,6 +904,11 @@ Public Class frmConstructor_Main
End If
Next
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(">> Get_RecordCounts_Nodes took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Error in Get_RecordCounts_Nodes:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
@@ -919,7 +946,7 @@ Public Class frmConstructor_Main
End Select
'Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1")
Dim count As Integer = ClassDatabase.Execute_Scalar(SQL)
Dim count As Integer = ClassDatabase.Execute_Scalar(SQL, True)
Return count
End Function
@@ -1322,6 +1349,8 @@ Public Class frmConstructor_Main
Sub Load_Entity_Data(ClickedLevel As Integer)
Try
Dim sw As New Stopwatch
sw.Start()
Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False
RECORD_ID = 0
@@ -1381,7 +1410,7 @@ Public Class frmConstructor_Main
PARENT_ID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False)
If LogErrorsOnly = False Then ClassLogger.Add(">> Level 1 selected in TreeView", False)
'tslblEntity2.Visible = False
@@ -1403,7 +1432,7 @@ Public Class frmConstructor_Main
'End If
EBENE2_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE2_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 2 in TreeView selektiert", False)
If LogErrorsOnly = False Then ClassLogger.Add(">> Level 2 selected in TreeView", False)
EBENE3_ENTITY = ""
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
@@ -1424,7 +1453,7 @@ Public Class frmConstructor_Main
PARENT_RECORDID = 0
NavPane.Categories.Clear()
tsslblRecord.Text = ""
Update_Status_Label(True, "Entität 1 übersprungen - Alle Datensätze geladen", EditState.Update)
Update_Status_Label(True, "Entity 1 Jumped over - All Records loaded", EditState.Update)
End If
'tslblEntity3.Visible = False
'Select Case FORM_TYPE
@@ -1442,7 +1471,7 @@ Public Class frmConstructor_Main
Case 3
EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False)
If LogErrorsOnly = False Then ClassLogger.Add(">> Level 3 selected in TreeView", False)
EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
@@ -1468,7 +1497,7 @@ Public Class frmConstructor_Main
PARENT_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
Update_Status_Label(True, "Entität 2 übersprungen - Alle Datensätze geladen", EditState.Update)
Update_Status_Label(True, "Entity 2 Jumped over - All Records loaded", EditState.Update)
tsslblRecord.Text = ""
End If
'Select Case FORM_TYPE
@@ -1497,9 +1526,11 @@ Public Class frmConstructor_Main
If windream_Docshow = True Then
Clear_Windream_ResultList()
If WD_ShowEnitityDocs = True Then
RUN_WD_SEARCH("", "ENTITY")
If TCDetails.SelectedTabPageIndex = 1 Then
Clear_Windream_ResultList()
If WD_ShowEnitityDocs = True Then
RUN_WD_SEARCH("", "ENTITY")
End If
End If
End If
@@ -1573,10 +1604,20 @@ Public Class frmConstructor_Main
Load_Splitter_Layout()
End If
If POS_ENTITY > 0 Then
TabDetails.Text = "Kopfdaten"
If USER_LANGUAGE <> "de-DE" Then
TabDetails.Text = "Head-Data"
Else
TabDetails.Text = "Kopfdaten"
End If
TabPos.PageVisible = True
Else
TabDetails.Text = "Detailansicht"
If USER_LANGUAGE <> "de-DE" Then
TabDetails.Text = "Details"
Else
TabDetails.Text = "Detailansicht"
End If
TabPos.PageVisible = False
End If
Load_Templates()
@@ -1599,7 +1640,11 @@ Public Class frmConstructor_Main
End If
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(">> Load_Entity_Data took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
Finally
@@ -2731,13 +2776,27 @@ Public Class frmConstructor_Main
End Sub
Sub Clear_Windream_ResultList()
AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.ClearResultList()
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files"
End If
TabWindream.Text = stg
Try
Dim sw As New Stopwatch
sw.Start()
AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.ClearResultList()
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files"
End If
TabWindream.Text = stg
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(">> Clear Result List took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Unexpected Error in Clear Result List:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub CheckDocView()
Dim _index = AxObjectListControl.GetFirstSelectedObject
@@ -3288,13 +3347,18 @@ Public Class frmConstructor_Main
Private Sub frmForm_Constructor_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim sw As Stopwatch = Stopwatch.StartNew()
Me.BringToFront()
' LoadLayouts()
Load_Level1()
Jump_Record()
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> Form Shown took {0} milliseconds to load", sw.ElapsedMilliseconds), False)
End Sub
Sub Jump_Record()
Try
Dim sw As Stopwatch = Stopwatch.StartNew()
If LogErrorsOnly = False Then ClassLogger.Add(">> " & Now.ToString & " Jump_Record", False)
If JUMP_RECORD_ID > 0 Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
Dim FormID = ClassDatabase.Execute_Scalar(sql, True)
@@ -3305,6 +3369,8 @@ Public Class frmConstructor_Main
Next
End If
End If
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> Jump_Record took {0} milliseconds to load", sw.ElapsedMilliseconds), False)
Catch ex As Exception
MsgBox("Unexpected error in jump-Record: " & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -3397,6 +3463,8 @@ Public Class frmConstructor_Main
Sub Load_Level1()
Try
Dim sw As Stopwatch = Stopwatch.StartNew()
Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & " ORDER BY SEQUENCE"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
@@ -3407,6 +3475,8 @@ Public Class frmConstructor_Main
TreeViewMain.Select()
End If
End If
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format("Load_Level1 took {0} milliseconds to load", sw.ElapsedMilliseconds), False)
Catch ex As Exception
MsgBox("Error in Load_Level1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try