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

Ms Inactivity, ApplServerConnections

Browse Source
This commit is contained in:
SchreiberM 2020-11-19 14:51:00 +01:00
parent 6c289a9a9e
commit 0eeb6ff237
13 changed files with 162 additions and 178 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@ -45,7 +45,7 @@ Public Class ClassAllgemeineFunktionen
Else Else
If INACTIVITYRecognized = True Then If INACTIVITYRecognized = True Then
oSql = $"UPDATE TBDD_USER_LOGIN_OUT SET COMMENT = 'Inactivity Detected' WHERE GUID IN (SELECT GUID FROM TBDD_USER_LOGIN_OUT oSql = $"UPDATE TBDD_USER_LOGIN_OUT SET COMMENT = 'Inactivity Detected' WHERE GUID IN (SELECT GUID FROM TBDD_USER_LOGIN_OUT
WHERE USER_ID = {USER_ID} AND MODULE = 'Process-Manager'" WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager')"
ClassDatabase.Execute_non_Query(oSql, "Inactivity insert") ClassDatabase.Execute_non_Query(oSql, "Inactivity insert")
End If End If

21
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -44,17 +44,30 @@ Public Class ClassDatabase
End Try End Try
Return connectionString Return connectionString
End Function End Function
Public Shared Function Init() Public Shared Function Init(Optional ConString As String = "")
Try Try
SQLSERVERConnectionString = CONNECTION_STRING If ConString = String.Empty Then
SQLSERVERConnectionString = CONNECTION_STRING
End If
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = SQLSERVERConnectionString If ConString <> String.Empty Then
SQLconnect.ConnectionString = ConString
Else
SQLconnect.ConnectionString = SQLSERVERConnectionString
End If
SQLconnect.Open() SQLconnect.Open()
SQLconnect.Close() SQLconnect.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Fehler bei Database-Init: " & ex.Message, True) If ConString <> String.Empty Then
LOGGER.Info($"Error initializing Database [{ConString}] " & ex.Message, True)
Else
LOGGER.Info($"Error initializing Database [{CONNECTION_STRING}] " & ex.Message, True)
End If
Return False Return False
End Try End Try
End Function End Function

12
app/DD_PM_WINDREAM/ClassIDBData.vb
View File

@ -9,7 +9,7 @@
''' '''
Public Function Init() Public Function Init()
Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE" Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ)
End Function End Function
Public IDBSystemIndices As List(Of String) Public IDBSystemIndices As List(Of String)
Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String() Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
@ -101,7 +101,7 @@
LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ") LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
End If End If
Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))" Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
oAttributeValue = ClassDatabase.Return_Datatable_ConStr(oFNSQL, CONNECTION_STRING_IDB) oAttributeValue = ClassDatabase.Return_Datatable_ConStr(oFNSQL, CONNECTION_STRING_IDB_READ)
Dim odt As DataTable = oAttributeValue Dim odt As DataTable = oAttributeValue
If odt.Rows.Count = 1 Then If odt.Rows.Count = 1 Then
oAttributeValue = odt.Rows(0).Item(0) oAttributeValue = odt.Rows(0).Item(0)
@ -122,7 +122,7 @@
oID_IS_FOREIGN = 1 oID_IS_FOREIGN = 1
End If End If
Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}" Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB) ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB_WRITE)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -133,7 +133,7 @@
Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object
Try Try
Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'" Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'"
ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB) ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB_WRITE)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -207,7 +207,7 @@
For Each oNewValueRow As DataRow In oDTMyNewValues.Rows For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
Dim oSuccess As Boolean = False Dim oSuccess As Boolean = False
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT" Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB) oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB_WRITE)
If oSuccess = False Then If oSuccess = False Then
Return False Return False
End If End If
@ -215,7 +215,7 @@
Return True Return True
Else Else
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT" Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB) Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB_WRITE)
End If End If
Catch ex As Exception Catch ex As Exception

