Cobol Foro
Página 1 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Duda] El Form queda Minimizado haciendo ExecuteSync (https://www.cobolforo.es/showthread.php?t=283)

Recato53 11 de diciembre de 2015 14:45
El Form queda Minimizado haciendo ExecuteSync
 
Buenos días.

Estoy desarrollando una aplicación en la que combino programas PowerCobol y RMCobol.

Cuando llamo a un programa RMCobol, ejecuto la siguiente rutina:
Código COBOL:
  1. *--> BLOQUEAMOS VENTANA, PUNTERO DE ESPERA
  2.         MOVE POW-FALSE TO "Enabled" OF POW-SELF
  3.         MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
  4.         
  5.         MOVE "RUNCOBOL.EXE PROGRAMA.COB" TO COMANDO
  6.         INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE
  7.         
  8. *--> DESBLOQUEAMOS VENTANA, PUNTERO POR DEFECTO
  9.         MOVE POW-TRUE TO "Enabled" OF POW-SELF
  10.         MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF

El problema es que cuando vuelve de ejecutar el programa, el Formulario que ha realizado la llamada se queda el la Barra de tareas.

Como puedo evitar esto.

Muchas Gracias.

Rapinto 11 de diciembre de 2015 17:49
recato53,

Não estará errado o comando:
Código COBOL:
  1. INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE

POW-SWHIDE é para não aparecer visível a Form.
Penso que deveria ser POW-SWNORMAL ou POW-SWSHOWMAXIMIZED.

ou seja, deverias usar:
Código COBOL:
  1. INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWNORMAL

Saludos,
Rui

---------- Post añadido : 18:49 ---------- Post anterior : 18:28 ----------

Só agora reparei, que o problema é na FORM que chama o outro programa.

Isso poderá ser outro problema. Ao executar o comando "ExecuteSync" a form que chama está visível??? Quando é que aparece na barra de tarefeas?? No momento em que chama o outro programa, ou quando ele termina e regressa à Form original??

Un saludo,
Rui

Kuk 11 de diciembre de 2015 19:12
Recato53, intenta hacer lo siguiente a ver si funciona:

Código COBOL:
  1.     *--> BLOQUEAMOS VENTANA, PUNTERO DE ESPERA
  2.             MOVE POW-FALSE TO "Enabled" OF POW-SELF
  3.             MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
  4.  
  5.             MOVE "RUNCOBOL.EXE PROGRAMA.COB" TO COMANDO
  6.             INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE
  7.  
  8.     *--> MOSTRAMOS FORM COMO ANTES <===============
  9.             INVOKE POW-SELF "ShowForm" USING POW-SWNORMAL
  10.  
  11.     *--> DESBLOQUEAMOS VENTANA, PUNTERO POR DEFECTO
  12.             MOVE POW-TRUE TO "Enabled" OF POW-SELF
  13.             MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF

Recato53 12 de diciembre de 2015 11:04
Gracias por vuestra ayuda.

Sigue quedando el formulario en la barra de tareas.

Kuk 12 de diciembre de 2015 14:14
Recato53, ejecuta otra cosa en lugar el RM, la calculadora de Windows por ejemplo y dinos si te pasa lo mismo o no.

Recato53 12 de diciembre de 2015 19:56
Si ejecuto la calculadora de Windows, ocurre lo mismo.
Cuando cierro la calculadora, el Formulario se queda en la barra de tareas.

Kuk 12 de diciembre de 2015 21:47
Recato53, efectivamente pasa esto con "ExecuteSync", en el caso de deshabilitar el Form. Es decir, si no haces

Código COBOL:
  1.      MOVE POW-FALSE TO "Enabled" OF POW-SELF

El Form se queda en su sitio.

Debe ser un pequeño bug en el Run-Time de Fujitsu.

Dasije 14 de diciembre de 2015 01:41
Puedes utilizar la api de windows, para activar formularios, recoges el handle y después llamas a esta api y la activas.

Creo que es el SetActiveWindow.

Saludos.

Rapinto 15 de diciembre de 2015 00:09
No foro cocina del foro Powercobol+winapi está lá um exemplo de
"Bring Window to Top (By Name) "

Pode ser que te resolva o problema,

Un saludo,
Rui Pinto

Recato53 19 de diciembre de 2015 21:22
Cita:
Citación del post de Rapinto (Mensaje 1354)
No foro cocina del foro Powercobol+winapi está lá um exemplo de
"Bring Window to Top (By Name) "

Pode ser que te resolva o problema,

Un saludo,
Rui Pinto
He probado la rutina, pero al compilar en PWC 9, se producen varios errores.

error LNK2001: unresolved external symbol _SETFOREGROUNDWINDOW@4
error LNK2001: unresolved external symbol _SLEEP@4
error LNK2001: unresolved external symbol _FINDWINDOWA@8

Hay que añadir algo en el programa.
Estoy creando una dll, es correcto.

La LINKAGE en powercobol no se usa. La variables las defino como GLOBALEXTERNAL y paso los valores de una dll a otra.


La franja horaria es GMT +2. Ahora son las 17:23.
Página 1 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.