FoxPro/Visual FoxPro - Como controlar si esta en ejecución otro sistema

   
Vista:

Como controlar si esta en ejecución otro sistema

Publicado por Marcelo (171 intervenciones) el 26/03/2008 21:07:22
Hola amigos, tengo un sistema de ventas que utiliza a otro sistema para imprimir los comprobantes como puedo saber desde el sistema de ventas si el sistema de impresion esta en ejecución ? utilizo VFP8 gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como controlar si esta en ejecución otro sistem

Publicado por Plinio (7771 intervenciones) el 26/03/2008 21:44:28
La forma mas sencilla seria que el sistema de impresion marque algun registro en alguna tabla cuando sale y cuando entra.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como controlar si esta en ejecución otro sistem

Publicado por Marcelo (171 intervenciones) el 26/03/2008 22:56:40
si eso es lo que tengo pero si se corta la corriente me queda marcado como que esta en uso y al correr el sistema de ventas no puedo establecer si el de impresión esta realmente en ejecución de todas maneras gracias por contestar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como controlar si esta en ejecución otro sistem

Publicado por enrique (1041 intervenciones) el 27/03/2008 00:33:43
Esto lo pones en el principal y verifica que no este abierta otra ventana

IF F_ActivaWin("TITULO VENTANA PROGRAMA DE IMPRESIÓN")
messagebox("Programa en ejecución"+chr(13)+chr(13)+;
"Verifique que no este minimizado",64)
return
ENDIF

READ EVENTS

*-----------------------------
FUNCTION F_ActivaWin(cCaption)
*-----------------------------

LOCAL nHWD
DECLARE INTEGER FindWindow IN WIN32API ;
STRING cNULL, ;
STRING cWinName

DECLARE SetForegroundWindow IN WIN32API ;
INTEGER nHandle

DECLARE SetActiveWindow IN WIN32API ;
INTEGER nHandle

DECLARE ShowWindow IN WIN32API ;
INTEGER nHandle, ;
INTEGER nState

nHWD = FindWindow(0, cCaption)
IF nHWD > 0
* VENTANA YA ACTIVA
* LA "LLAMAMOS":
*ShowWindow(nHWD,9)

* LA PONEMOS ENCIMA
*SetForegroundWindow(nHWD)

* LA ACTIVAMOS
*SetActiveWindow(nHWD)
RETURN .T.
ELSE
* VENTANA NO ACTIVA
RETURN .F.
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como controlar si esta en ejecución otro sistem

Publicado por Marcelo (171 intervenciones) el 27/03/2008 01:40:47
Gracias voy a probarlo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar