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

MS Changes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-09-25 09:04:15 +02:00
parent cb3d370085
commit 72c7d94f0e
7 changed files with 214 additions and 140 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -58,6 +58,7 @@ Public Class ClassDatabase
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
If LogErrorsOnly = False Then ClassLogger.Add(">>> ReturnDatatable: " & Select_anweisung, False)
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
@ -81,7 +82,7 @@ Public Class ClassDatabase
Public Shared Function Return_Datatable_CS(Select_anweisung As String, Conn_ID As Integer, Optional userInput As Boolean = False)
Try
Dim ConString As String = Get_ConnectionString(Conn_ID)
If LogErrorsOnly = False Then ClassLogger.Add(">>> ReturnDatatable: " & Select_anweisung, False)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
@ -108,6 +109,7 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute_non_Query: " & ExecuteCMD, False)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
@ -134,6 +136,7 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute_non_Query: " & cmdscalar, False)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo

27
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -137,8 +137,8 @@ Public Class ClassInit
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
If LogErrorsOnly = False Then ClassLogger.Add(" >> User exists....", False)
'Am System anmelden
Refresh_Licence()
'Am System anmelden
Refresh_Licence()
'Check_User_Exists_in_PMGroups()
ClassAllgemeineFunktionen.LoginOut("LOGIN")
@ -148,21 +148,18 @@ Public Class ClassInit
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
ClassDatabase.Execute_non_Query(sql, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
If USER_IS_ADMIN = False Then
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
ClassLogger.Add(" - Wieder abgemeldet - START INCOMPLETE", False)
ERROR_STATE = "START INCOMPLETE"
End If
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
If USER_IS_ADMIN = False Then
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
ClassLogger.Add(" - Wieder abgemeldet - START INCOMPLETE", False)
ERROR_STATE = "START INCOMPLETE"
End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
If LogErrorsOnly = False Then ClassLogger.Add(" >> Init Userlogin successfull completed....", False)
End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
If LogErrorsOnly = False Then ClassLogger.Add(" >> Init Userlogin successfull completed....", False)
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
ERROR_STATE = "START INCOMPLETE"

4
app/DD_PM_WINDREAM/ClassLogger.vb
View File

@ -76,9 +76,9 @@ Public Class ClassLogger
If ClassLogger.OpenFile Then
Try
If ACHTUNG Then
ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information)
ClassLogger.StreamWriter.WriteLine(System.DateTime.Now & " #ACHTUNG#: " & information)
Else
ClassLogger.StreamWriter.WriteLine(information)
ClassLogger.StreamWriter.WriteLine(System.DateTime.Now & " " & information)
End If
ClassLogger.CloseFile()
Catch e As Exception

