jj 03.02 Rename RecordOrganiser to RecordOrganizer

app/DD-Record-Organizer/ClassJumpRecord.vb

@@ -0,0 +1,69 @@
+Imports CommandLine
+Imports CommandLine.Text
+Imports System.Text.RegularExpressions
+
+Public Class ClassJumpRecord
+    Private Shared ProtocolRegex As New Regex("pmo://(?<constructorId>\d+)-(?<recordId>\d+)")
+    'Aufruf: PMO.exe --data pmo://10-60
+
+    Class Options
+        <[Option]("d", "data")>
+        Public Property data As String
+    End Class
+
+    Public Shared Sub ParseArgs()
+        Try
+            Dim args() As String = Environment.GetCommandLineArgs()
+            Dim options As New Options()
+            Dim type_ID As Integer
+            Dim recordId As Integer
+
+            If args.Length <> 3 Then
+                Exit Sub
+            End If
+
+            If (Parser.Default.ParseArguments(args, options)) Then
+                Dim data As String = options.data
+                Dim match = ProtocolRegex.Match(data)
+
+                If Not match.Success Then
+                    Exit Sub
+                End If
+
+                type_ID = match.Groups("constructorId").Value
+                recordId = match.Groups("recordId").Value
+
+                JumpToRecord(type_ID, recordId)
+            Else
+                Exit Sub
+            End If
+        Catch ex As Exception
+            MsgBox("Error in ParseArgs:" & vbNewLine & ex.Message)
+            Exit Sub
+        End Try
+    End Sub
+
+    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), True)
+
+            'If constructorIdExists = False Or recordIdExists = False Then
+            '    MsgBox("Das angegebene Formular konnte nicht geöffnet werden. Grund: Die ConstructorID oder die RecordID wurde nicht gefunden." & vbNewLine & "constructorId: " & constructorId & ", recordId: " & recordId, MsgBoxStyle.Exclamation, "URL Handler")
+            '    Exit Sub
+            'End If
+
+            If Not recordIdExists Then
+                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)
+        Catch ex As Exception
+            MsgBox("Error in JumpToRecord:" & vbNewLine & ex.Message)
+            Exit Sub
+        End Try
+    End Sub
+End Class