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

MS_22.11

Browse Source
This commit is contained in:
SchreiberM
2015-11-23 10:22:27 +01:00
parent a0e03163e6
commit 25a97a09e2
1 changed files with 87 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
app/DD-Record-Organiser/frmForm_Constructor_Main.vb
View File

@@ -63,7 +63,7 @@ Public Class frmForm_Constructor_Main
Private _FormClosing As Boolean = False Private _FormClosing As Boolean = False
Private dataloaded As Boolean = False Private ENTITY_LOADED As Boolean = False
Private FOLLOW_UPisActive As Boolean = False Private FOLLOW_UPisActive As Boolean = False
Private DT_FU_Record As DataTable Private DT_FU_Record As DataTable
@@ -379,6 +379,9 @@ Public Class frmForm_Constructor_Main
End If End If
End Function End Function
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
If ENTITY_LOADED = False Then
Exit Sub
End If
Load_Record_Data() Load_Record_Data()
End Sub End Sub
@@ -386,7 +389,10 @@ Public Class frmForm_Constructor_Main
If _FormClosing = True Then 'Or SaveRoutine_Active = True If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub Exit Sub
End If End If
'Aussteigen, wenng erade die Entität gewechselt wird
If ENTITY_LOADED = False Then
Exit Sub
End If
'Check_Record_Changed() 'Check_Record_Changed()
Load_Record_Data() Load_Record_Data()
@@ -513,9 +519,11 @@ Public Class frmForm_Constructor_Main
Sub Load_Tree_View_Data() Sub Load_Tree_View_Data()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode) Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then If SelectedNode IsNot Nothing Then
ENTITY_LOADED = False
Dim FormId As Integer = SelectedNode.Tag Dim FormId As Integer = SelectedNode.Tag
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode) Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
@@ -894,7 +902,7 @@ Public Class frmForm_Constructor_Main
End Function End Function
#End Region #End Region
Sub Load_Entity_Data(CurrentLevel As Integer) Sub Load_Entity_Data(ClickedLevel As Integer)
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
CURRENT_RECORD_ID = 0 CURRENT_RECORD_ID = 0
@@ -930,7 +938,7 @@ Public Class frmForm_Constructor_Main
GRID_TYPE = GridType.Grid GRID_TYPE = GridType.Grid
GridControlMain.MainView = grvwGrid GridControlMain.MainView = grvwGrid
End Select End Select
' SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
Dim DT As DataTable Dim DT As DataTable
Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID
Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql) Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
@@ -938,12 +946,12 @@ Public Class frmForm_Constructor_Main
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation) MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
dataloaded = False
'Abhängig von der Entität die Selektierungs-Daten laden 'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID) Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID)
Select Case CurrentLevel Select Case ClickedLevel
Case 1 Case 1
PARENT_RECORDID = 0 PARENT_RECORDID = 0
CURRENT_PARENTID = 0 CURRENT_PARENTID = 0
@@ -1032,13 +1040,8 @@ Public Class frmForm_Constructor_Main
Catch ex As Exception Catch ex As Exception
End Try End Try
Else
'Else
' MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
' 'Grid leeren
' Clear_Grid_View()
' Me.Cursor = Cursors.Default
' Exit Sub
End If End If
EBENE3_GRID_RESULT = Nothing EBENE3_GRID_RESULT = Nothing
End Select End Select
@@ -1068,31 +1071,16 @@ Public Class frmForm_Constructor_Main
End If End If
End If End If
' Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsbtnRecordAdd.Enabled = True
Select Case CURRENT_FORM_TYPE Select Case CURRENT_FORM_TYPE
Case 5 Case 5
'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt 'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt
Console.WriteLine("OnlyGroupType") Console.WriteLine("OnlyGroupType")
GridControlMain.Visible = False
'TabPageDetails.PageVisible = False
'Anzeige_Selected_Entity()
'tsbtnRecordAdd.Visible = False
'tsbtnRecorddelete.Visible = False
'tsbtnRecordSave.Visible = False
Case Else Case Else
'tsbtnRecordAdd.Visible = True GridControlMain.Visible = True
'tsbtnRecorddelete.Visible = True
'tsbtnRecordSave.Visible = True
'TabPageDetails.PageVisible = True
' Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID)
'TabPageDetails.Text = "Detaileingabe zu " & Beschreibung
'Den Spaltennamen für die Selektion laden
'sql = "SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID
'Jetzt die Datensätze zur Entität laden
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity") Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity")
Dim primaryKey(1) As DataColumn Dim primaryKey(1) As DataColumn
@@ -1117,15 +1105,13 @@ Public Class frmForm_Constructor_Main
Load_Templates() Load_Templates()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
dataloaded = True
Load_Grid_Layout() Load_Grid_Layout()
If GRID_TYPE = GridType.Tiles Then
CreateTile()
End If
'Zurücksetzen
ENTITY_LOADED = True
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try End Try
@@ -1273,44 +1259,49 @@ Public Class frmForm_Constructor_Main
Private Function LoadGrid_Selection() Private Function LoadGrid_Selection()
Try Try
' Alle Checkboxen für aktuelle Ansicht heraussuchen If GRID_TYPE = GridType.Tiles Then
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID CreateTile()
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck) Else
Dim listcheck As New List(Of String) ' Alle Checkboxen für aktuelle Ansicht heraussuchen
' Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID
' Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Dim listcheck As New List(Of String)
'Liste von allen Spaltentiteln mit Checkbox erstellen
'If dtcheck.Rows.Count > 0 Then
' For Each row As DataRow In dtcheck.Rows
' listcheck.Add(row.Item(0))
' Next
'End If
'Duplikate entfernen
' listcheck = listcheck.Distinct().ToList()
'Grid leeren
Clear_Grid_View()
'Databinding Neu
BindingSource_Entity.DataSource = DT_SELECTION
GridControlMain.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(grvwSelection.Columns(col)) Then
' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If End If
'Duplikate entfernen
listcheck = listcheck.Distinct().ToList()
'Grid leeren
Clear_Grid_View()
'Databinding Neu
BindingSource_Entity.DataSource = DT_SELECTION
GridControlMain.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(grvwSelection.Columns(col)) Then
' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
HideColumns() HideColumns()
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
@@ -2101,7 +2092,6 @@ Public Class frmForm_Constructor_Main
For Each DR As DataRow In DT_FU_ENTITY.Rows For Each DR As DataRow In DT_FU_ENTITY.Rows
If FOLL_UP_ID = DR.Item("GUID") Then If FOLL_UP_ID = DR.Item("GUID") Then
grpbxFU_Profile.Enabled = True grpbxFU_Profile.Enabled = True
dataloaded = False
FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID") FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID")
Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID) Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID)
If Not IsNothing(datevalue) Then If Not IsNothing(datevalue) Then
@@ -2132,7 +2122,6 @@ Public Class frmForm_Constructor_Main
Load_FUUser(FOLL_UP_ID) Load_FUUser(FOLL_UP_ID)
dataloaded = True
End If End If
Next Next
End If End If
@@ -2149,7 +2138,7 @@ Public Class frmForm_Constructor_Main
End Try End Try
End Sub End Sub
Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged
If dataloaded = False Then If ENTITY_LOADED = False = False Then
Exit Sub Exit Sub
End If End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, CURRENT_RECORD_ID, dtpFollowUp.Value) = True Then If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, CURRENT_RECORD_ID, dtpFollowUp.Value) = True Then
@@ -2163,7 +2152,7 @@ Public Class frmForm_Constructor_Main
End Sub End Sub
Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged
If dataloaded = False Then If ENTITY_LOADED = False Then
Exit Sub Exit Sub
End If End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, CURRENT_RECORD_ID, chkFollowUp.Checked.ToString) = True Then If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, CURRENT_RECORD_ID, chkFollowUp.Checked.ToString) = True Then
@@ -2332,7 +2321,30 @@ Public Class frmForm_Constructor_Main
MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Sub OpenFormLevelDesigner()
Dim frm As New frmLevel_Designer
frm = frmLevel_Designer.Instance
'frm.MdiParent = frmMain
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
frm.Show()
Dim frm2 As New frmTool_ControlDesigner
frm2 = frmTool_ControlDesigner.Instance
If My.Settings.User_DesignPanels_areChild = True Then
frm2.MdiParent = frmMain
End If
'frmMain.tscMain.ContentPanel.Controls.Add(frm2)
frm2.Show()
Dim frm3 As New frmTool_ControlProperties
frm3 = frmTool_ControlProperties.Instance
If My.Settings.User_DesignPanels_areChild = True Then
frm3.MdiParent = frmMain
End If
'frmMain.tscMain.ContentPanel.Controls.Add(frm3)
frm3.Show()
End Sub
Private Sub ButtonExportToExcel_Click(sender As Object, e As EventArgs) Handles ButtonExportToExcel.Click Private Sub ButtonExportToExcel_Click(sender As Object, e As EventArgs) Handles ButtonExportToExcel.Click
Dim saveFileDialog1 As New SaveFileDialog Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel File|*.xlsx" saveFileDialog1.Filter = "Excel File|*.xlsx"