AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bugfixing Logging

Browse Source
This commit is contained in:
Developer01 2025-07-18 15:41:45 +02:00
parent cfe631a568
commit e62741c0ac
21 changed files with 231 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organizer/Classes/ClassDocGrid.vb
View File

@ -12,6 +12,8 @@ Public Class ClassDocGrid
Public Class clsWMDoc Public Class clsWMDoc
Public Property DocId As Integer Public Property DocId As Integer
Public Property ParentID As Integer
Public Property DocPath As String Public Property DocPath As String
Public Property Filename As String Public Property Filename As String
Public Property DisplayName As String Public Property DisplayName As String
@ -107,6 +109,8 @@ Public Class ClassDocGrid
For Each oRowHandle In oSelectedRows For Each oRowHandle In oSelectedRows
Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID") Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
Dim oSQL = $"Select dwParentID FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
Dim odwParentID = MYDB_ECM.GetScalarValue(oSQL)
Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname") Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH") Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE") Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
@ -115,6 +119,7 @@ Public Class ClassDocGrid
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User") Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User")
oDocuments.Add(New clsWMDoc With { oDocuments.Add(New clsWMDoc With {
.DocId = oDocId, .DocId = oDocId,
.ParentID = odwParentID,
.DocPath = oDocPath, .DocPath = oDocPath,
.DocType = oObjecttype, .DocType = oObjecttype,
.DisplayName = oDisplayName, .DisplayName = oDisplayName,
@ -144,10 +149,16 @@ Public Class ClassDocGrid
If CHeckDT.Rows.Count = 1 Then If CHeckDT.Rows.Count = 1 Then
SELECTED_DOC_ID = DOC_ID SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID") newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
Else
If Not IsNothing(DOC_ID) Then
SELECTED_DOC_ID = DOC_ID
Else Else
Continue For Continue For
End If End If
End If
Catch ex As Exception Catch ex As Exception
newRow("DOC_ID") = 0 newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0 SELECTED_DOC_ID = 0

36
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@ -5,6 +5,8 @@ Imports System.ComponentModel
Public Class ClassHelper Public Class ClassHelper
Private Shared BW_DocPath As String Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer Private Shared BW_DocID As Integer
Private Shared BW_ParentID As Integer
Private Shared BW_Filename As String
Public Shared Function FORMAT_WM_PATH(WMpath As String) Public Shared Function FORMAT_WM_PATH(WMpath As String)
Try Try
If Not IsNothing(WMpath) Then If Not IsNothing(WMpath) Then
@ -174,9 +176,15 @@ Public Class ClassHelper
Return System.Text.RegularExpressions.Regex.Replace( Return System.Text.RegularExpressions.Regex.Replace(
sFilename, "[?*^""<>|]", REPLACEChar) sFilename, "[?*^""<>|]", REPLACEChar)
End Function End Function
Public Shared Function File_open(RESULT_DOC_PATH As Object, DocID As String) Public Shared Function File_open(RESULT_DOC_PATH As Object, DocID As String, pParentID As Integer)
Try Try
Dim oFileName = Path.GetFileName(RESULT_DOC_PATH)
BW_Filename = oFileName
RESULT_DOC_PATH = FORMAT_WM_PATH(RESULT_DOC_PATH) RESULT_DOC_PATH = FORMAT_WM_PATH(RESULT_DOC_PATH)
If pParentID = 0 Then
Dim sql = String.Format("SELECT dwParentID FROM TBPMO_DOCRESULT_LIST WHERE DocID = {0}", DocID)
pParentID = MYDB_ECM.GetScalarValue(sql)
End If
If SHARE_DRIVE_ACTIVE Then If SHARE_DRIVE_ACTIVE Then
If RESULT_DOC_PATH.ToString.StartsWith(constWMOBJECTS) Then If RESULT_DOC_PATH.ToString.StartsWith(constWMOBJECTS) Then
RESULT_DOC_PATH = RESULT_DOC_PATH.ToString.Replace(constWMOBJECTS, WMPATH_PREFIX) RESULT_DOC_PATH = RESULT_DOC_PATH.ToString.Replace(constWMOBJECTS, WMPATH_PREFIX)
@ -196,7 +204,7 @@ Public Class ClassHelper
' OPEN_DOCVIEW(RESULT_DOC_PATH, DocID) ' OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
' End Select ' End Select
' Else ' Else
File_SYSOPEN(RESULT_DOC_PATH, DocID) File_SYSOPEN(RESULT_DOC_PATH, DocID, pParentID)
'End If 'End If
Return True Return True
Else Else
@ -237,20 +245,22 @@ Public Class ClassHelper
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in DocView Open:" & vbNewLine & ex.Message & vbNewLine & Doc_Path & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical) MsgBox("Unexpected Error in DocView Open:" & vbNewLine & ex.Message & vbNewLine & Doc_Path & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
LOGGER.Warn("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID) LOGGER.Warn("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID)
File_SYSOPEN(Doc_Path, DocID) File_SYSOPEN(Doc_Path, DocID, 0)
End Try End Try
End Sub End Sub
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String) Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String, pParentID As Integer)
Try Try
If RESULT_DOC_PATH <> Nothing Then If RESULT_DOC_PATH <> Nothing Then
BW_DocPath = RESULT_DOC_PATH BW_DocPath = RESULT_DOC_PATH
BW_DocID = DocID BW_DocID = DocID
BW_ParentID = pParentID
Dim BWFileHandler As New BackgroundWorker Dim BWFileHandler As New BackgroundWorker
AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
BWFileHandler.RunWorkerAsync() BWFileHandler.RunWorkerAsync()
Else
LOGGER.Warn("File_SYSOPEN RESULT_DOC_PATH is nothing")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical) MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
@ -275,15 +285,21 @@ Public Class ClassHelper
oExtension = Path.GetExtension(BW_DocPath).ToLower oExtension = Path.GetExtension(BW_DocPath).ToLower
LOGGER.Debug($"Checking oExtension [{oExtension}]...") LOGGER.Debug($"Checking oExtension [{oExtension}]...")
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}" oSql = $"SELECT * FROM VWOF_DOCID_HANDLE WHERE dwParentID = {BW_ParentID} and [Filename] = '{BW_Filename}'"
Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql) Dim oDTNEWDoc As DataTable = MYDB_ECM.GetDatatable(oSql)
If Not IsNothing(odwVersionId) Then
Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')" If Not IsNothing(oDTNEWDoc) Then
If oDTNEWDoc.Rows.Count = 1 Then
Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,NEW_DOC_ID, DOC_PATH) VALUES (
{USER_GUID},'{ProcID.ToString}',{oDTNEWDoc.Rows(0).Item("dwVersionID")},{BW_DocID},{oDTNEWDoc.Rows(0).Item("NewDocID")}, '{BW_DocPath}')"
MYDB_ECM.ExecuteNonQuery(oInsert) MYDB_ECM.ExecuteNonQuery(oInsert)
End If End If
End If
End If End If
'oMyProcess.WaitForExit()
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID) LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
MsgBox("Error in OpenFile: " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, MsgBoxStyle.Exclamation) MsgBox("Error in OpenFile: " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, MsgBoxStyle.Exclamation)

