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

MS 2.0.0.6

Browse Source
This commit is contained in:
SchreiberM 2020-01-28 10:38:32 +01:00
parent cd08b9c7d3
commit 39921824b8
13 changed files with 344 additions and 419 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

177
app/DD_PM_WINDREAM/App.config
View File

@ -1,73 +1,106 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DD_PM_WINDREAM.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/> <section name="DD_PM_WINDREAM.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup> </sectionGroup>
</configSections> <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
<connectionStrings> <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection" requirePermission="false" />
<add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" </sectionGroup>
providerName="System.Data.SqlClient" /> </configSections>
</connectionStrings> <applicationSettings>
<startup> <DevExpress.LookAndFeel.Design.AppSettings>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/> <setting name="DefaultAppSkin" serializeAs="String">
</startup> <value>Skin/Office 2016 Colorful</value>
<userSettings> </setting>
<DD_PM_WINDREAM.My.MySettings> <setting name="DefaultPalette" serializeAs="String">
<setting name="frmTableColumns_Position" serializeAs="String"> <value></value>
<value>0, 0</value> </setting>
</setting> <setting name="TouchUI" serializeAs="String">
<setting name="frmValidator_Splitter" serializeAs="String"> <value></value>
<value>0, 0</value> </setting>
</setting> <setting name="TouchScaleFactor" serializeAs="String">
<setting name="frmValidation_Size_PDFViewer" serializeAs="String"> <value></value>
<value>890, 790</value> </setting>
</setting> <setting name="DirectX" serializeAs="String">
<setting name="frmValidation_Size_Email" serializeAs="String"> <value></value>
<value>890, 790</value> </setting>
</setting> <setting name="RegisterUserSkins" serializeAs="String">
<setting name="IntervallReminder" serializeAs="String"> <value>True</value>
<value>5</value> </setting>
</setting> <setting name="FontBehavior" serializeAs="String">
<setting name="frmMainSize" serializeAs="String"> <value></value>
<value>0, 0</value> </setting>
</setting> <setting name="DefaultAppFont" serializeAs="String">
<setting name="frmMainPosition" serializeAs="String"> <value></value>
<value>0, 0</value> </setting>
</setting> <setting name="DPIAwarenessMode" serializeAs="String">
<setting name="frmValidatorSize" serializeAs="String"> <value></value>
<value>0, 0</value> </setting>
</setting> </DevExpress.LookAndFeel.Design.AppSettings>
<setting name="frmValidatorPosition" serializeAs="String"> </applicationSettings>
<value>0, 0</value> <connectionStrings>
</setting> <add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
<setting name="frmMassValidatorSize" serializeAs="String"> </connectionStrings>
<value>0, 0</value> <startup>
</setting> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
<setting name="frmMassValidatorposition" serializeAs="String"> </startup>
<value>0, 0</value> <userSettings>
</setting> <DD_PM_WINDREAM.My.MySettings>
<setting name="frmValidatorSearchSize" serializeAs="String"> <setting name="frmTableColumns_Position" serializeAs="String">
<value>0, 0</value> <value>0, 0</value>
</setting> </setting>
<setting name="frmValidatorSearchPosition" serializeAs="String"> <setting name="frmValidator_Splitter" serializeAs="String">
<value>0, 0</value> <value>0, 0</value>
</setting> </setting>
<setting name="frmValSearchSplitterDistance" serializeAs="String"> <setting name="frmValidation_Size_PDFViewer" serializeAs="String">
<value>563</value> <value>890, 790</value>
</setting> </setting>
<setting name="frmMainWindowState" serializeAs="String"> <setting name="frmValidation_Size_Email" serializeAs="String">
<value>Normal</value> <value>890, 790</value>
</setting> </setting>
<setting name="frmDocViewSize" serializeAs="String"> <setting name="IntervallReminder" serializeAs="String">
<value>0, 0</value> <value>5</value>
</setting> </setting>
<setting name="frmDocViewPosition" serializeAs="String"> <setting name="frmMainSize" serializeAs="String">
<value>0, 0</value> <value>0, 0</value>
</setting> </setting>
<setting name="frmValidatorWindowState" serializeAs="String"> <setting name="frmMainPosition" serializeAs="String">
<value>Normal</value> <value>0, 0</value>
</setting> </setting>
</DD_PM_WINDREAM.My.MySettings> <setting name="frmValidatorSize" serializeAs="String">
</userSettings> <value>0, 0</value>
</configuration> </setting>
<setting name="frmValidatorPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmMassValidatorSize" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmMassValidatorposition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmValidatorSearchSize" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmValidatorSearchPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmValSearchSplitterDistance" serializeAs="String">
<value>563</value>
</setting>
<setting name="frmMainWindowState" serializeAs="String">
<value>Normal</value>
</setting>
<setting name="frmDocViewSize" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmDocViewPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmValidatorWindowState" serializeAs="String">
<value>Normal</value>
</setting>
</DD_PM_WINDREAM.My.MySettings>
</userSettings>
</configuration>

