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
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 <<

8.- Clasificando y FIN

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



Si por el contrario hemos pinchado sobre la fila 0, le indicamos que queremos clasificar por alguna columna, entonces capturamos la columna y hacemos un sort por el valor de dicha columna, y volvemos a recargar la tabla con los valores clasificados del fichero de SORT.

Control: TABLA
Evento : DBCLICK
Programación
     ENVIRONMENT DIVISION.
     INPUT-OUTPUT SECTION.
     FILE-CONTROL.
           SELECT ORDEN ASSIGN TO SORTWK01.
      DATA        DIVISION.
      FILE SECTION.
      SD  ORDEN.
      01  REGORD.
            02  ORDCOD PIC 9999.
            02  ORDNOM PIC X(30).
            02  ORDDOM PIC X(30).
            02  ORDPOS PIC 99999.
            02  ORDPOB PIC X(20).
            02  ORDPRO PIC X(15).
            02  ORDTIP PIC X(12).
            02  ORDTEL PIC X(20).
            02  ORDMOV PIC X(20).
            02  ORDMAI PIC X(30).
      WORKING-STORAGE SECTION.
      01  INDICE  PIC S9(8) COMP-5.
      01  FILA    PIC 9999.
      01  COLUMNA PIC 99.

     PROCEDURE   DIVISION.
           MOVE POW-CLICKROW OF TABLA TO FILA.     
           MOVE POW-CLICKCOL OF TABLA TO COLUMNA.
           IF FILA NOT = 0 GO UNO.
           IF COLUMNA = 1 SORT ORDEN ON ASCENDING KEY ORDCOD
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 2 SORT ORDEN ON ASCENDING KEY ORDNOM
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 3 SORT ORDEN ON ASCENDING KEY ORDDOM
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 4 SORT ORDEN ON ASCENDING KEY ORDPOS
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 5 SORT ORDEN ON ASCENDING KEY ORDPOB
               USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 6 SORT ORDEN ON ASCENDING KEY ORDPRO
               USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 7 SORT ORDEN ON ASCENDING KEY ORDTIP
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 8 SORT ORDEN ON ASCENDING KEY ORDTEL
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 9 SORT ORDEN ON ASCENDING KEY ORDMOV
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
           IF COLUMNA = 10 SORT ORDEN ON ASCENDING KEY ORDMAI
                USING CLASI OUTPUT PROCEDURE RELLENA ELSE
          GO DOS.
          EXIT PROGRAM.

     UNO.
           MOVE FILA TO CCC.
           CALL GETCELLNUMERIC OF TABLA USING AHIVA FILA 1.
           CALL CLOSESHEET OF CONSULTA.
           EXIT PROGRAM.
     DOS.
           EXIT PROGRAM.

     RELLENA SECTION.
            MOVE 1 TO INDICE.
    VER.
           RETURN ORDEN AT END GO TO FINVER.
           MOVE ORDCOD TO POW-NUMERIC(INDICE 1) OF TABLA.
           MOVE ORDNOM TO POW-TEXT(INDICE 2) OF TABLA.
           MOVE ORDDOM TO POW-TEXT(INDICE 3) OF TABLA.
           MOVE ORDPOS TO POW-NUMERIC(INDICE 4) OF TABLA.
           MOVE ORDPOB TO POW-TEXT(INDICE 5) OF TABLA.
           MOVE ORDPRO TO POW-TEXT(INDICE 6) OF TABLA.
           MOVE ORDTIP TO POW-TEXT(INDICE 7) OF TABLA.
           MOVE ORDTEL TO POW-TEXT(INDICE 8) OF TABLA.
           MOVE ORDMOV TO POW-TEXT(INDICE 9) OF TABLA.
           MOVE ORDMAI TO POW-TEXT(INDICE 10) OF TABLA.
           ADD 1 TO INDICE.
           GO VER.
     FINVER.
           EXIT.


Con esto se da por concluida la ventana de consultas y su programación, como habéis podido comprobar no ha sido muy complicada, a partir de aqui podéis implementar todo lo que deseéis, mas campos, mas controles, cualquier cosa siempre es mejorable.

VENTANA ACERCA DE

Por último vamos a crear una ventana con información sobre la aplicación, una ventana pequeña que solo nos mostrará datos sobre el programa y un botón para salir de ella, es la típica pantalla Acerca de... Esta pantalla se llamará desde la ventana principal.

Al igual que para crear la ventana de consulta, primero seleccionamos la opción New, del menú de File. En esta ventana vamos a colocar un Extend Image, donde colocamos el logotipo de la página que lo habréis bajado en el archivo totico.zip, que se llama cobol.bmp. También podéis colocar la imagen que vosotros queráis intentando que quede adaptada al tamaño de la ventana.

Además colocamos 2 labels indicando el nombre del programa, la versión y el autor y para finalizar un Bitmap Button, que será el que utilicemos para salir de la ventana.

Para el estilo de la ventana marcamos: Pop-up Windows, Thin y Title Bar. La llamamos ACERCA y en el título de la misma le ponemos Acerca de ....

El aspecto que debe de tener una vez la hayais completado debe de ser algo así.

Ventana Acerca de ...


El único evento que tendremos que programar será el del botón de salir y será el siguiente:

Control: SALIR
Evento : CLICK
Programación
     ENVIRONMENT DIVISION.
     DATA        DIVISION.
     PROCEDURE   DIVISION.
            CALL CLOSESHEET OF ACERCA.


El Bitmap Button, tendrá la imagen icook, marcado como resource y no como file. Y nos servirá para salir de ésta ventana.

Una vez concluido el diseño de la ventana, pinchamos sobre Project, Edit y a continuación pulsamos sobre el botón Add, para añadir esta ventana al proyecto y así poder compilar y ver como funciona. Una vez añadida pulsamos sobre el botón Ok y ya podemos ver en la pequeña ventana del proyecto que tenemos en la pantalla, como esa ventana está incluida.



FIN DEL CURSO

Con este capítulo se da por finalizado el curso de PowerCobol. Solo espero que os haya servido y que hayais aprendido a utilizarlo y sacarle provecho a la potencia de este compilador para Windows. A partir de ahora nuestras aplicaciones tendrán otra visión, otra perspectiva mas amigable, sencilla y por supuesto bonita.

Tengo que reconocer que el dejar para el final estos capítulos ha implicado que tuviera que retomar de nuevo el PowerCobol 3, ya que en la actualidad programo sobre la versión 5. Esto supongo que ha dado lugar a una explicación menos clara y efectiva que en los anteriores capítulos. Por lo tanto os pido un poco de mas atención para comprenderlo y por fin podáis terminar el proyecto.

Un saludo a todos los que hayais llegado hasta el final y hayais conseguido realizar el proyecto AGENDA en su totalidad. A partir de este momento estais preparados para embarcaros en los desarrollos que deseies con PowerCobol.

(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]