MS_1708

app/DD-Record-Organiser/ModuleHelperMethods.vb

@@ -176,18 +176,6 @@
             Return False
         End Try
     End Function
-
-    Public Sub OpenFormInputFor(FormID As Integer, ScreenID As Integer)
-        CURRENT_FORM_ID = FormID
-        CURRENT_SCREEN_ID = ScreenID
-
-        Dim frm As New frmFormInput
-        frm.MdiParent = MAIN_FORM
-
-        frm.Show()
-        frm.BringToFront()
-    End Sub
-
     Public Sub OpenFormCalendar()
         Dim frm As New frmCalendar
         frm = frmCalendar.Instance()
@@ -351,6 +339,12 @@
 
         frm.Show()
     End Sub
+    Public Sub OpenRightsmanager()
+        Dim path = ClassDatabase.Execute_Scalar("SELECT PATH_ADDONS FROm TBPMO_KONFIGURATION WHERE GUID = 1")
+        Dim startInfo As New ProcessStartInfo(path & "\RecordOrganizer_RightManager.exe")
+        startInfo.Arguments = """" & MyConnectionString & """"
+        Process.Start(startInfo)
+    End Sub
     Public Sub OpenWindream_Files()
         Dim frm As New frmWD_Import_Doc_Record
         frm.MdiParent = MAIN_FORM