Cobol en español
MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
Teoría sobre PowCobol-3
TEMARIOIntroducción
Consideraciones
El Menú de PowerCobol
Primer Cambio
La Primera Ventana
Objetos o Controles
Propiedades
Métodos
Impresión en Power

Métodos

página(s) : 2/2
(4205 palabras totales en este texto)
(22301 Lecturas)   Versión Imprimible



DISPLAYMESSAGE

Con este método de PowerCobol, conseguimos que se nos muestre una ventana independiente pero sin perder el control sobre la que tenemos activa. Son las típicas ventanas de confirmación de Windows y tienen unos parámetros pre-asignados. A continuación vamos a ver algunos ejemplos y como quedan en la práctica.

Su formato, como cualquier otro método es el siguiente:

CALL DISPLAYMESSAGE OF nombredeventana USING texto título estilo.

  • Texto: el texto hace referencia al texto que nos saldrá al mostrar el mensaje en la ventana.
  • Título: el título hace referencia al título que tendrá la venta que nos saldrá.
  • Estilo: El estilo se refiere al icono que tendrá la ventana y a las posibles opciones que se nos presenten, en cuanto a los ICONOS:
    • POW-DMNOICON, sin icono.
    • POW-DMICONSTOP, icono con el símbolo Stop.
    • POW-DMICONQUESTION, icono de interrogación.
    • POW-DMICONEXCLAMATION, icono con el signo de exclamación.
    • POW-DMICONINFORMATION, icono con una (i).
  • Estilo: En cuanto a los botones:
    • POW-DMOK, solo el botón de Ok.
    • POW-DMOKCANCEL, botones de Ok y Cancelar.
    • POW-DMABORTRETRYIGNORE, botones de Abortar, Reintentar e Ignorar.
    • POW-DMYESNOCANCEL, botones de Si, No y Cancelar.
    • POW-DMYESNO, botones de Si y No.
    • POW-DMRETRYCANCEL, botones de Reintentar y Cancelar.
  • Respuestas: las posibles respuestas al pulsar los distintos botones.
    • POW-DMROK, si hemos pulsado el boton de Ok.
    • POW-DMRCANCEL, si pulsamos Cancelar.
    • POW-DMRABORT, si pulsamos Abortar.
    • POW-DMRRETRY, si pulsamos Reintentar.
    • POW-DMRIGNORE, si pulsamos ignorar.
    • POW-DMRYES, si pulsamos Si.
    • POW-DMRNO, si pulsamos No.
El estilo se debe de guardar en una varible con el formato: 01  ESTILO PIC S9(4) COMP-5. Y para introducir los valores que deseemos lo haremos de la siguente manera:

ADD POW-DMYESNO POW-DMICONQUESTION GIVING ESTILO.
De esta manera asignamos al estilo el icono de Interrogación y los botones de Si y No, quedando nuestra orden completa de la siguiente manera, teniendo la ventana donde saldrá el nombre de VENTANA1:

WORKING-STORAGE SECTION.
01  ESTILO PIC S9(4) COMP-5.
01  TITULO PIC X(20).
01  TEXTO PIC X(40).
...
PROCEDURE DIVISION.
INICIO.
      ADD POW-DMYESNO POW-DMICONQUESTION GIVING ESTILO.
      MOVE "Mensaje" TO TITULO.
      MOVE "Salir de la aplicación ?" TO TEXTO.
      CALL DISPLAYMESSAGE OF VENTANA1 USING TITULO TEXTO ESTILO.
      ....

Ejemplo de DisplayMessageAhora nos saldrá la correspondiente ventana con el mensaje y entonces puede que le demos al botón del Si o al del No, para controlarlo utilizamos la siguiente instrucción:

IF PROGRAM-STATUS = POW-DMRYES
   MOVE "HAS PULSADO SI" TO POW-TEXT
   OF TEXTODEEXPLICACION.
IF PROGRAM-STATUS = POW-DMRNO
   MOVE "HAS PULSADO NO" TO POW-TEXT
   OF TEXTODEEXPLICACION.

(1/2) Anterior |    Inicio de Página   
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]