Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
13
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
Programando en Windows (PowerCobol-3)
TEMARIO1.- Comienza la Aplicación
2.- Diseñando la Pantalla
3.- Eventos de la ventana
4.- La Procedure
5.- Progr. Controles (I)
6.- Progr. Controles (II)
7.- La Pantalla de Consulta
8.- Clasificando y FIN
>> agenda.exe e iconos <<

6.- Progr. Controles (II)

página(s) : 1/2
(4630 palabras totales en este texto)
(16875 Lecturas)   Versión Imprimible



Seguimos con la programación de los controles, en este capítulo veremos la programación de los eventos de los controles que conforman la barra de herramientas. Es decir los botones que tenemos abajo en un recuadro azul y que nos permiten controlar el fichero.

Empezando de izquierda a derecha, nos encontramos con cuatro botones con flechas que nos van a servir para desplazarnos rapidamente por el fichero. Al ser todos botones, el evento que tenemos en cada caso es el que hace referencia al CLICK sobre dicho botón, veamos la programación de los cuatro botones.

Control: INICIO
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     WORKING-STORAGE SECTION.
     PROCEDURE   DIVISION.
            IF TOPE = 0 GO DOS.
            MOVE TCOD (1) TO AGECOD
            MOVE 1 TO CCC
            READ AGENDA INVALID KEY GO DOS
                      NOT INVALID KEY CALL "EXISTE".
            EXIT PROGRAM.               
     DOS.
            CALL SETFOCUS OF AGE-COD
            EXIT PROGRAM.


Como teníamos los códigos de nuestros contactos en una tabla, lo único que hacemos es mover el primer elemento de la tabla y leer. Para irnos al final del fichero hacemos lo mismo, solo que moviendo el último elemento de la tabla, veámoslo:

Control: FIN
Evento : CLICK
Programación
    ENVIRONMENT DIVISION.
     DATA        DIVISION.
     PROCEDURE   DIVISION.
            IF TOPE = 0 GO DOS.
            MOVE TCOD (TOPE) TO AGECOD
            MOVE 1 TO CCC
            READ AGENDA INVALID KEY GO DOS
                      NOT INVALID KEY CALL "EXISTE".
            EXIT PROGRAM.               
     DOS.
            CALL SETFOCUS OF AGE-COD
            EXIT PROGRAM.


Ahora veamos como avanzamos o retrocedemos por el fichero con los botones de las flechas izquierda y derecha:

Control: MAS
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     PROCEDURE   DIVISION.
            IF TOPE = 0 GO DOS.
            ADD 1 TO CCC IF CCC > TOPE MOVE TOPE TO CCC.
            MOVE TCOD (CCC) TO AGECOD.
            READ AGENDA INVALID KEY GO DOS
                      NOT INVALID KEY CALL "EXISTE".
            EXIT PROGRAM.               
     DOS.
            CALL SETFOCUS OF AGE-COD
            EXIT PROGRAM.

Control: MENOS
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     PROCEDURE   DIVISION.
            IF TOPE = 0 GO DOS.
            SUBTRACT 1 FROM CCC IF CCC < 1 MOVE 1 TO CCC.
            MOVE TCOD (CCC) TO AGECOD.
            READ AGENDA INVALID KEY GO DOS
                      NOT INVALID KEY CALL "EXISTE".
            EXIT PROGRAM.               


Una vez vistos los controles para el movimiento por el fichero, seguirmos analizando los demás botones de la barra de herramientas.

El botón que sigue es el de borrar y su objetivo será el de eliminar el registro que en ese momento se encuentre en la pantalla. Como es algo delicado aprovechamos la posibilidad de sacar una ventana de verificación con DISPLAYMESSAGE y si la respuesta es positiva borramos el registro. Este botón estará activo solo cuando tengamos un registro presente. Veamos su programación:

Control: BORRAR
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     WORKING-STORAGE SECTION.
     01  ESTILO    PIC S9(4) COMP-5.
     PROCEDURE   DIVISION.
            ADD POW-DMYESNO POW-DMICONQUESTION GIVING ESTILO
            CALL DISPLAYMESSAGE OF PRIMERA
                   USING "Seguro de borrarlo ?" "Mensaje" ESTILO.
            IF PROGRAM-STATUS = POW-DMRYES GO UNO ELSE GO FINALIZAR.
     UNO.
            ADD POW-DMICONEXCLAMATION POW-DMOK GIVING ESTILO.
            DELETE AGENDA INVALID KEY
                   MOVE STAAGE TO NUMSTA MOVE "BORRAR" TO NOMSTA
                   CALL DISPLAYMESSAGE OF PRIMERA
                   USING MENSAJE "ERROR" ESTILO.
            CALL "CARGAR".
            EXIT PROGRAM.
      FINALIZAR.
            EXIT PROGRAM.               


A continuación el botón cancelar lo único que hace es volver a enviar el foco al control AGE-COD, para introducir un nuevo código.

Control: CANCELAR
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     PROCEDURE   DIVISION.
            MOVE 1 TO POW-ENABLE OF AGE-COD
            CALL SETFOCUS OF AGE-COD.


El Botón de listar, lo que hará será una impresión de la pantalla, pero claro, solo de los campos que tengamos con la propiedad de Printable seleccionada. Esto viene muy bien y nos puede ayudar mucho por la facilidad de uso. Este control solo estará activo cuando tengamos un registro presente. Como aclaración os digo que los controles de ListBox y Table, aunque su contenido no quepa en la pantalla, en la impresora si se imprimirán por completo. Al igual que en el anterior mostramos previamente una ventana de advertencia.

Control: LISTAR
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     WORKING-STORAGE SECTION.
     01  ESTILO     PIC S9(4) COMP-5.
     PROCEDURE   DIVISION.
           ADD POW-DMYESNO POW-DMICONQUESTION GIVING ESTILO
           CALL DISPLAYMESSAGE OF PRIMERA
                     USING "Listar la ficha ?" "Mensaje" ESTILO.
           IF PROGRAM-STATUS = POW-DMRYES GO UNO ELSE GO FINALIZAR.
     UNO.
           CALL OPENPRINTER OF PRINT1.
           CALL WRITESHEET OF PRINT1.
           CALL CLOSEPRINTER OF PRINT1.
           EXIT PROGRAM.
     FINALIZAR.
           EXIT PROGRAM.

   Inicio de Página    | Siguiente (2/2)
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]