MS05082016

app/DD-Record-Organiser/ClassJumpRecord.vb

@@ -15,7 +15,7 @@ Public Class ClassJumpRecord
         Try
             Dim args() As String = Environment.GetCommandLineArgs()
             Dim options As New Options()
-            Dim constructorId As Integer
+            Dim type_ID As Integer
             Dim recordId As Integer
 
             If args.Length <> 3 Then
@@ -30,10 +30,10 @@ Public Class ClassJumpRecord
                     Exit Sub
                 End If
 
-                constructorId = match.Groups("constructorId").Value
+                type_ID = match.Groups("constructorId").Value
                 recordId = match.Groups("recordId").Value
 
-                JumpToRecord(constructorId, recordId)
+                JumpToRecord(type_ID, recordId)
             Else
                 Exit Sub
             End If
@@ -43,7 +43,7 @@ Public Class ClassJumpRecord
         End Try
     End Sub
 
-    Public Shared Sub JumpToRecord(constructorId As Integer, recordId As Integer)
+    Public Shared Sub JumpToRecord(STATE_ID As Integer, recordId As Integer)
         Try
             'Dim constructorIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0}", constructorId))
             Dim recordIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_RECORD WHERE GUID = {0}", recordId))
@@ -57,6 +57,7 @@ Public Class ClassJumpRecord
                 MsgBox(String.Format("RecordId {0} could not be found. Record will not be loaded.", recordId))
                 Exit Sub
             End If
+            JUMP_STATE = STATE_ID
             JUMP_RECORD_ID = recordId
             'OpenFormConstructor(constructorId, recordId)
             OpenRecordView(recordId)