82
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -3,6 +3,7 @@ Imports System.Globalization
Imports DLLLicenseManager Imports DLLLicenseManager
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports System.Threading
Public Class ClassInit Public Class ClassInit
@ -188,56 +189,59 @@ Public Class ClassInit
FINALINDICES.init() FINALINDICES.init()
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
IDBData = New ClassIDBData() IDBData = New ClassIDBData()
End If End If
Try Try
USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1") USER_RIGHT_VIEW_ONLY = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT2")
Catch ex As Exception Catch ex As Exception
USER_RIGHT1 = False USER_RIGHT_VIEW_ONLY = False
End Try End Try
Try Try
USER_RIGHT2 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT2") USER_RIGHT3 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT3")
Catch ex As Exception Catch ex As Exception
USER_RIGHT2 = False USER_RIGHT3 = False
End Try End Try
Try Try
USER_RIGHT3 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT3") USER_RIGHT4 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT4")
Catch ex As Exception Catch ex As Exception
USER_RIGHT3 = False USER_RIGHT4 = False
End Try End Try
Try LOGGER.Debug("User exists....")
USER_RIGHT4 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT4") 'Am System anmelden
Catch ex As Exception Refresh_Licence()
USER_RIGHT4 = False 'Check_User_Exists_in_PMGroups()
End Try 'Dim Culture = CultureInfo.CreateSpecificCulture("en-US")
LOGGER.Debug("User exists....") '' The following line provides localization for the application's user interface.
'Am System anmelden 'Thread.CurrentThread.CurrentUICulture = Culture
Refresh_Licence() '' The following line provides localization for data formats.
'Check_User_Exists_in_PMGroups() 'Thread.CurrentThread.CurrentCulture = Culture
'' Set this culture as the default culture for all threads in this application.
'' Note: The following properties are supported in the .NET Framework 4.5+
'CultureInfo.DefaultThreadCurrentCulture = Culture
'CultureInfo.DefaultThreadCurrentUICulture = Culture
If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then
USERCOUNT_LOGGED_IN += 1
End If
'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1) If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) USERCOUNT_LOGGED_IN += 1
'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'" End If
'ClassDatabase.Execute_non_Query(sql, True)
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString) 'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then ' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
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:") 'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
'ClassDatabase.Execute_non_Query(sql, True)
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
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:")
LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!") LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
ClassAllgemeineFunktionen.LoginOut("LOGOUT") ClassAllgemeineFunktionen.LoginOut("LOGOUT")
LOGGER.Info("Wieder abgemeldet - START INCOMPLETE") LOGGER.Info("Wieder abgemeldet - START INCOMPLETE")
ERROR_STATE = "START INCOMPLETE" ERROR_STATE = "START INCOMPLETE"
End If
End If End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
LOGGER.Debug("Init Userlogin successfull completed....")
End If End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
LOGGER.Debug("Init Userlogin successfull completed....")
End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True) LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)

6
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@ -14,8 +14,11 @@
End Try End Try
Try Try
ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE") ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
If ADDITIONAL_TITLE = String.Empty Then
ADDITIONAL_TITLE = My.Application.Info.ProductName
End If
Catch ex As Exception Catch ex As Exception
ADDITIONAL_TITLE = "" ADDITIONAL_TITLE = My.Application.Info.ProductName
End Try End Try
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#") Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
@ -55,6 +58,7 @@
ElseIf oMode.StartsWith("PM.COLORSCHEME") Then ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "") Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
RIBBON_COLOR_SCHEME = oColorScheme.ToUpper RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
Else Else
LOGGER.Info($"Wrong oMode: {oMode}") LOGGER.Info($"Wrong oMode: {oMode}")
End If End If

2
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -35,7 +35,7 @@ Module ModuleRuntimeVariables
Public USER_EXISTS = False Public USER_EXISTS = False
Public USER_IN_MODULE = False Public USER_IN_MODULE = False
Public USER_RIGHT_FILE_DELETE As Boolean = False Public USER_RIGHT_FILE_DELETE As Boolean = False
Public USER_RIGHT1 As Boolean = False Public USER_RIGHT_VIEW_ONLY As Boolean = False
Public USER_RIGHT2 As Boolean = False Public USER_RIGHT2 As Boolean = False
Public USER_RIGHT3 As Boolean = False Public USER_RIGHT3 As Boolean = False
Public USER_RIGHT4 As Boolean = False Public USER_RIGHT4 As Boolean = False