13
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -49,6 +49,9 @@ Public Class ClassInit
If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then
LOGGER.Debug("ConnectionStringAppServer will be used") LOGGER.Debug("ConnectionStringAppServer will be used")
CONNECTION_STRING_APP_SERVER = DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer) CONNECTION_STRING_APP_SERVER = DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer)
CONNECTION_STRING_READ = CONNECTION_STRING_APP_SERVER
Else
CONNECTION_STRING_READ = CONNECTION_STRING
End If End If
'VIEWER_UNIVERSAL = CONFIG.Config.UniversalViewerPath 'VIEWER_UNIVERSAL = CONFIG.Config.UniversalViewerPath
@ -108,8 +111,16 @@ Public Class ClassInit
frmKonfig.ShowDialog() frmKonfig.ShowDialog()
dbResult = ClassDatabase.Init() dbResult = ClassDatabase.Init()
End If End If
If CONNECTION_STRING_APP_SERVER <> String.Empty Then
If ClassDatabase.Init(CONNECTION_STRING_APP_SERVER) = False Then
MsgBox("ApplicationServer can not be reached! Check Your configuration.", MsgBoxStyle.Information)
If dbResult = True Then
CONNECTION_STRING_READ = CONNECTION_STRING
End If
End If
End If
If dbResult = False Then If dbResult = False Then
ERROR_STATE = "FAILED DBCONNECTION" ERROR_STATE = "FAILED DBCONNECTION"
MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical) MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
Return False Return False

38
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@ -45,17 +45,19 @@
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "") Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID) Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString CONNECTION_STRING_IDB = oConString
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE" If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = False Then
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) IDB_ACTIVE = False
If Not IsNothing(oDT) Then
If oDT.Rows.Count > 0 Then
IDB_ACTIVE = True
Else
LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
End If
Else Else
IDB_ACTIVE = True
LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!") LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
End If End If
ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB_APP_SERVER = oConString
If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
CONNECTION_STRING_IDB_APP_SERVER = ""
End If
ElseIf oMode = "PM.MONITORING" Then ElseIf oMode = "PM.MONITORING" Then
MONITORING_ACTIVE = True MONITORING_ACTIVE = True
ElseIf oMode = "PM.GHOSTMODE" Then ElseIf oMode = "PM.GHOSTMODE" Then
@ -93,12 +95,32 @@
Catch ex As Exception Catch ex As Exception
LAST_ADDED_COLUMN = "" LAST_ADDED_COLUMN = ""
End Try
ElseIf oMode.StartsWith("PM.USE_APPSERVER") Then
Dim oUSE_APPSERVER = oMode.Replace("PM.USE_APPSERVER=", "")
Try
USE_APPSERVER = CBool(oUSE_APPSERVER)
Catch ex As Exception
USE_APPSERVER = False
End Try End Try
Else Else
LOGGER.Info($"Wrong oMode: {oMode}") LOGGER.Info($"Wrong oMode: {oMode}")
End If End If
Next Next
If IDB_ACTIVE Then
If CONNECTION_STRING_APP_SERVER <> String.Empty Then
If USE_APPSERVER = True Then
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_APP_SERVER
Else
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
End If
Else
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
End If
CONNECTION_STRING_IDB_WRITE = CONNECTION_STRING_IDB
End If
End If End If
oStopwatch.Done() oStopwatch.Done()
End Sub End Sub

4
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

@ -3,7 +3,11 @@
Public SOURCE_INIT As Boolean = False Public SOURCE_INIT As Boolean = False
Public CONNECTION_STRING As String = "" Public CONNECTION_STRING As String = ""
Public CONNECTION_STRING_APP_SERVER As String = "" Public CONNECTION_STRING_APP_SERVER As String = ""
Public CONNECTION_STRING_READ As String
Public CONNECTION_STRING_IDB As String = "" Public CONNECTION_STRING_IDB As String = ""
Public CONNECTION_STRING_IDB_APP_SERVER As String = ""
Public CONNECTION_STRING_IDB_READ As String = ""
Public CONNECTION_STRING_IDB_WRITE As String = ""
Public IDB_ACTIVE As Boolean = False Public IDB_ACTIVE As Boolean = False
Public IDB_USES_WMFILESTORE As Boolean = False Public IDB_USES_WMFILESTORE As Boolean = False
Public BASIC_CONF_VISIBLE As Boolean = True Public BASIC_CONF_VISIBLE As Boolean = True