2
app/DD-Record-Organizer/Classes/ClassImport_Windream.vb
View File

@ -20,7 +20,7 @@ Public Class ClassImport_Windream
End If End If
'Die Datei nach windream importieren 'Die Datei nach windream importieren
Dim streamresult = WMMOD.NewFileStream(QuellDatei_Path, Targetpath, WMOBJECTTYPE) Dim streamresult = WMMOD.NewFileStream(QuellDatei_Path, Targetpath, WMOBJECTTYPE, True)
If streamresult = True Then If streamresult = True Then
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE FULL_FILENAME = '{0}' AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD) Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE FULL_FILENAME = '{0}' AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql) CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)

27
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@ -199,6 +199,8 @@ Public Class ClassInit
ElseIf oRow.Item("TITLE") = "OF_NODE_SEARCH" Then ElseIf oRow.Item("TITLE") = "OF_NODE_SEARCH" Then
SQL_OF_NODE_SEARCH = oRow.Item("SQL_COMMAND") SQL_OF_NODE_SEARCH = oRow.Item("SQL_COMMAND")
ElseIf oRow.Item("TITLE") = "LIC_COUNT_NAMED" Then
SQL_LIC_NAMED_USER = oRow.Item("SQL_COMMAND")
End If End If
@ -470,22 +472,30 @@ Public Class ClassInit
MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
End Try End Try
If SQL_LIC_NAMED_USER <> "" Then
SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@MODULE", "Record-Organizer")
SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@CLIENT", CLIENT_SELECTED.ToString)
oFNSQL = SQL_LIC_NAMED_USER
Else
oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED) oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED)
End If
Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL) Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL)
USERS_LOGGED_IN = CInt(anzahl) LICENSES_USED = CInt(anzahl)
LOGGER.Info("User# logged in: " & anzahl.ToString) LOGGER.Info("NamedUser in TimeSpan#: " & anzahl.ToString)
LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString) LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString)
'#### '####
If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) And LICENSE_EXPIRED = False Then If LICENSE_COUNT <= (LICENSES_USED) And LICENSE_EXPIRED = False Then
Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_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!") Dim msg = String.Format("Die Anzahl der aktuell verbrauchten Lizenzen (" & LICENSES_USED.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine & msg = String.Format("The number of USED licenses (" & LICENSES_USED.ToString & ") exceeds the number of licenses." & vbNewLine &
"Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!") "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) MsgBox(msg, MsgBoxStyle.Exclamation)
LOGGER.Warn("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ") LOGGER.Warn("The number of USED licenses (" & LICENSES_USED.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen 'Anmeldung wieder herausnehmen
oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'" oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
@ -493,6 +503,11 @@ Public Class ClassInit
LOGGER.Warn(" - logged out the user") LOGGER.Warn(" - logged out the user")
Return False Return False
End If End If
ElseIf LICENSE_EXPIRED = True Then
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact your admin!", MsgBoxStyle.Exclamation)
oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
MYDB_ECM.ExecuteNonQuery(oFNSQL)
Return False
Else Else
Try Try
'Die FolderWatch starten 'Die FolderWatch starten

2
app/DD-Record-Organizer/Classes/ClassLicence.vb
View File

@ -103,7 +103,7 @@ Public Class ClassLicence
End Try End Try
End Sub End Sub
Public Shared Function license_is_Valid() Public Shared Function license_is_Expired()
If LICENSE_EXPIRED Then If LICENSE_EXPIRED Then
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation) MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation)
Return False Return False

2
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@ -55,7 +55,7 @@ Module ModuleMySettings
Public USER_IS_ADMIN = False Public USER_IS_ADMIN = False
Public USER_IS_SUPERVISOR = False Public USER_IS_SUPERVISOR = False
Public USERS_LOGGED_IN = 0 Public LICENSES_USED = 0
Public USER_USERNAME As String Public USER_USERNAME As String
Public USER_PERSONIFIED_TEST As Boolean = False Public USER_PERSONIFIED_TEST As Boolean = False

2
app/DD-Record-Organizer/ModuleRuntimeVariables.vb
View File

@ -201,6 +201,8 @@ Module ModuleRuntimeVariables
Public SQL_DOC_RESULT_RECORD As String = "" Public SQL_DOC_RESULT_RECORD As String = ""
Public SQL_GLOBAL_SEARCH As String = "" Public SQL_GLOBAL_SEARCH As String = ""
Public SQL_OF_NODE_SEARCH As String = "" Public SQL_OF_NODE_SEARCH As String = ""
Public SQL_LIC_NAMED_USER As String = ""
Public SQL_LIC_NAMED_USER_WITH_PATTERN As String = ""
Public CONF_SUPPORTPORTAL As String = "https://www.digitaldata.works/Support'" Public CONF_SUPPORTPORTAL As String = "https://www.digitaldata.works/Support'"
Public Property FILESYSTEM As FilesystemEx Public Property FILESYSTEM As FilesystemEx

2
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.4.2.0")> <Assembly: AssemblyVersion("3.4.3.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

2
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -6774,7 +6774,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Exit Sub Exit Sub
End If End If
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) = True Then If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"), 0) = True Then
TimerFileHandle.Enabled = True TimerFileHandle.Enabled = True
End If End If

29
app/DD-Record-Organizer/frmDocSearchResult.Designer.vb generated
View File

@ -23,7 +23,7 @@ Partial Class frmDocSearchResult
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocSearchResult)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocSearchResult))
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl() Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
@ -46,12 +46,13 @@ Partial Class frmDocSearchResult
Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem() Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = 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.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.DateienVerknüpfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripResultFiles.SuspendLayout() Me.ContextMenuStripResultFiles.SuspendLayout()
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
@ -68,8 +69,8 @@ Partial Class frmDocSearchResult
' '
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode2.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0) Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch" Me.GridControlDocSearch.Name = "GridControlDocSearch"
@ -81,9 +82,9 @@ Partial Class frmDocSearchResult
'ContextMenuStripResultFiles 'ContextMenuStripResultFiles
' '
Me.ContextMenuStripResultFiles.ImageScalingSize = New System.Drawing.Size(20, 20) Me.ContextMenuStripResultFiles.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator20, Me.docCM_Showlinks, Me.ToolStripSeparator22, Me.docCM_PropertiesFile, Me.ToolStripSeparator25}) Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator20, Me.docCM_Showlinks, Me.DateienVerknüpfenToolStripMenuItem, Me.ToolStripSeparator22, Me.docCM_PropertiesFile, Me.ToolStripSeparator25})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles" Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
Me.ContextMenuStripResultFiles.Size = New System.Drawing.Size(256, 152) Me.ContextMenuStripResultFiles.Size = New System.Drawing.Size(256, 200)
' '
'docCM_Open 'docCM_Open
' '
@ -232,6 +233,12 @@ Partial Class frmDocSearchResult
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Funktionen" Me.RibbonPageGroup1.Text = "Funktionen"
' '
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.bchlitmPreview)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Datei"
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
@ -281,11 +288,12 @@ Partial Class frmDocSearchResult
Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1" Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
Me.XtraSaveFileDialog1.Filter = """xlsx-Dateien|*.xlsx""" Me.XtraSaveFileDialog1.Filter = """xlsx-Dateien|*.xlsx"""
' '
'RibbonPageGroup2 'DateienVerknüpfenToolStripMenuItem
' '
Me.RibbonPageGroup2.ItemLinks.Add(Me.bchlitmPreview) Me.DateienVerknüpfenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.DateienVerknüpfenToolStripMenuItem.Name = "DateienVerknüpfenToolStripMenuItem"
Me.RibbonPageGroup2.Text = "Datei" Me.DateienVerknüpfenToolStripMenuItem.Size = New System.Drawing.Size(255, 26)
Me.DateienVerknüpfenToolStripMenuItem.Text = "Datei mit Datensatz verknüpfen"
' '
'frmDocSearchResult 'frmDocSearchResult
' '
@ -343,4 +351,5 @@ Partial Class frmDocSearchResult
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents DateienVerknüpfenToolStripMenuItem As ToolStripMenuItem
End Class End Class

21
app/DD-Record-Organizer/frmDocSearchResult.vb
View File

