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

Compare commits

base: AppStd:07a4c00b011989e4dcb4f549084fad00c3427bd3
Branches Tags
AppStd:master
AppStd:RibbonForm
...
compare: AppStd:a34f55702bf6c577e35ef8139594ac1c13b224ac
Branches Tags
AppStd:master
AppStd:RibbonForm

2 Commits
07a4c00b01 ... a34f55702b

Author SHA1 Message Date
Developer01
a34f55702b Verbesserungen 2025-12-05 14:02:41 +01:00
Developer01
5c0120cca8 3.4.4.0 2025-10-30 18:29:35 +01:00
35 changed files with 2200 additions and 1616 deletions
Show Stats Expand all files Collapse all files

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

@ -136,14 +136,19 @@ 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 oSQL = $"Select * FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
Dim odwParentID = MYDB_ECM.GetScalarValue(oSQL) Dim oDTRow As DataTable = MYDB_ECM.GetDatatable(oSQL)
Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
Dim odwParentID = oDTRow.Rows(0).Item("dwParentID")
Dim oDisplayName = oDTRow.Rows(0).Item("Display_name")
Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH") Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE") If IsNothing(oDocPath) Then
Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname") oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULL_FILENAME")
Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "in work?") End If
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User") Dim oObjecttype = oDTRow.Rows(0).Item("Objecttype")
Dim oFilename = oDTRow.Rows(0).Item("Filename")
Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "IN_WORK")
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "IN_WORK_USER")
oDocuments.Add(New clsWMDoc With { oDocuments.Add(New clsWMDoc With {
.DocId = oDocId, .DocId = oDocId,
.ParentID = odwParentID, .ParentID = odwParentID,
@ -171,6 +176,9 @@ Public Class ClassDocGrid
For Each row In gridView.GetSelectedRows For Each row In gridView.GetSelectedRows
Dim newRow As DataRow = DT_RESULTFILES.NewRow() Dim newRow As DataRow = DT_RESULTFILES.NewRow()
Dim oDocID = gridView.GetRowCellValue(row, "DocID") Dim oDocID = gridView.GetRowCellValue(row, "DocID")
If IsNothing(oDocID) Then
Exit Sub
End If
Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + oDocID.ToString, "") Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + oDocID.ToString, "")
Try Try
newRow("INWORK") = False newRow("INWORK") = False
@ -602,8 +610,6 @@ Public Class ClassDocGrid
Public Shared Sub GVDoc_Values_FocusedRowChanged(sender As GridView, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Public Shared Sub GVDoc_Values_FocusedRowChanged(sender As GridView, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
Try Try
ClassDocGrid.GetDocItems(sender) ClassDocGrid.GetDocItems(sender)
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message) LOGGER.Warn("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message)
MsgBox("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message, MsgBoxStyle.Critical)

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

@ -232,22 +232,6 @@ Public Class ClassHelper
LOGGER.Warn("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID) LOGGER.Warn("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
End Try End Try
End Sub End Sub
Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer)
Try
Dim DocView
DocView = Nothing
DocView = CreateObject("WMPViewXNG.Viewer")
' open the viewer
Dim viewer_string = Doc_Path.Substring(2)
DocView.ViewFile(viewer_string)
CURRENT_DOCVIEW_PATH = viewer_string
CURRENT_DOCVIEW = DocView
Catch ex As Exception
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)
File_SYSOPEN(Doc_Path, DocID, 0)
End Try
End Sub
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String, pParentID As Integer) 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
@ -270,51 +254,148 @@ Public Class ClassHelper
End Sub End Sub
Private Shared Sub BWFileHandler_DoWork() Private Shared Sub BWFileHandler_DoWork()
Try Try
Dim oOverrideRunPath As String = ""
Dim oExtension As String = Path.GetExtension(BW_DocPath).ToLower()
' Prüfen, ob eine spezielle Anwendung für die Dateierweiterung definiert ist
For Each oROW As DataRow In CURRENT_TBFILE_EXTENSION_OVERRIDE.Rows
If oExtension.Replace(".", "") = oROW.Item("FILE_EXTENSION").ToString().ToLower() Then
LOGGER.Debug($"Specific file extension override for [{oExtension}] found.")
oOverrideRunPath = oROW.Item("PROCESS").ToString()
Exit For
End If
Next
Dim oMyProcess As Process = Nothing
Dim oSql As String = ""
Dim oMyProcess = New Process()
Dim oExtension
Dim oSql
Try Try
'Dim oPSI As New ProcessStartInfo(BW_DocPath) ' ###### Startinfo vorbereiten ######
oMyProcess.StartInfo.FileName = BW_DocPath Dim startInfo As New ProcessStartInfo()
oMyProcess.StartInfo.UseShellExecute = True
oMyProcess.StartInfo.RedirectStandardOutput = False If oOverrideRunPath <> "" Then
oMyProcess.Start() startInfo.FileName = oOverrideRunPath
Dim ProcID = oMyProcess.GetCurrentProcess.Id startInfo.Arguments = $"""{BW_DocPath}"""
LOGGER.Debug($"Opening document [{BW_DocPath}] using override application [{oOverrideRunPath}].")
Else
startInfo.FileName = BW_DocPath
LOGGER.Debug($"Opening document [{BW_DocPath}] with system default application.")
End If
startInfo.UseShellExecute = True
startInfo.RedirectStandardOutput = False
If oOverrideRunPath <> "" Then
oMyProcess = Process.Start(startInfo)
Else
oMyProcess = Process.Start(BW_DocPath)
End If
' ###### Prozess starten ######
' ID des gestarteten Prozesses holen (nicht den eigenen!)
Dim ProcID As Integer = oMyProcess.Id
LOGGER.Debug($"Started process ID {ProcID} for document [{BW_DocPath}].")
' Warten, bis der Benutzer das Dokument geschlossen hat
oMyProcess.WaitForExit() oMyProcess.WaitForExit()
oExtension = Path.GetExtension(BW_DocPath).ToLower
LOGGER.Debug($"Checking oExtension [{oExtension}]...")
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
oSql = $"SELECT * FROM VWOF_DOCID_HANDLE WHERE dwParentID = {BW_ParentID} and [Filename] = '{BW_Filename}'"
Dim oDTNEWDoc As DataTable = MYDB_ECM.GetDatatable(oSql)
If Not IsNothing(oDTNEWDoc) Then ' Nachbearbeitung, wenn Format bearbeitbar ist
If oDTNEWDoc.Rows.Count = 1 Then oExtension = Path.GetExtension(BW_DocPath).ToLower()
LOGGER.Debug($"Checking if file extension [{oExtension}] may change during edit...")
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)
End If
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) And oOverrideRunPath = "" Then
End If LOGGER.Debug("Create possible Document change in TBPMO_DOC_ID_CHANGED.")
End If 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}',9999,{BW_DocID},0,'{BW_DocPath}')"
MYDB_ECM.ExecuteNonQuery(oInsert)
End If
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID) ' Fehler im Prozessstart oder während des Wartens
MsgBox("Error in OpenFile: " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, MsgBoxStyle.Exclamation) LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
Exit Sub MsgBox("Error in OpenFile: " & ex.Message & vbNewLine &
"Path: " & BW_DocPath & vbNewLine & "DocID: " & BW_DocID,
MsgBoxStyle.Exclamation, "Open File Error")
End Try End Try
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID) ' Fehler im gesamten Worker (z. B. Path nicht vorhanden)
LOGGER.Warn("General error in BWFileHandler_DoWork: " & ex.Message & vbNewLine &
" - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
' Letzter Versuch: Öffne mit Standardprogramm
Try Try
Process.Start(BW_DocPath) Process.Start(BW_DocPath)
LOGGER.Debug("Fallback: Document opened with default application.")
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID) LOGGER.Warn("Fallback error in Process.Start(): " & ex1.Message & vbNewLine &
" - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
End Try End Try
End Try End Try
End Sub End Sub
'Private Shared Sub BWFileHandler_DoWork()
' Try
' Dim oOverrideRunPath As String = ""
' Dim oExtension = Path.GetExtension(BW_DocPath).ToLower
' For Each oROW As DataRow In CURRENT_TBFILE_EXTENSION_OVERRIDE.Rows
' If oExtension.Replace(".", "") = oROW.Item("FILE_EXTENSION") Then
' LOGGER.Debug($"Specific fileextension override for extension [{oExtension}] found! ")
' oOverrideRunPath = oROW.Item("PROCESS")
' End If
' Next
' Dim oMyProcess = New Process()
' Dim oSql
' Try
' '######
' Dim startInfo As New ProcessStartInfo()
' If oOverrideRunPath <> "" Then
' startInfo.FileName = oOverrideRunPath
' startInfo.Arguments = """" & BW_DocPath & """"
' startInfo.UseShellExecute = True
' startInfo.RedirectStandardOutput = False
' Else
' startInfo.FileName = BW_DocPath
' startInfo.UseShellExecute = True
' startInfo.RedirectStandardOutput = False
' End If
' '#####
' oMyProcess.Start(startInfo)
' Dim myViewerProcessID = oMyProcess.Id
' oMyProcess.WaitForExit()
' oExtension = Path.GetExtension(BW_DocPath).ToLower
' LOGGER.Debug($"Checking oExtension [{oExtension}]...")
' If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
' oSql = $"SELECT * FROM VWOF_DOCID_HANDLE WHERE dwParentID = {BW_ParentID} and [Filename] = '{BW_Filename}'"
' Dim oDTNEWDoc As DataTable = MYDB_ECM.GetDatatable(oSql)
' 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},'{myViewerProcessID.ToString}',{oDTNEWDoc.Rows(0).Item("dwVersionID")},{BW_DocID},{oDTNEWDoc.Rows(0).Item("NewDocID")}, '{BW_DocPath}')"
' MYDB_ECM.ExecuteNonQuery(oInsert)
' End If
' End If
' End If
' Catch ex As Exception
' 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)
' Exit Sub
' End Try
' Catch ex As Exception
' LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
' Try
' Process.Start(BW_DocPath)
' Catch ex1 As Exception
' LOGGER.Warn("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
' End Try
' End Try
'End Sub
Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String) Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String)
Try Try
If PATH <> Nothing Then If PATH <> Nothing Then

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, True) Dim streamresult = WMMOD.NewFileStream(QuellDatei_Path, Targetpath, WMOBJECTTYPE)
If streamresult = True Then If streamresult = True Then
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE()) AND FULL_FILENAME = '{0}'", CURRENT_FILEIN_WD) Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE()) AND FULL_FILENAME = '{0}'", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql) CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)

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

@ -221,6 +221,11 @@ Public Class ClassInit
ElseIf oRow.Item("CAT_TITLE") = "WM_RWA2" Then ElseIf oRow.Item("CAT_TITLE") = "WM_RWA2" Then
WM_RWA2 = oRow.Item("CAT_STRING") WM_RWA2 = oRow.Item("CAT_STRING")
LOGGER.Debug("WM_RWA2 = " + WM_RWA1) LOGGER.Debug("WM_RWA2 = " + WM_RWA1)
ElseIf oRow.Item("CAT_TITLE") = "OF_FILESTORE_ENTITY" Then
OF_FILESTORE_ENTITY = oRow.Item("CAT_STRING")
Dim oSQL1 = String.Format("select A.GUID from TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B ON A.GUID = B.CONSTRUCT_ID WHERE B.FORM_ID = {0}", OF_FILESTORE_ENTITY)
OF_FILESTORE_CONSTRUCTOR = MYDB_ECM.GetScalarValue(oSQL1)
LOGGER.Debug(String.Format("OF_FILESTORE_ENTITY = {0}", OF_FILESTORE_ENTITY.ToString))
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
@ -237,8 +242,8 @@ Public Class ClassInit
CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql) CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql)
oSql = "select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID" oSql = "select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID"
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(oSql) CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(oSql)
'clsCURRENT.LOG_ERRORS_ONLY = DEBUG oSql = "SELECT * FROM TBFILE_EXTENSION_OVERRIDE"
CURRENT_TBFILE_EXTENSION_OVERRIDE = MYDB_ECM.GetDatatable(oSql)
oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE") oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(oSql) Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(oSql)
For Each oRow As DataRow In oDTFF_CHANGE.Rows For Each oRow As DataRow In oDTFF_CHANGE.Rows
@ -483,7 +488,7 @@ Public Class ClassInit
Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL) Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL)
LICENSES_USED = CInt(anzahl) LICENSES_USED = CInt(anzahl)
LOGGER.Info("NamedUser in TimeSpan#: " & anzahl.ToString) LOGGER.Info("NamedUser via SQL_LIC_NAMED_USER in TimeSpan: " & anzahl.ToString)
LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString) LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString)
'#### '####

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

@ -57,7 +57,7 @@ Public Class ClassJumpRecord
Exit Sub Exit Sub
End If End If
JUMP_STATE = STATE_ID JUMP_STATE = STATE_ID
JUMP_RECORD_ID = recordId JUMP_ID = recordId
'OpenFormConstructor(constructorId, recordId) 'OpenFormConstructor(constructorId, recordId)
OpenRecordView() OpenRecordView()
Catch ex As Exception Catch ex As Exception

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

@ -13,18 +13,22 @@ Public Class ClassLicence
Dim lic As String = MYDB_ECM.GetScalarValue(sql) Dim lic As String = MYDB_ECM.GetScalarValue(sql)
If lic = "" Then If lic = "" Then
LOGGER.Info($"Achtung es gibt keine Lizenz- Prüfe SQL [{sql}]")
LICENSE_COUNT = 0 LICENSE_COUNT = 0
LICENSE_DATE = "1900-01-01" LICENSE_DATE = "1900-01-01"
LICENSE_DOSSIER_COUNT = 0 LICENSE_DOSSIER_COUNT = 0
Exit Sub Exit Sub
End If End If
Dim licString = _lizenzManager.DecodeLicenseKey(lic) Dim licString = _lizenzManager.DecodeLicenseKey(lic)
LOGGER.Info("lic-String is: " & licString)
Dim split() = licString.ToString.Split("#") Dim split() = licString.ToString.Split("#")
If lic <> "" Then If lic <> "" Then
LICENSE_COUNT = split(0) LICENSE_COUNT = split(0)
Else Else
LICENSE_COUNT = 0 LICENSE_COUNT = 0
LOGGER.Info($"Achtung LICENSE_COUNT wird 0 - licString: [{licString}]")
End If End If
Dim LicDATEsplit() = split(1).ToString.Split("-") Dim LicDATEsplit() = split(1).ToString.Split("-")
Dim LICENSE_FILE_DATE As Date Dim LICENSE_FILE_DATE As Date

31
app/DD-Record-Organizer/ModuleHelperMethods.vb
View File

@ -262,8 +262,15 @@ Module ModuleHelperMethods
End Sub End Sub
Public Sub OpenFormConstructor(id As Integer, NodeNav As Boolean, EntityID As Int16, Optional pRecordId As Integer = -1) Public Sub OpenFormConstructor(id As Integer, NodeNav As Boolean, EntityID As Int16, Optional pJumpID As Integer = -1)
Try Try
If pJumpID <> -1 Then
' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
JUMP_ID = pJumpID
End If
If CURRENT_OPEN_CONSTRUCTOR_FORMS.Contains(id) Then If CURRENT_OPEN_CONSTRUCTOR_FORMS.Contains(id) Then
Dim frm1 As New frmConstructor_Main Dim frm1 As New frmConstructor_Main
frm1.Tag = id frm1.Tag = id
@ -275,6 +282,14 @@ Module ModuleHelperMethods
If frmCollection.Item(i).WindowState = FormWindowState.Minimized Then If frmCollection.Item(i).WindowState = FormWindowState.Minimized Then
frmCollection.Item(i).WindowState = FormWindowState.Normal frmCollection.Item(i).WindowState = FormWindowState.Normal
End If End If
CURRENT_CONSTRUCTOR_ID = id
CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
If pJumpID <> -1 Then
' Nur ausführen, wenn das Form tatsächlich JumptoNode unterstützt
If TypeOf frmCollection.Item(i) Is frmNodeNavigation Then
DirectCast(frmCollection.Item(i), frmNodeNavigation).JumptoNode()
End If
End If
Exit Sub Exit Sub
End If End If
Next i Next i
@ -285,7 +300,7 @@ Module ModuleHelperMethods
CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id) CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
If NodeNav Then If NodeNav Then
Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID, pRecordId) Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNodeNav.Tag = id frmNodeNav.Tag = id
If My.Settings.EntFormsChild = True Then If My.Settings.EntFormsChild = True Then
Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
@ -295,15 +310,15 @@ Module ModuleHelperMethods
End If End If
If pRecordId <> -1 Then
' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
JUMP_RECORD_ID = pRecordId
End If
If My.Settings.EntFormsChild = True Then If My.Settings.EntFormsChild = True Then
frmNodeNav.MdiParent = MAIN_FORM frmNodeNav.MdiParent = MAIN_FORM
End If End If
frmNodeNav.Show() frmNodeNav.Show()
If pJumpID <> -1 Then
frmNodeNav.JumptoNode()
End If
Else Else
Dim frm As New frmConstructor_Main() Dim frm As New frmConstructor_Main()
frm.Tag = id frm.Tag = id
@ -315,9 +330,9 @@ Module ModuleHelperMethods
End If End If
If pRecordId <> -1 Then If pJumpID <> -1 Then
' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen ' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
JUMP_RECORD_ID = pRecordId JUMP_ID = pJumpID
End If End If
If My.Settings.EntFormsChild = True Then If My.Settings.EntFormsChild = True Then
frm.MdiParent = MAIN_FORM frm.MdiParent = MAIN_FORM

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

@ -79,6 +79,9 @@ Module ModuleMySettings
Public WM_RWA1 As String = "" Public WM_RWA1 As String = ""
Public WM_RWA2 As String = "" Public WM_RWA2 As String = ""
Public OF_FILESTORE_ENTITY As Integer = 0
Public OF_FILESTORE_CONSTRUCTOR As Integer = 0
Dim rowresult As String = "" Dim rowresult As String = ""
Public MYGDPICTURE_LICENSE_KEY As String = "" Public MYGDPICTURE_LICENSE_KEY As String = ""
Public Function LoadFileExclusion() Public Function LoadFileExclusion()

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

@ -88,7 +88,7 @@ Module ModuleRuntimeVariables
Public BOOLEAN1 As Boolean = False Public BOOLEAN1 As Boolean = False
Public JUMP_STATE As Integer Public JUMP_STATE As Integer
Public JUMP_RECORD_ID As Integer Public JUMP_ID As Long
Public TEMP_FILES As List(Of String) = New List(Of String) Public TEMP_FILES As List(Of String) = New List(Of String)
Public FILE_FORMATS_CHANGE_DURING_EDIT As List(Of String) = New List(Of String) Public FILE_FORMATS_CHANGE_DURING_EDIT As List(Of String) = New List(Of String)
@ -117,6 +117,8 @@ Module ModuleRuntimeVariables
Public CURRENT_VARIABLE_CONTROLS As DataTable Public CURRENT_VARIABLE_CONTROLS As DataTable
Public CURRENT_TBPMO_FORM_VIEW As DataTable Public CURRENT_TBPMO_FORM_VIEW As DataTable
Public CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS As DataTable Public CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS As DataTable
Public CURRENT_TBFILE_EXTENSION_OVERRIDE As DataTable
Public CURRENT_TBPMO_RIGHT_USER As DataTable Public CURRENT_TBPMO_RIGHT_USER As DataTable
Public CURRENT_RECORD_ENABLED As Boolean = False Public CURRENT_RECORD_ENABLED As Boolean = False

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.3.0")> <Assembly: AssemblyVersion("3.6.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

15
app/DD-Record-Organizer/My Project/licenses.licx
View File

@ -1,12 +1,13 @@
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

4
app/DD-Record-Organizer/OrgFlow.vbproj
View File

@ -230,6 +230,9 @@
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Mail">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Limilabs\Mail.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL"> <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath> <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
</Reference> </Reference>
@ -1006,6 +1009,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmGlobalSearch.resx"> <EmbeddedResource Include="frmGlobalSearch.resx">
<DependentUpon>frmGlobalSearch.vb</DependentUpon> <DependentUpon>frmGlobalSearch.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmStaticListEditor.en-US.resx"> <EmbeddedResource Include="frmStaticListEditor.en-US.resx">
<DependentUpon>frmStaticListEditor.vb</DependentUpon> <DependentUpon>frmStaticListEditor.vb</DependentUpon>

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

@ -3790,9 +3790,9 @@ Public Class frmConstructor_Main
Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {ENTITY_ID}" Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {ENTITY_ID}"
CURRENT_DOCSEARCH_SQL = MYDB_ECM.ExecuteNonQuery(oSQL) CURRENT_DOCSEARCH_SQL = MYDB_ECM.ExecuteNonQuery(oSQL)
If CURRENT_DOCSEARCH_SQL <> String.Empty Then If CURRENT_DOCSEARCH_SQL <> String.Empty Then
Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist." Dim oText = $"Die Sicht-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
If USER_LANGUAGE <> "de-De" Then If USER_LANGUAGE <> "de-De" Then
oText = $"The entity-wide search will be started in background. The result will be displayed when ready." oText = $"The view-wide search will be started in background. The result will be displayed when ready."
End If End If
MsgBox(oText, vbOKOnly, "Information") MsgBox(oText, vbOKOnly, "Information")
@ -3804,9 +3804,9 @@ Public Class frmConstructor_Main
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
CURRENT_DOCSEARCH_CAPTION = "Entity-wide search" CURRENT_DOCSEARCH_CAPTION = "view-wide search"
Else Else
CURRENT_DOCSEARCH_CAPTION = "Entitätssuche" CURRENT_DOCSEARCH_CAPTION = "Sicht-Suche"
End If End If
Dim myformThread = New Thread(Sub() Dim myformThread = New Thread(Sub()
Using frm As New frmDocSearchResult Using frm As New frmDocSearchResult
@ -3886,9 +3886,9 @@ Public Class frmConstructor_Main
Else Else
Entitystring = selnode.Text Entitystring = selnode.Text
End If End If
msg = "Dateien für Entität: " & Entitystring msg = "Dateien für Sicht: " & Entitystring
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "files for entity: " & Entitystring msg = "files for view: " & Entitystring
End If End If
msg &= " (" & DT_RESULT.Rows.Count.ToString & ")" msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
@ -3963,9 +3963,9 @@ Public Class frmConstructor_Main
Else Else
Entitystring = selnode.Text Entitystring = selnode.Text
End If End If
msg = "Keine Dateien für Entität: " & Entitystring & " gefunden" msg = "Keine Dateien für Sicht: " & Entitystring & " gefunden"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "No files found for entity: " & Entitystring msg = "No files found for View: " & Entitystring
End If End If
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
If NODE_NAVIGATION Then If NODE_NAVIGATION Then
@ -4837,7 +4837,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click
ClassJumpRecord.JumpToRecord(2, RECORD_ID) ClassJumpRecord.JumpToRecord(2, RECORD_ID)
JUMP_RECORD_ID = 0 JUMP_ID = 0
End Sub End Sub
@ -4978,8 +4978,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try Try
Dim sw As New SW("Jump_Record") Dim sw As New SW("Jump_Record")
If JUMP_RECORD_ID > 0 Then If JUMP_ID > 0 Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID) Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_ID)
Dim FormID = MYDB_ECM.GetScalarValue(sql) Dim FormID = MYDB_ECM.GetScalarValue(sql)
If FormID > 0 Then If FormID > 0 Then
Dim n As TreeNode Dim n As TreeNode
@ -4991,8 +4991,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
' wurde nicht zurückgesetzt, also ' wurde nicht zurückgesetzt, also
' wurde der record nicht gefunden ' wurde der record nicht gefunden
If JUMP_RECORD_ID <> 0 Then If JUMP_ID <> 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_ID & " konnte nicht gefunden werden")
End If End If
sw.Done() sw.Done()
Catch ex As Exception Catch ex As Exception
@ -5010,10 +5010,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID, 'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
'für Carousel und Tiles markieren wir den Record 'für Carousel und Tiles markieren wir den Record
LocateRecordinGridById(JUMP_RECORD_ID) LocateRecordinGridById(JUMP_ID)
' Jump Record-ID wieder zurücksetzen ' Jump Record-ID wieder zurücksetzen
JUMP_RECORD_ID = 0 JUMP_ID = 0
Exit Sub Exit Sub
End If End If
@ -5026,10 +5026,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID, 'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
'für Carousel und Tiles markieren wir den Record 'für Carousel und Tiles markieren wir den Record
LocateRecordinGridById(JUMP_RECORD_ID) LocateRecordinGridById(JUMP_ID)
' Jump Record-ID wieder zurücksetzen ' Jump Record-ID wieder zurücksetzen
JUMP_RECORD_ID = 0 JUMP_ID = 0
Exit For Exit For
Exit Sub Exit Sub
End If End If
@ -5807,7 +5807,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub DetailAnsichtDatensatzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailAnsichtDatensatzToolStripMenuItem.Click Private Sub DetailAnsichtDatensatzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailAnsichtDatensatzToolStripMenuItem.Click
ClassJumpRecord.JumpToRecord(0, RECORD_ID) ClassJumpRecord.JumpToRecord(0, RECORD_ID)
JUMP_RECORD_ID = 0 JUMP_ID = 0
End Sub End Sub
Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As Views.Grid.RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As Views.Grid.RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
@ -6414,7 +6414,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Show_Detail_Record: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Show_Detail_Record: ", ex.Message)
End Try End Try
JUMP_RECORD_ID = 0 JUMP_ID = 0
End Sub End Sub
@ -7227,7 +7227,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
ClassJumpRecord.JumpToRecord(2, RECORD_ID) ClassJumpRecord.JumpToRecord(2, RECORD_ID)
ClassWorkflow.Refresh_Workflows_Entity() ClassWorkflow.Refresh_Workflows_Entity()
JUMP_RECORD_ID = 0 JUMP_ID = 0
End If End If
Else Else
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
@ -7245,7 +7245,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub bbtniclearCache_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniclearCache.ItemClick Private Sub bbtniclearCache_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniclearCache.ItemClick
Dim result As MsgBoxResult Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!" Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Sicht wird dann automatisch neugeladen!"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!" msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
End If End If

4
app/DD-Record-Organizer/frmCustomAppointment.vb
View File

@ -94,9 +94,9 @@ Partial Public Class frmCustomAppointment
Private Sub btnJumpToRecord_Click(sender As Object, e As EventArgs) Handles btnJumpToRecord.Click Private Sub btnJumpToRecord_Click(sender As Object, e As EventArgs) Handles btnJumpToRecord.Click
If txtRecordID.Text.Length > 0 Then If txtRecordID.Text.Length > 0 Then
Dim RecordId = Integer.Parse(txtRecordID.Text) Dim RecordId = Integer.Parse(txtRecordID.Text)
JUMP_RECORD_ID = RecordId JUMP_ID = RecordId
Dim constructDT As DataTable = MYDB_ECM.GetDatatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_RECORD_ID) Dim constructDT As DataTable = MYDB_ECM.GetDatatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_ID)
' TODO: FormId und ConstructId herausfinden ' TODO: FormId und ConstructId herausfinden

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

@ -35,14 +35,14 @@ Partial Class frmDocRecordLink
Me.bbtnitmLinkRecords = New DevExpress.XtraBars.BarButtonItem() Me.bbtnitmLinkRecords = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitmsaveLayout = New DevExpress.XtraBars.BarButtonItem() Me.bbtnitmsaveLayout = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitmresetlayout = New DevExpress.XtraBars.BarButtonItem() Me.bbtnitmresetlayout = New DevExpress.XtraBars.BarButtonItem()
Me.bsitmSource = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = 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.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.txtcurrSichtData = New System.Windows.Forms.TextBox() Me.txtcurrSichtData = New System.Windows.Forms.TextBox()
Me.bsitmSource = New DevExpress.XtraBars.BarStaticItem()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -156,25 +156,31 @@ Partial Class frmDocRecordLink
Me.bbtnitmresetlayout.ItemAppearance.Normal.Options.UseFont = True Me.bbtnitmresetlayout.ItemAppearance.Normal.Options.UseFont = True
Me.bbtnitmresetlayout.Name = "bbtnitmresetlayout" Me.bbtnitmresetlayout.Name = "bbtnitmresetlayout"
' '
'bsitmSource
'
Me.bsitmSource.Id = 5
Me.bsitmSource.Name = "bsitmSource"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmsaveLayout)
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmresetlayout)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonPageGroup3 'RibbonPageGroup3
' '
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmLinkRecords) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmLinkRecords)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
' '
'RibbonPageGroup1
'
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmsaveLayout)
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmresetlayout)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@ -199,11 +205,6 @@ Partial Class frmDocRecordLink
Me.txtcurrSichtData.Name = "txtcurrSichtData" Me.txtcurrSichtData.Name = "txtcurrSichtData"
Me.txtcurrSichtData.ReadOnly = True Me.txtcurrSichtData.ReadOnly = True
' '
'bsitmSource
'
Me.bsitmSource.Id = 5
Me.bsitmSource.Name = "bsitmSource"
'
'frmDocRecordLink 'frmDocRecordLink
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")

44
app/DD-Record-Organizer/frmDocRecordLink.resx
View File

@ -374,23 +374,17 @@
<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="RibbonPageGroup3.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value> <value>Start</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1155, 158</value> <value>1155, 147</value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 639</value> <value>0, 638</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1155, 22</value> <value>1155, 23</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -416,6 +410,12 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>9</value> <value>9</value>
</data> </data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
@ -1717,7 +1717,7 @@
</value> </value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Datei mit Datensatz aus Entität verknüpfen</value> <value>Datei mit Datensatz aus Sicht verknüpfen</value>
</data> </data>
<data name="&gt;&gt;grvwGrid.Name" xml:space="preserve"> <data name="&gt;&gt;grvwGrid.Name" xml:space="preserve">
<value>grvwGrid</value> <value>grvwGrid</value>
@ -1749,36 +1749,36 @@
<data name="&gt;&gt;bbtnitmresetlayout.Type" xml:space="preserve"> <data name="&gt;&gt;bbtnitmresetlayout.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bsitmSource.Name" xml:space="preserve">
<value>bsitmSource</value>
</data>
<data name="&gt;&gt;bsitmSource.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value> <value>RibbonPage1</value>
</data> </data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">
<value>RibbonPageGroup3</value> <value>RibbonPageGroup3</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bsitmSource.Name" xml:space="preserve">
<value>bsitmSource</value>
</data>
<data name="&gt;&gt;bsitmSource.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmDocRecordLink</value> <value>frmDocRecordLink</value>
</data> </data>

19
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@ -16,6 +16,9 @@ Public Class frmDocRecordLink
End Function End Function
End Class End Class
Private Function GET_CURRENT_ENTITY_DATA() Private Function GET_CURRENT_ENTITY_DATA()
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
Return Nothing
End If
Dim oDatatable As DataTable = CURRENT_DT_ENTITY_RECORDS.Copy Dim oDatatable As DataTable = CURRENT_DT_ENTITY_RECORDS.Copy
Return oDatatable Return oDatatable
End Function End Function
@ -23,6 +26,7 @@ Public Class frmDocRecordLink
Dim DT_RECORDS As DataTable Dim DT_RECORDS As DataTable
If current = True Then If current = True Then
DT_RECORDS = GET_CURRENT_ENTITY_DATA() DT_RECORDS = GET_CURRENT_ENTITY_DATA()
Else Else
DT_RECORDS = ENTITY_DATATABLE DT_RECORDS = ENTITY_DATATABLE
End If End If
@ -59,11 +63,11 @@ Public Class frmDocRecordLink
grvwGrid.Columns.Clear() grvwGrid.Columns.Clear()
dgEntityRecords.DataSource = DT_RECORDS dgEntityRecords.DataSource = DT_RECORDS
' grvwGrid.Columns.Item("already linked").Fixed = True ' grvwGrid.Columns.Item("already linked").Fixed = True
grvwGrid.PopulateColumns() 'grvwGrid.PopulateColumns()
dgEntityRecords.RefreshDataSource() 'dgEntityRecords.RefreshDataSource()
grvwGrid.OptionsView.ColumnAutoWidth = False 'grvwGrid.OptionsView.ColumnAutoWidth = False
grvwGrid.Columns(0).Fixed = FixedStyle.Left 'grvwGrid.Columns(0).Fixed = FixedStyle.Left
grvwGrid.BestFitColumns() 'grvwGrid.BestFitColumns()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in format grid", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in format grid", ex.Message, ex.StackTrace)
@ -80,9 +84,6 @@ Public Class frmDocRecordLink
txtFileInfo.Text = String.Format("{0} files selected for linking to record", ClassDocGrid.DT_RESULTFILES.Rows.Count) txtFileInfo.Text = String.Format("{0} files selected for linking to record", ClassDocGrid.DT_RESULTFILES.Rows.Count)
End If End If
Try Try
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
Me.Close()
End If
If CURRENT_LINK_ENTITY_ID = 0 Then If CURRENT_LINK_ENTITY_ID = 0 Then
Refresh_Grid_Data(True, Nothing) Refresh_Grid_Data(True, Nothing)
CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
@ -257,9 +258,9 @@ Public Class frmDocRecordLink
End Sub End Sub
Private Sub btnloadData2Entity_Click(sender As Object, e As EventArgs) Handles btnloadData2Entity.Click Private Sub btnloadData2Entity_Click(sender As Object, e As EventArgs) Handles btnloadData2Entity.Click
Dim entity As ClassEntity = DirectCast(cmbConstructorForms.SelectedItem, ClassEntity)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If cmbConstructorForms.SelectedIndex <> -1 Then If cmbConstructorForms.SelectedIndex <> -1 Then
Dim entity As ClassEntity = DirectCast(cmbConstructorForms.SelectedItem, ClassEntity)
ENTITY_LOAD_ACTIVE = True ENTITY_LOAD_ACTIVE = True
dgEntityRecords.DataSource = Nothing dgEntityRecords.DataSource = Nothing
grvwGrid.Columns.Clear() grvwGrid.Columns.Clear()

28
app/DD-Record-Organizer/frmDoc_Links.resx
View File

@ -121,12 +121,6 @@
<value>241, 17</value> <value>241, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Ordner öffnen</value>
</data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 26</value> <value>150, 26</value>
</data> </data>
@ -141,10 +135,10 @@
<value>Fill</value> <value>Fill</value>
</data> </data>
<data name="GridControlRecords.Location" type="System.Drawing.Point, System.Drawing"> <data name="GridControlRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value> <value>0, 147</value>
</data> </data>
<data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>908, 324</value> <value>908, 334</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlRecords.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlRecords.TabIndex" type="System.Int32, mscorlib">
@ -162,8 +156,14 @@
<data name="&gt;&gt;GridControlRecords.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GridControlRecords.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Ordner öffnen</value>
</data>
<data name="bbtnitmdeletelink.Caption" xml:space="preserve"> <data name="bbtnitmdeletelink.Caption" xml:space="preserve">
<value>Ausgewählte Links löschen</value> <value>Ausgewählte Verknüpfungen löschen</value>
</data> </data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="bbtnitmdeletelink.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bbtnitmdeletelink.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -320,16 +320,16 @@
<value>Layout</value> <value>Layout</value>
</data> </data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Doc-Links</value> <value>Verknüpfungen</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>908, 158</value> <value>908, 147</value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 482</value> <value>0, 481</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>908, 22</value> <value>908, 23</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -544,7 +544,7 @@
<value>CenterScreen</value> <value>CenterScreen</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Doc-Links</value> <value>Verknüpfungen</value>
</data> </data>
<data name="&gt;&gt;OrdnerÖffnenToolStripMenuItem.Name" xml:space="preserve"> <data name="&gt;&gt;OrdnerÖffnenToolStripMenuItem.Name" xml:space="preserve">
<value>OrdnerÖffnenToolStripMenuItem</value> <value>OrdnerÖffnenToolStripMenuItem</value>

