Buenos Dias
Necesito crear un Dialogo que me permita ver cual ese el avance de un proceso Activado desde un boton que esta en el mismo dialogo
Para esto tendremos el el dialogo tres campos: Proceso , Avance, y Mensaje ademas de dos Botones: "INICIAR" , "CANCELAR"
Cuando se presione "INICIAR" se activara el proceso el cual recibe como argumentos los objetos de oDlg, oProceso, oAvance, oMensaje
a media que va avanzando se van actualizando dichos campoos...
Bueno ese es el deseo .. pero no me funciona
Aqui les dejo un ejemplo corto de lo que estoy haciendo, me ayudan por favor , que esta mal,, ??
Gracias por adelantado cualquier suguerencia.
Lubin
Necesito crear un Dialogo que me permita ver cual ese el avance de un proceso Activado desde un boton que esta en el mismo dialogo
Para esto tendremos el el dialogo tres campos: Proceso , Avance, y Mensaje ademas de dos Botones: "INICIAR" , "CANCELAR"
Cuando se presione "INICIAR" se activara el proceso el cual recibe como argumentos los objetos de oDlg, oProceso, oAvance, oMensaje
a media que va avanzando se van actualizando dichos campoos...
Bueno ese es el deseo .. pero no me funciona
Aqui les dejo un ejemplo corto de lo que estoy haciendo, me ayudan por favor , que esta mal,, ??
Gracias por adelantado cualquier suguerencia.
Lubin
#include "FiveWin.ch" 聽 聽 && Se incluye el Ch de FiveWin
FUNCTION JK_PROCESO()
********************* 聽
* 聽ESTE MODULO MUESTRA UN CUADRO DIALOOGO CON EL:
* 聽 聽 聽 PROCESO ....
* 聽 聽 聽 AVANCE ....
* 聽 聽 聽 MENSAJE ...
* 聽Y el Boton ..8011 聽lanza el proceso
*
LOCAL oDlg_Maestro
LOCAL Z_EDIT:=.F. 聽 聽&& pARA Q ME LO MUESTRE COM gETS 聽PERO 聽DESHABILITADO
*Variables Locales para Registro del PERSONAL
*######################## CAMPOS DEL REGISTRO 聽&& 9xx ID en recursos
LOCAL oPROCESO 聽 ,XPROCESO 聽 聽 聽:= SPACE(40) 聽 聽 聽 聽 聽
LOCAL oAVANCE 聽 聽,XAVANCE 聽 聽 聽 := SPACE(40) 聽
LOCAL oMENSAJE 聽 ,XMENSAJE 聽 聽 聽:= SPACE(40) 聽 聽
* COLOR CLR_GREEN, CLR_BLUE
聽DEFINE DIALOG oDlg_Maestro RESOURCE "JK_PROCESO" TITLE "CONTROL DE PROCESOS "
聽REDEFINE GET oPROCESO 聽 聽 聽VAR XPROCESO 聽 ID 801 聽OF oDlg_Maestro PICTURE "@!" 聽 WHEN Z_EDIT UPDATE
聽REDEFINE GET oAVANCE 聽 聽 聽 VAR XAVANCE 聽 聽ID 802 聽OF oDlg_Maestro PICTURE "@!" 聽 WHEN Z_EDIT UPDATE
聽REDEFINE GET oMENSAJE 聽 聽 聽VAR XMENSAJE 聽 ID 803 聽OF oDlg_Maestro PICTURE "@!" 聽 WHEN Z_EDIT UPDATE
聽REDEFINE BUTTON ID 8011 OF oDlg_Maestro ACTION JK_MODULO(oDlg_Maestro,oProceso,oAvance,oMensaje)
聽REDEFINE BUTTON ID 8012 OF oDlg_Maestro ACTION (oDlg_Maestro:End()) 聽 聽 聽
聽 ACTIVATE DIALOG oDlg_Maestro CENTERED
RETURN .T.
FUNCTION JK_MODULO(oDlg,oProceso,oAvance,oMensaje)
**************************************************
* 聽ESTA FUNCION EJECUTA UN COINJUNTO DE PROCESOS... Y A MEDIDA 聽QUE VA 聽AVANZANDO 聽QUISIERA QUE 聽DE VISUALICE EN EL Dialogo MAESTRO
local I
LOCAL K_PRO:=""
LOCAL XMEN:=""
K_PRO="A" 聽&& aqui va un proceso
聽 聽 聽oProceso:cText:="Proceso >>>"+K_PRO
聽 聽 聽oAvance:refresh()
聽 聽 聽FOR I=1 TO 100
聽 聽 聽 XMEN="PROCESO ("+K_PRO+") -->" +STR(I,10,0)
聽 聽 聽 oAvance:cText:=xMEN
聽 聽 聽 oAvance:UPDATE()
聽 聽 聽 KPAUSE() 聽&&... 聽haciendo tiempo para el ejemplo
聽 聽 聽NEXT I
K_PRO="B" 聽&& Aqui va otro proceso
聽 聽 聽oProceso:cText:="Proceso >>>"+K_PRO
聽 聽 聽oAvance:refresh()
聽 聽 聽FOR I=1 TO 100
聽 聽 聽 XMEN="PROCESO ("+K_PRO+") -->" +STR(I,10,0)
聽 聽 聽 oAvance:cText:=xMEN
聽 聽 聽 oAvance:UPDATE()
聽 聽 聽 KPAUSE() 聽 聽&& Haciendo tiempo para el ejemplo
聽 聽 聽NEXT I
RETURN .T.
FUNCTION KPAUSE(XN) 聽&& 聽FUNCION USADA 聽EN ESTE 聽CASO 聽SOLO PARA HACER TIEMPOO....
LOCAL XI:=0
IF XN=NIL
聽 XN=5
ENDIF
FOR XI=1 TO XN*10000
NEXT XI
RETURN NIL