34
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@ -162,10 +162,6 @@ Partial Class frmAdministration
Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPREVENT_DUPLICATES = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPREVENT_DUPLICATES = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn() Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid()
@ -1233,7 +1229,7 @@ Partial Class frmAdministration
' '
'viewFinalIndex 'viewFinalIndex
' '
Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPROFIL_ID, Me.colCONNECTION_ID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colPREVENT_DUPLICATES, Me.colALLOW_NEW_VALUES, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN, Me.colDESCRIPTION1, Me.colACTIVE}) Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPROFIL_ID, Me.colCONNECTION_ID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colPREVENT_DUPLICATES, Me.colALLOW_NEW_VALUES, Me.colDESCRIPTION1, Me.colACTIVE})
Me.viewFinalIndex.DetailHeight = 295 Me.viewFinalIndex.DetailHeight = 295
Me.viewFinalIndex.GridControl = Me.gridFinalIndex Me.viewFinalIndex.GridControl = Me.gridFinalIndex
Me.viewFinalIndex.Name = "viewFinalIndex" Me.viewFinalIndex.Name = "viewFinalIndex"
@ -1286,30 +1282,6 @@ Partial Class frmAdministration
Me.colALLOW_NEW_VALUES.FieldName = "ALLOW_NEW_VALUES" Me.colALLOW_NEW_VALUES.FieldName = "ALLOW_NEW_VALUES"
Me.colALLOW_NEW_VALUES.Name = "colALLOW_NEW_VALUES" Me.colALLOW_NEW_VALUES.Name = "colALLOW_NEW_VALUES"
' '
'colADDED_WHO
'
resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO")
Me.colADDED_WHO.FieldName = "ADDED_WHO"
Me.colADDED_WHO.Name = "colADDED_WHO"
'
'colADDED_WHEN
'
resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN")
Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
Me.colADDED_WHEN.Name = "colADDED_WHEN"
'
'colCHANGED_WHO
'
resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO")
Me.colCHANGED_WHO.FieldName = "CHANGED_WHO"
Me.colCHANGED_WHO.Name = "colCHANGED_WHO"
'
'colCHANGED_WHEN
'
resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN")
Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN"
Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN"
'
'colDESCRIPTION1 'colDESCRIPTION1
' '
Me.colDESCRIPTION1.FieldName = "DESCRIPTION" Me.colDESCRIPTION1.FieldName = "DESCRIPTION"
@ -2159,10 +2131,6 @@ Partial Class frmAdministration
Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colACTIVE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colACTIVE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colPREVENT_DUPLICATES As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPREVENT_DUPLICATES As DevExpress.XtraGrid.Columns.GridColumn