7
app/DD-Record-Organizer/frmDoc_Links.vb
View File

@ -8,6 +8,7 @@ Imports Microsoft.Office.Interop.Outlook
Public Class frmDoc_Links Public Class frmDoc_Links
Private ENTITY_ID As Integer = 0 Private ENTITY_ID As Integer = 0
Private form_shown As Boolean = False
Public Property Documents As New List(Of ClassDocGrid.clsWMDoc) Public Property Documents As New List(Of ClassDocGrid.clsWMDoc)
Private Sub frmDoc_DocLinks_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmDoc_DocLinks_Load(sender As Object, e As EventArgs) Handles Me.Load
@ -23,7 +24,7 @@ Public Class frmDoc_Links
' TODO: this does not work for the old form ' TODO: this does not work for the old form
If Documents.Count = 0 Then If Documents.Count = 0 Then
Text = $"Document-Links for: NODOC-ID" Text = $"Document-Link for: NODOC-ID"
ElseIf Documents.Count = 1 Then ElseIf Documents.Count = 1 Then
Text = $"Document-Links for: {Documents.First.DocPath}" Text = $"Document-Links for: {Documents.First.DocPath}"
Else Else
@ -47,6 +48,7 @@ Public Class frmDoc_Links
Catch ex As System.Exception Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace)
End Try End Try
form_shown = True
End Sub End Sub
Private Function Get_Grid_Data(pDocuments As List(Of ClassDocGrid.clsWMDoc)) As DataTable Private Function Get_Grid_Data(pDocuments As List(Of ClassDocGrid.clsWMDoc)) As DataTable
@ -155,6 +157,9 @@ Public Class frmDoc_Links
End Sub End Sub
Sub Save_DocGrid_Layout() Sub Save_DocGrid_Layout()
If form_shown = False Then
Exit Sub
End If
Try Try
Dim XMLPath = Get_DocGrid_Layout_Filename() Dim XMLPath = Get_DocGrid_Layout_Filename()
grvwGrid.SaveLayoutToXml(XMLPath) grvwGrid.SaveLayoutToXml(XMLPath)

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

@ -314,7 +314,7 @@ Public Class frmEntities
Dim anz_ent = MYDB_ECM.GetScalarValue("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1") Dim anz_ent = MYDB_ECM.GetScalarValue("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
anz_ent += 1 anz_ent += 1
If anz_ent > LICENSE_DOSSIER_COUNT Then If anz_ent > LICENSE_DOSSIER_COUNT Then
Dim msg = String.Format("Die Anzahl an lizensierten Sichten/Akten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString) Dim msg = String.Format("Die Anzahl an lizensierten Sichten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The number of licensed views {0} was reached! Please contact Digital Data", LICENSE_DOSSIER_COUNT.ToString) msg = String.Format("The number of licensed views {0} was reached! Please contact Digital Data", LICENSE_DOSSIER_COUNT.ToString)
End If End If

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

@ -56,12 +56,14 @@ Partial Class frmGlobalSearch
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupRecords = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupRecords = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupFiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupFiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupExcel = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = 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.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.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
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()
@ -221,9 +223,9 @@ Partial Class frmGlobalSearch
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarToggleSearchCombined, Me.BarToggleSearchRecord, Me.BarToggleFulltext}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarToggleSearchCombined, Me.BarToggleSearchRecord, Me.BarToggleFulltext, Me.BarButtonItem1, Me.BarButtonItem2})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 15 Me.RibbonControl1.MaxItemId = 17
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@ -307,7 +309,7 @@ Partial Class frmGlobalSearch
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupRecords, Me.RibbonPageGroupFiles, Me.RibbonPageGroup2, Me.RibbonPageGroup3}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupRecords, Me.RibbonPageGroupFiles, Me.RibbonPageGroupExcel, Me.RibbonPageGroup3})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
@ -321,6 +323,7 @@ Partial Class frmGlobalSearch
'RibbonPageGroupRecords 'RibbonPageGroupRecords
' '
Me.RibbonPageGroupRecords.AllowTextClipping = False Me.RibbonPageGroupRecords.AllowTextClipping = False
Me.RibbonPageGroupRecords.Enabled = 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")
@ -328,19 +331,23 @@ Partial Class frmGlobalSearch
'RibbonPageGroupFiles 'RibbonPageGroupFiles
' '
Me.RibbonPageGroupFiles.AllowTextClipping = False Me.RibbonPageGroupFiles.AllowTextClipping = False
Me.RibbonPageGroupFiles.Enabled = 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.BarButtonItem2)
Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem8) Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem10) Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem10)
Me.RibbonPageGroupFiles.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroupFiles.Name = "RibbonPageGroupFiles" Me.RibbonPageGroupFiles.Name = "RibbonPageGroupFiles"
resources.ApplyResources(Me.RibbonPageGroupFiles, "RibbonPageGroupFiles") resources.ApplyResources(Me.RibbonPageGroupFiles, "RibbonPageGroupFiles")
' '
'RibbonPageGroup2 'RibbonPageGroupExcel
' '
Me.RibbonPageGroup2.AllowTextClipping = False Me.RibbonPageGroupExcel.AllowTextClipping = False
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) Me.RibbonPageGroupExcel.Enabled = False
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroupExcel.ItemLinks.Add(Me.BarButtonItem4)
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") Me.RibbonPageGroupExcel.Name = "RibbonPageGroupExcel"
resources.ApplyResources(Me.RibbonPageGroupExcel, "RibbonPageGroupExcel")
' '
'RibbonPageGroup3 'RibbonPageGroup3
' '
@ -373,6 +380,20 @@ Partial Class frmGlobalSearch
Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1" Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1") resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1")
' '
'BarButtonItem1
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 15
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 16
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'frmGlobalSearch 'frmGlobalSearch
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -441,11 +462,13 @@ Partial Class frmGlobalSearch
Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroupExcel As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog
Friend WithEvents BarToggleSearchCombined As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSearchCombined As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents BarToggleSearchRecord As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSearchRecord As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents BarToggleFulltext As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleFulltext As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
End Class End Class

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

@ -123,7 +123,7 @@
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainerMain.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainerMain.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 248</value> <value>0, 237</value>
</data> </data>
<data name="GridControlRecords.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="GridControlRecords.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
@ -135,7 +135,7 @@
<value>orgFLOW-Datensätze</value> <value>orgFLOW-Datensätze</value>
</data> </data>
<data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>616, 402</value> <value>616, 412</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlRecords.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlRecords.TabIndex" type="System.Int32, mscorlib">
@ -202,10 +202,10 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="GridViewFiles.ViewCaption" xml:space="preserve"> <data name="GridViewFiles.ViewCaption" xml:space="preserve">
<value>windream-Dateien und Werte</value> <value>Dateien</value>
</data> </data>
<data name="GridControlFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>841, 402</value> <value>839, 412</value>
</data> </data>
<data name="GridControlFiles.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlFiles.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
@ -232,7 +232,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>841, 25</value> <value>839, 25</value>
</data> </data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@ -268,7 +268,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1467, 427</value> <value>1467, 437</value>
</data> </data>
<data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
<value>8</value> <value>8</value>
@ -330,6 +330,78 @@
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>4</value> <value>4</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
<value>LabelControl1</value>
</data>
<data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;lblFT_Irregular.Name" xml:space="preserve">
<value>lblFT_Irregular</value>
</data>
<data name="&gt;&gt;lblFT_Irregular.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblFT_Irregular.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;lblFT_Irregular.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;txtSearch.Name" xml:space="preserve">
<value>txtSearch</value>
</data>
<data name="&gt;&gt;txtSearch.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtSearch.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;txtSearch.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 147</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1467, 90</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing"> <data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Italic</value> <value>Tahoma, 8.25pt, style=Italic</value>
</data> </data>
@ -367,13 +439,13 @@
<value>15, 74</value> <value>15, 74</value>
</data> </data>
<data name="lblFT_Irregular.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblFT_Irregular.Size" type="System.Drawing.Size, System.Drawing">
<value>171, 13</value> <value>194, 13</value>
</data> </data>
<data name="lblFT_Irregular.TabIndex" type="System.Int32, mscorlib"> <data name="lblFT_Irregular.TabIndex" type="System.Int32, mscorlib">
<value>9</value> <value>9</value>
</data> </data>
<data name="lblFT_Irregular.Text" xml:space="preserve"> <data name="lblFT_Irregular.Text" xml:space="preserve">
<value>Volltext enthält ungültige Zeichen.</value> <value>Volltext enthält ungültige Zeichen. (".")</value>
</data> </data>
<data name="lblFT_Irregular.Visible" type="System.Boolean, mscorlib"> <data name="lblFT_Irregular.Visible" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
@ -438,30 +510,6 @@
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1467, 90</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="bsiInfo.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing"> <data name="bsiInfo.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold, Italic</value> <value>Tahoma, 8.25pt, style=Bold, Italic</value>
</data> </data>
@ -608,7 +656,7 @@
</value> </value>
</data> </data>
<data name="BarButtonItem8.Caption" xml:space="preserve"> <data name="BarButtonItem8.Caption" xml:space="preserve">
<value>Verknüpfungen</value> <value>Verknüpfungen anzeigen</value>
</data> </data>
<data name="BarButtonItem8.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem8.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -662,25 +710,20 @@
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABcEAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW1hZ2VMb2Fk Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
Ij4NCiAgICA8cGF0aCBkPSJNMjcuMywxOEg3LjZMMiwyOGgxOS44YzAuNSwwLDEuMS0wLjIsMS4zLTAu PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
Nmw0LjktOC45QzI4LjEsMTguMiwyNy44LDE4LDI3LjMsMTh6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAg MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
IDxnIGNsYXNzPSJzdDEiPg0KICAgICAgPHBhdGggZD0iTTIxLDEyaC0yLjJjLTAuNCwwLjUtMC43LDEt Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
MC44LDEuNWMtMC4yLDAuOS0xLDEuNi0yLDEuNmMwLDAsMCwwLDAsMGMtMSwwLTEuOC0wLjctMS45LTEu aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
NyAgICBDMTQsMTIuOSwxNCwxMi40LDE0LDEyaC00VjljMC0wLjYtMC40LTEtMS0xSDFDMC40LDgsMCw4 DQogIDwvZz4NCjwvc3ZnPgs=
LjUsMCw5djE4YzAsMC4yLDAsMC4zLDAuMSwwLjRjMCwwLDAuMS0wLjEsMC4xLTAuMmw1LjUtMTAgICAg
QzYsMTYuNSw2LjcsMTYsNy41LDE2SDIydi0zQzIyLDEyLjUsMjEuNSwxMiwyMSwxMnoiIGNsYXNzPSJZ
ZWxsb3ciIC8+DQogICAgPC9nPg0KICAgIDxwYXRoIGQ9Ik0zMCw2bC02LTZ2NGMtNC40LDAtOCwzLjYt
OCw4YzAsMC40LDAsMC44LDAuMSwxLjFDMTYuNiwxMC4yLDIwLDgsMjQsOHY0TDMwLDZ6IiBjbGFzcz0i
Qmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
<data name="BarToggleSearchCombined.Caption" xml:space="preserve"> <data name="BarToggleSearchCombined.Caption" xml:space="preserve">
@ -692,20 +735,83 @@
<data name="BarToggleFulltext.Caption" xml:space="preserve"> <data name="BarToggleFulltext.Caption" xml:space="preserve">
<value>Nur in Volltext</value> <value>Nur in Volltext</value>
</data> </data>
<data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Springe zu Filestore</value>
</data>
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEADAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuR3JlZW57ZmlsbDojMDM5
QzIzO30KCS5CbHVle2ZpbGw6IzExNzdENzt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTdG9yZSI+DQogICAg
PHJlY3QgeD0iMjQiIHk9IjE2IiB3aWR0aD0iMiIgaGVpZ2h0PSIxMiIgcng9IjAiIHJ5PSIwIiBjbGFz
cz0iUmVkIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMTYsMjIgOCwyMiA4LDE2IDYsMTYgNiwyMiA2
LDI4IDgsMjggMTYsMjggMTgsMjggMTgsMjIgMTgsMTYgMTYsMTYgICIgY2xhc3M9IlJlZCIgLz4NCiAg
ICA8cGF0aCBkPSJNMjYsNEg2TDIsOHYydjAuNUMyLDEyLjQsMy42LDE0LDUuNSwxNFM5LDEyLjQsOSwx
MC41YzAsMS45LDEuNiwzLjUsMy41LDMuNWMxLjksMCwzLjUtMS42LDMuNS0zLjUgICBjMCwxLjksMS42
LDMuNSwzLjUsMy41czMuNS0xLjYsMy41LTMuNWMwLDEuOSwxLjYsMy41LDMuNSwzLjVzMy41LTEuNiwz
LjUtMy41VjEwVjhMMjYsNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem2.Caption" xml:space="preserve">
<value>Mit Datensatz verknüpfen</value>
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAxNiAxNiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGluayIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMTYg
MTYiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
bGU+DQogIDxwYXRoIGQ9Ik0xMi41LDVoLTJDOS4zLDUsOC4zLDUuOSw4LjEsN0g2LjlDNi43LDUuOSw1
LjcsNSw0LjUsNWgtMkMxLjEsNSwwLDYuMSwwLDcuNVMxLjEsMTAsMi41LDEwaDIgIGMxLjIsMCwyLjIt
MC45LDIuNC0yaDEuMWMwLjIsMS4xLDEuMiwyLDIuNCwyaDJjMS40LDAsMi41LTEuMSwyLjUtMi41UzEz
LjksNSwxMi41LDV6IE00LjUsOWgtMkMxLjcsOSwxLDguMywxLDcuNSAgQzEsNi43LDEuNyw2LDIuNSw2
aDJjMC42LDAsMS4yLDAuNCwxLjQsMUgzLjVDMy4yLDcsMyw3LjIsMyw3LjVTMy4yLDgsMy41LDhoMi40
QzUuNyw4LjYsNS4xLDksNC41LDl6IE0xMi41LDloLTIgIEM5LjksOSw5LjMsOC42LDkuMSw4aDIuNEMx
MS44LDgsMTIsNy44LDEyLDcuNVMxMS44LDcsMTEuNSw3SDkuMWMwLjItMC42LDAuOC0xLDEuNC0xaDJD
MTMuMyw2LDE0LDYuNywxNCw3LjVDMTQsOC4zLDEzLjMsOSwxMi41LDkgIHoiIGNsYXNzPSJCbGFjayIg
Lz4NCjwvc3ZnPgs=
</value>
</data>
<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>Datei(en)</value>
</data>
<data name="RibbonPageGroupExcel.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>Globale Suche</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1467, 158</value> <value>1467, 147</value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 675</value> <value>0, 674</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1467, 22</value> <value>1467, 23</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -731,21 +837,6 @@
<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>
@ -942,10 +1033,10 @@
<data name="&gt;&gt;RibbonPageGroupFiles.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroupFiles.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroupExcel.Name" xml:space="preserve">
<value>RibbonPageGroup2</value> <value>RibbonPageGroupExcel</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroupExcel.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">
@ -972,6 +1063,18 @@
<data name="&gt;&gt;XtraSaveFileDialog1.Type" xml:space="preserve"> <data name="&gt;&gt;XtraSaveFileDialog1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraSaveFileDialog, DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.XtraSaveFileDialog, DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem1.Name" xml:space="preserve">
<value>BarButtonItem1</value>
</data>
<data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
<value>BarButtonItem2</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmGlobalSearch</value> <value>frmGlobalSearch</value>
</data> </data>

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

@ -169,25 +169,13 @@ Public Class frmGlobalSearch
GridControlFiles.DataSource = DT_Files GridControlFiles.DataSource = DT_Files
tslblDocView.Text = String.Format("{0} files found", DT_Files.Rows.Count) tslblDocView.Text = String.Format("{0} files found", DT_Files.Rows.Count)
Try Try
GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss" GridViewFiles.OptionsView.ColumnAutoWidth = False
GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime GridViewFiles.BestFitColumns()
GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
Catch ex As Exception Catch ex As Exception
End Try End Try
Try
GridViewFiles.Columns("ErstelltWann").DisplayFormat.FormatType = FormatType.DateTime
GridViewFiles.Columns("ErstelltWann").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
GridViewFiles.Columns("GeändertWann").DisplayFormat.FormatType = FormatType.DateTime
GridViewFiles.Columns("GeändertWann").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
Catch ex As Exception
End Try
' FormID und RecordID immer ausblenden
' GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
GridViewFiles.OptionsView.ColumnAutoWidth = False
GridViewFiles.BestFitColumns()
Else Else
tslblDocView.Text = String.Format(" No files found") tslblDocView.Text = String.Format(" No files found")
GridControlFiles.DataSource = Nothing GridControlFiles.DataSource = Nothing
@ -230,7 +218,7 @@ Public Class frmGlobalSearch
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Show_Detail_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Show_Detail_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
JUMP_RECORD_ID = 0 JUMP_ID = 0
End Sub End Sub
Private Sub frmSearchAllOVer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmSearchAllOVer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@ -301,6 +289,7 @@ Public Class frmGlobalSearch
End Function End Function
Private Sub frmSearchAllOVer_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSearchAllOVer_Load(sender As Object, e As EventArgs) Handles Me.Load
_Helper = New ClassHelper _Helper = New ClassHelper
Load_DocGrid_Layout() Load_DocGrid_Layout()
Load_RecordGrid_Layout() Load_RecordGrid_Layout()
@ -373,6 +362,8 @@ Public Class frmGlobalSearch
Dim oTerm As String = txtSearch.Text Dim oTerm As String = txtSearch.Text
If txtSearch.Text.Contains(".") Then If txtSearch.Text.Contains(".") Then
lblFT_Irregular.Visible = True lblFT_Irregular.Visible = True
Else
lblFT_Irregular.Visible = False
End If End If
End Sub End Sub
@ -417,6 +408,64 @@ Public Class frmGlobalSearch
End Sub End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
Dim oJumpToDocSQL = String.Format("DECLARE @PID BIGINT
SELECT @PID = dwParentID FROM TBPMO_DOCRESULT_LIST WHERE DocID = {0}
SELECT GUID FROM VWPMO_STRUCTURE_NODES WHERE ENTITY_ID = {1} AND ISNUMERIC(ID1) = 1 AND ID1 = @PID", SELECTED_DOC_ID, OF_FILESTORE_ENTITY)
Dim ojumpID As Integer = MYDB_ECM.GetScalarValue(oJumpToDocSQL)
If Not IsNothing(ojumpID) AndAlso ojumpID <> 0 Then
OpenFormConstructor(OF_FILESTORE_CONSTRUCTOR, 1, OF_FILESTORE_ENTITY, ojumpID)
Else
MessageBox.Show("A parent node could not be found!", "No Node found", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Exit For
Next
End Sub
Private Sub BarButtonItem2_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Dim Current_DocList As ClassDocGrid
Current_DocList = New ClassDocGrid(GridViewFiles)
Dim oDocuments = Current_DocList.SelectedDocuments
If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewFiles) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Refresh_Selected_Table()
Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
oForm.Show()
End Sub
Sub Refresh_Selected_Table()
Dim table As New DataTable With {
.TableName = "SelectedFiles"
}
' Create two columns, ID and Name.
Dim idColumn As DataColumn = table.Columns.Add("ID", GetType(System.Int32))
idColumn.AutoIncrement = True
idColumn.AutoIncrementSeed = 0
idColumn.AutoIncrementStep = 1
table.PrimaryKey = New DataColumn() {idColumn}
table.Columns.Add("FILEPATH", GetType(System.String))
table.Columns.Add("DOC_ID", GetType(System.Int32))
table.Columns.Add("OBJECTTYPE", GetType(System.String))
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewFiles)
If oDoc.DocPath <> String.Empty Then
'Set the ID column as the primary key column.
Dim newRow As DataRow = table.NewRow()
newRow("FILEPATH") = oDoc.DocPath
newRow("DOC_ID") = oDoc.DocId
newRow("OBJECTTYPE") = oDoc.DocType
table.Rows.Add(newRow)
End If
Next
table.AcceptChanges()
CURRENT_DT_SELECTED_FILES = table
End Sub
Sub File_open() Sub File_open()
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor

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

@ -58,6 +58,8 @@ Public Class frmLicense
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Refresh_Licence(True) Refresh_Licence(True)
Else
MsgBox("Fehler bei Update der License. Überprüfe das Log!", MsgBoxStyle.Exclamation)
End If End If
'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:") 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")

28
app/DD-Record-Organizer/frmLicense_Login.resx
View File

@ -130,10 +130,13 @@
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing"> <data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value> <value>4, 4</value>
</data>
<data name="OK_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data> </data>
<data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing"> <data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 23</value> <value>89, 28</value>
</data> </data>
<data name="OK_Button.TabIndex" type="System.Int32, mscorlib"> <data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -157,10 +160,13 @@
<value>None</value> <value>None</value>
</data> </data>
<data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing"> <data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>76, 3</value> <value>101, 4</value>
</data>
<data name="Cancel_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data> </data>
<data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing"> <data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 23</value> <value>89, 28</value>
</data> </data>
<data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib"> <data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -181,13 +187,16 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing"> <data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing">
<value>277, 274</value> <value>369, 337</value>
</data>
<data name="TableLayoutPanel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data> </data>
<data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib"> <data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 29</value> <value>195, 36</value>
</data> </data>
<data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib"> <data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -211,10 +220,13 @@
<value>True</value> <value>True</value>
</metadata> </metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing"> <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value> <value>8, 16</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>435, 315</value> <value>580, 388</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data> </data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms"> <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterParent</value> <value>CenterParent</value>

2487
app/DD-Record-Organizer/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

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

@ -7,6 +7,7 @@ Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Ribbon.ViewInfo Imports DevExpress.XtraBars.Ribbon.ViewInfo
Imports DevExpress.XtraNavBar Imports DevExpress.XtraNavBar
Imports Microsoft.Office.Core
Public Class frmMain Public Class frmMain
Dim strIPAddress As String Dim strIPAddress As String
@ -225,7 +226,7 @@ Public Class frmMain
End Try End Try
Dim msg = "Anzahl verbrauchte Lizenzen: " & LICENSES_USED.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: " & LICENSES_USED.ToString() msg = "#Used licenses: " & LICENSES_USED.ToString()
End If End If
LabelLoggedIn.Caption = msg LabelLoggedIn.Caption = msg
LOGGER.Debug(msg) LOGGER.Debug(msg)
@ -581,7 +582,8 @@ 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 <= (LICENSES_USED + 1) Then If LICENSE_COUNT <= (LICENSES_USED) Then
LOGGER.Info($"{LICENSE_COUNT} <= {LICENSES_USED}")
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
@ -928,6 +930,7 @@ Public Class frmMain
Private Sub frmMain_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate Private Sub frmMain_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate
Dim mainForm As Form = sender Dim mainForm As Form = sender
Dim constructorFound = False Dim constructorFound = False
Dim child As Form = Me.ActiveMdiChild
For Each childForm As Form In mainForm.MdiChildren For Each childForm As Form In mainForm.MdiChildren
If (childForm.Name = "frmConstructor_Main") Then If (childForm.Name = "frmConstructor_Main") Then
@ -948,6 +951,7 @@ Public Class frmMain
Else Else
ribbonMain.Minimized = False ribbonMain.Minimized = False
End If End If
End Sub End Sub
Private Sub ribbonMain_MouseMove(sender As Object, e As MouseEventArgs) Handles ribbonMain.MouseMove Private Sub ribbonMain_MouseMove(sender As Object, e As MouseEventArgs) Handles ribbonMain.MouseMove

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

