MS_22.11
This commit is contained in:
SchreiberM
parent
a0e03163e6
commit
25a97a09e2
@ -63,7 +63,7 @@ Public Class frmForm_Constructor_Main
|
||||
|
||||
Private _FormClosing As Boolean = False
|
||||
|
||||
Private dataloaded As Boolean = False
|
||||
Private ENTITY_LOADED As Boolean = False
|
||||
|
||||
Private FOLLOW_UPisActive As Boolean = False
|
||||
Private DT_FU_Record As DataTable
|
||||
@ -379,6 +379,9 @@ Public Class frmForm_Constructor_Main
|
||||
End If
|
||||
End Function
|
||||
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()
|
||||
End Sub
|
||||
|
||||
@ -386,7 +389,10 @@ Public Class frmForm_Constructor_Main
|
||||
If _FormClosing = True Then 'Or SaveRoutine_Active = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'Aussteigen, wenng erade die Entität gewechselt wird
|
||||
If ENTITY_LOADED = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
'Check_Record_Changed()
|
||||
|
||||
Load_Record_Data()
|
||||
@ -513,9 +519,11 @@ Public Class frmForm_Constructor_Main
|
||||
|
||||
|
||||
Sub Load_Tree_View_Data()
|
||||
|
||||
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
|
||||
|
||||
If SelectedNode IsNot Nothing Then
|
||||
ENTITY_LOADED = False
|
||||
Dim FormId As Integer = SelectedNode.Tag
|
||||
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
|
||||
|
||||
@ -894,7 +902,7 @@ Public Class frmForm_Constructor_Main
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Sub Load_Entity_Data(CurrentLevel As Integer)
|
||||
Sub Load_Entity_Data(ClickedLevel As Integer)
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
CURRENT_RECORD_ID = 0
|
||||
@ -930,7 +938,7 @@ Public Class frmForm_Constructor_Main
|
||||
GRID_TYPE = GridType.Grid
|
||||
GridControlMain.MainView = grvwGrid
|
||||
End Select
|
||||
' SELECTED_RECORD_ID = 0
|
||||
SELECTED_RECORD_ID = 0
|
||||
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 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)
|
||||
Exit Sub
|
||||
End If
|
||||
dataloaded = False
|
||||
|
||||
'Abhängig von der Entität die Selektierungs-Daten laden
|
||||
Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID)
|
||||
|
||||
|
||||
Select Case CurrentLevel
|
||||
Select Case ClickedLevel
|
||||
Case 1
|
||||
PARENT_RECORDID = 0
|
||||
CURRENT_PARENTID = 0
|
||||
@ -1032,13 +1040,8 @@ Public Class frmForm_Constructor_Main
|
||||
Catch ex As Exception
|
||||
|
||||
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
|
||||
EBENE3_GRID_RESULT = Nothing
|
||||
End Select
|
||||
@ -1068,31 +1071,16 @@ Public Class frmForm_Constructor_Main
|
||||
End If
|
||||
End If
|
||||
|
||||
' Me.pnlDetails.Enabled = False
|
||||
'Me.tsbtnshowWorkflowtasks.Enabled = False
|
||||
'tsbtnRecordAdd.Enabled = True
|
||||
|
||||
|
||||
|
||||
Select Case CURRENT_FORM_TYPE
|
||||
Case 5
|
||||
'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt
|
||||
Console.WriteLine("OnlyGroupType")
|
||||
|
||||
'TabPageDetails.PageVisible = False
|
||||
'Anzeige_Selected_Entity()
|
||||
'tsbtnRecordAdd.Visible = False
|
||||
'tsbtnRecorddelete.Visible = False
|
||||
'tsbtnRecordSave.Visible = False
|
||||
GridControlMain.Visible = False
|
||||
Case Else
|
||||
'tsbtnRecordAdd.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
|
||||
GridControlMain.Visible = True
|
||||
|
||||
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity")
|
||||
Dim primaryKey(1) As DataColumn
|
||||
@ -1117,15 +1105,13 @@ Public Class frmForm_Constructor_Main
|
||||
Load_Templates()
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
dataloaded = True
|
||||
|
||||
Load_Grid_Layout()
|
||||
|
||||
|
||||
If GRID_TYPE = GridType.Tiles Then
|
||||
CreateTile()
|
||||
End If
|
||||
|
||||
|
||||
'Zurücksetzen
|
||||
ENTITY_LOADED = True
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
@ -1273,44 +1259,49 @@ Public Class frmForm_Constructor_Main
|
||||
|
||||
Private Function LoadGrid_Selection()
|
||||
Try
|
||||
' 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)
|
||||
If GRID_TYPE = GridType.Tiles Then
|
||||
CreateTile()
|
||||
Else
|
||||
' 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
|
||||
|
||||
'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()
|
||||
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
|
||||
If FOLL_UP_ID = DR.Item("GUID") Then
|
||||
grpbxFU_Profile.Enabled = True
|
||||
dataloaded = False
|
||||
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)
|
||||
If Not IsNothing(datevalue) Then
|
||||
@ -2132,7 +2122,6 @@ Public Class frmForm_Constructor_Main
|
||||
|
||||
Load_FUUser(FOLL_UP_ID)
|
||||
|
||||
dataloaded = True
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@ -2149,7 +2138,7 @@ Public Class frmForm_Constructor_Main
|
||||
End Try
|
||||
End Sub
|
||||
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
|
||||
End If
|
||||
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
|
||||
|
||||
Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged
|
||||
If dataloaded = False Then
|
||||
If ENTITY_LOADED = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
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)
|
||||
End Try
|
||||
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
|
||||
Dim saveFileDialog1 As New SaveFileDialog
|
||||
saveFileDialog1.Filter = "Excel File|*.xlsx"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user