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

MS_11.04.2016

Browse Source
This commit is contained in:
SchreiberM
2016-04-13 12:12:51 +02:00
parent ef2a87d849
commit 5a1aaed2f4
11 changed files with 213 additions and 765 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -7,7 +7,6 @@ Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraScheduler
Imports System.Text
'Imports WINDREAMLib
Imports System.IO
Imports DevExpress.XtraGrid
@@ -129,14 +128,20 @@ 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
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
Me.Cursor = Cursors.WaitCursor
Try
sw.Start()
tsslblRecord.Text = ""
tsslblStatus.Text = ""
_FormClosing = False
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
Me.Cursor = Cursors.WaitCursor
Init_Grid_Control()
Init_Grid_Control()
Catch ex As Exception
MsgBox("Error while Loading Form part 1" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
' Bestimme Dinge ausblenden wenn kein admin
If USER_IS_ADMIN = True Then
@@ -166,7 +171,7 @@ Public Class frmConstructor_Main
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)
MsgBox("Error while Loading Form part 2" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Me.Cursor = Cursors.Default
@@ -764,15 +769,14 @@ Public Class frmConstructor_Main
' TreeView Rootnode einfügen
TreeViewMain.Nodes.Add(LEVEL1_NODE)
Dim SQL2 As String
' Daten für Level2 Nodes Laden
SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
SQL2 = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {2} AND PARENT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, ConstructorId, LEVEL1_ID)
DT2 = ClassDatabase.Return_Datatable(SQL)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level2 Nodes SQL: " & SQL2, False)
DT2 = ClassDatabase.Return_Datatable(SQL2)
If DT2 Is Nothing Or DT2.Rows.Count = 0 Then
Else
If Not (DT2 Is Nothing) Then
For Each row As DataRow In DT2.Rows
Dim LEVEL2_TITLE As String = row.Item("CAPTION").ToString
Dim LEVEL2_ID As Integer = row.Item("FORM_ID")
@@ -787,12 +791,9 @@ Public Class frmConstructor_Main
' Daten für Level3 Nodes laden
SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {2} AND PARENT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, ConstructorId, LEVEL2_ID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level3 Nodes SQL " & SQL, False)
DT3 = ClassDatabase.Return_Datatable(SQL)
If DT3 Is Nothing Or DT3.Rows.Count = 0 Then
Exit Sub
End If
For Each subrow As DataRow In DT3.Rows
Dim LEVEL3_TITLE As String = subrow.Item("CAPTION")
Dim LEVEL3_ID As Integer = subrow.Item("FORM_ID")
@@ -805,6 +806,7 @@ Public Class frmConstructor_Main
Next
Next
End If
@@ -1115,7 +1117,7 @@ Public Class frmConstructor_Main
EDIT_STATE = EditState.Update
NEW_RECORD_ID = 0
If Not RECORD_CHANGED Then
Update_Status_Label(True, "KEINE Änderungen an Datensatz.")
Update_Status_Label(True, "NO CHANGES in Record.")
Me.Cursor = Cursors.Default
Return True
End If
@@ -1166,7 +1168,7 @@ Public Class frmConstructor_Main
Next
If EBENE1_RECID = 0 Then
'Bis jetzt konnte noch keine Parent-ID angelegt werden!
MsgBox("Achtung: Es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation)
MsgBox("Attention: no parent-link was created!", MsgBoxStyle.Exclamation)
'Show_Verknuepfungen()
End If
End Select
@@ -1202,7 +1204,7 @@ Public Class frmConstructor_Main
'Jetzt den Record nochmal laden
' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update)
Update_Status_Label(True, "Record saved - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID)
Dim FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
@@ -1740,6 +1742,9 @@ Public Class frmConstructor_Main
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Entity_Data took " & Format(elapsed, "0.000000000") & " seconds", False)
If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
Reload_Entity_while_Control_Load()
End If
Catch ex As Exception
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
Finally
@@ -1760,6 +1765,7 @@ Public Class frmConstructor_Main
PARENT_ID = PARENT_RECORDID
SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID
ENTITY_RELOAD_AFT_CONTROL_LOAD = False
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
@@ -1767,7 +1773,6 @@ Public Class frmConstructor_Main
RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID)
End Select
End If
Catch ex As Exception
MsgBox("Error in Load_Record_Direct:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
@@ -2275,12 +2280,20 @@ Public Class frmConstructor_Main
Case 0
Dim sw1 As New Stopwatch
sw1.Start()
ENTITY_RELOAD_AFT_CONTROL_LOAD = False
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
Dim elapsed1 As Double
elapsed1 = sw1.Elapsed.TotalSeconds
sw1.Stop()
sw1.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValues took " & Format(elapsed1, "0.000000000") & " seconds", False)
If windream_Docshow = True Then
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files"
End If
TabWindream.Text = stg
End If
Case 1
If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
@@ -2319,13 +2332,31 @@ Public Class frmConstructor_Main
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData took " & Format(elapsed, "0.000000000") & " seconds", False)
If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
Reload_Entity_while_Control_Load()
End If
'tsstatus_Detail_show(False, "")
Catch ex As Exception
MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Reload_Entity_while_Control_Load()
Dim result As MsgBoxResult
Dim stg As String
If USER_LANGUAGE = "de-DE" Then
stg = "Es gab ein unerwartetes Problem beim Laden der Control-Values! Wollen Sie versuchen die Daten erneut zu laden?" & vbNewLine & "'Nein' beendet die Sicht für einen manuellen Neustart!"
Else
stg = "ADDI encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Load_Tree_View_Data()
Else
Me.Close()
End If
End Sub
Sub Create_Grid_Editor(formId As Integer)
Try
Dim SQL As String = "SELECT CONTROL_COL_NAME,CONTROL_SQLCOMMAND_1,CONTROL_STATIC_LIST FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID = 3 AND FORM_ID = " & formId
@@ -2905,7 +2936,7 @@ Public Class frmConstructor_Main
Else
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & RECORD_ID & " - vo files found"
msg = "windream-files for record: " & RECORD_ID & " - no files found"
End If
tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
Clear_Windream_ResultList()
@@ -3051,13 +3082,13 @@ Public Class frmConstructor_Main
MsgBox("Stanard-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
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) Then
File.Delete(XMLPath)
Load_Entity_Data(ACT_EBENE)
End If
Catch ex As Exception
@@ -3811,7 +3842,6 @@ Public Class frmConstructor_Main
If USER_LANGUAGE <> "de-DE" Then
msg = "Hide record-links"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
VerknüpfungenAnzeigenToolStripMenuItem.Text = msg
Load_ParentConnections()
TCDetails.SelectedTabPageIndex = 0
@@ -3824,7 +3854,6 @@ Public Class frmConstructor_Main
VerknüpfungenAnzeigenToolStripMenuItem.Text = msg
SplitContainerBottom.Collapsed = True
'Save_GridViewParentEntityLayout()
My.Settings.Save()
End If
End Sub
Sub Load_ParentConnections()
@@ -3839,7 +3868,15 @@ Public Class frmConstructor_Main
Dim Colname = "[" & ClassDatabase.Execute_Scalar("SELECT TOP 1 COLUMN_NAME1 from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Parent_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, True) & "]"
'Load_GridViewParentEntity_Layout()
If Not IsNothing(Parent_ID) And Not IsNothing(Colname) Then
sql = "select [Record-ID], " & Colname & " from VWTEMP_PMO_FORM" & Parent_ID.ToString
If Colname = "[]" Then
sql = "select * from VWTEMP_PMO_FORM" & Parent_ID.ToString
Else
Try
sql = "select [Record-ID], " & Colname & " from VWTEMP_PMO_FORM" & Parent_ID.ToString
Catch ex As Exception
sql = "select * from VWTEMP_PMO_FORM" & Parent_ID.ToString
End Try
End If
Dim DTGrid As DataTable = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
GridControlParent.DataSource = Nothing
GridViewParent.Columns.Clear()