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) TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId) TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId)
TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId) TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:")
End Try End Try
End Sub End Sub
Private Sub TBPM_USERBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew 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 Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex Select Case TabControl1.SelectedIndex
Case 1 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 Case 3
Refresh_log() Refresh_log()
End Select End Select
@ -940,13 +944,17 @@ Public Class frmProfileDesigner
Dim userManagerPath As String = clsModules.GetModulePath("User Manager") Dim userManagerPath As String = clsModules.GetModulePath("User Manager")
If userManagerPath Is Nothing Then 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 Else
Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe") 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 End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical) MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)