From 7e9ca7611c550998312e9433a9a77aeb27b4369a Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Tue, 25 Oct 2016 14:32:55 +0200 Subject: [PATCH] MS --- .../ClassImport_Windream.vb | 167 +- app/DD-Record-Organiser/ClassWindream.vb | 481 +++--- .../frmConstructor_Main.Designer.vb | 165 +- .../frmConstructor_Main.resx | 1424 ++++++++++------- .../frmConstructor_Main.vb | 129 +- 5 files changed, 1411 insertions(+), 955 deletions(-) diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organiser/ClassImport_Windream.vb index e94dbea..b801cc6 100644 --- a/app/DD-Record-Organiser/ClassImport_Windream.vb +++ b/app/DD-Record-Organiser/ClassImport_Windream.vb @@ -1,5 +1,6 @@ Imports System.IO Imports System.Globalization +Imports WINDREAMLib Public Class ClassImport_Windream Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer) @@ -123,6 +124,10 @@ Public Class ClassImport_Windream End Function Public Shared Function Name_Generieren(DocTypeID As Integer) + If ClassWindream.Create_Session = False Then + Return False + End If + Try Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where UPPER(NAME) = UPPER('Global-Indexer')" @@ -131,7 +136,6 @@ Public Class ClassImport_Windream VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER") Dim err As Boolean = False - Dim folder_Created As Boolean = False Dim Zielordner As String Dim extension As String = Path.GetExtension(CURRENT_FILENAME) Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID) @@ -139,41 +143,60 @@ Public Class ClassImport_Windream 'sql_history_Index_Values = "" Dim AnzahlIndexe As Integer = 1 _WDOBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP") - If folder_Created = False Then - ' Den Zielordner erstellen - Zielordner = DT.Rows(0).Item("ZIEL_PFAD") - - sql = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID - Dim Folder_for_index = ClassDatabase.Execute_Scalar(sql) - If Not IsDBNull(Folder_for_index) Then - If Folder_for_index <> String.Empty Then - If CREATE_FOLDER_INDEX(Folder_for_index, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then - Zielordner = Zielordner & "\" & CURRENT_VARIABLE_FOLDER - Else - MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical) - Return False - End If + + ' Den Zielordner erstellen + Zielordner = DT.Rows(0).Item("ZIEL_PFAD") + + sql = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID + Dim Folder_for_index = ClassDatabase.Execute_Scalar(sql) + If Not IsDBNull(Folder_for_index) Then + If Folder_for_index <> String.Empty Then + If CREATE_FOLDER_INDEX(Folder_for_index, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then + Zielordner = Zielordner & "\" & CURRENT_VARIABLE_FOLDER + Else + MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical) + Return False End If End If + End If - 'Unterordner ja oder nein - If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then - Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER - End If + 'Unterordner ja oder nein + If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then + Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER + End If - If Directory.Exists(Zielordner) = False Then - 'Try to create the directory. - Try - Directory.CreateDirectory(Zielordner) - Catch ex As Exception - ClassLogger.Add(" - Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message) - MsgBox("Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Try + Select Case ClassWindream.WD_PATH_EXISTS(Zielordner.Substring(2)) + Case False + Dim split() As String = Zielordner.Split("\") + Dim Path_Combined As String = "" + For Each s As String In split + Path_Combined &= s & "\" + If Path_Combined <> "W:\" Then + Try + Select Case ClassWindream.WD_PATH_EXISTS(Path_Combined.Substring(2)) + Case False + ClassWindream.oSession.GetNewWMObjectFS(2, Path_Combined.Substring(2), 0) 'WMEntityFolder,WMObjectEditModeNoEdit) + Case -10 + Return False + End Select + Catch ex As Exception + If Not ex.Message.Contains("Filename exists!") Then + ClassLogger.Add(String.Format(">> Could not create folder-part ({0}): " & ex.Message, Path_Combined.Substring(2)), True) + Return False + End If + End Try + End If + Next + Case -10 Return False - End Try - + End Select + Catch ex As Exception + If Not ex.Message.Contains("Filename exists!") Then + ClassLogger.Add(String.Format(">> Could not create folder ({0}): " & ex.Message, Zielordner.Substring(2)), False) + Return False End If - folder_Created = True - End If + End Try '#### ' Regulären Ausdruck zum Auslesen der Indexe definieren Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" @@ -409,34 +432,68 @@ Public Class ClassImport_Windream Dim _neuername As String = DATEINAME.Replace(VERSION_DELIMITER, "") 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") _NewFileString = _neuername - 'Überprüfen ob File existiert - If File.Exists(_neuername & extension) = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> File is not existing", False) + Const WMCOMEventWMSessionNeedIndex = 1 + 'windream Objekte erstellen ohne Indexierungs-Event + ClassWindream.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False) + 'Überprüfen ob File existiert + Dim FILE_EXISTS_IN_WD As Boolean + If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) + FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 0, 0) + Dim WMObject + If FILE_EXISTS_IN_WD = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) + '================================================================== + ' create an object + '================================================================== + Try + WMObject = ClassWindream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 31) + Catch ex As Exception + ClassLogger.Add("Could not create the windremObject(File) '" & _NewFileString.Substring(2) & extension & "': " & ex.Message, True) + Return False + End Try Else - Dim msg As String - msg = "Achtung: die Datei existiert bereits!" & vbNewLine & _neuername & extension & vbNewLine & "Wollen Sie die vorhandene Datei ersetzen?" - If USER_LANGUAGE <> "de-DE" Then - msg = "Attention: there is already a file with this name!" & vbNewLine & _neuername & extension & vbNewLine & "Would You like to replace this file with the actual one?" - End If - Dim result As MsgBoxResult - result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - If result = MsgBoxResult.Yes Then - Try - File.Delete(_neuername & extension) - Catch ex As Exception - MsgBox("Unexpected Error in Replace file: " & ex.Message, MsgBoxStyle.Critical) - err = True - End Try - Else - Do While File.Exists(_neuername & extension) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention File '" & _neuername & extension & "' is existing!", False) - version = version + 1 - _neuername = Stammname & VERSION_DELIMITER & version - _NewFileString = _neuername - Loop - End If + ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen + If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) + + Do While FILE_EXISTS_IN_WD = True + If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention File '" & _neuername & extension & "' is existing!", False) + _neuername = Stammname & VERSION_DELIMITER & version + _NewFileString = _neuername + FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 0, 0) + version = version + 1 + Loop + Try + WMObject = ClassWindream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 31) + Catch ex As Exception + ClassLogger.Add("Could not create the windremObject(File) COPY '" & _NewFileString.Substring(2) & extension & "': " & ex.Message, True) + Return False + End Try + If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject created after versioning", False) End If + ClassWindream.STREAM_OBJECT = Nothing + ClassWindream.STREAM_OBJECT = WMObject + 'If File.Exists(_neuername & extension) = False Then + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> File is not existing", False) + 'Else + ' Dim msg As String + ' msg = "Achtung: die Datei existiert bereits!" & vbNewLine & _neuername & extension & vbNewLine & "Wollen Sie die vorhandene Datei ersetzen?" + ' If USER_LANGUAGE <> "de-DE" Then + ' msg = "Attention: there is already a file with this name!" & vbNewLine & _neuername & extension & vbNewLine & "Would You like to replace this file with the actual one?" + ' End If + ' Dim result As MsgBoxResult + ' result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + ' If result = MsgBoxResult.Yes Then + ' Try + ' File.Delete(_neuername & extension) + ' Catch ex As Exception + ' MsgBox("Unexpected Error in Replace file: " & ex.Message, MsgBoxStyle.Critical) + ' err = True + ' End Try + ' Else + + ' End If + 'End If Catch ex As Exception ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:") diff --git a/app/DD-Record-Organiser/ClassWindream.vb b/app/DD-Record-Organiser/ClassWindream.vb index a438ed8..24f0f45 100644 --- a/app/DD-Record-Organiser/ClassWindream.vb +++ b/app/DD-Record-Organiser/ClassWindream.vb @@ -34,6 +34,18 @@ Public Class ClassWindream Const WMObjectVariableValueTypeVector = &H1000 Const WMObjectVariableValueTypeFulltext = &H2000 Const WMObjectVariableValueTypeDefaultValue = &H4000 + + Const REL_Document_AccessRight = "AccessRight" + Const COL_AccessRight_AccessRightID = "dwAccessRightID" + Const COL_AccessRight_AccessRight = "dwAccessRight" + Const REL_AccessRight_UserOrGroup = "AccessRightUserOrGroup" + + Const WMAccessRightUndefined = 0 + Const WMAccessRightRead = 1 + Const WMAccessRightWrite = 2 + Const WMAccessRightAdmin = 4 + Const WMAccessRightAllRights = 7 + #End Region #Region "+++++ Variablen +++++" @@ -45,8 +57,10 @@ Public Class ClassWindream Private Shared oController As New WMOSearchController Public Shared _WDObjekttyp As String Private Shared aktWMObject As WINDREAMLib.WMObject + Public Shared STREAM_OBJECT As WINDREAMLib.WMObject Public Shared WD_SERVER Public Shared CURRENT_WMObject As WMObject + Private Shared dwAccessRight #End Region @@ -590,102 +604,130 @@ Public Class ClassWindream End Try End Function + Public Shared Function Create_Session() + Try + Dim Session + Dim dmsServer As String + Dim wmbrwsr + Dim Connect + If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False) + wmbrwsr = CreateObject("WMOBrws.ServerBrowser") + '================================================================== + ' get the current DMS-server to log in + '================================================================== + dmsServer = wmbrwsr.GetCurrentServer + If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren: CreateObject('Windream.WMConnect')", False) + Try + Connect = CreateObject("Windream.WMConnect") + Catch ex As Exception + ClassLogger.Add("Error in Create windreamConnect: " & ex.Message, True) + Return False + End Try + + '================================================================== + ' create a session + '================================================================== + 'Prüfen ob sich personifiziert angemeldet werden muss? + Try + If FAU_AD_USER <> "" Then + Session = GetWMSessionAsUser(FAU_AD_DOMAIN, FAU_AD_SERVER, FAU_AD_USER, FAU_AD_USER_PW) + Else + Session = CreateObject("Windream.WMSession", dmsServer) + End If + Catch ex As Exception + ClassLogger.Add("Error in Create windream Session: " & ex.Message, True) + Return False + End Try + + '================================================================== + ' login session + '================================================================== + Try + Connect.LoginSession(Session) + Dim LoggedIn = Session.aLoggedin + If LoggedIn Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) + oSession = Session + Return True + 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'") + Else + ClassLogger.Add(">> Login on dms-Server failed", False) + Return False + ' MsgBox("Login failed. ") + End If + Catch ex As Exception + ClassLogger.Add(">> Persionalized session - User is already logged in!'" & Err.Description & "'") + If Not IsNothing(oSession) Then + Return True + End If + End Try + + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Create Session: " & ex.Message, True) + Return False + End Try + End Function Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False) Try aktWMObject = Nothing - If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then - My.Computer.FileSystem.CreateDirectory(zielpfad) - ClassLogger.Add(">> Zielverzeichnis neu erzeugt!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False) + If IsNothing(oSession) Then + If Create_Session() = False Then + Return False + End If End If + Dim sdsd = WMEntityFolder + + Const STREAM_BinaryObject = "BinaryObject" - If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False) + Dim endgültigerDateiname As String = "" ' Objekt für Datei und Zielverzeichnis anlegen ' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Quelldatei gelesen", False) - '######## Dim Zielverzeichnis As String = zielpfad endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2) - If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert", False) - ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist - Dim dvr As New DriveInfo(vWLaufwerk & ":") - Dim freeSpace = dvr.TotalFreeSpace - - Dim info As New FileInfo(filenameQuelle) - ' Get length of the file. - Dim length As Long = info.Length - If freeSpace < length Then - MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") - Return -10 - End If - - If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False) - Dim Connect - Dim Session - Dim WMObject - Dim aFileIO - Dim aWMStream - Dim wmbrwsr - Dim dmsServer As String - If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren: CreateObject('Windream.WMConnect')", False) - Connect = CreateObject("Windream.WMConnect") - aFileIO = New WMOTOOLLib.WMFileIO - 'If My.Settings.DLL_WMOTOOL = "" Then - ' aFileIO = New WMOTOOLLib.WMFileIO - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) - 'Else - ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) - 'End If - wmbrwsr = CreateObject("WMOBrws.ServerBrowser") - '================================================================== - ' get the current DMS-server to log in - '================================================================== - dmsServer = wmbrwsr.GetCurrentServer - '================================================================== - ' create a session - '================================================================== - 'Prüfen ob sich personifiziert angemeldet werden muss? - If FAU_AD_USER <> "" Then - Session = GetWMSessionAsUser(FAU_AD_DOMAIN, FAU_AD_SERVER, FAU_AD_USER, FAU_AD_USER_PW) - Else - Session = CreateObject("Windream.WMSession", dmsServer) - End If - '================================================================== - ' login session - '================================================================== - Try - Connect.LoginSession(Session) - Dim LoggedIn = Session.aLoggedin - If LoggedIn Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) - 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'") - Else - ClassLogger.Add(">> Login on dms-Server failed", False) - ' MsgBox("Login failed. ") - End If - Catch ex As Exception - ClassLogger.Add(">> Persionalized session - User is already logged in!'" & Err.Description & "'") - End Try - - Const WMCOMEventWMSessionNeedIndex = 1 - - 'windream Objekte erstellen ohne Indexierungs-Event - Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False) - oSession = Session - '================================================================== - ' check if files exist - '================================================================== + '' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist + 'Dim dvr As New DriveInfo(vWLaufwerk & ":") + 'Dim freeSpace = dvr.TotalFreeSpace + + 'Dim info As New FileInfo(filenameQuelle) + '' Get length of the file. + Dim length As Long '= info.Length + 'If freeSpace < length Then + ' MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") + ' Return -10 + 'End If + + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False) + + Dim WMObject + Dim aFileIO + Dim aWMStream + + aFileIO = New WMOTOOLLib.WMFileIO + 'If My.Settings.DLL_WMOTOOL = "" Then + ' aFileIO = New WMOTOOLLib.WMFileIO + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) + 'Else + ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) + 'End If + + '================================================================== + ' check if files exist + '================================================================== + If Not IsNothing(STREAM_OBJECT) Then + WMObject = STREAM_OBJECT + Else If LogErrorsOnly = False Then ClassLogger.Add(" >> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) Dim wdFilexists As Boolean If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) - wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) + wdFilexists = oSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) If wdFilexists = False Then If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) @@ -693,7 +735,7 @@ Public Class ClassWindream '================================================================== ' create an object '================================================================== - WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) + WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) If Err.Number > 0 Then ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) @@ -704,142 +746,140 @@ Public Class ClassWindream If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) Err.Clear() - WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) + WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) If Err.Number > 0 Then ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) End If If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False) End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) - If WMObject IsNot Nothing Then - ' lock object for file system access (to change the file itself) - WMObject.lock() - ' set fileIO the local source file - aFileIO.bstrOriginalFileName = filenameQuelle - If Err.Number > 0 Then - 'MsgBox(Err.Number.ToString) - ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return False - ' MsgBox(Err.Description) - End If - ' open the windream object's file stream for writing - aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) - If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return False - 'MsgBox(Err.Description) - End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> oWMStream erzeugt", False) - ' give fileIO helper object the windream stream - aFileIO.aWMStream = aWMStream - If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return False - 'MsgBox(Err.Description) - End If - ' let fileIO object import the original file into windream - aFileIO.ImportOriginal(True) - If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return False - ' MsgBox(Err.Description) - End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> Inhalt der Datei konnte übertragen werden", False) - ' close the windream file stream - aWMStream.Close() - If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return False - 'MsgBox(Err.Description) - End If - ' save new windream object - WMObject.save() - If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return Err.Number - 'MsgBox(Err.Description) - End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei konnte gespeichert werden", False) - ' unlock the windream object - WMObject.unlock() - If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - WMObject.Unlock() - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - Return False - 'MsgBox(Err.Description) - End If - 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist - Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname) - Dim length1 As Long = info2.Length - If length1 > 0 And Err.Number = 0 Then - If endgültigerDateiname.StartsWith("\") Then - If endgültigerDateiname.StartsWith("\\") Then - endgültigerDateiname = endgültigerDateiname.Replace("\\", "\") - Else - endgültigerDateiname = endgültigerDateiname - End If + End If + + If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) + If WMObject IsNot Nothing Then + ' lock object for file system access (to change the file itself) + WMObject.lock() + ' set fileIO the local source file + aFileIO.bstrOriginalFileName = filenameQuelle + If Err.Number > 0 Then + 'MsgBox(Err.Number.ToString) + ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + ' MsgBox(Err.Description) + End If + ' open the windream object's file stream for writing + aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" >> oWMStream erzeugt", False) + ' give fileIO helper object the windream stream + aFileIO.aWMStream = aWMStream + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + ' let fileIO object import the original file into windream + aFileIO.ImportOriginal(True) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + ' MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" >> Inhalt der Datei konnte übertragen werden", False) + ' close the windream file stream + aWMStream.Close() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + ' save new windream object + WMObject.save() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return Err.Number + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei konnte gespeichert werden", False) + ' unlock the windream object + WMObject.unlock() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist + Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname) + Dim length1 As Long = info2.Length + If length1 > 0 And Err.Number = 0 Then + If endgültigerDateiname.StartsWith("\") Then + If endgültigerDateiname.StartsWith("\\") Then + endgültigerDateiname = endgültigerDateiname.Replace("\\", "\") Else - endgültigerDateiname = "\" & endgültigerDateiname + endgültigerDateiname = endgültigerDateiname End If - CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname - CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\") - ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False) + Else + endgültigerDateiname = "\" & endgültigerDateiname + End If + CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname + CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\") + ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False) - aktWMObject = WMObject - Return True - Else - If length = 0 Then - If ImportAll = False Then - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - ClassLogger.Add(" Error in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " was deleted") - Return False - Else - If endgültigerDateiname.StartsWith("\") Then - If endgültigerDateiname.StartsWith("\\") Then - endgültigerDateiname = endgültigerDateiname.Replace("\\", "\") - Else - endgültigerDateiname = endgültigerDateiname - End If + aktWMObject = WMObject + Return True + Else + If length = 0 Then + If ImportAll = False Then + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + ClassLogger.Add(" Error in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " was deleted") + Return False + Else + If endgültigerDateiname.StartsWith("\") Then + If endgültigerDateiname.StartsWith("\\") Then + endgültigerDateiname = endgültigerDateiname.Replace("\\", "\") Else - endgültigerDateiname = "\" & endgültigerDateiname + endgültigerDateiname = endgültigerDateiname End If - ClassLogger.Add(">> ATTENTION in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " will be imported") - CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname - CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\") - - '### - ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False) - aktWMObject = WMObject - Return True + Else + endgültigerDateiname = "\" & endgültigerDateiname End If - - Else - ClassLogger.Add("Error in Stream File - Error <> 0") - Return False + ClassLogger.Add(">> ATTENTION in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " will be imported") + CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname + CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\") + + '### + ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False) + aktWMObject = WMObject + Return True End If + Else + ClassLogger.Add("Error in Stream File - Error <> 0") + Return False End If - Else - Return False + End If Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert NICHT", False) Return False End If Catch ex As Exception @@ -848,6 +888,15 @@ Public Class ClassWindream End Try + End Function + Public Shared Function WD_PATH_EXISTS(substring_path As String) + Try + Dim folder_exists = oSession.WMObjectExists(WMEntityFolder, substring_path, 0, 0) + Return folder_exists + Catch ex As Exception + ClassLogger.Add(String.Format("Unexpected error in WD_PATH_EXISTS ({0}): {1} ", substring_path, ex.Message), True) + Return -10 + End Try End Function Public Shared Function Delete_WDFile(ByVal WD_File As String) Try @@ -2092,4 +2141,42 @@ Public Class ClassWindream End Try End Function + Public Shared Function Get_File_Rights(filepath As String) + Try + If IsNothing(oSession) Then + If Init() = False Then + MsgBox("Error in Init windream - check the log for further information!", MsgBoxStyle.Exclamation) + Return Nothing + End If + End If + + Dim oWMObject As WINDREAMLib.WMObject + oWMObject = oSession.GetWMObjectByPath(WMEntityDocumentAndMap, filepath.Substring(2)) + Dim AccessRightsObject + AccessRightsObject = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight) + Dim _msg As String + For Each aRightRelation In AccessRightsObject + dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight) 'COL_AccessRight_AccessRight) + Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup) + Dim UserOrGroup = UserGroupRelation.item(0).aName + If UserOrGroup.ToString.ToLower.Contains(Environment.UserName.ToLower) Then + If dwAccessRight And WMAccessRightRead Then + _msg = "R" + End If + If dwAccessRight And WMAccessRightWrite Then + _msg = _msg & "W" + End If + If dwAccessRight And WMAccessRightAdmin Then + _msg = _msg & "A" + End If + End If + + Next + Return _msg + + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message) + Return Nothing + End Try + End Function End Class diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb index d0064f5..47a4f49 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb @@ -24,9 +24,9 @@ Partial Class frmConstructor_Main Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) - Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.TreeViewMain = New System.Windows.Forms.TreeView() @@ -69,25 +69,26 @@ Partial Class frmConstructor_Main Me.TabWindream = New DevExpress.XtraTab.XtraTabPage() Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl() Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() - Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_Copy = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() - Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_Rename = New System.Windows.Forms.ToolStripMenuItem() Me.tsTextBoxRenameFile = New System.Windows.Forms.ToolStripTextBox() - Me.TSMIDisplayname = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_RenameDisplay = New System.Windows.Forms.ToolStripMenuItem() Me.tstbDisplayname = New System.Windows.Forms.ToolStripTextBox() - Me.TSMI_inWork = New System.Windows.Forms.ToolStripMenuItem() - Me.TSMI_linkRecord = New System.Windows.Forms.ToolStripMenuItem() - Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_InWork = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_linkRecord = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_CheckRights = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripMI_DeleteFile = New System.Windows.Forms.ToolStripMenuItem() - Me.TsMI_DocRemoveLink = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_DeleteFile = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_RemoveLink = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() - Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_ResetView = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_showGridSearch = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator() - Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.SucheAnzeigenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_PropertiesFile = New System.Windows.Forms.ToolStripMenuItem() + Me.docCM_GetRights = New System.Windows.Forms.ToolStripMenuItem() Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView() Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip() Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel() @@ -311,12 +312,12 @@ Partial Class frmConstructor_Main Me.GridControlMain.AllowDrop = True Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid resources.ApplyResources(Me.GridControlMain, "GridControlMain") - GridLevelNode1.LevelTemplate = Me.grvwGrid - GridLevelNode1.RelationName = "Level1" - GridLevelNode2.LevelTemplate = Me.grvwCarousel - GridLevelNode2.RelationName = "Level2" - GridLevelNode3.RelationName = "Level3" - Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3}) + GridLevelNode4.LevelTemplate = Me.grvwGrid + GridLevelNode4.RelationName = "Level1" + GridLevelNode5.LevelTemplate = Me.grvwCarousel + GridLevelNode5.RelationName = "Level2" + GridLevelNode6.RelationName = "Level3" + Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6}) Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles}) @@ -517,36 +518,36 @@ Partial Class frmConstructor_Main ' 'ContextMenuStripResultFiles ' - Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.tsmiRights, Me.ToolStripSeparator8, Me.ToolStripMI_DeleteFile, Me.TsMI_DocRemoveLink, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.ToolStripSeparator16, Me.AnsichtZurücksetzenToolStripMenuItem, Me.SucheAnzeigenToolStripMenuItem1}) + Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.ToolStripSeparator7, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCM_Rename, Me.docCM_RenameDisplay, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_CheckRights, Me.ToolStripSeparator8, Me.docCM_DeleteFile, Me.docCM_RemoveLink, Me.ToolStripSeparator9, Me.docCM_ResetView, Me.docCM_showGridSearch, Me.docCM_GetRights, Me.ToolStripSeparator16, Me.docCM_PropertiesFile}) Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles" resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles") ' - 'DateiÖffnenToolStripMenuItem + 'docCM_Open ' - Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem" - resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem") + Me.docCM_Open.Name = "docCM_Open" + resources.ApplyResources(Me.docCM_Open, "docCM_Open") ' 'ToolStripSeparator7 ' Me.ToolStripSeparator7.Name = "ToolStripSeparator7" resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7") ' - 'CopyToolStripMenuItem + 'docCM_Copy ' - Me.CopyToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524 - Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" - resources.ApplyResources(Me.CopyToolStripMenuItem, "CopyToolStripMenuItem") + Me.docCM_Copy.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524 + Me.docCM_Copy.Name = "docCM_Copy" + resources.ApplyResources(Me.docCM_Copy, "docCM_Copy") ' 'ToolStripSeparator10 ' Me.ToolStripSeparator10.Name = "ToolStripSeparator10" resources.ApplyResources(Me.ToolStripSeparator10, "ToolStripSeparator10") ' - 'UmbenennenToolStripMenuItem + 'docCM_Rename ' - Me.UmbenennenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsTextBoxRenameFile}) - Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem" - resources.ApplyResources(Me.UmbenennenToolStripMenuItem, "UmbenennenToolStripMenuItem") + Me.docCM_Rename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsTextBoxRenameFile}) + Me.docCM_Rename.Name = "docCM_Rename" + resources.ApplyResources(Me.docCM_Rename, "docCM_Rename") ' 'tsTextBoxRenameFile ' @@ -555,11 +556,11 @@ Partial Class frmConstructor_Main Me.tsTextBoxRenameFile.Name = "tsTextBoxRenameFile" resources.ApplyResources(Me.tsTextBoxRenameFile, "tsTextBoxRenameFile") ' - 'TSMIDisplayname + 'docCM_RenameDisplay ' - Me.TSMIDisplayname.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstbDisplayname}) - Me.TSMIDisplayname.Name = "TSMIDisplayname" - resources.ApplyResources(Me.TSMIDisplayname, "TSMIDisplayname") + Me.docCM_RenameDisplay.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstbDisplayname}) + Me.docCM_RenameDisplay.Name = "docCM_RenameDisplay" + resources.ApplyResources(Me.docCM_RenameDisplay, "docCM_RenameDisplay") ' 'tstbDisplayname ' @@ -568,66 +569,71 @@ Partial Class frmConstructor_Main Me.tstbDisplayname.Name = "tstbDisplayname" resources.ApplyResources(Me.tstbDisplayname, "tstbDisplayname") ' - 'TSMI_inWork + 'docCM_InWork ' - Me.TSMI_inWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 - Me.TSMI_inWork.Name = "TSMI_inWork" - resources.ApplyResources(Me.TSMI_inWork, "TSMI_inWork") + Me.docCM_InWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 + Me.docCM_InWork.Name = "docCM_InWork" + resources.ApplyResources(Me.docCM_InWork, "docCM_InWork") ' - 'TSMI_linkRecord + 'docCM_linkRecord ' - Me.TSMI_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link - Me.TSMI_linkRecord.Name = "TSMI_linkRecord" - resources.ApplyResources(Me.TSMI_linkRecord, "TSMI_linkRecord") + Me.docCM_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link + Me.docCM_linkRecord.Name = "docCM_linkRecord" + resources.ApplyResources(Me.docCM_linkRecord, "docCM_linkRecord") ' - 'tsmiRights + 'docCM_CheckRights ' - Me.tsmiRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly - Me.tsmiRights.Name = "tsmiRights" - resources.ApplyResources(Me.tsmiRights, "tsmiRights") + Me.docCM_CheckRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly + Me.docCM_CheckRights.Name = "docCM_CheckRights" + resources.ApplyResources(Me.docCM_CheckRights, "docCM_CheckRights") ' 'ToolStripSeparator8 ' Me.ToolStripSeparator8.Name = "ToolStripSeparator8" resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8") ' - 'ToolStripMI_DeleteFile + 'docCM_DeleteFile ' - Me.ToolStripMI_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete - Me.ToolStripMI_DeleteFile.Name = "ToolStripMI_DeleteFile" - resources.ApplyResources(Me.ToolStripMI_DeleteFile, "ToolStripMI_DeleteFile") + Me.docCM_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.docCM_DeleteFile.Name = "docCM_DeleteFile" + resources.ApplyResources(Me.docCM_DeleteFile, "docCM_DeleteFile") ' - 'TsMI_DocRemoveLink + 'docCM_RemoveLink ' - Me.TsMI_DocRemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938 - Me.TsMI_DocRemoveLink.Name = "TsMI_DocRemoveLink" - resources.ApplyResources(Me.TsMI_DocRemoveLink, "TsMI_DocRemoveLink") + Me.docCM_RemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938 + Me.docCM_RemoveLink.Name = "docCM_RemoveLink" + resources.ApplyResources(Me.docCM_RemoveLink, "docCM_RemoveLink") ' 'ToolStripSeparator9 ' Me.ToolStripSeparator9.Name = "ToolStripSeparator9" resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9") ' - 'PropertiesToolStripMenuItem + 'docCM_ResetView ' - Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041 - Me.PropertiesToolStripMenuItem.Name = "PropertiesToolStripMenuItem" - resources.ApplyResources(Me.PropertiesToolStripMenuItem, "PropertiesToolStripMenuItem") + Me.docCM_ResetView.Name = "docCM_ResetView" + resources.ApplyResources(Me.docCM_ResetView, "docCM_ResetView") + ' + 'docCM_showGridSearch + ' + Me.docCM_showGridSearch.Name = "docCM_showGridSearch" + resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch") ' 'ToolStripSeparator16 ' Me.ToolStripSeparator16.Name = "ToolStripSeparator16" resources.ApplyResources(Me.ToolStripSeparator16, "ToolStripSeparator16") ' - 'AnsichtZurücksetzenToolStripMenuItem + 'docCM_PropertiesFile ' - Me.AnsichtZurücksetzenToolStripMenuItem.Name = "AnsichtZurücksetzenToolStripMenuItem" - resources.ApplyResources(Me.AnsichtZurücksetzenToolStripMenuItem, "AnsichtZurücksetzenToolStripMenuItem") + Me.docCM_PropertiesFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041 + Me.docCM_PropertiesFile.Name = "docCM_PropertiesFile" + resources.ApplyResources(Me.docCM_PropertiesFile, "docCM_PropertiesFile") ' - 'SucheAnzeigenToolStripMenuItem1 + 'docCM_GetRights ' - Me.SucheAnzeigenToolStripMenuItem1.Name = "SucheAnzeigenToolStripMenuItem1" - resources.ApplyResources(Me.SucheAnzeigenToolStripMenuItem1, "SucheAnzeigenToolStripMenuItem1") + Me.docCM_GetRights.Name = "docCM_GetRights" + resources.ApplyResources(Me.docCM_GetRights, "docCM_GetRights") ' 'GridViewDoc_Search ' @@ -1393,13 +1399,13 @@ Partial Class frmConstructor_Main Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsmi_RecordDelete As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip - Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_Open As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_Copy As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents TsMI_DocRemoveLink As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_RemoveLink As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_PropertiesFile As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel Friend WithEvents tsButtonCancel As System.Windows.Forms.ToolStripButton Friend WithEvents tsbtnRedo As System.Windows.Forms.ToolStripButton @@ -1407,21 +1413,21 @@ Partial Class frmConstructor_Main Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents MassenänderungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents UmbenennenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_Rename As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tsTextBoxRenameFile As System.Windows.Forms.ToolStripTextBox - Friend WithEvents TSMI_linkRecord As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_linkRecord As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SplitContainer1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator Friend WithEvents DetailAnsichtDatensatzToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents EntitätssucheStartenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents TSMI_inWork As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents TSMIDisplayname As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_InWork As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_ResetView As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_RenameDisplay As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tstbDisplayname As System.Windows.Forms.ToolStripTextBox - Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_CheckRights As System.Windows.Forms.ToolStripMenuItem Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar Friend WithEvents labelLoadEntity As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents ToolStripMI_DeleteFile As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_DeleteFile As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tsstlblDocID As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents AuswertungAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator14 As System.Windows.Forms.ToolStripSeparator @@ -1429,10 +1435,11 @@ Partial Class frmConstructor_Main Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator16 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents SucheAnzeigenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents docCM_showGridSearch As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator17 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel Friend WithEvents tsTextboxFulltext As System.Windows.Forms.ToolStripTextBox Friend WithEvents tsbtnEntitySearch As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator18 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents docCM_GetRights As System.Windows.Forms.ToolStripMenuItem End Class diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx index f906f93..94b852d 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.resx @@ -134,48 +134,6 @@ 17, 134 - - 194, 22 - - - Reset Ebenen-Auswahl - - - 191, 6 - - - 194, 22 - - - Dateiimport Entität - - - 191, 6 - - - 194, 22 - - - Form-Designer - - - 191, 6 - - - 194, 22 - - - Entitätssuche starten - - - 191, 6 - - - 194, 22 - - - Auswertung anzeigen - 195, 138 @@ -219,105 +177,6 @@ 461, 17 - - Segoe UI, 9pt, style=Bold - - - 251, 22 - - - Funktionen DataGrid - - - 248, 6 - - - 182, 22 - - - Quick View Carousel - - - 182, 22 - - - Quick View Tiles - - - 182, 22 - - - Detail View - - - 251, 22 - - - Ansicht umschalten - - - 251, 22 - - - Ansicht als Standard festlegen - - - 251, 22 - - - Ansicht zurücksetzen - - - 248, 6 - - - 251, 22 - - - Suche anzeigen (CTRL+F) - - - 251, 22 - - - Alle Filter entfernen - - - 251, 22 - - - Export nach Excel - - - 251, 22 - - - Daten neu laden - - - 248, 6 - - - 251, 22 - - - Record löschen - - - 251, 22 - - - Massenänderung sichtbare Zeilen - - - 248, 6 - - - 251, 22 - - - Detail-Ansicht Datensatz - 252, 270 @@ -402,21 +261,6 @@ 0, 25 - - True - - - Fill - - - 0, 0 - - - 1356, 347 - - - 0 - pnlDetails @@ -453,113 +297,490 @@ 1 - - 124, 134 + + 9, 57 - - 239, 22 + + GridControlDocSearch - - Datei Öffnen + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 236, 6 + + TabWindream - - 239, 22 + + 0 - - Kopieren + + ToolStripDokumente - - 236, 6 + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 350, 23 + + TabWindream - - HIt Return to change name + + 1 - - 239, 22 + + 1356, 347 - - Datei umbenennen + + windream-Dateien - - 350, 23 + + TabWindream - - HIt Return to change displayname + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 239, 22 + + TCDetails - - Displayname umbenennen + + 1 - - False + + ListViewFollowUps - - 239, 22 + + System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Datei in Bearbeitung nehmen + + TabFollowUp - - 239, 22 + + 0 - - Datei mit Datensatz verknüpfen + + grpbxFU_Profile - - 239, 22 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Rechte prüfen und setzen + + TabFollowUp - - 236, 6 + + 1 - - 239, 22 + + Label5 - - Datei löschen + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 239, 22 + + TabFollowUp - - Entferne Datei Link + + 2 - - 236, 6 + + 1356, 347 - - 239, 22 + + Wiedervorlage - - Eigenschaften + + TabFollowUp - + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TCDetails + + + 2 + + + 332, 134 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPos + + + 0 + + + BindingNavigatorPOS + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPos + + + 1 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa + SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY + wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= + + + + 1356, 347 + + + Positionen + + + TabPos + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TCDetails + + + 3 + + + TCDetails + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerMain.Panel2 + + + 0 + + + 757, 17 + + + 0, 0 + + + 1362, 25 + + + 0 + + + ToolStrip1 + + + ToolStripEdit + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerMain.Panel2 + + + 1 + + + Panel2 + + + 1362, 645 + + + 2 + + + SplitContainerControl1 + + + SplitContainerMain + + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainer1.Panel2 + + + 0 + + + 194, 22 + + + Reset Ebenen-Auswahl + + + 191, 6 + + + 194, 22 + + + Dateiimport Entität + + + 191, 6 + + + 194, 22 + + + Form-Designer + + + 191, 6 + + + 194, 22 + + + Entitätssuche starten + + + 191, 6 + + + 194, 22 + + + Auswertung anzeigen + + + Segoe UI, 9pt, style=Bold + + + 251, 22 + + + Funktionen DataGrid + + + 248, 6 + + + 251, 22 + + + Ansicht umschalten + + + 182, 22 + + + Quick View Carousel + + + 182, 22 + + + Quick View Tiles + + + 182, 22 + + + Detail View + + + 251, 22 + + + Ansicht als Standard festlegen + + + 251, 22 + + + Ansicht zurücksetzen + + + 248, 6 + + + 251, 22 + + + Suche anzeigen (CTRL+F) + + + 251, 22 + + + Alle Filter entfernen + + + 251, 22 + + + Export nach Excel + + + 251, 22 + + + Daten neu laden + + + 248, 6 + + + 251, 22 + + + Record löschen + + + 251, 22 + + + Massenänderung sichtbare Zeilen + + + 248, 6 + + + 251, 22 + + + Detail-Ansicht Datensatz + + + True + + + Fill + + + 0, 0 + + + 1356, 347 + + + 0 + + + pnlDetails + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabDetails + + + 0 + + + 124, 134 + + + 239, 22 + + + Datei Öffnen + + + 236, 6 + + + 239, 22 + + + Kopieren + + + 236, 6 + + + 239, 22 + + + Datei umbenennen + + + 239, 22 + + + Displayname umbenennen + + + False + + + 239, 22 + + + Datei in Bearbeitung nehmen + + + 239, 22 + + + Datei mit Datensatz verknüpfen + + + 239, 22 + + + Rechte prüfen und setzen + + + 236, 6 + + + 239, 22 + + + Datei löschen + + + 239, 22 + + + Entferne Datei Link + + 236, 6 - + 239, 22 - + Ansicht zurücksetzen - + 239, 22 - + Suche anzeigen + + 239, 22 + + + Dateirechte für User + + + 236, 6 + + + 239, 22 + + + Eigenschaften + - 240, 298 + 240, 342 ContextMenuStripResultFiles @@ -582,171 +803,345 @@ GridControlDocSearch - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabWindream + + + 0 + + + 350, 23 + + + HIt Return to change name + + + 350, 23 + + + HIt Return to change displayname + + + 9, 57 + + + Tahoma, 9pt + + + 0, 0 + + + 1356, 25 + + + 2 + + + ToolStrip2 + + + ToolStripDokumente + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabWindream + + + 1 + + + Segoe UI, 8.25pt, style=Bold, Italic + + + 126, 22 + + + Windream-Dokumente + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR + BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4 + 4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh + 4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3 + 9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT + QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf + D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY + DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC + + + + Magenta + + + 209, 22 + + + Konfiguration windream-Ansicht + + + 174, 22 + + + Konfiguration User + + + 6, 25 + + + Segoe UI Semibold, 9pt, style=Bold, Italic + + + 200, 25 + + + Tahoma, 9pt, style=Bold + + + 57, 22 + + + Fulltext: + + + 6, 25 + + + Magenta + + + 138, 22 + + + Entitätsweite Suche + + + Top, Bottom, Left + + + 14, 36 + + + 263, 268 + + + 5 + + + ListViewFollowUps + + + System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabFollowUp + + + 0 + + + ID + + + 40 + + + Title + + + 200 + + + Top, Bottom, Left + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxFU_Profile + + + 0 + + + lblFollowUp_save + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabWindream + + grpbxFU_Profile - - 0 + + 1 - - 9, 57 - - - Tahoma, 9pt + + chkFollowUp - - Segoe UI, 8.25pt, style=Bold, Italic + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 126, 22 + + grpbxFU_Profile - - Windream-Dokumente + + 2 - - 174, 22 + + dtpFollowUp - - Konfiguration User + + System.Windows.Forms.DateTimePicker, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR - BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4 - 4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh - 4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3 - 9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT - QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf - D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY - DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC - + + grpbxFU_Profile - - Magenta + + 3 - - 209, 22 + + lblWiedervorlage_Control - - Konfiguration windream-Ansicht + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 6, 25 + + grpbxFU_Profile - - Segoe UI Semibold, 9pt, style=Bold, Italic + + 4 - - 200, 25 + + 283, 28 - - Tahoma, 9pt, style=Bold + + 774, 276 - - 57, 22 + + 4 - - Fulltext: + + grpbxFU_Profile - - 6, 25 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Magenta + + TabFollowUp - - 138, 22 + + 1 - - Entitätsweite Suche + + Top, Bottom, Left - - 0, 0 + + btnRemoveUser_FollowUp - - 1356, 25 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 2 + + GroupBox4 - - ToolStrip2 + + 0 - - ToolStripDokumente + + btnAddUser_FollowUp - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabWindream + + GroupBox4 - + 1 - - 1356, 347 + + cmbFollowUpUser - - windream-Dateien + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabWindream + + GroupBox4 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 2 - - TCDetails + + Label6 - - 1 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Top, Bottom, Left + + GroupBox4 - - ID + + 3 - - 40 + + ListBoxUser2Profile - - Title + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 200 + + GroupBox4 - - 14, 36 + + 4 - - 263, 268 + + Label7 - + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + 5 - - ListViewFollowUps + + Segoe UI, 8.25pt, style=Bold - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 177, 20 - - TabFollowUp + + 594, 250 - - 0 + + 4 - - Top, Bottom, Left + + Individuelle Empfänger für diesen Datensatz: - - Top, Bottom, Left + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxFU_Profile + + + 0 Segoe UI, 8.25pt @@ -922,46 +1317,19 @@ 0 - Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste! - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox4 - - - 5 - - - Segoe UI, 8.25pt, style=Bold - - - 177, 20 - - - 594, 250 - - - 4 - - - Individuelle Empfänger für diesen Datensatz: + Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste! - - GroupBox4 + + Label7 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpbxFU_Profile + + GroupBox4 - - 0 + + 5 True @@ -1071,27 +1439,6 @@ 4 - - 283, 28 - - - 774, 276 - - - 4 - - - grpbxFU_Profile - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabFollowUp - - - 1 - True @@ -1119,39 +1466,6 @@ 2 - - 1356, 347 - - - Wiedervorlage - - - TabFollowUp - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 2 - - - Fill - - - 0, 0 - - - Cyan - - - 1356, 322 - - - 0 - GridControlPos @@ -1188,6 +1502,33 @@ 0 + + Fill + + + 0, 0 + + + Cyan + + + 1356, 322 + + + 0 + + + GridControlPos + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + 332, 134 @@ -1366,47 +1707,6 @@ 1 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa - SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY - wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= - - - - 1356, 347 - - - Positionen - - - TabPos - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 3 - - - TCDetails - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerMain.Panel2 - - - 0 - - - 757, 17 - False @@ -1520,6 +1820,15 @@ False + + Magenta + + + 138, 22 + + + Record-Funktionen + 929, 22 @@ -1574,63 +1883,6 @@ Anwendungscache freigeben - - Magenta - - - 138, 22 - - - Record-Funktionen - - - 0, 0 - - - 1362, 25 - - - 0 - - - ToolStrip1 - - - ToolStripEdit - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerMain.Panel2 - - - 1 - - - Panel2 - - - 1362, 645 - - - 2 - - - SplitContainerControl1 - - - SplitContainerMain - - - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainer1.Panel2 - - - 0 - Fill @@ -1724,6 +1976,30 @@ 17, 17 + + 0, 685 + + + 1362, 24 + + + 1 + + + StatusStrip1 + + + StatusStrip_Main + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 5 + 57, 19 @@ -1757,30 +2033,6 @@ Loading Record Data.. - - 0, 685 - - - 1362, 24 - - - 1 - - - StatusStrip1 - - - StatusStrip_Main - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 5 - 326, 17 @@ -2484,10 +2736,10 @@ DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DateiÖffnenToolStripMenuItem + + docCM_Open - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2496,10 +2748,10 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CopyToolStripMenuItem + + docCM_Copy - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2508,10 +2760,10 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - UmbenennenToolStripMenuItem + + docCM_Rename - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2520,10 +2772,10 @@ System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TSMIDisplayname + + docCM_RenameDisplay - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2532,22 +2784,22 @@ System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TSMI_inWork + + docCM_InWork - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TSMI_linkRecord + + docCM_linkRecord - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tsmiRights + + docCM_CheckRights - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2556,16 +2808,16 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ToolStripMI_DeleteFile + + docCM_DeleteFile - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TsMI_DocRemoveLink + + docCM_RemoveLink - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2574,10 +2826,16 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - PropertiesToolStripMenuItem + + docCM_ResetView + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + docCM_showGridSearch - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2586,16 +2844,16 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - AnsichtZurücksetzenToolStripMenuItem + + docCM_PropertiesFile - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SucheAnzeigenToolStripMenuItem1 + + docCM_GetRights - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 22f56f1..cd64924 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -999,13 +999,13 @@ Public Class frmConstructor_Main RIGHT_WINDREAM_FORBIDDEN = False tsmi_RecordDelete.Enabled = True MassenänderungToolStripMenuItem.Enabled = True - TsMI_DocRemoveLink.Enabled = True - UmbenennenToolStripMenuItem.Enabled = True - TSMI_linkRecord.Enabled = True - TSMI_inWork.Enabled = True - CopyToolStripMenuItem.Enabled = True + docCM_RemoveLink.Enabled = True + docCM_Rename.Enabled = True + docCM_linkRecord.Enabled = True + docCM_InWork.Enabled = True + docCM_Copy.Enabled = True RecordKopierenToolStripMenuItem.Enabled = True - PropertiesToolStripMenuItem.Enabled = True + docCM_PropertiesFile.Enabled = True tslblLocked.Visible = False tslblFileslocked.Visible = False TabFollowUp.PageEnabled = True @@ -1013,8 +1013,8 @@ Public Class frmConstructor_Main TabWindream.PageEnabled = True WindreamsucheNeuLadenToolStripMenuItem.Enabled = True EntitätssucheStartenToolStripMenuItem.Enabled = True - DateiÖffnenToolStripMenuItem.Enabled = True - TSMI_inWork.Enabled = True + docCM_Open.Enabled = True + docCM_InWork.Enabled = True VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True Dim tempsql @@ -1058,12 +1058,12 @@ Public Class frmConstructor_Main tsButtonDelete.Enabled = False tsmi_RecordDelete.Enabled = False MassenänderungToolStripMenuItem.Enabled = False - UmbenennenToolStripMenuItem.Enabled = False - TSMI_linkRecord.Enabled = False - TSMI_inWork.Enabled = False - PropertiesToolStripMenuItem.Enabled = False - CopyToolStripMenuItem.Enabled = False - TsMI_DocRemoveLink.Enabled = False + docCM_Rename.Enabled = False + docCM_linkRecord.Enabled = False + docCM_InWork.Enabled = False + docCM_PropertiesFile.Enabled = False + docCM_Copy.Enabled = False + docCM_RemoveLink.Enabled = False tslblLocked.Visible = True RecordKopierenToolStripMenuItem.Enabled = False TabFollowUp.PageEnabled = False @@ -1115,8 +1115,8 @@ Public Class frmConstructor_Main 'TabWindream.PageEnabled = False WindreamsucheNeuLadenToolStripMenuItem.Enabled = False EntitätssucheStartenToolStripMenuItem.Enabled = False - DateiÖffnenToolStripMenuItem.Enabled = False - TSMI_inWork.Enabled = False + docCM_Open.Enabled = False + docCM_InWork.Enabled = False End If Catch ex As Exception @@ -3560,7 +3560,7 @@ Public Class frmConstructor_Main End Try End Sub - + Private Sub WD_DELETE_DOCS() Dim sw As New Stopwatch sw.Start() @@ -4911,7 +4911,7 @@ Public Class frmConstructor_Main Catch ex As Exception ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False) End Try - + End Sub Private Sub grvwGrid_MouseMove(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseMove, grvwTiles.MouseMove, grvwCarousel.MouseMove Dim view As BaseView = CType(sender, BaseView) @@ -5100,7 +5100,7 @@ Public Class frmConstructor_Main Delete_Record() End Sub - Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click + Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then Try Dim selectedfile(0) As String @@ -5139,7 +5139,7 @@ Public Class frmConstructor_Main End If End Sub - Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TsMI_DocRemoveLink.Click + Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_RemoveLink.Click If RECORD_ID = 0 Then MsgBox("Please select a record!", MsgBoxStyle.Exclamation) Exit Sub @@ -5185,7 +5185,7 @@ Public Class frmConstructor_Main End If End Sub - Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click + Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_PropertiesFile.Click If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation) Exit Sub @@ -5209,7 +5209,7 @@ Public Class frmConstructor_Main End Sub - Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click + Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Open.Click If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation) Exit Sub @@ -5511,11 +5511,11 @@ Public Class frmConstructor_Main End Try End If End Sub - Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click + Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Rename.Click Display_Filename() End Sub - Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.MouseHover + Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles docCM_Rename.MouseHover Display_Filename() End Sub Sub Display_Filename() @@ -5544,7 +5544,7 @@ Public Class frmConstructor_Main End Try End Sub - Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click + Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click Try ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then @@ -5640,24 +5640,56 @@ Public Class frmConstructor_Main End If End Sub - + Sub ContextMenu_Read() + docCM_Open.Enabled = True + docCM_Copy.Enabled = False + docCM_Rename.Enabled = False + docCM_RenameDisplay.Enabled = False + docCM_InWork.Enabled = False + docCM_linkRecord.Enabled = False + docCM_CheckRights.Enabled = False + docCM_DeleteFile.Enabled = False + docCM_RemoveLink.Enabled = False + End Sub + Sub ContextMenu_Write() + docCM_Open.Enabled = True + docCM_Copy.Enabled = True + docCM_Rename.Enabled = True + docCM_RenameDisplay.Enabled = True + docCM_InWork.Enabled = True + docCM_linkRecord.Enabled = True + docCM_CheckRights.Enabled = True + docCM_DeleteFile.Enabled = True + docCM_RemoveLink.Enabled = True + End Sub Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening File_in_Work() + Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH) + If Not IsNothing(Result) Then + Select Case Result.ToString + Case "R" + ContextMenu_Read() + Case "RW" + ContextMenu_Write() + Case "RWA" + ContextMenu_Write() + End Select + End If If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then - TSMIDisplayname.Visible = True + docCM_RenameDisplay.Visible = True Set_Displayname() Else - TSMIDisplayname.Visible = False + docCM_RenameDisplay.Visible = False End If Else - TSMIDisplayname.Visible = False + docCM_RenameDisplay.Visible = False End If End Sub Sub File_in_Work() - TSMI_inWork.Enabled = True + docCM_InWork.Enabled = True Try Dim expression As String expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID @@ -5694,13 +5726,13 @@ Public Class frmConstructor_Main displ = "Lock file for working" End If End If - TSMI_inWork.Text = displ + docCM_InWork.Text = displ Catch ex As Exception ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False) - TSMI_inWork.Enabled = False + docCM_InWork.Enabled = False End Try End Sub - Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles TSMI_inWork.Click + Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles docCM_InWork.Click If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation) Exit Sub @@ -5725,7 +5757,7 @@ Public Class frmConstructor_Main RUN_WDSEARCH_GRID("RECORD") End If End Sub - Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtZurücksetzenToolStripMenuItem.Click + Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_ResetView.Click ' TODO: Ansicht zurücksetzen Try Dim XMLPath = Get_DocGrid_Layout_Filename() @@ -5745,10 +5777,10 @@ Public Class frmConstructor_Main Me.Cursor = Cursors.Default End Sub - Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles TSMIDisplayname.Click + Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles docCM_RenameDisplay.Click Set_Displayname() End Sub - Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles TSMIDisplayname.MouseHover + Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles docCM_RenameDisplay.MouseHover Set_Displayname() End Sub Sub Set_Displayname() @@ -5784,7 +5816,7 @@ Public Class frmConstructor_Main End If End Sub - Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click + Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_CheckRights.Click Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!" CURRENT_RECORD_ID = RECORD_ID If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then @@ -5838,7 +5870,7 @@ Public Class frmConstructor_Main End Sub - Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMI_DeleteFile.Click + Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles docCM_DeleteFile.Click If RECORD_ID = 0 And SEARCH_TYPE <> "ENTITY" Then MsgBox("Please select a record!", MsgBoxStyle.Exclamation) Exit Sub @@ -5896,14 +5928,14 @@ Public Class frmConstructor_Main MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - End If + End If Next If SEARCH_TYPE = "ENTITY" Then CURRENT_DT_DOC_ENTITY_SEARCH = Nothing End If RUN_WDSEARCH_GRID(SEARCH_TYPE) End If - + End Sub @@ -5992,7 +6024,7 @@ Public Class frmConstructor_Main frm.Show() End Sub - Private Sub SucheAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem1.Click + Private Sub SucheAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles docCM_showGridSearch.Click GridViewDoc_Search.ShowFindPanel() End Sub @@ -6022,4 +6054,19 @@ Public Class frmConstructor_Main Private Sub tsbtnEntitySearch_Click(sender As Object, e As EventArgs) Handles tsbtnEntitySearch.Click RUN_WDSEARCH_GRID("ENTITY") End Sub + + Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click + Dim result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH) + If Not IsNothing(result) Then + Dim msg = "Das aktuelle Recht für Sie ist: " & vbNewLine & vbNewLine + If USER_LANGUAGE <> "de-DE" Then + msg = "Your current right is: " & vbNewLine & vbNewLine & vbNewLine + End If + msg = msg & result.ToString + msg = msg & vbNewLine & vbNewLine & "R:" & vbTab & "Read" & vbNewLine & "W:" & vbTab & "Write" & vbNewLine & "A:" & vbTab & "Admin" + MsgBox(msg, MsgBoxStyle.Information) + Else + MsgBox("Could not read the rights for selected file! Check the log for further infomation!", MsgBoxStyle.Exclamation) + End If + End Sub End Class \ No newline at end of file