@ -45,11 +45,16 @@ Partial Class frmNodeNavigation
Me.btnCreateNewNode = New DevExpress.XtraBars.BarButtonItem() Me.btnCreateNewNode = New DevExpress.XtraBars.BarButtonItem()
Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem() Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem()
Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem() Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem()
Me.bsiDocIDChanged = New DevExpress.XtraBars.BarStaticItem()
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
Me.FindNode = New DevExpress.XtraBars.BarButtonItem()
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.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupDocResult = 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.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl()
@ -71,6 +76,7 @@ Partial Class frmNodeNavigation
Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileLinkRemove = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileLinkRemove = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileLink_ShowAll = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileLink_ShowAll = New System.Windows.Forms.ToolStripMenuItem()
Me.TsmitmJumpToFilestore = New System.Windows.Forms.ToolStripMenuItem()
Me.LinkPerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LinkPerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileRename = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileRename = New System.Windows.Forms.ToolStripMenuItem()
@ -125,6 +131,7 @@ Partial Class frmNodeNavigation
Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components) Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.DD_DMSDataSet1 = New DD_Record_Organizer.DD_DMSDataSet() Me.DD_DMSDataSet1 = New DD_Record_Organizer.DD_DMSDataSet()
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTextEdit1, 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()
Me.SplitContainerTreeList.Panel1.SuspendLayout() Me.SplitContainerTreeList.Panel1.SuspendLayout()
@ -162,18 +169,19 @@ Partial Class frmNodeNavigation
'ribbonNodeNavigation 'ribbonNodeNavigation
' '
Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0 Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0
Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode, Me.tsitmDMSReadOnly, Me.bsiNotification}) Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode, Me.tsitmDMSReadOnly, Me.bsiNotification, Me.bsiDocIDChanged, Me.BarEditItem1, Me.FindNode})
Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 0) Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 0)
Me.ribbonNodeNavigation.MaxItemId = 26 Me.ribbonNodeNavigation.MaxItemId = 30
Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation" Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation"
Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
Me.ribbonNodeNavigation.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1})
Me.ribbonNodeNavigation.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.ribbonNodeNavigation.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] Me.ribbonNodeNavigation.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True] Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False] Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(2215, 158) Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1151, 147)
Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1 Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
' '
@ -319,9 +327,36 @@ Partial Class frmNodeNavigation
Me.bsiNotification.Name = "bsiNotification" Me.bsiNotification.Name = "bsiNotification"
Me.bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing Me.bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
' '
'bsiDocIDChanged
'
Me.bsiDocIDChanged.Caption = "bsiDocIDChanged"
Me.bsiDocIDChanged.Id = 26
Me.bsiDocIDChanged.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow
Me.bsiDocIDChanged.ItemAppearance.Normal.Options.UseBackColor = True
Me.bsiDocIDChanged.Name = "bsiDocIDChanged"
Me.bsiDocIDChanged.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'BarEditItem1
'
Me.BarEditItem1.Caption = "NodeGUID"
Me.BarEditItem1.Edit = Me.RepositoryItemTextEdit1
Me.BarEditItem1.Id = 28
Me.BarEditItem1.Name = "BarEditItem1"
'
'RepositoryItemTextEdit1
'
Me.RepositoryItemTextEdit1.AutoHeight = False
Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1"
'
'FindNode
'
Me.FindNode.Caption = "BarButtonItem19"
Me.FindNode.Id = 29
Me.FindNode.Name = "FindNode"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RPGNodes, Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RPGNodes, Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Node Navigation" Me.RibbonPage1.Text = "Node Navigation"
' '
@ -350,6 +385,7 @@ Partial Class frmNodeNavigation
' '
'RibbonPageGroupDocResult 'RibbonPageGroupDocResult
' '
Me.RibbonPageGroupDocResult.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.checkShowPreview) Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.checkShowPreview)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultRefresh) Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultRefresh)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultExport) Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultExport)
@ -359,6 +395,13 @@ Partial Class frmNodeNavigation
Me.RibbonPageGroupDocResult.Name = "RibbonPageGroupDocResult" Me.RibbonPageGroupDocResult.Name = "RibbonPageGroupDocResult"
Me.RibbonPageGroupDocResult.Text = "Dateien" Me.RibbonPageGroupDocResult.Text = "Dateien"
' '
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarEditItem1)
Me.RibbonPageGroup2.ItemLinks.Add(Me.FindNode)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@ -368,10 +411,11 @@ Partial Class frmNodeNavigation
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly) Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 1305) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocIDChanged)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 566)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
Me.RibbonStatusBar1.Size = New System.Drawing.Size(2215, 22) Me.RibbonStatusBar1.Size = New System.Drawing.Size(1151, 23)
' '
'RibbonPage2 'RibbonPage2
' '
@ -393,7 +437,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch) Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
Me.SplitContainerTreeList.Panel2.Text = "Panel2" Me.SplitContainerTreeList.Panel2.Text = "Panel2"
Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 1147) Me.SplitContainerTreeList.Size = New System.Drawing.Size(776, 419)
Me.SplitContainerTreeList.SplitterPosition = 229 Me.SplitContainerTreeList.SplitterPosition = 229
Me.SplitContainerTreeList.TabIndex = 2 Me.SplitContainerTreeList.TabIndex = 2
' '
@ -435,7 +479,7 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsView.ShowVertLines = False Me.TreeListDevexpress.OptionsView.ShowVertLines = False
Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID" Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 1147) Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 419)
Me.TreeListDevexpress.StateImageList = Me.ImageCollection1 Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
Me.TreeListDevexpress.TabIndex = 1 Me.TreeListDevexpress.TabIndex = 1
' '
@ -459,8 +503,8 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch) Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2" Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(560, 1147) Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(535, 419)
Me.SplitContainerDocumentSearch.SplitterPosition = 246 Me.SplitContainerDocumentSearch.SplitterPosition = 133
Me.SplitContainerDocumentSearch.TabIndex = 1 Me.SplitContainerDocumentSearch.TabIndex = 1
' '
'pnlControls 'pnlControls
@ -470,7 +514,7 @@ Partial Class frmNodeNavigation
Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlControls.Location = New System.Drawing.Point(0, 0) Me.pnlControls.Location = New System.Drawing.Point(0, 0)
Me.pnlControls.Name = "pnlControls" Me.pnlControls.Name = "pnlControls"
Me.pnlControls.Size = New System.Drawing.Size(560, 246) Me.pnlControls.Size = New System.Drawing.Size(535, 133)
Me.pnlControls.TabIndex = 0 Me.pnlControls.TabIndex = 0
' '
'GridControlDocSearch 'GridControlDocSearch
@ -484,7 +528,7 @@ Partial Class frmNodeNavigation
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"
Me.GridControlDocSearch.Size = New System.Drawing.Size(560, 891) Me.GridControlDocSearch.Size = New System.Drawing.Size(535, 274)
Me.GridControlDocSearch.TabIndex = 8 Me.GridControlDocSearch.TabIndex = 8
Me.GridControlDocSearch.TabStop = False Me.GridControlDocSearch.TabStop = False
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search}) Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@ -492,9 +536,9 @@ Partial Class frmNodeNavigation
'cmsResultFileDetail 'cmsResultFileDetail
' '
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.TsmitmJumpToFilestore, 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, 394) Me.cmsResultFileDetail.Size = New System.Drawing.Size(315, 440)
' '
'tsmiFileProperties 'tsmiFileProperties
' '
@ -574,6 +618,14 @@ Partial Class frmNodeNavigation
Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(314, 24) Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen" Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen"
' '
'TsmitmJumpToFilestore
'
Me.TsmitmJumpToFilestore.Image = Global.DD_Record_Organizer.My.Resources.Resources.HomeHS
Me.TsmitmJumpToFilestore.Name = "TsmitmJumpToFilestore"
Me.TsmitmJumpToFilestore.Size = New System.Drawing.Size(314, 24)
Me.TsmitmJumpToFilestore.Text = "Springe zu Filestore"
Me.TsmitmJumpToFilestore.Visible = False
'
'LinkPerMailVersendenToolStripMenuItem 'LinkPerMailVersendenToolStripMenuItem
' '
Me.LinkPerMailVersendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go Me.LinkPerMailVersendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
@ -702,7 +754,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158) Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 147)
Me.SplitContainerDocView.Name = "SplitContainerDocView" Me.SplitContainerDocView.Name = "SplitContainerDocView"
' '
'SplitContainerDocView.Panel1 'SplitContainerDocView.Panel1
@ -714,8 +766,8 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer) Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
Me.SplitContainerDocView.Panel2.Text = "Panel2" Me.SplitContainerDocView.Panel2.Text = "Panel2"
Me.SplitContainerDocView.Size = New System.Drawing.Size(2215, 1147) Me.SplitContainerDocView.Size = New System.Drawing.Size(1151, 419)
Me.SplitContainerDocView.SplitterPosition = 799 Me.SplitContainerDocView.SplitterPosition = 776
Me.SplitContainerDocView.TabIndex = 0 Me.SplitContainerDocView.TabIndex = 0
' '
'DocumentViewer 'DocumentViewer
@ -725,7 +777,7 @@ Partial Class frmNodeNavigation
Me.DocumentViewer.FileLoaded = False Me.DocumentViewer.FileLoaded = False
Me.DocumentViewer.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer.Name = "DocumentViewer" Me.DocumentViewer.Name = "DocumentViewer"
Me.DocumentViewer.Size = New System.Drawing.Size(1406, 1147) Me.DocumentViewer.Size = New System.Drawing.Size(363, 419)
Me.DocumentViewer.TabIndex = 0 Me.DocumentViewer.TabIndex = 0
Me.DocumentViewer.Viewer_ForceTemporaryMode = False Me.DocumentViewer.Viewer_ForceTemporaryMode = False
' '
@ -780,15 +832,15 @@ Partial Class frmNodeNavigation
Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
Me.barDockControlTop.Manager = Me.BarManager1 Me.barDockControlTop.Manager = Me.BarManager1
Me.barDockControlTop.Size = New System.Drawing.Size(2215, 0) Me.barDockControlTop.Size = New System.Drawing.Size(1151, 0)
' '
'barDockControlBottom 'barDockControlBottom
' '
Me.barDockControlBottom.CausesValidation = False Me.barDockControlBottom.CausesValidation = False
Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 1327) Me.barDockControlBottom.Location = New System.Drawing.Point(0, 589)
Me.barDockControlBottom.Manager = Me.BarManager1 Me.barDockControlBottom.Manager = Me.BarManager1
Me.barDockControlBottom.Size = New System.Drawing.Size(2215, 0) Me.barDockControlBottom.Size = New System.Drawing.Size(1151, 0)
' '
'barDockControlLeft 'barDockControlLeft
' '
@ -796,15 +848,15 @@ Partial Class frmNodeNavigation
Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
Me.barDockControlLeft.Manager = Me.BarManager1 Me.barDockControlLeft.Manager = Me.BarManager1
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 1327) Me.barDockControlLeft.Size = New System.Drawing.Size(0, 589)
' '
'barDockControlRight 'barDockControlRight
' '
Me.barDockControlRight.CausesValidation = False Me.barDockControlRight.CausesValidation = False
Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
Me.barDockControlRight.Location = New System.Drawing.Point(2215, 0) Me.barDockControlRight.Location = New System.Drawing.Point(1151, 0)
Me.barDockControlRight.Manager = Me.BarManager1 Me.barDockControlRight.Manager = Me.BarManager1
Me.barDockControlRight.Size = New System.Drawing.Size(0, 1327) Me.barDockControlRight.Size = New System.Drawing.Size(0, 589)
' '
'BarButtonItem2 'BarButtonItem2
' '
@ -1037,7 +1089,7 @@ Partial Class frmNodeNavigation
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(2215, 1327) Me.ClientSize = New System.Drawing.Size(1151, 589)
Me.Controls.Add(Me.SplitContainerDocView) Me.Controls.Add(Me.SplitContainerDocView)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonNodeNavigation) Me.Controls.Add(Me.ribbonNodeNavigation)
@ -1051,6 +1103,7 @@ Partial Class frmNodeNavigation
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmNodeNavigation" Me.Text = "frmNodeNavigation"
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTreeList.Panel1.ResumeLayout(False) Me.SplitContainerTreeList.Panel1.ResumeLayout(False)
CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
@ -1187,4 +1240,10 @@ Partial Class frmNodeNavigation
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 Friend WithEvents DD_DMSDataSet1 As DD_DMSDataSet
Friend WithEvents bsiDocIDChanged As DevExpress.XtraBars.BarStaticItem
Friend WithEvents TsmitmJumpToFilestore As ToolStripMenuItem
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
Friend WithEvents FindNode As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class End Class

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

