VersionRelease

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -77,13 +77,12 @@ Public Class frmAdministration
 
     Sub Status_Changed(text As String)
         labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-        labelStatus.Caption = $"{text} - {Now.ToShortTimeString}"
+        labelStatus.Caption = $"{text} - {Now.ToLongTimeString}"
     End Sub
 
     Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew
         MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBCW_PROFILES.PROFILE_TYPEColumn.DefaultValue = 0
-        MyDataset.TBCW_PROFILES.WD_SEARCHColumn.DefaultValue = String.Empty
         MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+"
         MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = True
 
@@ -93,11 +92,23 @@ Public Class frmAdministration
     Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
 
         If PROFILE_IDTextBox.Text <> "" Then
+            If CtrlApplicationAssignment1.AssignProfileID(PROFILE_IDTextBox.Text) = False Then
+                MsgBox("Unexpected Error while assigning ProfileID!", MsgBoxStyle.Critical)
+                Exit Sub
+            End If
+
             Refresh_ProfileData()
             Refresh_Free_Users(PROFILE_IDTextBox.Text)
             Refresh_Free_Groups(PROFILE_IDTextBox.Text)
 
             Load_Profile_Process()
+            If LogConfig.Debug = True Then
+                labelSelection.Caption = CtrlApplicationAssignment1.AppSelectionString
+                labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+            Else
+                labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            End If
+
         End If
 
     End Sub
@@ -279,8 +290,6 @@ Public Class frmAdministration
 
     Private Sub TBCW_PROF_REL_WINDOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs)
         MyDataset.TBCW_PROF_REL_WINDOW.ADDED_WHOColumn.DefaultValue = Environment.UserName
-        MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
-        MyDataset.TBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn.DefaultValue = SelectedProcessName
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -299,19 +308,17 @@ Public Class frmAdministration
         ' wenn Speichern ja
         If result = MsgBoxResult.Yes Then
             If Database.ExecuteNonQuery(swl) = True Then
-                Load_Profiles()
+                Refresh_ProfileScreen()
             End If
         End If
     End Sub
 
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Refresh_ProfileScreen()
+    End Sub
+    Sub Refresh_ProfileScreen()
         Load_Profiles()
         Refresh_ProfileData()
-        Try
-            Dim ID = CInt(PROFILE_IDTextBox.Text)
-        Catch ex As Exception
-            Exit Sub
-        End Try
         Refresh_Free_Users(PROFILE_IDTextBox.Text)
         Refresh_Free_Groups(PROFILE_IDTextBox.Text)
     End Sub
@@ -469,6 +476,7 @@ Public Class frmAdministration
 
         Select Case oTabName
             Case TabPageProcessAssignment.Name
+                CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
                 RibbonGroup_Profile.Enabled = False
                 RibbonGroup_User.Enabled = False
                 RibbonGroup_Group.Enabled = False
@@ -540,6 +548,7 @@ Public Class frmAdministration
                 RibbonGroup_DocSearch.Enabled = False
                 RibbonGroup_DataSearch.Enabled = False
         End Select
+
     End Sub
 
     Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
@@ -640,7 +649,7 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
-        If CtrlApplicationAssignment1.Control_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
+        If CtrlApplicationAssignment1.Control_CreateAssignment() = False Then
             MsgBox("Error while creating control", MsgBoxStyle.Critical, Text)
         Else
             Status_Changed("Feld-Zuordnung angelegt")
@@ -666,4 +675,15 @@ Public Class frmAdministration
             Status_Changed("Feld-Zuordnung gespeichert")
         End If
     End Sub
+
+    Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
+        Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'"
+
+        If Database.ExecuteNonQuery(oSQL) = False Then
+            MsgBox("Could not duplicate the profile...Check the logfile!", MsgBoxStyle.Exclamation)
+        Else
+            Refresh_ProfileScreen()
+            MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
+        End If
+    End Sub
 End Class