|
|
 |
|
8.- Clasificando y FIN
página(s) : 2/2
(5107 palabras totales en este texto)
(23287 Lecturas) 
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í.
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)  |  |
|
|
Programando en Windows (PowerCobol-3)
