Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Respuesta

  #1
Antiguo 2 de febrero de 2026, 12:31
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 17.09.2026 18:23
Posts Posts: 401
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179
Predeterminado ¿Cómo comprobar si una ventana está abierta?
0 Inactivo Inactivo

Buenos días, buena semana. ¿Cómo puedo evitar que aparezca el mensaje adjunto? ¿Hay alguna forma de controlarlo?

Tengo una DLL que simplemente muestra que una acción se ejecutó correctamente.
El problema es que cuando el usuario valida rápidamente, la primera acción aún no ha finalizado...

Podría usar "call", pero prefiero realizar la llamada con "open...".
Gracias.


Código COBOL:
  1. *==============================================================================
  2.      INVOKE pow-self "OpenForm" USING "Validou" "Validou" *> show msg 3segundos
  3. *==============================================================================
  4.  

Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  2026-02-02_111708.png
Vistas: 48
Tamaño:  4,0 KB  
Archivos Adjuntos
Tipo de Archivo: zip Untitled.zip (5,1 KB)Descargas: 23
Joseg is offline   Responder Con Cita
  #2
Antiguo 2 de febrero de 2026, 16:09
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 17.09.2026 18:23
Posts Posts: 401
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179

Citación del post de Joseg Ver Mensaje
Buenos días, buena semana. ¿Cómo puedo evitar que aparezca el mensaje adjunto? ¿Hay alguna forma de controlarlo?

Tengo una DLL que simplemente muestra que una acción se ejecutó correctamente.
El problema es que cuando el usuario valida rápidamente, la primera acción aún no ha finalizado...

Podría usar "call", pero prefiero realizar la llamada con "open...".
Gracias.


Código COBOL:
  1. *==============================================================================
  2.      INVOKE pow-self "OpenForm" USING "Validou" "Validou" *> show msg 3segundos
  3. *==============================================================================
  4.  

¡Ya encontré una solución!
Joseg is offline   Responder Con Cita
  #3
Antiguo 2 de febrero de 2026, 21:23
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Citación del post de Joseg Ver Mensaje
¡Ya encontré una solución!
Pues compártela

Yo me acuerdo que solucioné este problema con las llamadas "cookies":
Código COBOL:
  1.      INVOKE POW-SELF "OpenForm" USING FormName [DllName] [Cookie]

En el parámetro "coockie" pones un número único para cada Form que abres, y un flag de tipo GLOBAL para cada Form también (bueno, más bien una tabla interna)
En el evento CloseChild del Form padre, con un EVALUATE se sabe qué Form hijo se acaba de cerrar, así se pone el flag correspondiente a inactivo.

Y en los botones, sólo queda añadir la validación del flag: si inactivo, podemos abrir el Form.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
Respuesta


Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:05.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.