@ -147,7 +147,7 @@ Public Class frmDocSearchResult
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
ClassHelper.File_open(SelectedFULL_FILEPATH, SelectedDocID) ClassHelper.File_open(SelectedFULL_FILEPATH, SelectedDocID, 0)
If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True) If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True)
Else Else
@ -328,4 +328,23 @@ Public Class frmDocSearchResult
LoadFile2Viewer() LoadFile2Viewer()
End If End If
End Sub End Sub
Private Sub DateienVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateienVerknüpfenToolStripMenuItem.Click
Try
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Dim oDocuments = ClassDocGrid.SELECTED_DOCUMENTS
If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
oForm.Show()
Catch ex As Exception
MsgBox("Unexpected Error in Showing DocRecordLink-Form: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class End Class

20
app/DD-Record-Organizer/frmGlobalSearch.Designer.vb generated
View File

@ -36,6 +36,7 @@ Partial Class frmGlobalSearch
Me.tslblDocView = New System.Windows.Forms.ToolStripLabel() Me.tslblDocView = New System.Windows.Forms.ToolStripLabel()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.lblFT_Irregular = New System.Windows.Forms.Label() Me.lblFT_Irregular = New System.Windows.Forms.Label()
Me.txtSearch = New System.Windows.Forms.TextBox() Me.txtSearch = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
@ -61,7 +62,6 @@ Partial Class frmGlobalSearch
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.DD_ECMAdmin1 = New DD_Record_Organizer.DD_ECMAdmin() Me.DD_ECMAdmin1 = New DD_Record_Organizer.DD_ECMAdmin()
Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.Panel1.SuspendLayout() Me.SplitContainerMain.Panel1.SuspendLayout()
@ -195,6 +195,13 @@ Partial Class frmGlobalSearch
resources.ApplyResources(Me.Panel1, "Panel1") resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
' '
'LabelControl1
'
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1"
'
'lblFT_Irregular 'lblFT_Irregular
' '
resources.ApplyResources(Me.lblFT_Irregular, "lblFT_Irregular") resources.ApplyResources(Me.lblFT_Irregular, "lblFT_Irregular")
@ -306,18 +313,21 @@ Partial Class frmGlobalSearch
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.AllowTextClipping = False
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
' '
'RibbonPageGroupRecords 'RibbonPageGroupRecords
' '
Me.RibbonPageGroupRecords.AllowTextClipping = False
Me.RibbonPageGroupRecords.ItemLinks.Add(Me.BarButtonItem9) Me.RibbonPageGroupRecords.ItemLinks.Add(Me.BarButtonItem9)
Me.RibbonPageGroupRecords.Name = "RibbonPageGroupRecords" Me.RibbonPageGroupRecords.Name = "RibbonPageGroupRecords"
resources.ApplyResources(Me.RibbonPageGroupRecords, "RibbonPageGroupRecords") resources.ApplyResources(Me.RibbonPageGroupRecords, "RibbonPageGroupRecords")
' '
'RibbonPageGroupFiles 'RibbonPageGroupFiles
' '
Me.RibbonPageGroupFiles.AllowTextClipping = False
Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem8) Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem8)
@ -334,6 +344,7 @@ Partial Class frmGlobalSearch
' '
'RibbonPageGroup3 'RibbonPageGroup3
' '
Me.RibbonPageGroup3.AllowTextClipping = False
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleSearchCombined) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleSearchCombined)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleSearchRecord) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleSearchRecord)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleFulltext) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarToggleFulltext)
@ -362,13 +373,6 @@ Partial Class frmGlobalSearch
Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1" Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1") resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1")
' '
'LabelControl1
'
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1"
'
'frmGlobalSearch 'frmGlobalSearch
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")

54
app/DD-Record-Organizer/frmGlobalSearch.resx
View File

@ -156,12 +156,6 @@
<metadata name="ToolStripRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStripRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<data name="tslblRecordsResult.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 22</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
</data>
<data name="ToolStripRecords.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStripRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -234,12 +228,6 @@
<data name="ToolStripDokumente.Font" type="System.Drawing.Font, System.Drawing"> <data name="ToolStripDokumente.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value> <value>Tahoma, 9pt</value>
</data> </data>
<data name="tslblDocView.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold, Italic</value>
</data>
<data name="tslblDocView.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 22</value>
</data>
<data name="ToolStripDokumente.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStripDokumente.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -300,6 +288,18 @@
<data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="tslblRecordsResult.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 22</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
</data>
<data name="tslblDocView.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold, Italic</value>
</data>
<data name="tslblDocView.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 22</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -695,21 +695,6 @@
<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>Aktionen</value>
</data>
<data name="RibbonPageGroupRecords.Text" xml:space="preserve">
<value>Datensatz</value>
</data>
<data name="RibbonPageGroupFiles.Text" xml:space="preserve">
<value>Dateien</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Funktionen Tabelle</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Suchvariante</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Global Search</value> <value>Global Search</value>
</data> </data>
@ -746,6 +731,21 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageGroupRecords.Text" xml:space="preserve">
<value>Datensatz</value>
</data>
<data name="RibbonPageGroupFiles.Text" xml:space="preserve">
<value>Dateien</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Funktionen Tabelle</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Suchvariante</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>

2
app/DD-Record-Organizer/frmGlobalSearch.vb
View File

@ -428,7 +428,7 @@ Public Class frmGlobalSearch
Exit Sub Exit Sub
End If End If
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID) ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID, 0)
Next Next
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default

21
app/DD-Record-Organizer/frmMain.vb
View File

