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
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Duda] Opción de BOTÓN CANCELAR un proceso a medias Josber PowerCOBOL (ActiveX, v4 - v11) 8 30 de octubre de 2025 19:04
[Sintaxis] Activar Un Form desde otro form Roberto PowerCOBOL (ActiveX, v4 - v11) 5 21 de mayo de 2024 14:35
[Sintaxis] Crear pausa en un bucle con un Timer Josber PowerCOBOL (ActiveX, v4 - v11) 8 8 de agosto de 2017 19:17
[Duda] Crear nuevo proceso Nitzer PowerCOBOL (ActiveX, v4 - v11) 1 8 de junio de 2016 16:53
[Sintaxis] Ejecutar despues de un proceso Roger PowerCOBOL (ActiveX, v4 - v11) 1 25 de marzo de 2015 00:29

Respuesta

  #1
Antiguo 28 de agosto de 2017, 16:28
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243
Tableta Cancelar proceso en bucle desde otro Form
0 Inactivo Inactivo

Hola Amigos:

Una consulta. Cuando se realiza un proceso quisiera que me aparezca una ventana con un mensaje indicando que se está realizando un proceso y que ésta tenga un botón cancelar y asi poder cortar el proceso que se está realizando.

Alguien sabe cómo prodría hacer eso?

Gracias.
Saludos.

Fito...
Fito is offline   Responder Con Cita
  #2
Antiguo 28 de agosto de 2017, 22:49
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Fito, en tu tratamiento principal haces:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  EXT-CANCELAR  IS EXTERNAL PIC X(1).
  5.  PROCEDURE       DIVISION.
  6.      
  7.      MOVE POW-FALSE TO "Enabled" OF POW-SELF
  8.      
  9.      MOVE "N" TO EXT-CANCELAR
  10.      
  11.      INVOKE POW-SELF "OpenForm" USING "FORM-ESPERE"
  12.      
  13.      PERFORM UNTIL ... OR EXT-CANCELAR = "S"
  14.          ...
  15.      
  16.          INVOKE POW-SELF "ThruEvents"
  17.      END-PERFORM
  18.      
  19.      INVOKE POW-SELF "CloseForm" USING "FORM-ESPERE"
  20.      
  21.      MOVE POW-TRUE TO "Enabled" OF POW-SELF

En tu Form de "Espera", en el botón de cancelar el tratamiento haces:
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  EXT-CANCELAR  IS EXTERNAL PIC X(1).
  5.  PROCEDURE       DIVISION.
  6.      
  7.      MOVE "S" TO EXT-CANCELAR



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
  #3
Antiguo 29 de agosto de 2017, 00:58
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Hola KUK:

No sabía que desde un formulario podás cerrar otro, simpre se aprenden cosas. Funciona muy bien.

Gracias.

Fito...
Fito 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 15:44.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.