Tengo un diálogo con un botón que lanza un proceso bastante largo y complejo, en el que se realizan múltiples tareas de distinta Ãndole. El caso es que como sistema de información del avance del proceso, opté por cambiar el mensaje en el diálogo con SET MESSAGE OF, en cada uno de los procesos que se realizan. El caso es que ese cambio de mensaje del diálogo, no lo hace. No aparecen los mensajes. simplemente se pone el puntero de Vista en la forma esa de circulo azul, hasta que termina el proceso, sin actualizar esos cambios en el mensaje.
El código resumido es este (muy sencillo):
Si después de un SET MESSAGE OF, llamamos a un MsgInfo() o algo similar, si pinta el mensaje del diálogo...
Alguna sugerencia????
Gracias!
El código resumido es este (muy sencillo):
#include "fivewin.ch"
#include "inkey.CH"
********************************************************************************************
function Import()
********************************************************************************************
local f_import := .F.
local lActivadores := .T.
private oDlg_import
private hecho := .F.
private terminar := .F.
MSGINFO('NOTA:'+CRLF+'Este proceso actualizará los Ficheros'+CRLF+;
'a partir de los Datos Recibidos','ATENCION!')
DEFINE DIALOG oDlg_import RESOURCE "DLG_OPCION" TITLE 'IMPORTACION'
REDEFINE BUTTON ID 300 OF oDlg_import;
ACTION ( lActivadores := .F., oDlg_import:UPDATE(), Comuni('A'), hecho:=.T., terminar:=.T., oDlg_import:END() );
MESSAGE "Recepción de Datos";
WHEN lActivadores UPDATE
ACTIVATE DIALOG oDlg_import VALID terminar
********************************************************************************************
function Comuni( cModo )
********************************************************************************************
SET MESSAGE OF oDlg_import TO "Procensado archivos"
* PROCESOS *
SET MESSAGE OF oDlg_import TO "Procensado datos de archivos"
* PROCESOS *
SET MESSAGE OF oDlg_import TO "Procensado archivos"
* PROCESOS *
SET MESSAGE OF oDlg_import TO "Procensado datos de archivos"
* PROCESOS *
return NILSi después de un SET MESSAGE OF, llamamos a un MsgInfo() o algo similar, si pinta el mensaje del diálogo...
Alguna sugerencia????
Gracias!
