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

MS Administration ProfileGrid, Config Charts, LU Grid Add MEthod disappeared

Browse Source
This commit is contained in:
SchreiberM
2020-05-20 13:51:18 +02:00
parent f3bc104b37
commit 9eb6b594ba
35 changed files with 4763 additions and 1464 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
app/DD_PM_WINDREAM/frmInvDashboard.vb
View File

@@ -7,14 +7,19 @@ Public Class frmInvDashboard
Private _selectedChart As ChartControl
Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)
Try
VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)
Catch ex As Exception
MsgBox("Error loading form1 - " & ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End Try
VWPM_CHART_TOP5TableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.VWPM_CHART_TOP5TableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_TOP5)
Layout_Dashboard()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error laoding form - " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
MsgBox("Error loading form2 - " & ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End Try
End Sub
Sub Layout_Dashboard()
@@ -29,11 +34,11 @@ Public Class frmInvDashboard
SplitContainerDashboard.Visible = True
RibbonPageGroup1.Visible = True
RibbonPageGroup1.Enabled = False
SplitContainerControl1.Collapsed = True
SplitContainerControl1.Collapsed = False
Else
SplitContainerDashboard.Visible = False
RibbonPageGroup1.Visible = False
SplitContainerControl1.Collapsed = False
SplitContainerControl1.Collapsed = True
LOGGER.Debug($"ChartCreating...No chart-Configuration!! BASEDATA_DT_CHARTS = 0")
Exit Sub
End If
@@ -60,7 +65,7 @@ Public Class frmInvDashboard
oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME)
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart)
Dim series As Series = Create_Series(oChartTitle, oChartType)
Dim series As Series = Create_Series(oChartTitle, oChartType.ToString.ToUpper)
' Select Current Chart
chart = Select_Chart(oGroupIndex)
@@ -188,6 +193,13 @@ Public Class frmInvDashboard
Case "AREA"
LOGGER.Debug("Create new series: ViewType.Area")
series = New Series(title, ViewType.Area)
Case "DOUGHNUT"
LOGGER.Debug("Create new series: ViewType.Doughnut")
series = New Series(title, ViewType.Doughnut)
series.Label.TextPattern = "{A}: {VP:p0}"
Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView)
view.Titles.Add(New SeriesTitle())
view.Titles(0).Text = title
Case "PIE"
LOGGER.Debug("Create new series: ViewType.Pie")
series = New Series(title, ViewType.Pie)