37
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -22,6 +22,7 @@ Partial Class frmMain
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer()
Me.SplitContainerTop = New System.Windows.Forms.SplitContainer()
@ -34,9 +35,9 @@ Partial Class frmMain
Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip()
Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip()
Me.ImageListProfile = New System.Windows.Forms.ImageList()
Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
@ -56,8 +57,8 @@ Partial Class frmMain
Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnlNavigator = New System.Windows.Forms.Panel()
Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator()
Me.bindsourcegrid = New System.Windows.Forms.BindingSource()
Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
Me.bindsourcegrid = New System.Windows.Forms.BindingSource(Me.components)
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
@ -68,7 +69,7 @@ Partial Class frmMain
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem()
Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem()
Me.MarkierteDateienAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -77,20 +78,20 @@ Partial Class frmMain
Me.lblViewType = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip()
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem()
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
Me.TimerRefresh = New System.Windows.Forms.Timer()
Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TimerReminder = New System.Windows.Forms.Timer()
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -163,6 +164,7 @@ Partial Class frmMain
'ToolStripTopLeft
'
Me.ToolStripTopLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripTopLeft.ImageScalingSize = New System.Drawing.Size(20, 20)
resources.ApplyResources(Me.ToolStripTopLeft, "ToolStripTopLeft")
Me.ToolStripTopLeft.Name = "ToolStripTopLeft"
'
@ -175,6 +177,7 @@ Partial Class frmMain
'ToolStripTopRight
'
Me.ToolStripTopRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripTopRight.ImageScalingSize = New System.Drawing.Size(20, 20)
resources.ApplyResources(Me.ToolStripTopRight, "ToolStripTopRight")
Me.ToolStripTopRight.Name = "ToolStripTopRight"
'
@ -202,6 +205,7 @@ Partial Class frmMain
'ToolStripBottomLeft
'
Me.ToolStripBottomLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripBottomLeft.ImageScalingSize = New System.Drawing.Size(20, 20)
resources.ApplyResources(Me.ToolStripBottomLeft, "ToolStripBottomLeft")
Me.ToolStripBottomLeft.Name = "ToolStripBottomLeft"
'
@ -214,6 +218,7 @@ Partial Class frmMain
'ToolStripBottomRight
'
Me.ToolStripBottomRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripBottomRight.ImageScalingSize = New System.Drawing.Size(20, 20)
resources.ApplyResources(Me.ToolStripBottomRight, "ToolStripBottomRight")
Me.ToolStripBottomRight.Name = "ToolStripBottomRight"
'
@ -258,6 +263,7 @@ Partial Class frmMain
'ToolStrip1
'
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.tsbtnrefresh})
Me.ToolStrip1.Name = "ToolStrip1"
'
@ -308,6 +314,7 @@ Partial Class frmMain
'StatusStrip1
'
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstlblUser, Me.tslblLicenses, Me.tslblUserLoggedin, Me.tslblVersion, Me.tsslblLastSysnc, Me.tslblmessage})
Me.StatusStrip1.Name = "StatusStrip1"
'
@ -385,6 +392,7 @@ Partial Class frmMain
Me.BindingNavigator1.CountItemFormat = "von {0} Dateien"
Me.BindingNavigator1.DeleteItem = Nothing
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2})
Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -446,13 +454,15 @@ Partial Class frmMain
'
resources.ApplyResources(Me.GridControl_Docs, "GridControl_Docs")
Me.GridControl_Docs.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControl_Docs.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.GridControl_Docs.MainView = Me.GridView_Docs
Me.GridControl_Docs.Name = "GridControl_Docs"
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs})
'
'ContextMenuGrid
'
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.MarkierteDateienAbschliessenToolStripMenuItem, Me.TabellenlayoutZurücksetzenToolStripMenuItem})
Me.ContextMenuGrid.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.MarkierteDateienAbschliessenToolStripMenuItem})
Me.ContextMenuGrid.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid")
'
@ -518,6 +528,7 @@ Partial Class frmMain
'
'cmsNavPane
'
Me.cmsNavPane.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsNavPane.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiValidationProfil})
Me.cmsNavPane.Name = "cmsNavPane"
resources.ApplyResources(Me.cmsNavPane, "cmsNavPane")

