8

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) TEMARIO 1.- 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) (18236 Lecturas)    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.       | (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]