MS Anpassungen DocType etc

app/DD-Record-Organizer/Classes/ClassInit.vb

@@ -1,6 +1,7 @@
 Imports System.IO
 Imports DD_LIB_Standards
 Imports DevExpress.DataAccess.Native
+Imports DevExpress.XtraRichEdit.API.Native
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
@@ -16,7 +17,7 @@ Public Class ClassInit
                                         My.Application.Info.CompanyName,
                                         My.Application.Info.ProductName)
             LOGGER = LOGCONFIG.GetLogger()
-            LOGGER.Info("OrgFlow started")
+            LOGGER.Info("orgFLOW started")
 
             Dim oUserAppDataPath As String = Application.UserAppDataPath
             Dim oLegacyAppDataPath As String = Application.UserAppDataPath
@@ -238,7 +239,13 @@ Public Class ClassInit
             For Each oRow As DataRow In oDTFF_CHANGE.Rows
                 FILE_FORMATS_CHANGE_DURING_EDIT.Add(oRow.Item("FILE_EXT"))
             Next
-
+            oSql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE"
+            Dim oDTTBPMO_WD_OBJECTTYPE = MYDB_ECM.GetDatatable(oSql)
+            If oDTTBPMO_WD_OBJECTTYPE.Rows.Count = 1 Then
+                WMOBJECTTYPE = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("OBJECT_TYPE").ToString
+                WMINDEX_DOCTYPE = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
+                WMINDEX_RELATION = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_RELATION").ToString
+            End If
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -350,11 +357,10 @@ Public Class ClassInit
                     LOGGER.Info($"User configured as an admin, but SHAREDRIVE ACTIVE - So WM_READ_ONLY = False!")
                     WM_READ_ONLY = False
                 End If
-
             End If
 
 
-                If oMODULE_ACCES = False Then
+            If oMODULE_ACCES = False Then
                 LOGGER.Warn("User '" & USER_USERNAME & "' not authorized for using OrgFlow!")
                 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                 Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")

app/DD-Record-Organizer/Classes/ClassWDRights.vb

@@ -73,7 +73,6 @@ Public Class ClassWDRights
             Dim DT_USER_RIGHT As DataTable
             Dim DT_GROUP_RIGHT As DataTable
             Dim oSession
-            ' Dim oWMObject As WINDREAMLib.WMObject
             Dim UserGroupRelation
             Dim UserOrGroup
             Dim oUSer

app/DD-Record-Organizer/Classes/ClassWindreamDocGrid.vb

@@ -13,6 +13,7 @@ Public Class ClassWindreamDocGrid
     Public Class WindreamDoc
         Public Property DocId As Integer
         Public Property DocPath As String
+        Public Property Filename As String
         Public Property DisplayName As String
         Public Property DocType As String
     End Class
@@ -96,13 +97,15 @@ Public Class ClassWindreamDocGrid
             Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
             Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
             Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
-            Dim oDocType = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
+            Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
+            Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
 
             oDocuments.Add(New WindreamDoc With {
                 .DocId = oDocId,
                 .DocPath = oDocPath,
-                .DocType = oDocType,
-                .DisplayName = oDisplayName
+                .DocType = oObjecttype,
+                .DisplayName = oDisplayName,
+                .Filename = oFilename
             })
         Next
 

app/DD-Record-Organizer/Classes/Commands/ClassNodeCommands.vb

@@ -23,7 +23,8 @@ Public Class ClassNodeCommands
                 T.PARENT_GUID,
                 T.SEQUENCE,
                 T.TYPE_NODE,
-                T.CREATE_RECORD
+                T.CREATE_RECORD,
+                T.NAVIGATION_PATH
              FROM 
                 VWPMO_STRUCTURE_NODES T 
             INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID