RE:Abrir una ventana desde el Procedure Editor
espero que te sirva esto, ANTES DE QUE SE CORRA EL ENABLE_UI PUEDES MANDAR LA VENTANA QUE TE PERMITA VERIFICAR LA CONEXION A LA BASE DE DATOS.
ASI ES COMO LO TENGO Y FUNCIONA DE MARAVILLA.
MAIN-BLOCK:
DO ON ERROR UNDO MAIN-BLOCK, RETRY MAIN-BLOCK
ON END-KEY UNDO MAIN-BLOCK, RETRY MAIN-BLOCK:
*** IF NOT RETRY THEN DO:
RUN PROCSCONECTA.W.
END. ****
RUN enable_UI.
IF NOT CONNECTED("DB") THEN DO:
MESSAGE "Error en la conexion a la DB." VIEW-AS ALERT-BOX ERROR.
/* EN ESTA PARTE PUEDES DESHABILITAR BOTONES, CAMPOS, ETC*/
END.
IF NOT THIS-PROCEDURE:PERSISTENT THEN
WAIT-FOR CLOSE OF THIS-PROCEDURE.