Add config items, clear documents and controls when no record id is available

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/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)