@ -211,19 +211,24 @@ Public Class frmMain
End Sub End Sub
Sub LoggedIn() Sub LoggedIn()
Try Try
Dim oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED) Dim oSQL As String = ""
If SQL_LIC_NAMED_USER <> "" Then
oSQL = SQL_LIC_NAMED_USER
Else
oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
End If
Dim anzahl = MYDB_ECM.GetScalarValue(oSQL) Dim anzahl = MYDB_ECM.GetScalarValue(oSQL)
USERS_LOGGED_IN = CInt(anzahl) LICENSES_USED = CInt(anzahl)
Catch ex As Exception Catch ex As Exception
End Try End Try
Dim msg = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString() Dim msg = "Anzahl verbrauchte Lizenzen: " & LICENSES_USED.ToString()
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "#User logged in: " & USERS_LOGGED_IN.ToString() msg = "#User logged in: " & LICENSES_USED.ToString()
End If End If
LabelLoggedIn.Caption = msg LabelLoggedIn.Caption = msg
LOGGER.Info(msg + "(+1)") LOGGER.Debug(msg)
End Sub End Sub
Sub Display_ConString() Sub Display_ConString()
Try Try
@ -413,7 +418,7 @@ Public Class frmMain
End If End If
Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
Dim Count = MYDB_ECM.GetScalarValue(SQL) Dim Count = MYDB_ECM.GetScalarValue(sql)
If Count = 0 Then If Count = 0 Then
btnGlobalSearch.Enabled = False btnGlobalSearch.Enabled = False
groupSearchAllOver.Visible = False groupSearchAllOver.Visible = False
@ -576,7 +581,7 @@ Public Class frmMain
End If End If
'Lizenz abgellaufen, überprüfen ob User Admin ist 'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then If LICENSE_COUNT <= (LICENSES_USED + 1) Then
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
LOGGER.Info("User is Admin - Timer will be started") LOGGER.Info("User is Admin - Timer will be started")
'If USER_LANGUAGE = "de-DE" Then 'If USER_LANGUAGE = "de-DE" Then
@ -793,7 +798,7 @@ Public Class frmMain
End Sub End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (LICENSES_USED + 1) Then
'If USER_LANGUAGE = "de-DE" Then 'If USER_LANGUAGE = "de-DE" Then
' MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information) ' MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
'Else 'Else

39
app/DD-Record-Organizer/frmNodeNavigation.Designer.vb generated
View File

@ -64,6 +64,8 @@ Partial Class frmNodeNavigation
Me.tsmiFileOpen = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileOpen = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileFolderOpen = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileFolderOpen = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileInWorkMultiple_Lock = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileInWorkMultiple_Free = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileInWork = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileInWork = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem()
@ -121,8 +123,7 @@ Partial Class frmNodeNavigation
Me.PopupMenu3 = New DevExpress.XtraBars.PopupMenu(Me.components) Me.PopupMenu3 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu4 = New DevExpress.XtraBars.PopupMenu(Me.components) Me.PopupMenu4 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components) Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.tsmiFileInWorkMultiple_Free = New System.Windows.Forms.ToolStripMenuItem() Me.DD_DMSDataSet1 = New DD_Record_Organizer.DD_DMSDataSet()
Me.tsmiFileInWorkMultiple_Lock = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -155,6 +156,7 @@ Partial Class frmNodeNavigation
CType(Me.PopupMenu3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PopupMenu3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PopupMenu4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PopupMenu4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PopupMenu5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PopupMenu5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ribbonNodeNavigation 'ribbonNodeNavigation
@ -493,7 +495,7 @@ Partial Class frmNodeNavigation
Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(18, 18) Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(18, 18)
Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWorkMultiple_Lock, Me.tsmiFileInWorkMultiple_Free, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLinkRemove, Me.tsmiFileLink_ShowAll, Me.LinkPerMailVersendenToolStripMenuItem, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete}) Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWorkMultiple_Lock, Me.tsmiFileInWorkMultiple_Free, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLinkRemove, Me.tsmiFileLink_ShowAll, Me.LinkPerMailVersendenToolStripMenuItem, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles" Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles"
Me.cmsResultFileDetail.Size = New System.Drawing.Size(315, 416) Me.cmsResultFileDetail.Size = New System.Drawing.Size(315, 394)
' '
'tsmiFileProperties 'tsmiFileProperties
' '
@ -526,6 +528,20 @@ Partial Class frmNodeNavigation
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(311, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(311, 6)
' '
'tsmiFileInWorkMultiple_Lock
'
Me.tsmiFileInWorkMultiple_Lock.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Lock.Image"), System.Drawing.Image)
Me.tsmiFileInWorkMultiple_Lock.Name = "tsmiFileInWorkMultiple_Lock"
Me.tsmiFileInWorkMultiple_Lock.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWorkMultiple_Lock.Text = "Ausgewählte Dateien in Bearbeitung nehmen"
'
'tsmiFileInWorkMultiple_Free
'
Me.tsmiFileInWorkMultiple_Free.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Free.Image"), System.Drawing.Image)
Me.tsmiFileInWorkMultiple_Free.Name = "tsmiFileInWorkMultiple_Free"
Me.tsmiFileInWorkMultiple_Free.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWorkMultiple_Free.Text = "Ausgewählte Dateien wieder freigeben"
'
'tsmiFileInWork 'tsmiFileInWork
' '
Me.tsmiFileInWork.Image = CType(resources.GetObject("tsmiFileInWork.Image"), System.Drawing.Image) Me.tsmiFileInWork.Image = CType(resources.GetObject("tsmiFileInWork.Image"), System.Drawing.Image)
@ -1011,19 +1027,10 @@ Partial Class frmNodeNavigation
Me.PopupMenu5.Manager = Me.BarManager1 Me.PopupMenu5.Manager = Me.BarManager1
Me.PopupMenu5.Name = "PopupMenu5" Me.PopupMenu5.Name = "PopupMenu5"
' '
'tsmiFileInWorkMultiple_Free 'DD_DMSDataSet1
' '
Me.tsmiFileInWorkMultiple_Free.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Free.Image"), System.Drawing.Image) Me.DD_DMSDataSet1.DataSetName = "DD_DMSDataSet"
Me.tsmiFileInWorkMultiple_Free.Name = "tsmiFileInWorkMultiple_Free" Me.DD_DMSDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
Me.tsmiFileInWorkMultiple_Free.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWorkMultiple_Free.Text = "Ausgewählte Dateien wieder freigeben"
'
'tsmiFileInWorkMultiple_Lock
'
Me.tsmiFileInWorkMultiple_Lock.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Lock.Image"), System.Drawing.Image)
Me.tsmiFileInWorkMultiple_Lock.Name = "tsmiFileInWorkMultiple_Lock"
Me.tsmiFileInWorkMultiple_Lock.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWorkMultiple_Lock.Text = "Ausgewählte Dateien in Bearbeitung nehmen"
' '
'frmNodeNavigation 'frmNodeNavigation
' '
@ -1074,6 +1081,7 @@ Partial Class frmNodeNavigation
CType(Me.PopupMenu3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PopupMenu3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PopupMenu4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PopupMenu4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PopupMenu5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PopupMenu5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1177,4 +1185,5 @@ Partial Class frmNodeNavigation
Friend WithEvents LinkPerMailVersendenToolStripMenuItem As ToolStripMenuItem Friend WithEvents LinkPerMailVersendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tsmiFileInWorkMultiple_Free As ToolStripMenuItem Friend WithEvents tsmiFileInWorkMultiple_Free As ToolStripMenuItem
Friend WithEvents tsmiFileInWorkMultiple_Lock As ToolStripMenuItem Friend WithEvents tsmiFileInWorkMultiple_Lock As ToolStripMenuItem
Friend WithEvents DD_DMSDataSet1 As DD_DMSDataSet
End Class End Class

3
app/DD-Record-Organizer/frmNodeNavigation.resx
View File

@ -1115,4 +1115,7 @@
<metadata name="PopupMenu5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>143, 91</value> <value>143, 91</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>616, 91</value>
</metadata>
</root> </root>

56
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@ -964,7 +964,7 @@ Public Class frmNodeNavigation
'Refresh_Navpane() 'Refresh_Navpane()
Update_Record_Label(SELECTED_NODE_RECORD_ID) Update_Record_Label(SELECTED_NODE_RECORD_ID)
Dim oDocumentsFound = Await RUN_WDSEARCH_GRID(True) Dim oDocumentsFound = Await RUN_DOCSEARCH(True)
If ViewerInit Then If ViewerInit Then
If oDocumentsFound = 0 Then If oDocumentsFound = 0 Then
@ -1674,7 +1674,7 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Customer_Run_Procedures: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Customer_Run_Procedures: ", ex.Message)
End Try End Try
End Sub End Sub
Private Async Function RUN_WDSEARCH_GRID(pShowSplashscreen As Boolean) As Task(Of Integer) Private Async Function RUN_DOCSEARCH(pShowSplashscreen As Boolean) As Task(Of Integer)
Dim oHandle As IOverlaySplashScreenHandle Dim oHandle As IOverlaySplashScreenHandle
If pShowSplashscreen Then If pShowSplashscreen Then
oHandle = SplashScreenManager.ShowOverlayForm(Me) oHandle = SplashScreenManager.ShowOverlayForm(Me)
@ -2062,7 +2062,7 @@ Public Class frmNodeNavigation
GridControlDocSearch.DataSource = Nothing GridControlDocSearch.DataSource = Nothing
GridViewDoc_Search.Columns.Clear() GridViewDoc_Search.Columns.Clear()
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
Else Else
MsgBox("Resetting the layout was not successful - File not existing!", MsgBoxStyle.Information) MsgBox("Resetting the layout was not successful - File not existing!", MsgBoxStyle.Information)
@ -2178,7 +2178,7 @@ Public Class frmNodeNavigation
'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren 'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
If NEW_FILES_ADDED = True Then If NEW_FILES_ADDED = True Then
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID) ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
TimerClearResultfiles.Start() TimerClearResultfiles.Start()
Else Else
@ -2613,7 +2613,7 @@ Public Class frmNodeNavigation
' End If ' End If
'Next 'Next
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search) For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If ClassHelper.File_open(oDoc.DocPath, oDoc.DocId) = True Then If ClassHelper.File_open(oDoc.DocPath, oDoc.DocId, oDoc.ParentID) = True Then
TimerFileHandle.Enabled = True TimerFileHandle.Enabled = True
End If End If
Next Next
@ -2702,7 +2702,7 @@ Public Class frmNodeNavigation
Dim msg1 As String Dim msg1 As String
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Or USER_IS_SUPERVISOR Then If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Or USER_IS_SUPERVISOR Then
If ClassFileResult.Set_InWork(0, "") = True Then If ClassFileResult.Set_InWork(0, "") = True Then
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
End If End If
Else Else
msglbl = "In Bearbeitung durch User '" & IW_USER & "' - Kommentar:" msglbl = "In Bearbeitung durch User '" & IW_USER & "' - Kommentar:"
@ -2716,7 +2716,7 @@ Public Class frmNodeNavigation
frmFileInWork.myDocuments = mySelectedDocs frmFileInWork.myDocuments = mySelectedDocs
frmFileInWork.ShowDialog() frmFileInWork.ShowDialog()
ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
End If End If
End If End If
@ -2746,7 +2746,7 @@ Public Class frmNodeNavigation
Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
Dim frm As New frmFileRename(ClassFileResult.DocID, oDocuments.First.DisplayName, "Displayname", ClassFileResult.DocumentPath) Dim frm As New frmFileRename(ClassFileResult.DocID, oDocuments.First.DisplayName, "Displayname", ClassFileResult.DocumentPath)
frm.ShowDialog() frm.ShowDialog()
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
If Not IsNothing(oRowHandle) Then If Not IsNothing(oRowHandle) Then
GridViewDoc_Search.FocusedRowHandle = oRowHandle GridViewDoc_Search.FocusedRowHandle = oRowHandle
End If End If
@ -2791,7 +2791,7 @@ Public Class frmNodeNavigation
Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
Dim frm As New frmFileRename(ClassFileResult.DocID, FileToRename, "Filename", RENAME_DOC_PATH) Dim frm As New frmFileRename(ClassFileResult.DocID, FileToRename, "Filename", RENAME_DOC_PATH)
frm.ShowDialog() frm.ShowDialog()
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
If Not IsNothing(oRowHandle) Then If Not IsNothing(oRowHandle) Then
GridViewDoc_Search.FocusedRowHandle = oRowHandle GridViewDoc_Search.FocusedRowHandle = oRowHandle
End If End If
@ -2846,7 +2846,7 @@ Public Class frmNodeNavigation
Catch ex As Exception Catch ex As Exception
NNLogger.Error(ex) NNLogger.Error(ex)
NNLogger.Error(ex) NNLogger.Error(ex)
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Showing DocRecordLink-Form (NodeNavigation): " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Sub Refresh_Selected_Table() Sub Refresh_Selected_Table()
@ -2917,7 +2917,7 @@ Public Class frmNodeNavigation
If ClassFileResult.Delete_ResultFile(oDoc.DocId, CURRENT_RECORD_ID, 0) = True Then If ClassFileResult.Delete_ResultFile(oDoc.DocId, CURRENT_RECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
End If End If
@ -2937,7 +2937,7 @@ Public Class frmNodeNavigation
ClassFileResult.DocID = oDocuments.First.DocId ClassFileResult.DocID = oDocuments.First.DocId
ClassFileResult.DocumentPath = oDocuments.First.DocPath ClassFileResult.DocumentPath = oDocuments.First.DocPath
frmWM_CreateVersion.ShowDialog() frmWM_CreateVersion.ShowDialog()
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
Else Else
MsgBox("Please choose only one document!", MsgBoxStyle.Exclamation) MsgBox("Please choose only one document!", MsgBoxStyle.Exclamation)
End If End If
@ -2994,7 +2994,7 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Async Sub bbtnitmDocResultRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmDocResultRefresh.ItemClick Private Async Sub bbtnitmDocResultRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmDocResultRefresh.ItemClick
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
End Sub End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@ -3307,7 +3307,7 @@ Public Class frmNodeNavigation
End If End If
Next Next
RUN_WDSEARCH_GRID(True) RUN_DOCSEARCH(True)
End If End If
@ -3397,7 +3397,7 @@ Public Class frmNodeNavigation
If CURRENT_SEARCH_TYPE = "ENTITY" Then If CURRENT_SEARCH_TYPE = "ENTITY" Then
CURRENT_DT_DOC_ENTITY_SEARCH = Nothing CURRENT_DT_DOC_ENTITY_SEARCH = Nothing
End If End If
RUN_WDSEARCH_GRID(True) RUN_DOCSEARCH(True)
End If End If
End Sub End Sub
@ -3407,19 +3407,21 @@ Public Class frmNodeNavigation
Private Sub TimerFileHandle_Tick(sender As Object, e As EventArgs) Handles TimerFileHandle.Tick Private Sub TimerFileHandle_Tick(sender As Object, e As EventArgs) Handles TimerFileHandle.Tick
Try Try
Dim oSql = $"SELECT GUID FROM TBPMO_DOC_USER_REFRESH_VIEW WHERE USER_ID = {USER_GUID} AND REFRESHED_WHEN IS NULL" Dim oSql = $"SELECT GUID FROM TBPMO_DOC_USER_REFRESH_VIEW WHERE USER_ID IN ({USER_GUID},0) AND REFRESHED_WHEN IS NULL"
Dim oDTGUID As DataTable = MYDB_ECM.GetDatatable(oSql) Dim oDTGUID As DataTable = MYDB_ECM.GetDatatable(oSql)
If oDTGUID.Rows.Count = 1 Then If oDTGUID.Rows.Count >= 1 Then
Dim oupd = $"UPDATE TBPMO_DOC_USER_REFRESH_VIEW SET REFRESHED_WHEN = GETDATE() WHERE GUID = {oDTGUID.Rows(0).Item(0)}" Dim omsg = "Attention: The DocID of one document changed or a document has been versioned! The DocSearch has been refreshed!"
If MYDB_ECM.ExecuteNonQuery(oupd) = True Then Update_Notification_Label(True, omsg, "Yellow")
MsgBox("Attention: The docID of one document changed! The DocSearch will be refreshed!", MsgBoxStyle.Information) For Each oROW As DataRow In oDTGUID.Rows
RUN_WDSEARCH_GRID(True) Dim oupd = $"UPDATE TBPMO_DOC_USER_REFRESH_VIEW Set REFRESHED_WHEN = GETDATE() WHERE GUID = {oROW.Item(0)}"
End If MYDB_ECM.ExecuteNonQuery(oupd)
Next
RUN_DOCSEARCH(True)
End If End If
Catch ex As Exception Catch ex As Exception
NNLogger.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!") NNLogger.Warn($"Unexpected Error In TimerFileHandleTick [{ex.Message}]!!")
End Try End Try
End Sub End Sub
Private Function GetActiveGridControl() As GridControl Private Function GetActiveGridControl() As GridControl
@ -3446,13 +3448,13 @@ Public Class frmNodeNavigation
oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
End If End If
Else Else
MessageBox.Show("Please select a grid/table that you would like to export.", Text, MessageBoxButtons.OK) MessageBox.Show("Please Select a grid/table that you would Like To export.", Text, MessageBoxButtons.OK)
End If End If
End Sub End Sub
Private Async Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click Private Async Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click
If CURRENT_NODEID <> 0 Then If CURRENT_NODEID <> 0 Then
Dim result As DialogResult = MessageBox.Show("Wollen Sie fortfahren? Der Knoten wird in Folge mit den Unterknoten als gelöscht markiert!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Dim result As DialogResult = MessageBox.Show("Wollen Sie fortfahren? Der Knoten wird In Folge mit den Unterknoten als gelöscht markiert!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = System.Windows.Forms.DialogResult.Yes Then If result = System.Windows.Forms.DialogResult.Yes Then
Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODEID}, '{USER_USERNAME}', 1, 0" Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODEID}, '{USER_USERNAME}', 1, 0"
If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then
@ -3492,12 +3494,12 @@ Public Class frmNodeNavigation
End If End If
End If End If
Next Next
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
End Sub End Sub
Private Async Sub tsmiFileInWorkMultiple_Lock_Click(sender As Object, e As EventArgs) Handles tsmiFileInWorkMultiple_Lock.Click Private Async Sub tsmiFileInWorkMultiple_Lock_Click(sender As Object, e As EventArgs) Handles tsmiFileInWorkMultiple_Lock.Click
frmFileInWork.myDocuments = mySelectedDocs frmFileInWork.myDocuments = mySelectedDocs
frmFileInWork.ShowDialog() frmFileInWork.ShowDialog()
Await RUN_WDSEARCH_GRID(True) Await RUN_DOCSEARCH(True)
End Sub End Sub
End Class End Class

6
app/DD-Record-Organizer/frmRecordView.vb
View File

@ -453,7 +453,7 @@ Public Class frmRecordView
Exit Sub Exit Sub
End If End If
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), 0) ClassHelper.File_open(row.Item("DOC_PATH"), 0, 0)
Next Next
End Sub End Sub
@ -464,7 +464,7 @@ Public Class frmRecordView
Exit Sub Exit Sub
End If End If
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), 0) ClassHelper.File_open(row.Item("DOC_PATH"), 0, 0)
Next Next
End Sub End Sub
@ -741,7 +741,7 @@ Public Class frmRecordView
Exit Sub Exit Sub
End If End If
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"), 0)
Next Next
End Sub End Sub