1
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -76,6 +76,7 @@ Module ModuleRuntimeVariables
Public INACTIVITYRecognized As Boolean = False Public INACTIVITYRecognized As Boolean = False
Public LAST_EDITED_COLUMN As String = "NONE" Public LAST_EDITED_COLUMN As String = "NONE"
Public LAST_ADDED_COLUMN As String = "NONE" Public LAST_ADDED_COLUMN As String = "NONE"
Public USE_APPSERVER As Boolean = False
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0
Public LICENSE_EXPIRED As Boolean = False Public LICENSE_EXPIRED As Boolean = False

4
app/DD_PM_WINDREAM/frmDesignerLayout.vb
View File

@ -105,7 +105,7 @@ Public Class frmDesignerLayout
_LayoutSerializer = New LayoutControlSerializer(LOGCONFIG) _LayoutSerializer = New LayoutControlSerializer(LOGCONFIG)
Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG" Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG"
FormsDatatable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) FormsDatatable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_WRITE)
If Not IsNothing(FormsDatatable) Then If Not IsNothing(FormsDatatable) Then
For Each oRow As DataRow In FormsDatatable.Rows For Each oRow As DataRow In FormsDatatable.Rows
Dim oItem As New BarButtonItem(RibbonControl1.Manager, oRow.Item("TITLE")) Dim oItem As New BarButtonItem(RibbonControl1.Manager, oRow.Item("TITLE"))
@ -149,7 +149,7 @@ Public Class frmDesignerLayout
Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oControls}', XML_LAYOUT = '{oLayout}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {SelectedLayoutId}" Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oControls}', XML_LAYOUT = '{oLayout}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {SelectedLayoutId}"
ClassDatabase.Execute_non_Query_ConStr(oSql, CONNECTION_STRING_IDB) ClassDatabase.Execute_non_Query_ConStr(oSql, CONNECTION_STRING_IDB_WRITE)
End Using End Using
End Using End Using
End Sub End Sub

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

@ -26,8 +26,6 @@ Partial Class frmMain
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components) Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components)
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
@ -64,12 +62,6 @@ Partial Class frmMain
Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefresh = New System.Windows.Forms.Timer(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_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components) Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components) Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
@ -178,7 +170,6 @@ Partial Class frmMain
Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components) Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout() Me.ContextMenuGrid.SuspendLayout()
@ -189,9 +180,6 @@ Partial Class frmMain
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsNavPane.SuspendLayout() Me.cmsNavPane.SuspendLayout()
Me.ContextMenuNotifyIcon.SuspendLayout() Me.ContextMenuNotifyIcon.SuspendLayout()
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -213,15 +201,6 @@ Partial Class frmMain
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
' '
'TBPM_PROFILEBindingSource
'
Me.TBPM_PROFILEBindingSource.DataMember = "TBPM_PROFILE"
Me.TBPM_PROFILEBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'TBPM_PROFILETableAdapter
'
Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@ -489,33 +468,6 @@ Partial Class frmMain
' '
Me.TimerRefresh.Interval = 120000 Me.TimerRefresh.Interval = 120000
' '
'TBPM_USERBindingSource
'
Me.TBPM_USERBindingSource.DataMember = "TBDD_USER"
Me.TBPM_USERBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'TBPM_USERTableAdapter
'
Me.TBPM_USERTableAdapter.ClearBeforeFill = True
'
'TBPM_KONFIGURATIONBindingSource
'
Me.TBPM_KONFIGURATIONBindingSource.DataMember = "TBPM_KONFIGURATION"
Me.TBPM_KONFIGURATIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'TBPM_KONFIGURATIONTableAdapter
'
Me.TBPM_KONFIGURATIONTableAdapter.ClearBeforeFill = True
'
'TBPM_PROFILE_FILESBindingSource
'
Me.TBPM_PROFILE_FILESBindingSource.DataMember = "TBPM_PROFILE_FILES"
Me.TBPM_PROFILE_FILESBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'TBPM_PROFILE_FILESTableAdapter
'
Me.TBPM_PROFILE_FILESTableAdapter.ClearBeforeFill = True
'
'TimerReminder 'TimerReminder
' '
' '
@ -1651,7 +1603,6 @@ Partial Class frmMain
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip")) Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit()
@ -1664,9 +1615,6 @@ Partial Class frmMain
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsNavPane.ResumeLayout(False) Me.cmsNavPane.ResumeLayout(False)
Me.ContextMenuNotifyIcon.ResumeLayout(False) Me.ContextMenuNotifyIcon.ResumeLayout(False)
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit()
@ -1679,18 +1627,10 @@ Partial Class frmMain
End Sub End Sub
Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter
Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
Friend WithEvents TimerReminder As System.Windows.Forms.Timer Friend WithEvents TimerReminder As System.Windows.Forms.Timer
Friend WithEvents ContextMenuGrid As ContextMenuStrip Friend WithEvents ContextMenuGrid As ContextMenuStrip
Friend WithEvents CMGroupStart As ToolStripMenuItem Friend WithEvents CMGroupStart As ToolStripMenuItem