77
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -2504,7 +2504,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="colINDEXNAME.Caption" xml:space="preserve"> <data name="colINDEXNAME.Caption" xml:space="preserve">
<value>Windream Index</value> <value>Index</value>
</data> </data>
<data name="colINDEXNAME.Visible" type="System.Boolean, mscorlib"> <data name="colINDEXNAME.Visible" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -2512,6 +2512,9 @@
<data name="colINDEXNAME.VisibleIndex" type="System.Int32, mscorlib"> <data name="colINDEXNAME.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
<data name="colINDEXNAME.Width" type="System.Int32, mscorlib">
<value>86</value>
</data>
<data name="colVALUE.Caption" xml:space="preserve"> <data name="colVALUE.Caption" xml:space="preserve">
<value>Fester Wert</value> <value>Fester Wert</value>
</data> </data>
@ -2521,6 +2524,9 @@
<data name="colVALUE.VisibleIndex" type="System.Int32, mscorlib"> <data name="colVALUE.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
</data> </data>
<data name="colVALUE.Width" type="System.Int32, mscorlib">
<value>73</value>
</data>
<data name="colSQL_COMMAND.Caption" xml:space="preserve"> <data name="colSQL_COMMAND.Caption" xml:space="preserve">
<value>SQL Befehl</value> <value>SQL Befehl</value>
</data> </data>
@ -2530,50 +2536,17 @@
<data name="colSQL_COMMAND.VisibleIndex" type="System.Int32, mscorlib"> <data name="colSQL_COMMAND.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="colSQL_COMMAND.Width" type="System.Int32, mscorlib">
<value>150</value>
</data>
<data name="colPREVENT_DUPLICATES.Caption" xml:space="preserve"> <data name="colPREVENT_DUPLICATES.Caption" xml:space="preserve">
<value>Doppelte Werte vermeiden</value> <value>Doppelte Werte vermeiden</value>
</data> </data>
<data name="colALLOW_NEW_VALUES.Caption" xml:space="preserve"> <data name="colALLOW_NEW_VALUES.Caption" xml:space="preserve">
<value>Neue Werte erlauben</value> <value>Neue Werte erlauben</value>
</data> </data>
<data name="colADDED_WHO.Caption" xml:space="preserve">
<value>Hinzugefügt Wer</value>
</data>
<data name="colADDED_WHO.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colADDED_WHO.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="colADDED_WHEN.Caption" xml:space="preserve">
<value>Hinzugefügt Wann</value>
</data>
<data name="colADDED_WHEN.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colADDED_WHEN.VisibleIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="colCHANGED_WHO.Caption" xml:space="preserve">
<value>Geändert Wer</value>
</data>
<data name="colCHANGED_WHO.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colCHANGED_WHO.VisibleIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="colCHANGED_WHEN.Caption" xml:space="preserve">
<value>Geändert Wann</value>
</data>
<data name="colCHANGED_WHEN.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colCHANGED_WHEN.VisibleIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="gridFinalIndex.Size" type="System.Drawing.Size, System.Drawing"> <data name="gridFinalIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>627, 305</value> <value>627, 308</value>
</data> </data>
<data name="gridFinalIndex.TabIndex" type="System.Int32, mscorlib"> <data name="gridFinalIndex.TabIndex" type="System.Int32, mscorlib">
<value>93</value> <value>93</value>
@ -2600,7 +2573,7 @@
<value>627, 0</value> <value>627, 0</value>
</data> </data>
<data name="PropertyGrid1.Size" type="System.Drawing.Size, System.Drawing"> <data name="PropertyGrid1.Size" type="System.Drawing.Size, System.Drawing">
<value>323, 305</value> <value>323, 308</value>
</data> </data>
<data name="PropertyGrid1.TabIndex" type="System.Int32, mscorlib"> <data name="PropertyGrid1.TabIndex" type="System.Int32, mscorlib">
<value>91</value> <value>91</value>
@ -2621,7 +2594,7 @@
<value>3, 166</value> <value>3, 166</value>
</data> </data>
<data name="Panel5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel5.Size" type="System.Drawing.Size, System.Drawing">
<value>950, 305</value> <value>950, 308</value>
</data> </data>
<data name="Panel5.TabIndex" type="System.Int32, mscorlib"> <data name="Panel5.TabIndex" type="System.Int32, mscorlib">
<value>94</value> <value>94</value>
@ -4738,30 +4711,6 @@
<data name="&gt;&gt;colALLOW_NEW_VALUES.Type" xml:space="preserve"> <data name="&gt;&gt;colALLOW_NEW_VALUES.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHO.Name" xml:space="preserve">
<value>colADDED_WHO</value>
</data>
<data name="&gt;&gt;colADDED_WHO.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve">
<value>colADDED_WHEN</value>
</data>
<data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colCHANGED_WHO.Name" xml:space="preserve">
<value>colCHANGED_WHO</value>
</data>
<data name="&gt;&gt;colCHANGED_WHO.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colCHANGED_WHEN.Name" xml:space="preserve">
<value>colCHANGED_WHEN</value>
</data>
<data name="&gt;&gt;colCHANGED_WHEN.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colDESCRIPTION1.Name" xml:space="preserve"> <data name="&gt;&gt;colDESCRIPTION1.Name" xml:space="preserve">
<value>colDESCRIPTION1</value> <value>colDESCRIPTION1</value>
</data> </data>

213
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -488,7 +488,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAWwBBQFsAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAXQBBQF0AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -541,105 +541,9 @@
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>597, 17</value> <value>597, 17</value>
</metadata> </metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>500, 134</value>
</metadata>
<data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
<value>GridControl_Docs</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;BindingNavigator1.Name" xml:space="preserve">
<value>BindingNavigator1</value>
</data>
<data name="&gt;&gt;BindingNavigator1.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;BindingNavigator1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;NavBarControl1.Name" xml:space="preserve">
<value>NavBarControl1</value>
</data>
<data name="&gt;&gt;NavBarControl1.Type" xml:space="preserve">
<value>DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;NavBarControl1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 345</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>637, 95</value> <value>637, 95</value>
</metadata> </metadata>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 198</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
</data>
<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.Location" type="System.Drawing.Point, System.Drawing">
<value>256, 30</value>
</data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
<value>631, 241</value>
</data>
<data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
<value>GridControl_Docs</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value> <value>269, 26</value>
</data> </data>
@ -720,6 +624,36 @@
<data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve"> <data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve">
<value>Layout speichern</value> <value>Layout speichern</value>
</data> </data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 198</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
</data>
<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.Location" type="System.Drawing.Point, System.Drawing">
<value>256, 30</value>
</data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
<value>631, 241</value>
</data>
<data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
<value>GridControl_Docs</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>500, 134</value> <value>500, 134</value>
</metadata> </metadata>
@ -923,6 +857,12 @@
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>786, 95</value> <value>786, 95</value>
</metadata> </metadata>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 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"> <data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 30</value> <value>220, 30</value>
</data> </data>
@ -1120,11 +1060,32 @@
<data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>219, 26</value> <value>Fill</value>
</data> </data>
<data name="tsmiValidationProfil.Text" xml:space="preserve"> <data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Starte Validierung für Profil</value> <value>Tahoma, 9pt</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 345</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>3</value>
</data> </data>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>908, 17</value> <value>908, 17</value>
@ -1132,6 +1093,18 @@
<metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value> <value>17, 173</value>
</metadata> </metadata>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
<value>Popup Erinnerung inaktivieren</value>
</data>
<data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Monitor anzeigen</value>
</data>
<data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>235, 48</value> <value>235, 48</value>
</data> </data>
@ -1313,18 +1286,6 @@
<data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib"> <data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
<value>Popup Erinnerung inaktivieren</value>
</data>
<data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Monitor anzeigen</value>
</data>
<metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
@ -1645,6 +1606,18 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Allgemein</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Verwaltung</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Funktionen</value> <value>Funktionen</value>
</data> </data>
@ -1681,18 +1654,6 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>5</value> <value>5</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Allgemein</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Verwaltung</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
@ -1887,7 +1848,7 @@
<value>Manual</value> <value>Manual</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Process Manager - Profil-Monitor</value> <value>4565465</value>
</data> </data>
<data name="&gt;&gt;ImageListProfile.Name" xml:space="preserve"> <data name="&gt;&gt;ImageListProfile.Name" xml:space="preserve">
<value>ImageListProfile</value> <value>ImageListProfile</value>

24
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -582,7 +582,7 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Layout Dashboard - Error: " & ex.Message) LOGGER.Info("Layout Dashboard - Error: " & ex.Message)
MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try End Try
End Sub End Sub
Private Function Create_Series(title As String, type As String) As Series Private Function Create_Series(title As String, type As String) As Series
@ -1148,13 +1148,13 @@ Public Class frmMain
End If End If
Else Else
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical) MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]") allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]")
MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information) MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Try End Try
End Sub End Sub
Private Function Init_IDB() Private Function Init_IDB()
@ -1283,11 +1283,6 @@ Public Class frmMain
Load_Grid_Overview() Load_Grid_Overview()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End Sub End Sub
Private Sub GridView1_PopupMenuShowing(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.PopupMenuShowingEventArgs)
Dim view As GridView = TryCast(sender, GridView)
MsgBox(e.MenuType.ToString)
End Sub
Sub Load_Grid_Overview() Sub Load_Grid_Overview()
SplitContainerDashboard.Visible = False SplitContainerDashboard.Visible = False
Layout_Single_Profile() Layout_Single_Profile()
@ -1498,7 +1493,7 @@ Public Class frmMain
If CURRENT_CLICKED_PROFILE_ID <> 0 Then If CURRENT_CLICKED_PROFILE_ID <> 0 Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID) Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
Else Else
MsgBox("Bitte wählen Sie zuerst ein Profil aus!", MsgBoxResult.Ok) MsgBox("Please choose a profile!", MsgBoxResult.Ok, ADDITIONAL_TITLE)
End If End If
End Sub End Sub
@ -1663,11 +1658,8 @@ Public Class frmMain
Else Else
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Default RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Default
End If End If
If ADDITIONAL_TITLE <> String.Empty Then LOGGER.Debug($" RibbonControl1.ColorScheme [{RIBBON_COLOR_SCHEME}]")
Me.Text = ADDITIONAL_TITLE Me.Text = ADDITIONAL_TITLE
Else
Me.Text = "Process Manager"
End If
End Sub End Sub
Sub Handling_DEBUG_USER() Sub Handling_DEBUG_USER()
@ -1724,7 +1716,7 @@ Public Class frmMain
omsg = omsg.Replace(Chr(10), "") omsg = omsg.Replace(Chr(10), "")
omsg = omsg.Replace(Chr(13), "") omsg = omsg.Replace(Chr(13), "")
Dim odatetime As Date = CDate(oLogSplit(0)) Dim odatetime As Date = CDate(oLogSplit(0))
oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN]) VALUES({USER_ID},'{omsg}','{odatetime}')" oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN],DATE_STR) VALUES({USER_ID},'{omsg}',GetDate(),'{odatetime}')"
ClassDatabase.Execute_non_Query(oSQL) ClassDatabase.Execute_non_Query(oSQL)
Next Next
LOGCONFIG.ClearLogs() LOGCONFIG.ClearLogs()
@ -1735,7 +1727,7 @@ Public Class frmMain
End Sub End Sub
Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs) Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs)
MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information) MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Sub End Sub

2
app/DD_PM_WINDREAM/frmMonitor.vb
View File

@ -107,6 +107,8 @@ Public Class frmMonitor
DocumentViewerMonitor.LoadFile(oDocPath) DocumentViewerMonitor.LoadFile(oDocPath)
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
DocumentViewerMonitor.Visible = True DocumentViewerMonitor.Visible = True
DocumentViewerMonitor.RightOnlyView(USER_RIGHT_VIEW_ONLY)
Else Else
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
BarStaticItemInfo.Caption = $"File is not existing or accessible!" BarStaticItemInfo.Caption = $"File is not existing or accessible!"

