MS

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -1033,7 +1033,7 @@ Public Class frmAdministration
                 Me.TBPM_PROFILEBindingSource.EndEdit()
                 Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE)
                 tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
-
+                CHANGES_IN_ADMINISTRATION = True
             Else
                 tsbStaticInfo.Caption = ""
             End If
@@ -1174,7 +1174,7 @@ Public Class frmAdministration
                                       WHERE GUID = {guid}"
 
                     If ClassDatabase.Execute_non_Query(sql, True) Then
-                        tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString}"
+                        tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString} - RESTART NECESSARY"
                     End If
                 End If
 
@@ -1235,6 +1235,7 @@ Public Class frmAdministration
                     Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
                     If ClassDatabase.Execute_non_Query(oUpdate) = True Then
                         tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}"
+                        CHANGES_IN_ADMINISTRATION = True
                     End If
 
                 End If
@@ -1244,4 +1245,30 @@ Public Class frmAdministration
             LOGGER.Error(ex)
         End Try
     End Sub
+
+    Private Sub bbtnItemFinishSQL_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItemFinishSQL.ItemClick
+        Try
+            profile_guid = PROFILGUIDTextBox.Text
+            CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
+            CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
+            Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}"
+            Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
+            Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
+            Dim oResult = oForm.ShowDialog()
+
+            If oResult = DialogResult.OK Then
+                If oldSQL <> oForm.SQLCommand Then
+                    Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
+                    If ClassDatabase.Execute_non_Query(oUpdate) = True Then
+                        tsbStaticInfo.Caption = $"Profile SQLFinish saved - {Now.ToLongTimeString}"
+                        CHANGES_IN_ADMINISTRATION = True
+                    End If
+
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Saving Profile SQLFinish: " & vbNewLine & vbNewLine & ex.Message)
+            LOGGER.Error(ex)
+        End Try
+    End Sub
 End Class