diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
index 68b5975..929c71f 100644
--- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
+++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
@@ -368,12 +368,6 @@
Form
-
- frmInvDashboard.vb
-
-
- Form
-
frmLicense.vb
@@ -549,9 +543,6 @@
frmFormDesigner.vb
-
- frmInvDashboard.vb
-
frmLicense.vb
diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb
deleted file mode 100644
index 27c9ff8..0000000
--- a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb
+++ /dev/null
@@ -1,258 +0,0 @@
-
-Partial Class frmInvDashboard
- Inherits DevExpress.XtraBars.Ribbon.RibbonForm
-
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-
- Protected Overrides Sub Dispose(ByVal disposing As Boolean)
- Try
- If disposing AndAlso components IsNot Nothing Then
- components.Dispose()
- End If
- Finally
- MyBase.Dispose(disposing)
- End Try
- End Sub
-
- 'Wird vom Windows Form-Designer benötigt.
- Private components As System.ComponentModel.IContainer
-
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-
- Private Sub InitializeComponent()
- Me.components = New System.ComponentModel.Container()
- Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
- Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
- Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
- Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
- Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
- Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
- Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
- Me.colTitle = New DevExpress.XtraGrid.Columns.TileViewColumn()
- Me.colAnzahl = New DevExpress.XtraGrid.Columns.TileViewColumn()
- Me.colNettoSumme = New DevExpress.XtraGrid.Columns.TileViewColumn()
- Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
- Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
- Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
- Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
- Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
- Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
- Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
- Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
- Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter()
- Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
- Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
- Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
- Me.Label1 = New System.Windows.Forms.Label()
- CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.SuspendLayout()
- '
- 'colTitle
- '
- Me.colTitle.FieldName = "Title"
- Me.colTitle.Name = "colTitle"
- Me.colTitle.Visible = True
- Me.colTitle.VisibleIndex = 0
- '
- 'colAnzahl
- '
- Me.colAnzahl.FieldName = "Anzahl"
- Me.colAnzahl.Name = "colAnzahl"
- Me.colAnzahl.Visible = True
- Me.colAnzahl.VisibleIndex = 1
- '
- 'colNettoSumme
- '
- Me.colNettoSumme.DisplayFormat.FormatString = "c0"
- Me.colNettoSumme.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric
- Me.colNettoSumme.FieldName = "NettoSumme"
- Me.colNettoSumme.Name = "colNettoSumme"
- Me.colNettoSumme.Visible = True
- Me.colNettoSumme.VisibleIndex = 2
- '
- 'RibbonControl1
- '
- Me.RibbonControl1.ExpandCollapseItem.Id = 0
- Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
- Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
- Me.RibbonControl1.MaxItemId = 1
- Me.RibbonControl1.Name = "RibbonControl1"
- Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
- Me.RibbonControl1.Size = New System.Drawing.Size(800, 146)
- Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
- '
- 'RibbonPage1
- '
- Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
- Me.RibbonPage1.Name = "RibbonPage1"
- Me.RibbonPage1.Text = "RibbonPage1"
- '
- 'RibbonPageGroup1
- '
- Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
- Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
- '
- 'RibbonPageGroup2
- '
- Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
- Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
- '
- 'RibbonStatusBar1
- '
- Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 429)
- Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
- Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
- Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 21)
- '
- 'RibbonPage2
- '
- Me.RibbonPage2.Name = "RibbonPage2"
- Me.RibbonPage2.Text = "RibbonPage2"
- '
- 'DD_DMSLiteDataSet
- '
- Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
- Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
- '
- 'VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource
- '
- Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataMember = "VWPM_CHART_INVOICE_MONITOR_SERIES"
- Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataSource = Me.DD_DMSLiteDataSet
- '
- 'VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter
- '
- Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.ClearBeforeFill = True
- '
- 'TableAdapterManager
- '
- Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
- Me.TableAdapterManager.Connection = Nothing
- Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
- Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
- Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing
- Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
- Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
- Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
- Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing
- Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing
- Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing
- Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
- Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
- Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
- Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
- '
- 'GridControl1
- '
- Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.GridControl1.DataSource = Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource
- Me.GridControl1.Location = New System.Drawing.Point(12, 168)
- Me.GridControl1.MainView = Me.TileView1
- Me.GridControl1.MenuManager = Me.RibbonControl1
- Me.GridControl1.Name = "GridControl1"
- Me.GridControl1.Size = New System.Drawing.Size(776, 112)
- Me.GridControl1.TabIndex = 5
- Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
- '
- 'TileView1
- '
- Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTitle, Me.colAnzahl, Me.colNettoSumme})
- Me.TileView1.GridControl = Me.GridControl1
- Me.TileView1.Name = "TileView1"
- Me.TileView1.OptionsTiles.IndentBetweenItems = 7
- Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13)
- Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86)
- Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5)
- Me.TileView1.TileColumns.Add(TableColumnDefinition1)
- Me.TileView1.TileRows.Add(TableRowDefinition1)
- Me.TileView1.TileRows.Add(TableRowDefinition2)
- Me.TileView1.TileRows.Add(TableRowDefinition3)
- TileViewItemElement1.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left
- TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- TileViewItemElement1.Appearance.Normal.Options.UseFont = True
- TileViewItemElement1.Column = Me.colTitle
- TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
- TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
- TileViewItemElement1.RowIndex = 2
- TileViewItemElement1.Text = "colTitle"
- TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
- TileViewItemElement2.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- TileViewItemElement2.Appearance.Normal.ForeColor = System.Drawing.Color.DimGray
- TileViewItemElement2.Appearance.Normal.Options.UseFont = True
- TileViewItemElement2.Appearance.Normal.Options.UseForeColor = True
- TileViewItemElement2.Column = Me.colAnzahl
- TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
- TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
- TileViewItemElement2.Text = "colAnzahl"
- TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
- TileViewItemElement3.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left
- TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- TileViewItemElement3.Appearance.Normal.ForeColor = System.Drawing.Color.SteelBlue
- TileViewItemElement3.Appearance.Normal.Options.UseFont = True
- TileViewItemElement3.Appearance.Normal.Options.UseForeColor = True
- TileViewItemElement3.Column = Me.colNettoSumme
- TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
- TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
- TileViewItemElement3.RowIndex = 1
- TileViewItemElement3.Text = "colNettoSumme"
- TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
- Me.TileView1.TileTemplate.Add(TileViewItemElement1)
- Me.TileView1.TileTemplate.Add(TileViewItemElement2)
- Me.TileView1.TileTemplate.Add(TileViewItemElement3)
- '
- 'Label1
- '
- Me.Label1.AutoSize = True
- Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label1.Location = New System.Drawing.Point(9, 149)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(160, 16)
- Me.Label1.TabIndex = 8
- Me.Label1.Text = "Alle Belege - Verteilung"
- '
- 'frmInvDashboard
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(800, 450)
- Me.Controls.Add(Me.Label1)
- Me.Controls.Add(Me.GridControl1)
- Me.Controls.Add(Me.RibbonStatusBar1)
- Me.Controls.Add(Me.RibbonControl1)
- Me.Name = "frmInvDashboard"
- Me.Ribbon = Me.RibbonControl1
- Me.StatusBar = Me.RibbonStatusBar1
- Me.Text = "frmInvDashboard"
- CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
- Me.ResumeLayout(False)
- Me.PerformLayout()
-
- End Sub
-
- Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
- Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
- Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
- Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
- Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
- Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
- Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet
- Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource As BindingSource
- Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter As DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter
- Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager
- Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
- Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
- Friend WithEvents colAnzahl As DevExpress.XtraGrid.Columns.TileViewColumn
- Friend WithEvents colNettoSumme As DevExpress.XtraGrid.Columns.TileViewColumn
- Friend WithEvents colTitle As DevExpress.XtraGrid.Columns.TileViewColumn
- Friend WithEvents Label1 As Label
-End Class
diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.resx b/app/DD_PM_WINDREAM/frmInvDashboard.resx
deleted file mode 100644
index d76d63a..0000000
--- a/app/DD_PM_WINDREAM/frmInvDashboard.resx
+++ /dev/null
@@ -1,132 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- text/microsoft-resx
-
-
- 2.0
-
-
- System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- 17, 17
-
-
- 179, 17
-
-
- 545, 17
-
-
- 905, 17
-
-
\ No newline at end of file
diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb
deleted file mode 100644
index 0d006cc..0000000
--- a/app/DD_PM_WINDREAM/frmInvDashboard.vb
+++ /dev/null
@@ -1,26 +0,0 @@
-Imports DevExpress.XtraGrid.Views.Tile
-
-Public Class frmInvDashboard
- Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES". Sie können sie bei Bedarf verschieben oder entfernen.
- Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)
-
- End Sub
-
- Private Sub TileView1_ItemCustomize(sender As Object, e As DevExpress.XtraGrid.Views.Tile.TileViewItemCustomizeEventArgs) Handles TileView1.ItemCustomize
- Dim oView As TileView = sender
- Dim ovalue = oView.GetRowCellValue(e.RowHandle, "Title")
- If ovalue = "Alle Rechnungen" Then
- e.Item.AppearanceItem.Normal.BackColor = Color.Blue
- 'e.Item.Elements(1).Text = ""
- e.Item.Elements(0).Appearance.Normal.ForeColor = Color.White
- e.Item.Elements(1).Appearance.Normal.ForeColor = Color.White
- e.Item.Elements(2).Appearance.Normal.ForeColor = Color.White
- 'Console.WriteLine("")
- ElseIf ovalue = "Zeitkritisch" Then
- e.Item.Elements(0).Appearance.Normal.ForeColor = Color.Red
- e.Item.Elements(1).Appearance.Normal.ForeColor = Color.Red
- e.Item.Elements(2).Appearance.Normal.ForeColor = Color.Red
- End If
- End Sub
-End Class
\ No newline at end of file