From 51813675e265bf1b20939526e45066ec7fa57f9d Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 11 Jun 2018 11:09:08 +0200 Subject: [PATCH 1/3] jj: check for exe before starting user manager --- app/DD_PM_WINDREAM/frmProfileDesigner.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmProfileDesigner.vb b/app/DD_PM_WINDREAM/frmProfileDesigner.vb index 325d41d..291891c 100644 --- a/app/DD_PM_WINDREAM/frmProfileDesigner.vb +++ b/app/DD_PM_WINDREAM/frmProfileDesigner.vb @@ -940,13 +940,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) From 9a51959d7cc2505a2c89c7ed20497181e49252cd Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 11 Jun 2018 11:10:45 +0200 Subject: [PATCH 2/3] jj: Version 1.9.4.1 --- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index c2baa29..d7c3cf6 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + From fc098557748267348f965c2a508c95ce4911bdd9 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 11 Jun 2018 13:53:11 +0200 Subject: [PATCH 3/3] jj: fix exception when no profile exists --- app/DD_PM_WINDREAM/frmProfileDesigner.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmProfileDesigner.vb b/app/DD_PM_WINDREAM/frmProfileDesigner.vb index 291891c..ff47d85 100644 --- a/app/DD_PM_WINDREAM/frmProfileDesigner.vb +++ b/app/DD_PM_WINDREAM/frmProfileDesigner.vb @@ -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