clean up

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

@@ -1,5 +1,25 @@
 Public Class ClassFormCommands
 
+    Public Shared Function LoadConstructorForms(pScreenId As Integer, pConstructorId As Integer, pLanguage As String)
+        Try
+            Dim Sql = $"SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION](
+                '{pLanguage}',
+                'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 
+                {pScreenId}) AS 'CAPTION' 
+            FROM VWPMO_CONSTRUCTOR_FORMS
+            WHERE 
+                SCREEN_ID = {pScreenId} AND 
+                CONSTRUCT_ID = {pConstructorId} 
+            ORDER BY SEQUENCE"
+
+            Dim oTable = MYDB_ECM.GetDatatable(Sql)
+
+            Return oTable
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+
     Public Shared Function LoadForm(guid) As DataTable
         Try
             Dim SQL As String = "SELECT NAME, LEVEL FROM TBPMO_FORM WHERE GUID = " & guid

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

@@ -2,7 +2,7 @@
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 
-Public Class ClassNodeLoader
+Public Class ClassNodeCommands
     Inherits BaseClass
 
     Private ReadOnly Database As MSSQLServer