185
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -123,7 +123,10 @@
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainerDashboard.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 61</value>
<value>296, 77</value>
</data>
<data name="SplitContainerDashboard.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="SplitContainerDashboard.Orientation" type="System.Windows.Forms.Orientation, System.Windows.Forms">
<value>Horizontal</value>
@ -134,14 +137,20 @@
<data name="SplitContainerTop.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="SplitContainerTop.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="ChartTopLeft.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="ChartTopLeft.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="ChartTopLeft.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="ChartTopLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>258, 237</value>
<value>315, 307</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ChartTopLeft.TabIndex" type="System.Int32, mscorlib">
@ -166,7 +175,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripTopLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>258, 25</value>
<value>315, 25</value>
</data>
<data name="ToolStripTopLeft.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -204,8 +213,11 @@
<data name="ChartTopRight.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="ChartTopRight.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="ChartTopRight.Size" type="System.Drawing.Size, System.Drawing">
<value>516, 237</value>
<value>631, 307</value>
</data>
<data name="ChartTopRight.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -229,7 +241,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripTopRight.Size" type="System.Drawing.Size, System.Drawing">
<value>516, 25</value>
<value>631, 25</value>
</data>
<data name="ToolStripTopRight.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -262,10 +274,13 @@
<value>1</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>778, 262</value>
<value>951, 332</value>
</data>
<data name="SplitContainerTop.SplitterDistance" type="System.Int32, mscorlib">
<value>258</value>
<value>315</value>
</data>
<data name="SplitContainerTop.SplitterWidth" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="SplitContainerTop.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -300,14 +315,20 @@
<data name="SplitContainerBottom.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="SplitContainerBottom.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="ChartBottomLeft.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="ChartBottomLeft.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="ChartBottomLeft.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="ChartBottomLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>258, 147</value>
<value>315, 194</value>
</data>
<data name="ChartBottomLeft.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -331,7 +352,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripBottomLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>258, 25</value>
<value>315, 25</value>
</data>
<data name="ToolStripBottomLeft.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -369,8 +390,11 @@
<data name="ChartBottomRight.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="ChartBottomRight.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="ChartBottomRight.Size" type="System.Drawing.Size, System.Drawing">
<value>516, 147</value>
<value>631, 194</value>
</data>
<data name="ChartBottomRight.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -394,7 +418,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripBottomRight.Size" type="System.Drawing.Size, System.Drawing">
<value>516, 25</value>
<value>631, 25</value>
</data>
<data name="ToolStripBottomRight.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -427,10 +451,13 @@
<value>1</value>
</data>
<data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>778, 172</value>
<value>951, 219</value>
</data>
<data name="SplitContainerBottom.SplitterDistance" type="System.Int32, mscorlib">
<value>258</value>
<value>315</value>
</data>
<data name="SplitContainerBottom.SplitterWidth" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -460,10 +487,13 @@
<value>1</value>
</data>
<data name="SplitContainerDashboard.Size" type="System.Drawing.Size, System.Drawing">
<value>778, 438</value>
<value>951, 556</value>
</data>
<data name="SplitContainerDashboard.SplitterDistance" type="System.Int32, mscorlib">
<value>262</value>
<value>332</value>
</data>
<data name="SplitContainerDashboard.SplitterWidth" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="SplitContainerDashboard.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@ -488,7 +518,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAZQBAwGUAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAZwBAwGcAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -551,19 +581,19 @@
<value>Segoe UI, 9pt, style=Bold, Italic</value>
</data>
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
<value>131, 24</value>
</data>
<data name="ToolStripLabel1.Text" xml:space="preserve">
<value>Übersicht-Profile</value>
</data>
<data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
<value>6, 27</value>
</data>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 22</value>
<value>24, 24</value>
</data>
<data name="ToolStripButton2.Text" xml:space="preserve">
<value>ToolStripButton2</value>
@ -575,19 +605,19 @@
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>132, 22</value>
<value>153, 24</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
<value>6, 27</value>
</data>
<data name="tstrpbtn_Config.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tstrpbtn_Config.Size" type="System.Drawing.Size, System.Drawing">
<value>141, 22</value>
<value>165, 24</value>
</data>
<data name="tstrpbtn_Config.Text" xml:space="preserve">
<value>Verwaltungs-Konsole</value>
@ -599,7 +629,7 @@
<value>Magenta</value>
</data>
<data name="tsbtnrefresh.Size" type="System.Drawing.Size, System.Drawing">
<value>95, 22</value>
<value>111, 24</value>
</data>
<data name="tsbtnrefresh.Text" xml:space="preserve">
<value>Aktualisieren</value>
@ -608,7 +638,7 @@
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 25</value>
<value>1250, 27</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -635,25 +665,25 @@
<value>Tahoma, 9pt</value>
</data>
<data name="tsstlblUser.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 20</value>
<value>170, 24</value>
</data>
<data name="tsstlblUser.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="tslblLicenses.Size" type="System.Drawing.Size, System.Drawing">
<value>116, 20</value>
<value>139, 24</value>
</data>
<data name="tslblLicenses.Text" xml:space="preserve">
<value>Anzahl Lizenzen:</value>
</data>
<data name="tslblUserLoggedin.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 20</value>
<value>157, 24</value>
</data>
<data name="tslblUserLoggedin.Text" xml:space="preserve">
<value>Angemeldete User:</value>
</data>
<data name="tslblVersion.Size" type="System.Drawing.Size, System.Drawing">
<value>130, 20</value>
<value>150, 24</value>
</data>
<data name="tslblVersion.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
@ -671,19 +701,22 @@
<value>No</value>
</data>
<data name="tsslblLastSysnc.Size" type="System.Drawing.Size, System.Drawing">
<value>159, 20</value>
<value>187, 24</value>
</data>
<data name="tsslblLastSysnc.Text" xml:space="preserve">
<value>Letzte Synchronisation: </value>
</data>
<data name="tslblmessage.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 20</value>
<value>0, 24</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 502</value>
<value>0, 637</value>
</data>
<data name="StatusStrip1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>1, 0, 17, 0</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 25</value>
<value>1250, 29</value>
</data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -713,7 +746,7 @@
<value>503, 134</value>
</metadata>
<data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 22</value>
<value>111, 29</value>
</data>
<data name="BindingNavigatorCountItem.Text" xml:space="preserve">
<value>von {0} Dateien</value>
@ -739,7 +772,7 @@
<value>True</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 22</value>
<value>24, 29</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Text" xml:space="preserve">
<value>Erste verschieben</value>
@ -757,13 +790,13 @@
<value>True</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 22</value>
<value>24, 29</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Text" xml:space="preserve">
<value>Vorherige verschieben</value>
</data>
<data name="BindingNavigatorSeparator.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
<value>6, 32</value>
</data>
<data name="BindingNavigatorPositionItem.AccessibleName" xml:space="preserve">
<value>Position</value>
@ -772,7 +805,7 @@
<value>False</value>
</data>
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
<value>50, 23</value>
<value>60, 27</value>
</data>
<data name="BindingNavigatorPositionItem.Text" xml:space="preserve">
<value>0</value>
@ -781,7 +814,7 @@
<value>Aktuelle Position</value>
</data>
<data name="BindingNavigatorSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
<value>6, 32</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -796,7 +829,7 @@
<value>True</value>
</data>
<data name="BindingNavigatorMoveNextItem.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 22</value>
<value>24, 29</value>
</data>
<data name="BindingNavigatorMoveNextItem.Text" xml:space="preserve">
<value>Nächste verschieben</value>
@ -816,19 +849,19 @@
<value>True</value>
</data>
<data name="BindingNavigatorMoveLastItem.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 22</value>
<value>24, 29</value>
</data>
<data name="BindingNavigatorMoveLastItem.Text" xml:space="preserve">
<value>Letzte verschieben</value>
</data>
<data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
<value>6, 32</value>
</data>
<data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
<value>778, 25</value>
<value>951, 32</value>
</data>
<data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
@ -849,10 +882,13 @@
<value>0</value>
</data>
<data name="pnlNavigator.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 45</value>
<value>296, 57</value>
</data>
<data name="pnlNavigator.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="pnlNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>778, 25</value>
<value>951, 32</value>
</data>
<data name="pnlNavigator.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
@ -876,17 +912,23 @@
<value>637, 95</value>
</metadata>
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
<value>265, 22</value>
<value>322, 26</value>
</data>
<data name="CMGroupStart.Text" xml:space="preserve">
<value>Validierung für Gruppe/Profil starten</value>
</data>
<data name="CMFileStart.Size" type="System.Drawing.Size, System.Drawing">
<value>265, 22</value>
<value>322, 26</value>
</data>
<data name="CMFileStart.Text" xml:space="preserve">
<value>Validierung für Datei starten</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>322, 26</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
<value>Tabellenlayout zurücksetzen</value>
</data>
<data name="MarkierteDateienAbschliessenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -897,19 +939,13 @@
</value>
</data>
<data name="MarkierteDateienAbschliessenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>265, 22</value>
<value>322, 26</value>
</data>
<data name="MarkierteDateienAbschliessenToolStripMenuItem.Text" xml:space="preserve">
<value>Massenabschluss markierte Dateien</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>265, 22</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
<value>Tabellenlayout zurücksetzen</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 92</value>
<value>323, 136</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
@ -917,14 +953,20 @@
<data name="&gt;&gt;ContextMenuGrid.Type" xml:space="preserve">
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GridControl_Docs.EmbeddedNavigator.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 73</value>
<value>296, 92</value>
</data>
<data name="GridView_Docs.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
</data>
<data name="GridControl_Docs.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
<value>778, 426</value>
<value>951, 541</value>
</data>
<data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
@ -948,10 +990,13 @@
<value>Tahoma, 9.75pt</value>
</data>
<data name="lblViewType.Location" type="System.Drawing.Point, System.Drawing">
<value>239, 25</value>
<value>292, 32</value>
</data>
<data name="lblViewType.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 0, 4, 0</value>
</data>
<data name="lblViewType.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 16</value>
<value>98, 21</value>
</data>
<data name="lblViewType.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
@ -1027,13 +1072,13 @@
<value>786, 95</value>
</metadata>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>215, 22</value>
<value>261, 26</value>
</data>
<data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Starte Validierung für Profil</value>
</data>
<data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 26</value>
<value>262, 30</value>
</data>
<data name="&gt;&gt;cmsNavPane.Name" xml:space="preserve">
<value>cmsNavPane</value>
@ -1203,13 +1248,16 @@
</value>
</data>
<data name="NavBarControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
<value>0, 27</value>
</data>
<data name="NavBarControl1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="resource.ExpandedWidth" type="System.Int32, mscorlib">
<value>233</value>
<value>285</value>
</data>
<data name="NavBarControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 477</value>
<value>285, 610</value>
</data>
<data name="NavBarControl1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
@ -1238,8 +1286,11 @@
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 502</value>
<value>1250, 637</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -1799,10 +1850,10 @@
<value>208</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>9, 19</value>
<value>11, 24</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1023, 527</value>
<value>1250, 666</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt</value>
@ -2138,7 +2189,7 @@
</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 5, 4, 5</value>
<value>5, 6, 5, 6</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Process Manager - Profil-Monitor</value>

3
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -742,7 +742,8 @@ Public Class frmMassValidator
If resultDT.Rows.Count = 1 Then
pnldesigner.Controls(displayboxname).Text = resultDT.Rows(0).Item(0).ToString
Else
pnldesigner.Controls(displayboxname).Text = "RESULT = NOTHING or MORE THAN 1 ROW"
pnldesigner.Controls(displayboxname).Text = "RESULT = resultDT.Rows.Count <> 1"
ClassLogger.Add(">> Datatable-SQL: " & sqlCommand, False)
End If
End If
End If

93
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -1750,54 +1750,65 @@ Public Class frmValidator
Case "System.Windows.Forms.ComboBox"
controltype = "ComboBox"
Dim cmb As ComboBox = inctrl
If idxname = "" Then
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & inctrl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
Exit For
End If
If idxname Is Nothing = False Then
If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then
If defaultValue = String.Empty Then
cmb.SelectedIndex = -1
Else
cmb.Text = defaultValue
Try
If idxname = "" Then
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & inctrl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
Exit For
End If
If idxname Is Nothing = False Then
If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then
If defaultValue = String.Empty Then
cmb.SelectedIndex = -1
Else
cmb.Text = defaultValue
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select
End If
Dim wertWD
If idxname.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then
wertWD = ReturnVektor_IndexValue(idxname)
Else
wertWD = aktivesDokument.GetVariableValue(idxname)
End If
If wertWD Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert aus index {idxname}: Nothing", False)
If defaultValue = String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert-defaultValue wurde nicht gefunden", False)
cmb.SelectedIndex = -1
Dim wertWD
If idxname.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then
wertWD = ReturnVektor_IndexValue(idxname)
Else
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert-defaultValue wird geladen", False)
cmb.Text = defaultValue
'cmb.SelectedIndex = cmb.FindStringExact(defaultValue)
wertWD = aktivesDokument.GetVariableValue(idxname)
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert aus index {idxname}: {wertWD}", False)
If LogErrorsOnly = False Then ClassLogger.Add($" >> Items in Combobox: {cmb.Items.Count}", False)
If wertWD Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert aus index {idxname}: Nothing", False)
If defaultValue = String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert-defaultValue wurde nicht gefunden", False)
cmb.SelectedIndex = -1
Else
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert-defaultValue wird geladen", False)
cmb.Text = defaultValue
'cmb.SelectedIndex = cmb.FindStringExact(defaultValue)
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert aus index {idxname}: {wertWD}", False)
If LogErrorsOnly = False Then ClassLogger.Add($" >> Items in Combobox: {cmb.Items.Count}", False)
If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde gesetzt", False)
cmb.Text = wertWD
If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde gesetzt", False)
cmb.Text = wertWD
'If cmb.Items.Count = 0 Then
' If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde gesetzt", False)
' cmb.Text = wertWD
'Else
' If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde ausgewählt", False)
' cmb.SelectedIndex = cmb.FindStringExact(wertWD)
'End If
'If cmb.Items.Count = 0 Then
' If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde gesetzt", False)
' cmb.Text = wertWD
'Else
' If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde ausgewählt", False)
' cmb.SelectedIndex = cmb.FindStringExact(wertWD)
'End If
End If
End If
End If
Catch ex As Exception
ClassLogger.Add(">> Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & cmb.Name & "): " & ex.Message, True)
ClassLogger.Add(">> Controltype: " & controltype, False)
ClassLogger.Add(">> Indexname windream: " & indexname, False)
errormessage = "Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & cmb.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile"
My.Settings.Save()
frmError.ShowDialog()
End Try
Case "System.Windows.Forms.DataGridView"
controltype = "DataGridView"
Dim dgv As DataGridView = inctrl