AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Footer aggregate functions for grid columns in validator

Browse Source
This commit is contained in:
Jonathan Jenne
2021-10-08 13:45:06 +02:00
parent 07975ace07
commit b7255d1bd7
8 changed files with 332 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
app/DD_PM_WINDREAM/frmControl_Detail.vb
View File

@@ -1,5 +1,41 @@
Public Class frmControl_Detail
Private Class ComboboxItem
Public Property Id As String
Public Property Name As String
Public Sub New(Id As String, name As String)
End Sub
End Class
Private Sub frmControl_Detail_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
If My.Settings.frmTableColumns_Position.IsEmpty = False Then
If My.Settings.frmTableColumns_Position.X > 0 And My.Settings.frmTableColumns_Position.Y > 0 Then
Me.Location = My.Settings.frmTableColumns_Position
End If
End If
SUMMARY_FUNCTIONCombobox.Properties.DataSource = New Dictionary(Of String, String) From {
{ClassControlCreator.AGGREGATE_NONE, "Keine Summierung"},
{ClassControlCreator.AGGREGATE_TOTAL_INTEGER, "Summe (Ganzzahl)"},
{ClassControlCreator.AGGREGATE_TOTAL_FLOAT, "Summe (Zwei Nachkommastellen)"},
{ClassControlCreator.AGGREGATE_TOTAL_COUNT, "Anzahl"},
{ClassControlCreator.AGGREGATE_TOTAL_MIN, "Minimum"},
{ClassControlCreator.AGGREGATE_TOTAL_MAX, "Maximum"},
{ClassControlCreator.AGGREGATE_TOTAL_AVG, "Durchschnitt"}
}
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
End Try
End Sub
Private Sub TBPM_CONTROL_TABLEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.TBPM_CONTROL_TABLEBindingSource.EndEdit()
@@ -37,6 +73,7 @@ Public Class frmControl_Detail
DEFAULTVALUETextBox.Text,
SEQUENCETextBox.Text,
ADVANCED_LOOKUPCheckbox.Checked,
SUMMARY_FUNCTIONCombobox.EditValue,
GUIDTextBox.Text
)
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@@ -55,20 +92,7 @@ Public Class frmControl_Detail
My.Settings.frmTableColumns_Position = Me.Location
End Sub
Private Sub frmControl_Detail_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
If My.Settings.frmTableColumns_Position.IsEmpty = False Then
If My.Settings.frmTableColumns_Position.X > 0 And My.Settings.frmTableColumns_Position.Y > 0 Then
Me.Location = My.Settings.frmTableColumns_Position
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim oForm As New frmRegexEditor()