2
app/DD_PM_WINDREAM/frmMain.en-US.resx
View File

@ -122,7 +122,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAeQBBAHkAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAfQBBAH0AQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

90
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -540,15 +540,15 @@
<data name="bbtnitDashboardInv.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib"> <data name="bbtnitDashboardInv.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
</data> </data>
<data name="bbtniMetadataFile.Caption" xml:space="preserve">
<value>Metadaten Datei</value>
</data>
<data name="&gt;&gt;PrintPreviewStaticItem2.Type" xml:space="preserve"> <data name="&gt;&gt;PrintPreviewStaticItem2.Type" xml:space="preserve">
<value>DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="PrintPreviewBarCheckItem14.ImageOptions.ImageIndex" type="System.Int32, mscorlib"> <data name="PrintPreviewBarCheckItem14.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
</data> </data>
<data name="&gt;&gt;barDockControlLeft.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt</value> <value>Tahoma, 12pt</value>
</data> </data>
@ -666,6 +666,9 @@
<data name="bbiPageSetup.Caption" xml:space="preserve"> <data name="bbiPageSetup.Caption" xml:space="preserve">
<value>Sei&amp;teneinstellungen...</value> <value>Sei&amp;teneinstellungen...</value>
</data> </data>
<data name="barDockControlBottom.ToolTip" xml:space="preserve">
<value />
</data>
<data name="&gt;&gt;CMFileMetadata.Name" xml:space="preserve"> <data name="&gt;&gt;CMFileMetadata.Name" xml:space="preserve">
<value>CMFileMetadata</value> <value>CMFileMetadata</value>
</data> </data>
@ -1109,9 +1112,6 @@
<data name="bbiZoomOut.Hint" xml:space="preserve"> <data name="bbiZoomOut.Hint" xml:space="preserve">
<value>Verkleinern</value> <value>Verkleinern</value>
</data> </data>
<data name="barDockControlTop.ToolTip" xml:space="preserve">
<value />
</data>
<data name="&gt;&gt;Timer5Mins.Name" xml:space="preserve"> <data name="&gt;&gt;Timer5Mins.Name" xml:space="preserve">
<value>Timer5Mins</value> <value>Timer5Mins</value>
</data> </data>
@ -1766,6 +1766,9 @@
<data name="miPageLayoutFacing.Caption" xml:space="preserve"> <data name="miPageLayoutFacing.Caption" xml:space="preserve">
<value>Einzeln</value> <value>Einzeln</value>
</data> </data>
<data name="&gt;&gt;XtraSaveFileDialog1.Name" xml:space="preserve">
<value>XtraSaveFileDialog1</value>
</data>
<data name="bbiProfilverwaltung.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bbiProfilverwaltung.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@ -1778,8 +1781,8 @@
p6DuHTTD81eioP5bqPqHBSpw/O/AclnyC9lwIPbajFPHAAAAAElFTkSuQmCC p6DuHTTD81eioP5bqPqHBSpw/O/AclnyC9lwIPbajFPHAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="&gt;&gt;bbiClosePreview.Name" xml:space="preserve"> <data name="barDockControlTop.ToolTip" xml:space="preserve">
<value>bbiClosePreview</value> <value />
</data> </data>
<data name="bbiMultiplePages.ImageOptions.ImageIndex" type="System.Int32, mscorlib"> <data name="bbiMultiplePages.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
@ -1861,7 +1864,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAdwBBgHsAQYBEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAdwBBgEEAQcBEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -1905,9 +1908,6 @@
<data name="PrintPreviewStaticItem1.Caption" xml:space="preserve"> <data name="PrintPreviewStaticItem1.Caption" xml:space="preserve">
<value>keine</value> <value>keine</value>
</data> </data>
<data name="&gt;&gt;bbiPrintDirect.Type" xml:space="preserve">
<value>DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TBPM_USERBindingSource.Name" xml:space="preserve"> <data name="&gt;&gt;TBPM_USERBindingSource.Name" xml:space="preserve">
<value>TBPM_USERBindingSource</value> <value>TBPM_USERBindingSource</value>
</data> </data>
@ -2044,8 +2044,8 @@
<data name="PrintPreviewStaticItem1.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib"> <data name="PrintPreviewStaticItem1.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
</data> </data>
<data name="&gt;&gt;PrintPreviewBarCheckItem19.Name" xml:space="preserve"> <data name="&gt;&gt;bbiClosePreview.Name" xml:space="preserve">
<value>PrintPreviewBarCheckItem19</value> <value>bbiClosePreview</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
@ -2525,8 +2525,8 @@
<data name="miPageLayoutFacing.ImageOptions.ImageIndex" type="System.Int32, mscorlib"> <data name="miPageLayoutFacing.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
</data> </data>
<data name="barDockControlBottom.ToolTip" xml:space="preserve"> <data name="PrintPreviewBarCheckItem9.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value /> <value>-1</value>
</data> </data>
<data name="&gt;&gt;bsi_GhostMode.Name" xml:space="preserve"> <data name="&gt;&gt;bsi_GhostMode.Name" xml:space="preserve">
<value>bsi_GhostMode</value> <value>bsi_GhostMode</value>
@ -2654,8 +2654,8 @@
<data name="&gt;&gt;barDockControlTop.Parent" xml:space="preserve"> <data name="&gt;&gt;barDockControlTop.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;barDockControlLeft.Type" xml:space="preserve"> <data name="bbtniMetadataFile.Caption" xml:space="preserve">
<value>DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>Metadaten Datei</value>
</data> </data>
<data name="&gt;&gt;bbiExportFile.Type" xml:space="preserve"> <data name="&gt;&gt;bbiExportFile.Type" xml:space="preserve">
<value>DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -2925,9 +2925,6 @@
<data name="&gt;&gt;bbiSave.Type" xml:space="preserve"> <data name="&gt;&gt;bbiSave.Type" xml:space="preserve">
<value>DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="PrintPreviewBarCheckItem9.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="bbtnitemInfo.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib"> <data name="bbtnitemInfo.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
</data> </data>
@ -3263,6 +3260,9 @@
<data name="&gt;&gt;miFile.Type" xml:space="preserve"> <data name="&gt;&gt;miFile.Type" xml:space="preserve">
<value>DevExpress.XtraPrinting.Preview.PrintPreviewSubItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPrinting.Preview.PrintPreviewSubItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PrintPreviewBarCheckItem19.Name" xml:space="preserve">
<value>PrintPreviewBarCheckItem19</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value> <value>RibbonPageGroup1</value>
</data> </data>
@ -3278,8 +3278,8 @@
<data name="&gt;&gt;bbiHandTool.Name" xml:space="preserve"> <data name="&gt;&gt;bbiHandTool.Name" xml:space="preserve">
<value>bbiHandTool</value> <value>bbiHandTool</value>
</data> </data>
<data name="&gt;&gt;XtraSaveFileDialog1.Name" xml:space="preserve"> <data name="PrintPreviewBarItem1.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value>XtraSaveFileDialog1</value> <value />
</data> </data>
<data name="PrintPreviewBarCheckItem1.ImageOptions.ImageIndex" type="System.Int32, mscorlib"> <data name="PrintPreviewBarCheckItem1.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value> <value>-1</value>
@ -3452,8 +3452,8 @@
<data name="bbiHandTool.Caption" xml:space="preserve"> <data name="bbiHandTool.Caption" xml:space="preserve">
<value>Hand</value> <value>Hand</value>
</data> </data>
<data name="PrintPreviewBarItem1.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms"> <data name="&gt;&gt;bbiPrintDirect.Type" xml:space="preserve">
<value /> <value>DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;barDockControlBottom.ZOrder" xml:space="preserve"> <data name="&gt;&gt;barDockControlBottom.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
@ -3573,7 +3573,7 @@
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
<metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>919, 134</value> <value>585, 95</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_FILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILE_FILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>923, 56</value> <value>923, 56</value>
@ -3591,16 +3591,16 @@
<value>666, 56</value> <value>666, 56</value>
</metadata> </metadata>
<metadata name="TimerReminder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerReminder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>257, 95</value> <value>728, 17</value>
</metadata> </metadata>
<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>541, 95</value> <value>17, 56</value>
</metadata> </metadata>
<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>392, 95</value> <value>863, 17</value>
</metadata> </metadata>
<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, 134</value> <value>640, 56</value>
</metadata> </metadata>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
@ -3609,16 +3609,16 @@
<value>391, 17</value> <value>391, 17</value>
</metadata> </metadata>
<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>490, 17</value>
</metadata> </metadata>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value> <value>875, 95</value>
</metadata> </metadata>
<metadata name="bwBasicData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="bwBasicData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>581, 134</value> <value>247, 95</value>
</metadata> </metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1065, 95</value> <value>541, 56</value>
</metadata> </metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>198</value> <value>198</value>
@ -3627,40 +3627,40 @@
<value>179, 17</value> <value>179, 17</value>
</metadata> </metadata>
<metadata name="bwSync.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="bwSync.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>351, 134</value> <value>17, 95</value>
</metadata> </metadata>
<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>179, 17</value>
</metadata> </metadata>
<metadata name="TBPM_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>213, 56</value> <value>213, 56</value>
</metadata> </metadata>
<metadata name="DocumentViewerBarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DocumentViewerBarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>701, 134</value> <value>367, 95</value>
</metadata> </metadata>
<metadata name="TimerInactivity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerInactivity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1078, 134</value> <value>744, 95</value>
</metadata> </metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>444, 134</value> <value>110, 95</value>
</metadata> </metadata>
<metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>199, 134</value> <value>822, 56</value>
</metadata> </metadata>
<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>1023, 17</value> <value>605, 17</value>
</metadata> </metadata>
<metadata name="bindsourcegrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="bindsourcegrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>816, 95</value> <value>292, 56</value>
</metadata> </metadata>
<metadata name="Timer5Mins.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer5Mins.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>950, 95</value> <value>426, 56</value>
</metadata> </metadata>
<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>662, 95</value> <value>138, 56</value>
</metadata> </metadata>
<metadata name="ImageListProfile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ImageListProfile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>770, 17</value> <value>352, 17</value>
</metadata> </metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>

