MS Release

app/DD_PM_WINDREAM/frmFormDesigner.vb

@@ -7,6 +7,7 @@ Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DigitalData.Controls.LookupGrid
 Imports DigitalData.Modules.Language.Utils
 Imports System.Drawing
+Imports DigitalData.GUIs.Common
 
 Public Class frmFormDesigner
     Public ProfileId As Integer
@@ -1146,10 +1147,13 @@ Public Class frmFormDesigner
             CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
             Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}"
             Dim oldSQL = DatabaseFallback.GetScalarValueECM(oSQL)
-            Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
-            Dim oResult = oForm.ShowDialog()
+            Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
+            .SQLCommand = oldSQL,
+            .SQLConnection = 1
+         }
+            oForm.ShowDialog()
 
-            If oResult = DialogResult.OK Then
+            If oForm.DialogResult = 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 DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then