AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://172.24.11.74:90/scm/git/ProcessManagerClient

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-11 13:55:40 +02:00
commit 60891b9721
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD_PM_WINDREAM/frmProfileDesigner.vb
View File

@ -274,11 +274,11 @@ Public Class frmProfileDesigner
TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId)
TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:")
End Try
End Sub
Private Sub TBPM_USERBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
@ -424,7 +424,11 @@ Public Class frmProfileDesigner
Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 1
FillProfile_User(PROFILGUIDTextBox.Text)
If PROFILGUIDTextBox.Text = String.Empty Then
MsgBox("Kein Profil angelegt oder ausgeählt", MsgBoxStyle.Critical)
Else
FillProfile_User(PROFILGUIDTextBox.Text)
End If
Case 3
Refresh_log()
End Select
@ -940,13 +944,17 @@ Public Class frmProfileDesigner
Dim userManagerPath As String = clsModules.GetModulePath("User Manager")
If userManagerPath Is Nothing Then
MsgBox("User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
MsgBox("Pfad zu User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
Else
Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe")
Dim psi As New ProcessStartInfo(exePath)
Process.Start(psi)
If File.Exists(exePath) Then
Dim psi As New ProcessStartInfo(exePath)
Process.Start(psi)
Else
MsgBox("Programm User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)