56
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -104,7 +104,9 @@ Public Class frmMain
End Try End Try
End If End If
If INACTIVITYRecognized Then
Exit Sub
End If
Try Try
ClassAllgemeineFunktionen.LoginOut("LOGOUT") ClassAllgemeineFunktionen.LoginOut("LOGOUT")
LOGGER.Info("ProcessManager closed - " & Now, False) LOGGER.Info("ProcessManager closed - " & Now, False)
@ -161,8 +163,8 @@ Public Class frmMain
LOGGER.Error(ex) LOGGER.Error(ex)
MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try End Try
If Refresh_ConnectionString() = True Then
Try Try
bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT
LOGGER.Debug("Initializing MainForm....") LOGGER.Debug("Initializing MainForm....")
If ERROR_STATE = "NO USER" Then If ERROR_STATE = "NO USER" Then
@ -279,7 +281,7 @@ Public Class frmMain
SOURCE_INIT = Init_IDB() SOURCE_INIT = Init_IDB()
If SOURCE_INIT = True Then If SOURCE_INIT = True Then
Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'" Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'"
IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "frmMainload-PM_IDPDOCDATA") IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, "frmMainload-PM_IDPDOCDATA")
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}") LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
End If End If
bsiGeneralInfo.Caption = "IDB active" bsiGeneralInfo.Caption = "IDB active"
@ -291,8 +293,8 @@ Public Class frmMain
RibbonPageGroupBasicConf.Visible = True RibbonPageGroupBasicConf.Visible = True
End If End If
LOGGER.Debug("MainForm initialized!") LOGGER.Debug("MainForm initialized!")
End If
FormOpenClose = False FormOpenClose = False
End Sub End Sub
Sub Check_Timer_Notification() Sub Check_Timer_Notification()
Try Try
@ -404,20 +406,6 @@ Public Class frmMain
Function Refresh_ConnectionString()
Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Return True
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_ConnectionString:")
Return False
End Try
End Function
Private Function GetXML_OverviewLayoutName() Private Function GetXML_OverviewLayoutName()
Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE) Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
@ -1342,7 +1330,7 @@ Public Class frmMain
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
CURRENT_DOC_PATH = DOC_PATH CURRENT_DOC_PATH = DOC_PATH
Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})" Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})"
Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, $"Item_Scope-FNPM_CHECK_DocGUID_Valid") Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, $"Item_Scope-FNPM_CHECK_DocGUID_Valid")
Try Try
If CBool(oResult) = True Then If CBool(oResult) = True Then
Load_Profil_from_Grid(oHitProfilID) Load_Profil_from_Grid(oHitProfilID)
@ -2087,7 +2075,7 @@ Public Class frmMain
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniGrundeinstellung.ItemClick Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniGrundeinstellung.ItemClick
Try Try
frmKonfig.ShowDialog() frmKonfig.ShowDialog()
Refresh_ConnectionString()
' Load_Profil() ' Load_Profil()
Check_Timer_Notification() Check_Timer_Notification()
Catch ex As Exception Catch ex As Exception
@ -2115,13 +2103,13 @@ Public Class frmMain
End Sub End Sub
Private Sub bbiProfilverwaltung_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiProfilverwaltung.ItemClick Private Sub bbiProfilverwaltung_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiProfilverwaltung.ItemClick
Dim AdminSecurity As Boolean = False 'Dim AdminSecurity As Boolean = False
AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity() 'AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
If AdminSecurity = True Then 'If AdminSecurity = True Then
frmLoginAdmin.ShowDialog() ' frmLoginAdmin.ShowDialog()
Else 'Else
frmAdministration.Show() frmAdministration.Show()
End If ' End If
End Sub End Sub
@ -2280,7 +2268,7 @@ Public Class frmMain
Dim oReceipiant = "" Dim oReceipiant = ""
Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)" Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, $"DateiAlsLinkVersendenToolStripMenuItem_Click") Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, $"DateiAlsLinkVersendenToolStripMenuItem_Click")
Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>" Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>"
Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>" Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>"
@ -2342,6 +2330,14 @@ Public Class frmMain
End If End If
INACTIVITYRecognized = True INACTIVITYRecognized = True
Dim omsg As String = "Sie wurden aufgrund von Inaktivität automatisch abgemeldet!"
If USER_LANGUAGE <> "de-DE" Then
omsg = "Due to inactivity we closed all actions and You were logged out automatically."
End If
Hide()
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
MsgBox(omsg, MsgBoxStyle.Information, ADDITIONAL_TITLE)
Application.Exit() Application.Exit()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex.Message) LOGGER.Error(ex.Message)

