MS Version 2.4.9.0

Buttons, Nicht zuständig

app/TaskFlow/frmAdmin_notResponsibleConfig.vb

@@ -21,7 +21,7 @@ Public Class frmAdmin_notResponsibleConfig
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Dim oUpd = $"UPDATE TBPM_PROFILE SET NOT_RESP_SQL = '{oNotResponsible_SQL.Replace("'", "''")}', CHANGED_WHO = '{User.UserName}' WHERE GUID = {oProfilID}"
+        Dim oUpd = $"UPDATE TBPM_PROFILE SET NOT_RESP_SQL = '{oNotResponsible_SQL.Replace("'", "''")}',NOT_RESP_COMMENT_ATTRIBUTE = '{cmbAttrComment.Text}', CHANGED_WHO = '{User.UserName}' WHERE GUID = {oProfilID}"
         If DatabaseECM.ExecuteNonQuery(oUpd) = True Then
             oUpd = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_NOT_RESPONSIBLE_QUEST{oProfilID}','{USER_LANGUAGE}','PROFILE_NOT_RESPONSIBLE_QUEST','{txtPROFILE_NOT_RESPONSIBLE_QUEST.Text}','','{USER_USERNAME}','{oProfilID}',0"
             If DatabaseECM.ExecuteNonQuery(oUpd) Then
@@ -37,9 +37,13 @@ Public Class frmAdmin_notResponsibleConfig
 
     Private Sub frmAdmin_notResponsibleConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            Dim oSQL = $"SELECT NOT_RESP_SQL FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
+            Dim oNR_Act_Attr As String
+            Dim oSQL = $"SELECT NOT_RESP_SQL, NOT_RESP_COMMENT_ATTRIBUTE FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
             Dim oDT = DatabaseECM.GetDatatable(oSQL)
-            oNotResponsible_SQL = oDT.Rows(0).Item(0)
+            oNotResponsible_SQL = oDT.Rows(0).Item("NOT_RESP_SQL")
+            oNR_Act_Attr = oDT.Rows(0).Item("NOT_RESP_COMMENT_ATTRIBUTE")
+            LOGGER.Debug($"oNR_Act_Attr: {oNR_Act_Attr}")
+
 
             For Each oRow As DataRow In CURRENT_DT_PROFILE_LANGUAGE.Rows
                 If oRow.Item("TITLE") = $"PROFILE_NOT_RESPONSIBLE_CAPT{oProfilID}" And oRow.Item("LANGUAGE") = USER_LANGUAGE Then
@@ -49,6 +53,47 @@ Public Class frmAdmin_notResponsibleConfig
                 End If
             Next
 
+
+            If IDB_ACTIVE = False Then
+                If MyIndicies IsNot Nothing Then
+                    Dim i As Integer = 0
+                    For Each index As String In MyIndicies
+                        Dim _vektorString = False
+                        Dim oIndexType = WINDREAM.GetTypeOfIndex(index)
+                        i += 1
+                        MyIndicies_Types.Add(oIndexType)
+                        Select Case oIndexType
+                            Case 4097
+                                _vektorString = True
+                            Case 36865
+                                _vektorString = True
+                            Case Else
+                                _vektorString = False
+                        End Select
+                        If _vektorString = False Then
+                            Me.cmbAttrComment.Items.Add(index)
+                        End If
+
+                    Next
+                End If
+            Else
+                For Each oRow As DataRow In IDBData.DTVWIDB_BE_ATTRIBUTE.Rows
+                    Dim oOk As Boolean = False
+                    Select Case CInt(oRow.Item("TYP_ID"))
+                        Case 1
+                            oOk = True
+                    End Select
+                    If oOk Then
+                        Me.cmbAttrComment.Items.Add(oRow.Item("ATTR_TITLE"))
+                    End If
+                Next
+            End If
+            If oNR_Act_Attr <> "" Then
+                cmbAttrComment.SelectedIndex = cmbAttrComment.FindStringExact(oNR_Act_Attr)
+            Else
+                cmbAttrComment.SelectedIndex = -1
+            End If
+
             txtPROFILE_NOT_RESPONSIBLE_QUEST.Text = oQuestion
             txtCaption_NotResponsible.Text = oCaption
         Catch ex As Exception