2
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@ -87,7 +87,7 @@ Public Class frmWM_IndexFile
'Stream File to windream 'Stream File to windream
'################################################################# '#################################################################
sw = New SW("File Stream") sw = New SW("File Stream")
Dim streamresult = WMMOD.NewFileStream(ImportFilePath, CURRENT_NEWFILENAME, OBJECT_TYPETextBox.Text) Dim streamresult = WMMOD.NewFileStream(ImportFilePath, CURRENT_NEWFILENAME, OBJECT_TYPETextBox.Text, True)
sw.Done() sw.Done()
'################################################################# '#################################################################
If streamresult = True Then If streamresult = True Then

9
app/Setup_NoUpdaterVS19/Product.wxs
View File

@ -188,7 +188,7 @@
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" /> <File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" /> <File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
<File Id="GdPicture.NET.14.Imaging.Rendering.Skia" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" /> <File Id="GdPicture.NET.14.Imaging.Rendering.Skia" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14..Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" /> <File Id="GdPicture.NET.14.Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.dll" /> <File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.dll" />
<File Id="GdPicture.NET.14.Common" Name="GdPicture.NET.14.Common.dll" /> <File Id="GdPicture.NET.14.Common" Name="GdPicture.NET.14.Common.dll" />
<File Id="GdPicture.NET.14.Imaging.Rendering" Name="GdPicture.NET.14.Imaging.Rendering.dll" /> <File Id="GdPicture.NET.14.Imaging.Rendering" Name="GdPicture.NET.14.Imaging.Rendering.dll" />
@ -200,7 +200,12 @@
<File Id="GdPicture.NET.14.OpenXML" Name="GdPicture.NET.14.OpenXML.dll" /> <File Id="GdPicture.NET.14.OpenXML" Name="GdPicture.NET.14.OpenXML.dll" />
<File Id="GdPicture.NET.14.Email" Name="GdPicture.NET.14.Email.dll" /> <File Id="GdPicture.NET.14.Email" Name="GdPicture.NET.14.Email.dll" />
<File Id="GdPicture.NET.14.HTML" Name="GdPicture.NET.14.HTML.dll" /> <File Id="GdPicture.NET.14.HTML" Name="GdPicture.NET.14.HTML.dll" />
<File Id="System.ValueTuple.dll" Name="System.ValueTuple.dll" /> <File Id="GdPicture.NET.14.MSOfficeBinary" Name="GdPicture.NET.14.MSOfficeBinary.dll"/>
<File Id="BouncyCastle.Cryptography" Name="BouncyCastle.Cryptography.dll"/>
<File Id="System.ValueTuple" Name="System.ValueTuple.dll" />
<File Id="System.IO.Packaging" Name="System.IO.Packaging.dll" />
</Component> </Component>
<!-- DEVEXPRESS Bibliotheken --> <!-- DEVEXPRESS Bibliotheken -->