Merge Commit

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

@@ -5,7 +5,12 @@ Public Class ClassConfig
     ' Global Settings (from computerconfig, overridable by userconfig)
     <ConnectionString>
     Public Property ConnectionString As String = ""
+
     ' Misc Settings
     Public Property DEBUG As Boolean = False
-    Public Property MyFormsDesign As String = "Office 2016 Colorful"
+    Public Property FormsDesign As String = "Office 2016 Colorful"
+
+    Public Property DocumentViewerSplitterWidth As Integer = 0
+    Public Property TreeListSplitterWidth As Integer = 0
+    Public Property DocumentSearchSplitterWidth As Integer = 0
 End Class

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

@@ -1,5 +1,5 @@
 Public Class ClassFileResult
-    Public Shared DocID As Integer
+    Public Shared Property DocID As Integer
     Public Shared InWork As Boolean = False
     Public Shared Function Set_InWork(state As Integer, comment As String)
         Try

app/DD-Record-Organizer/Classes/Controls/ClassControlValues.vb

@@ -155,6 +155,10 @@ Public Class ClassControlValues
         Try
             Dim sw As New SW("LoadControlValues1")
 
+            If RecordId = 0 Then
+                Exit Sub
+            End If
+
             'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
             Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
             Dim DT_ControlValues As DataTable = MYDB_ECM.GetDatatable(SQL)

app/DD-Record-Organizer/Classes/NodeNavigation/ClassDoctypeChange.vb

@@ -0,0 +1,29 @@
+Imports DD_LIB_Standards
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class ClassDoctypeChange
+    Inherits BaseClass
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Function ChangeDocType(pFilePaths As List(Of String), pNewDocTypeName As String, pObjectType As String) As Boolean
+        Try
+            For Each oPath As String In pFilePaths
+                Dim oResult As Boolean = clsWD_SET.IndexFile(oPath, "String 37", pNewDocTypeName, pObjectType)
+                If oResult = True Then
+                    Logger.Debug("Successfully set doctype of file [{0}] to [{1}]", oPath, pNewDocTypeName)
+                Else
+                    Logger.Warn("Could not set doctype of file [{0}]!", pNewDocTypeName)
+                End If
+            Next
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+
+        End Try
+    End Function
+End Class