@ -762,22 +762,22 @@
<value>779, 17</value> <value>779, 17</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>17, 54</value> <value>944, 17</value>
</metadata> </metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 54</value> <value>1101, 17</value>
</metadata> </metadata>
<metadata name="CMSAdmin_Treeview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="CMSAdmin_Treeview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>315, 54</value> <value>1242, 17</value>
</metadata> </metadata>
<metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>480, 54</value> <value>17, 54</value>
</metadata> </metadata>
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>606, 54</value> <value>143, 54</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>130</value> <value>151</value>
</metadata> </metadata>
<data name="frmNodeNavigation.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmNodeNavigation.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -1100,18 +1100,18 @@
</value> </value>
</data> </data>
<metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>730, 54</value> <value>267, 54</value>
</metadata> </metadata>
<metadata name="PopupMenu3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>856, 54</value> <value>393, 54</value>
</metadata> </metadata>
<metadata name="PopupMenu4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 91</value> <value>519, 54</value>
</metadata> </metadata>
<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>645, 54</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>616, 91</value> <value>771, 54</value>
</metadata> </metadata>
</root> </root>

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

@ -5,6 +5,7 @@ Imports DD_Record_Organizer.ClassDocGrid
Imports DevExpress.Data Imports DevExpress.Data
Imports DevExpress.Data.Filtering Imports DevExpress.Data.Filtering
Imports DevExpress.Utils Imports DevExpress.Utils
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
@ -76,7 +77,6 @@ Public Class frmNodeNavigation
Public CtrlBuilder As ClassControlBuilder Public CtrlBuilder As ClassControlBuilder
Public CtrlCommandUI As ClassControlCommandsUI Public CtrlCommandUI As ClassControlCommandsUI
Public JumpKeyID As Long
Private Property ParentNodeChangeinAction As Boolean = False Private Property ParentNodeChangeinAction As Boolean = False
Private Property ChildNodeGuid As Integer = 0 Private Property ChildNodeGuid As Integer = 0
@ -93,10 +93,8 @@ Public Class frmNodeNavigation
Update Update
Delete Delete
End Enum End Enum
#End Region #End Region
Public Sub New(pEntityID As Int16, pConstructID As Int16)
Public Sub New(pEntityID As Int16, pConstructID As Int16, pNodeKeyID As Integer)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
@ -111,7 +109,6 @@ Public Class frmNodeNavigation
Current_DocList = New ClassDocGrid(GridViewDoc_Search) Current_DocList = New ClassDocGrid(GridViewDoc_Search)
WindowsEx = New WindowsEx(LOGCONFIG) WindowsEx = New WindowsEx(LOGCONFIG)
JumpKeyID = pNodeKeyID
ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM) ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM)
End Sub End Sub
@ -263,6 +260,7 @@ Public Class frmNodeNavigation
End If End If
Next Next
JumptoNode()
Catch ex As Exception Catch ex As Exception
NNLogger.Error(ex) NNLogger.Error(ex)
@ -409,7 +407,7 @@ Public Class frmNodeNavigation
' END NEW NODE ' END NEW NODE
CURRENT_NODEID = oGuid CURRENT_NODEID = oGuid
If oHasRecordId Then If oHasRecordId Then
Update_Status_Label(True, $"NodeGUID {oGuid} - RecordID {CURRENT_RECORD_ID}", EditState.None) Update_Status_Label(True, $"NodeID {oGuid} - RecordID {CURRENT_RECORD_ID}", EditState.None)
Node_AfterSelect = True Node_AfterSelect = True
@ -467,7 +465,7 @@ Public Class frmNodeNavigation
Node_AfterSelect = False Node_AfterSelect = False
Else Else
Update_Status_Label(True, $"NodeGUID {oGuid}", EditState.None) Update_Status_Label(True, $"NodeID {oGuid}", EditState.None)
ClassControlValues.ClearControlValues(pnlControls.Controls) ClassControlValues.ClearControlValues(pnlControls.Controls)
@ -509,9 +507,9 @@ Public Class frmNodeNavigation
oMessage = "Keine Dateien für '" oMessage = "Keine Dateien für '"
If CURRENT_SEARCH_TYPE = "ENTITY" Then If CURRENT_SEARCH_TYPE = "ENTITY" Then
oMessage &= " Entität gefunden" oMessage &= " Sicht gefunden"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
oMessage = "No files found for entity: " oMessage = "No files found for view: "
End If End If
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
@ -543,9 +541,9 @@ Public Class frmNodeNavigation
If CURRENT_SEARCH_TYPE = "ENTITY" Then If CURRENT_SEARCH_TYPE = "ENTITY" Then
oMessage = "Dateien für Entität: " oMessage = "Dateien für Sicht: "
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
oMessage = "files for entity: " oMessage = "files for view: "
End If End If
oMessage &= " (" & pDocumentCount.ToString & ")" oMessage &= " (" & pDocumentCount.ToString & ")"
@ -1795,9 +1793,9 @@ Public Class frmNodeNavigation
Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {_EntityId}" Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {_EntityId}"
CURRENT_DOCSEARCH_SQL = MYDB_ECM.GetScalarValue(oSQL) CURRENT_DOCSEARCH_SQL = MYDB_ECM.GetScalarValue(oSQL)
If CURRENT_DOCSEARCH_SQL <> String.Empty Then If CURRENT_DOCSEARCH_SQL <> String.Empty Then
Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und in einem separaten Fenster angezeigt sobald sie fertig ist." Dim oText = $"Die sichtweite Suche wird im Hintergrund ausgeführt und in einem separaten Fenster angezeigt sobald sie fertig ist."
If USER_LANGUAGE <> "de-De" Then If USER_LANGUAGE <> "de-DE" Then
oText = $"The entity-wide search will be started in background. The result will be displayed when ready." oText = $"The view-wide search will be started in background. The result will be displayed when ready."
End If End If
Update_Notification_Label(True, oText, "Yellow") Update_Notification_Label(True, oText, "Yellow")
@ -1808,9 +1806,9 @@ Public Class frmNodeNavigation
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
CURRENT_DOCSEARCH_CAPTION = "Entity-wide search" CURRENT_DOCSEARCH_CAPTION = "view-wide search"
Else Else
CURRENT_DOCSEARCH_CAPTION = "Entitätssuche" CURRENT_DOCSEARCH_CAPTION = "Sichtweite Suche"
End If End If
Dim myformThread = New Thread(Sub() Dim myformThread = New Thread(Sub()
Using frm As New frmDocSearchResult Using frm As New frmDocSearchResult
@ -2025,9 +2023,14 @@ Public Class frmNodeNavigation
Update_DocID_Label(True, omsg, EditState.Update) Update_DocID_Label(True, omsg, EditState.Update)
If SELECTED_DOC_ID <> oDocID Then If SELECTED_DOC_ID <> oDocID Then
SELECTED_DOC_ID = oDocID SELECTED_DOC_ID = oDocID
If SplitContainerDocView.Collapsed Then If checkShowPreview.Checked = False Then
SplitContainerDocView.Collapsed = False SplitContainerDocView.Collapsed = True
Else
If SplitContainerDocView.Collapsed Then
SplitContainerDocView.Collapsed = False
End If
End If End If
DocView_DisplaySelectedDoc(False) DocView_DisplaySelectedDoc(False)
End If End If
Update_DocID_Label(True, omsg, EditState.Update) Update_DocID_Label(True, omsg, EditState.Update)
@ -2524,6 +2527,11 @@ Public Class frmNodeNavigation
Else Else
tsmiFileRenameDisplayname.Visible = False tsmiFileRenameDisplayname.Visible = False
End If End If
If CURRENT_ENTITY_ID <> OF_FILESTORE_ENTITY Then
TsmitmJumpToFilestore.Visible = True
Else
TsmitmJumpToFilestore.Visible = False
End If
Else Else
tsmiFileRenameDisplayname.Visible = False tsmiFileRenameDisplayname.Visible = False
End If End If
@ -2762,13 +2770,28 @@ Public Class frmNodeNavigation
Me.BringToFront() Me.BringToFront()
TreeListDevexpress.CollapseAll() TreeListDevexpress.CollapseAll()
FORM_SHOWN = True FORM_SHOWN = True
If JumpKeyID > 0 Then
JumptoNode()
End If
End Sub End Sub
Public Sub JumptoNode() Public Sub JumptoNode()
If JumpKeyID > 0 Then If JUMP_ID > 0 Then
TreeListDevexpress.FindNodeByKeyID(JumpKeyID) If TreeListDevexpress.DataSource Is Nothing OrElse TreeListDevexpress.Nodes.Count = 0 Then
NNLogger.Debug("JumptoNode: TreeList noch nicht geladen. Warte bis Load_nodes fertig ist.")
' Frühzeitiger Exit – Load_nodes springt später
Exit Sub
End If
Dim targetGuid As Integer = Convert.ToInt32(JUMP_ID)
' Suche über Datenfeld "GUID" statt über die interne Node-Id
Dim oFindNode As TreeListNode = TreeListDevexpress.FindNodeByFieldValue("GUID", targetGuid)
If oFindNode IsNot Nothing Then
' Sichtbar machen (expandiert ggf. Eltern)
TreeListDevexpress.MakeNodeVisible(oFindNode)
' Fokus setzen
TreeListDevexpress.SetFocusedNode(oFindNode)
' Optional: markieren
TreeListDevexpress.FocusedNode = oFindNode
Else
NNLogger.Warn($"JumpToNode: kein Knoten mit GUID={JUMP_ID} gefunden.")
End If
JUMP_ID = 0
End If End If
End Sub End Sub
Private Async Sub tsmiFileRenameDisplayname_Click(sender As Object, e As EventArgs) Handles tsmiFileRenameDisplayname.Click Private Async Sub tsmiFileRenameDisplayname_Click(sender As Object, e As EventArgs) Handles tsmiFileRenameDisplayname.Click
@ -2839,10 +2862,7 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub frmNodeNavigation_Click(sender As Object, e As EventArgs) Handles MyBase.Click Private Sub frmNodeNavigation_Click(sender As Object, e As EventArgs) Handles MyBase.Click
If CURRENT_ENTITY_ID <> _EntityId Then
CURRENT_ENTITY_ID = _EntityId
CURRENT_RECORD_ID = 0
End If
End Sub End Sub
Private Sub tsmiFileOpen_Click(sender As Object, e As EventArgs) Handles tsmiFileOpen.Click Private Sub tsmiFileOpen_Click(sender As Object, e As EventArgs) Handles tsmiFileOpen.Click
@ -3272,15 +3292,126 @@ Public Class frmNodeNavigation
Else Else
NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing") NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
End If End If
' If AfterNodeChange Then Exit Sub
'Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
'Try
' Dim oSelectedDoc = ClassDocGrid.GetSingleSelectedDocument(GridViewDoc_Search)
' If oSelectedDoc Is Nothing OrElse oSelectedDoc.Count <> 1 Then
' NNLogger.Debug("Kein oder mehrere Dokumente ausgewählt.")
' Close_Document_Viewer()
' Return
' End If
' If Not checkShowPreview.Checked OrElse Not DocViewInitialized Then
' NNLogger.Info("Vorschau deaktiviert oder Viewer nicht initialisiert.")
' Return
' End If
' Close_Document_Viewer()
' Await Task.Delay(400)
' Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDoc.First()
' Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
' NNLogger.Debug("Starte DocumentViewer.LoadFile...")
' ' Flag für Erfolg
' Dim fileLoadedSuccessfully As Boolean = False
' ' Starte Timeout-Überwachung
' Dim timeoutTask = Task.Delay(TimeSpan.FromSeconds(20))
' ' Starte Laden im UI-Thread
' Dim loadTask = Task.Run(Sub()
' Try
' ' Direkt im UI-Thread ausführen
' Me.Invoke(Sub()
' DocumentViewer.LoadFile(oPath)
' fileLoadedSuccessfully = True
' End Sub)
' Catch ex As Exception
' NNLogger.Error("Fehler beim Laden des Dokuments: " & ex.Message)
' End Try
' End Sub)
' ' Warte auf Timeout oder Ladeende
' Await Task.WhenAny(loadTask, timeoutTask)
' If Not fileLoadedSuccessfully Then
' NNLogger.Warn("Ladevorgang hat Timeout überschritten oder ist fehlgeschlagen.")
' ' Optional: Viewer zurücksetzen oder Meldung anzeigen
' Else
' NNLogger.Info("Dokument erfolgreich geladen.")
' End If
Catch ex As Exception Catch ex As Exception
NNLogger.Error(ex) NNLogger.Error(ex)
Finally Finally
SplashScreenManager.CloseOverlayForm(oHandle) SplashScreenManager.CloseOverlayForm(oHandle)
End Try End Try
End Sub End Sub
'Private Async Sub DocView_DisplaySelectedDoc(AfterNodeChange As Boolean)
' If AfterNodeChange Then
' Exit Sub
' End If
' Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
' Try
' Dim oSelectedDoc = ClassDocGrid.GetSingleSelectedDocument(GridViewDoc_Search)
' If Not IsNothing(oSelectedDoc) Then
' If checkShowPreview.Checked Then
' If DocViewInitialized Then
' If oSelectedDoc.Count = 1 Then
' Close_Document_Viewer()
' Await Task.Delay(400)
' Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDoc.First()
' Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
' NNLogger.Debug("Now DocumentViewer.LoadFile...")
' Dim loadTask = Task.Run(Sub()
' DocumentViewer.LoadFile(oPath)
' End Sub)
' Dim timeoutTask = Task.Delay(TimeSpan.FromSeconds(20))
' Dim completedTask = Await Task.WhenAny(loadTask, timeoutTask)
' If completedTask Is timeoutTask Then
' NNLogger.Warn("Document loading timed out.")
' ' Optional: Cancel or reset viewer
' Else
' NNLogger.Info("Document loaded successfully.")
' End If
' Else
' NNLogger.Debug("Show_SelectedDoc - oSelectedDocs.Count not = 1 ")
' Close_Document_Viewer()
' End If
' Else
' NNLogger.Info("DocumentViewer not inited. No Show_SelectedDoc")
' End If
' End If
' Else
' NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
' End If
' Catch ex As Exception
' NNLogger.Error(ex)
' Finally
' SplashScreenManager.CloseOverlayForm(oHandle)
' End Try
'End Sub
Private Sub Close_Document_Viewer() Private Sub Close_Document_Viewer()
Try Try
DocumentViewer.CloseDocument() DocumentViewer.CloseDocument()
@ -3586,4 +3717,47 @@ Public Class frmNodeNavigation
frmFileInWork.ShowDialog() frmFileInWork.ShowDialog()
Await RUN_DOCSEARCH(True) Await RUN_DOCSEARCH(True)
End Sub End Sub
Private Sub frmNodeNavigation_Activated(sender As Object, e As EventArgs) Handles Me.Activated
If CURRENT_ENTITY_ID <> CurrentEntityId Then
CURRENT_ENTITY_ID = CurrentEntityId
CURRENT_RECORD_ID = 0
End If
End Sub
Public ReadOnly Property CurrentEntityId As Short
Get
Return _EntityId
End Get
End Property
Private Sub TsmitmJumpToFilestore_Click(sender As Object, e As EventArgs) Handles TsmitmJumpToFilestore.Click
Try
If mySelectedDocs.Count = 1 Then
Dim oDocId As Integer = mySelectedDocs.First.DocId
Dim oJumpToDocSQL = String.Format("DECLARE @PID BIGINT
SELECT @PID = dwParentID FROM TBPMO_DOCRESULT_LIST WHERE DocID = {0}
SELECT GUID FROM VWPMO_STRUCTURE_NODES WHERE ENTITY_ID = {1} AND ISNUMERIC(ID1) = 1 AND ID1 = @PID", oDocId, OF_FILESTORE_ENTITY)
Dim ojumpID As Integer = MYDB_ECM.GetScalarValue(oJumpToDocSQL)
If Not IsNothing(ojumpID) AndAlso ojumpID <> 0 Then
OpenFormConstructor(OF_FILESTORE_CONSTRUCTOR, 1, OF_FILESTORE_ENTITY, ojumpID)
Else
MessageBox.Show("A parent node could not be found!", "No Node found", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End If
Catch ex As Exception
MessageBox.Show("Unerwarteter Fehler beim Springen zum Filestore-Knoten: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub FindNode_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles FindNode.ItemClick
Dim oNode = TreeListDevexpress.FindNodeByFieldValue("GUID", BarEditItem1.EditValue)
If Not IsNothing(oNode) Then
TreeListDevexpress.FocusedNode = oNode
TreeListDevexpress.MakeNodeVisible(oNode)
Else
MessageBox.Show("Knoten nicht gefunden!", "Knoten nicht gefunden", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class End Class

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

@ -48,8 +48,8 @@ Public Class frmRecordView
Me.Text = "Detailansicht Record" Me.Text = "Detailansicht Record"
End If End If
recordView = New ClassRecordView(pnlDetails) recordView = New ClassRecordView(pnlDetails)
RECORD_ID = JUMP_RECORD_ID RECORD_ID = JUMP_ID
recordView.LoadRecord(JUMP_RECORD_ID) recordView.LoadRecord(JUMP_ID)
'Titel updaten 'Titel updaten
Me.Text &= " " + RECORD_ID.ToString() Me.Text &= " " + RECORD_ID.ToString()
@ -437,8 +437,8 @@ Public Class frmRecordView
End Try End Try
Me.BringToFront() Me.BringToFront()
If JUMP_RECORD_ID <> 0 Then If JUMP_ID <> 0 Then
JUMP_RECORD_ID = 0 JUMP_ID = 0
End If End If
End Sub End Sub

8
app/DD-Record-Organizer/frmViewsUser.vb
View File

@ -16,8 +16,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = row.Item("USERNAME") newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME") newUserRow.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
newUserRow.Prename = row.Item("PRENAME") newUserRow.Prename = If(IsDBNull(row("PRENAME")), "", row("PRENAME").ToString())
Try Try
newUserRow.Email = row.Item("EMAIL") newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception Catch ex As Exception
@ -35,8 +35,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
For Each row As DataRow In DT_USERS_CONFIGURED.Rows For Each row As DataRow In DT_USERS_CONFIGURED.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Surname = row.Item("NAME") newUserRow.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
newUserRow.Prename = row.Item("PRENAME") newUserRow.Prename = If(IsDBNull(row("PRENAME")), "", row("PRENAME").ToString())
newUserRow.Username = row.Item("USERNAME") newUserRow.Username = row.Item("USERNAME")
Try Try
newUserRow.Email = row.Item("EMAIL") newUserRow.Email = row.Item("EMAIL")

91
app/DD-Record-Organizer/frmWM_IndexFile.resx
View File

@ -294,6 +294,9 @@
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="cmbDokumentart.Font" type="System.Drawing.Font, System.Drawing"> <data name="cmbDokumentart.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9.75pt, style=Bold</value> <value>Segoe UI Semibold, 9.75pt, style=Bold</value>
</data> </data>
@ -306,9 +309,6 @@
<data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib"> <data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="cmbDokumentart.ToolTip" xml:space="preserve"> <data name="cmbDokumentart.ToolTip" xml:space="preserve">
<value>Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert</value> <value>Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert</value>
</data> </data>
@ -390,6 +390,57 @@
<data name="&gt;&gt;OBJECT_TYPETextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;OBJECT_TYPETextBox.ZOrder" xml:space="preserve">
<value>5</value> <value>5</value>
</data> </data>
<data name="&gt;&gt;PATHTextBox.Name" xml:space="preserve">
<value>PATHTextBox</value>
</data>
<data name="&gt;&gt;PATHTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;PATHTextBox.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;PATHTextBox.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.Name" xml:space="preserve">
<value>DOCTYPE_IDTextBox</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Italic</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 117</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>560, 80</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Gewählte Indexierungsdaten - Automatik:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="PATHTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="PATHTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
@ -438,33 +489,6 @@
<data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Italic</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 117</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>560, 80</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Gewählte Indexierungsdaten - Automatik:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
</data> </data>
@ -478,7 +502,7 @@
<value>24, 598</value> <value>24, 598</value>
</data> </data>
<data name="chkdelete_origin.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkdelete_origin.Size" type="System.Drawing.Size, System.Drawing">
<value>178, 20</value> <value>177, 20</value>
</data> </data>
<data name="chkdelete_origin.TabIndex" type="System.Int32, mscorlib"> <data name="chkdelete_origin.TabIndex" type="System.Int32, mscorlib">
<value>8</value> <value>8</value>
@ -486,6 +510,9 @@
<data name="chkdelete_origin.Text" xml:space="preserve"> <data name="chkdelete_origin.Text" xml:space="preserve">
<value>Lösche Ursprungsdatei</value> <value>Lösche Ursprungsdatei</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="chkdelete_origin.ToolTip" xml:space="preserve"> <data name="chkdelete_origin.ToolTip" xml:space="preserve">
<value>Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eingabe gespeichert</value> <value>Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eingabe gespeichert</value>
</data> </data>
@ -514,7 +541,7 @@
<value>24, 624</value> <value>24, 624</value>
</data> </data>
<data name="chkMultiIndexer.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkMultiIndexer.Size" type="System.Drawing.Size, System.Drawing">
<value>520, 20</value> <value>519, 20</value>
</data> </data>
<data name="chkMultiIndexer.TabIndex" type="System.Int32, mscorlib"> <data name="chkMultiIndexer.TabIndex" type="System.Int32, mscorlib">
<value>9</value> <value>9</value>

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, True) Dim streamresult = WMMOD.NewFileStream(ImportFilePath, CURRENT_NEWFILENAME, OBJECT_TYPETextBox.Text)
sw.Done() sw.Done()
'################################################################# '#################################################################
If streamresult = True Then If streamresult = True Then

2
app/Setup_NoUpdaterVS19/Product.wxs
View File

@ -194,8 +194,6 @@
<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.Imaging.ML.64" Name="GdPicture.NET.14.Imaging.ML.64.dll" /> <File Id="GdPicture.NET.14.Imaging.ML.64" Name="GdPicture.NET.14.Imaging.ML.64.dll" />
<File Id="GdPicture.NET.14.Imaging.ML" Name="GdPicture.NET.14.Imaging.ML.dll" /> <File Id="GdPicture.NET.14.Imaging.ML" Name="GdPicture.NET.14.Imaging.ML.dll" />
<File Id="GdPicture.NET.14.Imaging.Formats.Conversion" Name="GdPicture.NET.14.Imaging.Formats.Conversion.dll" />
<File Id="GdPicture.NET.14.Imaging.Formats.Conversion" Name="GdPicture.NET.14.Imaging.Formats.Conversion.dll" /> <File Id="GdPicture.NET.14.Imaging.Formats.Conversion" Name="GdPicture.NET.14.Imaging.Formats.Conversion.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" />