|
|
 |
|
Métodos
página(s) : 2/2
(4205 palabras totales en este texto)
(23759 Lecturas) 
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.
....
 Ahora
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)  |  |
|
|
Teoría sobre PowCobol-3