37
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -35,7 +35,7 @@ Public Class frmValidator
Public Shared WMDocPathWindows As String Public Shared WMDocPathWindows As String
Public WMDocFileString As String Public WMDocFileString As String
Private DocPathWindows As String
Dim OLD_Document_Path As String = "" Dim OLD_Document_Path As String = ""
Dim ValueDTP As Date Dim ValueDTP As Date
Dim AnzDoks As Integer Dim AnzDoks As Integer
@ -264,7 +264,7 @@ Public Class frmValidator
RibbonPageConversations.Visible = False RibbonPageConversations.Visible = False
If IDB_ACTIVE Then If IDB_ACTIVE Then
Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})" Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG") DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ, "FNIDB_OBJECT_DYNAMIC_CONFIG")
RibbonPageGroupConv1.Enabled = False RibbonPageGroupConv1.Enabled = False
Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS) Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS)
Debug.WriteLine(oView.Count, "oView before") Debug.WriteLine(oView.Count, "oView before")
@ -2377,13 +2377,6 @@ Public Class frmValidator
'process not found, return false 'process not found, return false
Return False Return False
End Function End Function
Function ReplaceWindreamDriveLetter(Filepath As String) As String
Return Filepath.
Replace("W:", "\\windream\objects").
Replace("K:", "\\windream\objects")
End Function
Function Get_Next_GUID() As Integer Function Get_Next_GUID() As Integer
Try Try
LOGGER.Debug("Get_Next_GUID...") LOGGER.Debug("Get_Next_GUID...")
@ -2466,20 +2459,23 @@ Public Class frmValidator
LOGGER.Debug($"Checking file 0 [{oResult}] exists?...") LOGGER.Debug($"Checking file 0 [{oResult}] exists?...")
WMDocPathWindows = String.Empty WMDocPathWindows = String.Empty
If File.Exists(oResult) = False Then If File.Exists(oResult) = False Then
LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") DocPathWindows = oResult
LOGGER.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...")
oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)"
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2") oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2")
LOGGER.Debug($"Checking file 1[{oResult}] exists?...") LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
If File.Exists(oResult) = False Then If File.Exists(oResult) = False Then
LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!") LOGGER.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!")
Return False DocPathWindows = oResult
End If LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!")
Return False
End If
End If End If
WMDocPathWindows = oResult WMDocPathWindows = oResult
OLD_Document_Path = WMDocPathWindows OLD_Document_Path = WMDocPathWindows
CURRENT_DOC_PATH = WMDocPathWindows CURRENT_DOC_PATH = WMDocPathWindows
LOGGER.Debug($"CURRENT_DOC_PATH: {CURRENT_DOC_PATH}") LOGGER.Info($"GetWMDocPathWindows CURRENT_DOC_PATH: {CURRENT_DOC_PATH}")
Return True Return True
Catch ex As Exception Catch ex As Exception
WMDocPathWindows = "" WMDocPathWindows = ""
@ -2549,7 +2545,8 @@ 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 GetDocPathWindows(0) = False Then If GetDocPathWindows(0) = False Then
MsgBox("The file can not be diplayed!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) SetStatusLabel($"File not accessable: {DocPathWindows}", "DarkOrange")
MsgBox("The file can not be diplayed or is not accessable!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If End If
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If CreateWMObject() = False Then If CreateWMObject() = False Then
@ -3606,7 +3603,7 @@ Public Class frmValidator
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut" Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut"
Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ)
If Not IsNothing(oDTINFO) Then If Not IsNothing(oDTINFO) Then
Dim oColor As System.Drawing.Color Dim oColor As System.Drawing.Color
If oDTINFO.Rows.Count > 0 Then If oDTINFO.Rows.Count > 0 Then
@ -5458,7 +5455,7 @@ Public Class frmValidator
result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'" Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
If ClassDatabase.Execute_non_Query_ConStr(oSQL, CONNECTION_STRING_IDB, "EXEC PRIDB_END_CONVERSATION") = True Then If ClassDatabase.Execute_non_Query_ConStr(oSQL, CONNECTION_STRING_IDB_WRITE, "EXEC PRIDB_END_CONVERSATION") = True Then
btnitemConversationEnd.Enabled = False btnitemConversationEnd.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True SplitContainer2_DV_Chat.Collapsed = True
btnitemConversationEnd.Enabled = True btnitemConversationEnd.Enabled = True