[Duda] El Form queda Minimizado haciendo ExecuteSync

[Recato53]

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:

*--> BLOQUEAMOS VENTANA, PUNTERO DE ESPERA
        MOVE POW-FALSE TO "Enabled" OF POW-SELF
        MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
        
        MOVE "RUNCOBOL.EXE PROGRAMA.COB" TO COMANDO
        INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE
        
*--> DESBLOQUEAMOS VENTANA, PUNTERO POR DEFECTO
        MOVE POW-TRUE TO "Enabled" OF POW-SELF
        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]

recato53,

Não estará errado o comando:

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:

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]

Recato53, intenta hacer lo siguiente a ver si funciona:

    *--> BLOQUEAMOS VENTANA, PUNTERO DE ESPERA
            MOVE POW-FALSE TO "Enabled" OF POW-SELF
            MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
 
            MOVE "RUNCOBOL.EXE PROGRAMA.COB" TO COMANDO
            INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE
 
    *--> MOSTRAMOS FORM COMO ANTES <===============
            INVOKE POW-SELF "ShowForm" USING POW-SWNORMAL
 
    *--> DESBLOQUEAMOS VENTANA, PUNTERO POR DEFECTO
            MOVE POW-TRUE TO "Enabled" OF POW-SELF
            MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF 

[Recato53]

Gracias por vuestra ayuda.

Sigue quedando el formulario en la barra de tareas.

[Kuk]

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

[Recato53]

Si ejecuto la calculadora de Windows, ocurre lo mismo.
Cuando cierro la calculadora, el Formulario se queda en la barra de tareas.

[Kuk]

Recato53, efectivamente pasa esto con "ExecuteSync", en el caso de deshabilitar el Form. Es decir, si no haces

     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]

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]

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]

❞ 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.