50
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -30,6 +30,7 @@ Partial Class frmValidator
Me.btnSave = New System.Windows.Forms.Button() Me.btnSave = New System.Windows.Forms.Button()
Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
Me.pnldesigner = New System.Windows.Forms.Panel() Me.pnldesigner = New System.Windows.Forms.Panel()
Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
@ -84,7 +85,7 @@ Partial Class frmValidator
Me.bsiError = New DevExpress.XtraBars.BarStaticItem() Me.bsiError = New DevExpress.XtraBars.BarStaticItem()
Me.bsiInformation = New DevExpress.XtraBars.BarStaticItem() Me.bsiInformation = New DevExpress.XtraBars.BarStaticItem()
Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem() Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemFileView = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem() Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem()
@ -95,12 +96,11 @@ Partial Class frmValidator
Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem()
Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
@ -171,6 +171,11 @@ Partial Class frmValidator
Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnldesigner.Name = "pnldesigner" Me.pnldesigner.Name = "pnldesigner"
' '
'DocumentViewerValidator
'
resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
'
'BarAndDockingController3 'BarAndDockingController3
' '
Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False
@ -504,7 +509,7 @@ Partial Class frmValidator
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 16 Me.RibbonControl1.MaxItemId = 16
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
@ -533,13 +538,13 @@ Partial Class frmValidator
Me.bsiDocID.Id = 3 Me.bsiDocID.Id = 3
Me.bsiDocID.Name = "bsiDocID" Me.bsiDocID.Name = "bsiDocID"
' '
'BarButtonItem2 'BarButtonItemFileView
' '
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") resources.ApplyResources(Me.BarButtonItemFileView, "BarButtonItemFileView")
Me.BarButtonItem2.Id = 4 Me.BarButtonItemFileView.Id = 4
Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) Me.BarButtonItemFileView.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItemFileView.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItemFileView.Name = "BarButtonItemFileView"
' '
'BarButtonItem3 'BarButtonItem3
' '
@ -627,18 +632,18 @@ Partial Class frmValidator
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
'RibbonPageGroup1 'RibbonPageFile
' '
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageFile.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageFile.ItemLinks.Add(Me.BarButtonItemFileView)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageFile.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4) Me.RibbonPageFile.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageFile.Name = "RibbonPageFile"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") resources.ApplyResources(Me.RibbonPageFile, "RibbonPageFile")
' '
'RibbonPageGroup3 'RibbonPageGroup3
' '
@ -674,11 +679,6 @@ Partial Class frmValidator
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
' '
'DocumentViewerValidator
'
resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
'
'frmValidator 'frmValidator
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -779,13 +779,13 @@ Partial Class frmValidator
Friend WithEvents ToolTip1 As ToolTip Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageFile As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents bsiError As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiError As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiInformation As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiInformation As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItemFileView As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup

34
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -123,7 +123,7 @@
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value> <value>0, 146</value>
</data> </data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
@ -172,7 +172,7 @@
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="btnSave.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
<value>7, 404</value> <value>7, 419</value>
</data> </data>
<data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
@ -238,7 +238,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
<value>466, 311</value> <value>466, 326</value>
</data> </data>
<data name="pnldesigner.TabIndex" type="System.Int32, mscorlib"> <data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
<value>18</value> <value>18</value>
@ -265,7 +265,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>477, 461</value> <value>477, 476</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value> <value>24</value>
@ -304,7 +304,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing"> <data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing">
<value>481, 461</value> <value>481, 476</value>
</data> </data>
<data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib"> <data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -334,7 +334,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 461</value> <value>962, 476</value>
</data> </data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib"> <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>477</value> <value>477</value>
@ -507,7 +507,7 @@
<data name="bsiDocID.Caption" xml:space="preserve"> <data name="bsiDocID.Caption" xml:space="preserve">
<value>BarStaticItem1</value> <value>BarStaticItem1</value>
</data> </data>
<data name="BarButtonItem2.Caption" xml:space="preserve"> <data name="BarButtonItemFileView.Caption" xml:space="preserve">
<value>Datei öffnen</value> <value>Datei öffnen</value>
</data> </data>
<data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -846,7 +846,7 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve"> <data name="RibbonPageFile.Text" xml:space="preserve">
<value>Datei</value> <value>Datei</value>
</data> </data>
<data name="RibbonPageGroup3.Text" xml:space="preserve"> <data name="RibbonPageGroup3.Text" xml:space="preserve">
@ -872,13 +872,13 @@
<value>Menü</value> <value>Menü</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 158</value> <value>962, 146</value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 619</value> <value>0, 622</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 24</value> <value>962, 21</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -1420,10 +1420,10 @@
<data name="&gt;&gt;bsiDocID.Type" xml:space="preserve"> <data name="&gt;&gt;bsiDocID.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve"> <data name="&gt;&gt;BarButtonItemFileView.Name" xml:space="preserve">
<value>BarButtonItem2</value> <value>BarButtonItemFileView</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve"> <data name="&gt;&gt;BarButtonItemFileView.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem3.Name" xml:space="preserve"> <data name="&gt;&gt;BarButtonItem3.Name" xml:space="preserve">
@ -1486,10 +1486,10 @@
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageFile.Name" xml:space="preserve">
<value>RibbonPageGroup1</value> <value>RibbonPageFile</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageFile.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">

56
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -523,7 +523,7 @@ Public Class frmValidator
Next Next
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
clsLogger.Add("Error in LoadSQLData: " & ex.Message) clsLogger.Add("Error in LoadSQLData: " & ex.Message)
End Try End Try
End Sub End Sub
@ -560,7 +560,7 @@ Public Class frmValidator
oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId)
If IsNothing(oDTforControl) Then If IsNothing(oDTforControl) Then
MsgBox($"SQL-Query for control {control.Name} is invalid.") MsgBox($"SQL-Query for control {control.Name} is invalid.", MsgBoxStyle.OkOnly, ADDITIONAL_TITLE)
Exit Sub Exit Sub
End If End If
Dim oValue Dim oValue
@ -635,7 +635,7 @@ Public Class frmValidator
Next Next
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
clsLogger.Add("Error in LoadSQLData2: " & ex.Message) clsLogger.Add("Error in LoadSQLData2: " & ex.Message)
End Try End Try
End Sub End Sub
@ -1126,10 +1126,10 @@ Public Class frmValidator
Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation) MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub Exit Sub
ElseIf oDT_ACTIONS.Rows.Count = 0 Then ElseIf oDT_ACTIONS.Rows.Count = 0 Then
MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation) MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub Exit Sub
End If End If
'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color 'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
@ -1211,7 +1211,7 @@ Public Class frmValidator
If oREsult = True Then If oREsult = True Then
Reload_Controls(oControlName) Reload_Controls(oControlName)
Else Else
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation) MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If End If
End If End If
Case "Update_Controls".ToUpper Case "Update_Controls".ToUpper
@ -1227,7 +1227,7 @@ Public Class frmValidator
StatusLabel("Refreshed single control") StatusLabel("Refreshed single control")
FillIndexValues(False) FillIndexValues(False)
Else Else
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation) MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If End If
End If End If
@ -1236,7 +1236,7 @@ Public Class frmValidator
Override = True Override = True
Finish_WFStep() Finish_WFStep()
Case Else Case Else
MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, "") MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]")
End Select End Select
@ -1714,7 +1714,7 @@ Public Class frmValidator
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Depending_Control_Set_Result - ERROR: " & ex.Message) LOGGER.Info("Unexpected Error in Depending_Control_Set_Result - ERROR: " & ex.Message)
MsgBox("Unexpected error: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected error: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try End Try
End Sub End Sub
Public Sub OnDTPValueChanged(sender As System.Object, e As System.EventArgs) Public Sub OnDTPValueChanged(sender As System.Object, e As System.EventArgs)
@ -1940,7 +1940,7 @@ Public Class frmValidator
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then If CURRENT_DOC_GUID > 0 Then
If GetWMDocPathWindows(0) = False Then If GetWMDocPathWindows(0) = False Then
MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, "") MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit Sub Exit Sub
End If End If
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
@ -2045,7 +2045,7 @@ Public Class frmValidator
Try Try
MsgBox(oROW.Item("STRING1"), MsgBoxStyle.Information, oROW.Item("STRING2")) MsgBox(oROW.Item("STRING1"), MsgBoxStyle.Information, oROW.Item("STRING2"))
Catch ex As Exception Catch ex As Exception
MsgBox("No more documents!" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, "") MsgBox("No more documents!" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Try End Try
activate_controls(True) activate_controls(True)
Me.Close() Me.Close()
@ -2063,6 +2063,12 @@ Public Class frmValidator
End Sub End Sub
Sub load_viewer() Sub load_viewer()
DocumentViewerValidator.LoadFile(WMDocPathWindows) DocumentViewerValidator.LoadFile(WMDocPathWindows)
DocumentViewerValidator.RightOnlyView(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then
RibbonPageFile.Visible = False
Else
RibbonPageFile.Visible = True
End If
SplitContainer1.Panel2Collapsed = False SplitContainer1.Panel2Collapsed = False
End Sub End Sub
@ -2344,7 +2350,7 @@ Public Class frmValidator
Return value Return value
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
LOGGER.Info("error in ReturnVektor_IndexValue: " & ex.Message) LOGGER.Info("error in ReturnVektor_IndexValue: " & ex.Message)
Return "" Return ""
End Try End Try
@ -2561,7 +2567,7 @@ Public Class frmValidator
oControlType = "DataGridView" oControlType = "DataGridView"
Dim dgv As DataGridView = oControl Dim dgv As DataGridView = oControl
If oSourceIndexName = "" Then If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For Exit For
End If End If
If oSourceIndexName Is Nothing = False Then If oSourceIndexName Is Nothing = False Then
@ -2579,7 +2585,7 @@ Public Class frmValidator
'Tabellendarstellung 'Tabellendarstellung
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
Dim SpaltenWerte As String() Dim SpaltenWerte As String()
LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.")
If dt.Rows.Count > 1 Then If dt.Rows.Count > 1 Then
@ -2638,7 +2644,7 @@ Public Class frmValidator
oControlType = "DevExpress.XtraGrid.GridControl" oControlType = "DevExpress.XtraGrid.GridControl"
Dim oMyGridControl As GridControl = oControl Dim oMyGridControl As GridControl = oControl
If oSourceIndexName = "" Then If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For Exit For
End If End If
If oSourceIndexName Is Nothing = False Then If oSourceIndexName Is Nothing = False Then
@ -2658,7 +2664,7 @@ Public Class frmValidator
Select Case oTyp Select Case oTyp
'Tabellendarstellung 'Tabellendarstellung
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
Dim oColCount = dt.Rows.Count Dim oColCount = dt.Rows.Count
Dim oColValuesfromSource As String() Dim oColValuesfromSource As String()
LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.") LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.")
@ -2816,7 +2822,7 @@ Public Class frmValidator
LOGGER.Debug("Loading checkbox.") LOGGER.Debug("Loading checkbox.")
oControlType = "CheckBox" oControlType = "CheckBox"
If oSourceIndexName = "" Then If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For Exit For
End If End If
If oSourceIndexName Is Nothing = False Then If oSourceIndexName Is Nothing = False Then
@ -2962,7 +2968,7 @@ Public Class frmValidator
oControlType = "DateTimePicker" oControlType = "DateTimePicker"
Dim DTP As DateTimePicker = oControl Dim DTP As DateTimePicker = oControl
If oSourceIndexName = "" Then If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For Exit For
End If End If
If oSourceIndexName Is Nothing = False Then If oSourceIndexName Is Nothing = False Then
@ -3158,10 +3164,10 @@ Public Class frmValidator
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation) MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Return False Return False
ElseIf oDT_ACTIONS.Rows.Count = 0 Then ElseIf oDT_ACTIONS.Rows.Count = 0 Then
MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation) MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Return False Return False
End If End If
'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color 'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
@ -3520,7 +3526,7 @@ Public Class frmValidator
End If End If
End If End If
If oErrorOcurred = True Then If oErrorOcurred = True Then
MsgBox("Unhandled error occured ... please check your log!", MsgBoxStyle.Exclamation) MsgBox("Unhandled error occured ... please check your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
ItemWorked = False ItemWorked = False
Else Else
'Das Dokument freigeben und as editiert markieren 'Das Dokument freigeben und as editiert markieren
@ -3661,6 +3667,8 @@ Public Class frmValidator
Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty) Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty)
oControlName = dr.Item("CTRL_NAME") oControlName = dr.Item("CTRL_NAME")
Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA") Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA")
Dim oPreventMultipleValues = dr.Item("VKT_PREVENT_MULTIPLE_VALUES")
'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then
LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'")
@ -3708,14 +3716,12 @@ Public Class frmValidator
Else Else
Dim oMyDT = DT_FOR_ARRAY(myVektorArr) Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA) = False Then If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA, oIDBTyp) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing IDB-Object LookupGrid" oErrorMessage = "Error while indexing IDB-Object LookupGrid"
Exit For Exit For
End If End If
End If End If
'Jetzt die Datei indexieren
Else Else
Dim oValues As New List(Of Object) From {String.Empty} Dim oValues As New List(Of Object) From {String.Empty}
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
@ -4686,7 +4692,7 @@ Public Class frmValidator
bsiInformation.Caption = infotext & " " & Now.ToString bsiInformation.Caption = infotext & " " & Now.ToString
End Sub End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileView.ItemClick
Try Try
Dim Proc As New System.Diagnostics.Process Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(WMDocPathWindows) Dim psi As New ProcessStartInfo(WMDocPathWindows)

6
app/DD_PM_WINDREAM/frmValidatorSearch.vb
View File

@ -469,6 +469,12 @@ Public Class frmValidatorSearch
If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then
If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then
DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH) DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
DocumentViewer1.RightOnlyView(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then
ToolStripDropDownButtonFile.Visible = False
Else
ToolStripDropDownButtonFile.Visible = True
End If
End If End If
End If End If