jj addons folder
This commit is contained in:
@@ -340,9 +340,19 @@
|
||||
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")
|
||||
Dim path As String = ClassDatabase.Execute_Scalar("SELECT PATH_ADDONS FROm TBPMO_KONFIGURATION WHERE GUID = 1")
|
||||
Dim ProductionPath As String = System.IO.Path.Combine(path, "RightManager", "RecordOrganizer_RightManager.exe")
|
||||
Dim DevelPath As String = System.IO.Path.Combine(path, "RecordOrganizer_RightManager\bin\Debug", "RecordOrganizer_RightManager.exe")
|
||||
|
||||
Dim startInfo As New ProcessStartInfo()
|
||||
startInfo.Arguments = """" & MyConnectionString & """"
|
||||
|
||||
If System.IO.File.Exists(ProductionPath) Then
|
||||
startInfo.FileName = ProductionPath
|
||||
Else
|
||||
startInfo.FileName = DevelPath
|
||||
End If
|
||||
|
||||
Process.Start(startInfo)
|
||||
End Sub
|
||||
Public Sub OpenWindream_Files()
|
||||
|
||||
Reference in New Issue
Block a user