|
|
 |
|
6.- Mantenimiento Fichero
página(s) : 2/2
(2414 palabras totales en este texto)
(22153 Lecturas) 
|
| »»
MOSTRANDO LOS CAMPOS, MODIFICANDO Y BORRANDO. |
Este
apartado comprende 4 párrafos. Uno primero donde mostramos el
contenido actual de los campos que componen el registro.
Otro donde preguntamos sobre la acción a realizar. Otro para
borrar el registro, otro para grabar los cambios realizados y uno
mas para abandonar el mantenimiento. |
Aquí
mostramos el contenido de los campos. Y actualizamos el valor de
la variable MODI a 1.
SOCI-MOS.
DISPLAY AGENOM LINE 4 COL 16 LOW.
DISPLAY AGEDOM LINE 5 COL 16 LOW.
DISPLAY AGEPOB LINE 6 COL 16 LOW.
DISPLAY AGEPOS LINE 6 COL 48 LOW.
DISPLAY AGEPRO LINE 7 COL 16 LOW.
DISPLAY AGETEL LINE 9 COL 16 LOW.
DISPLAY AGEMOV LINE 10 COL 16 LOW.
DISPLAY AGEMAI LINE 12 COL 16 LOW.
DISPLAY AGEWEB LINE 14 COL 4 LOW.
MOVE 1 TO MODI.
SOCI-MOS1.
DISPLAY SPACES LINE 16 COL 1 SIZE 50.
DISPLAY "(M)ODIFICA" LINE 16 COL 2 LOW REVERSE.
DISPLAY "(B)ORRAR " LINE 16 COL 13 LOW REVERSE.
DISPLAY "(F)GRABAR " LINE 16 COL 24 LOW REVERSE.
DISPLAY " FIN " LINE 16 COL 35 LOW REVERSE.
ACCEPT OP LINE 16 COL 49 OFF NO BEEP
ON EXCEPTION ESCA NEXT SENTENCE.
DISPLAY SPACES LINE 16 SIZE 50.
IF ESCA = 27 GO SOCIO0.
IF OP = "B" GO SOCI-BORRAR.
IF OP = "F" PERFORM SOCI-GRABAR GO SOCIO0.
IF OP = "M"
DISPLAY "" LINE 16 COL 2 LOW REVERSE
DISPLAY " FIN" LINE 16 COL 12 LOW REVERSE
GO SOCI-UNO.
GO SOCI-MOS1.
Si os fijáis la modificación nos lleva de
nuevo a la introducción de los campos, solo que el valor de MODI
ahora es 1 y eso indica que estamos en modificación.
Confirmación de borrado del registro.
SOCI-BORRAR.
DISPLAY "BORRARLO ..?" LINE 16 COL 2.
ACCEPT OP LINE 16 COL 16 PROMPT NO BEEP LOW
ON EXCEPTION ESCA NEXT SENTENCE.
DISPLAY SPACES LINE 16 SIZE 50.
IF OP = "N" OR ESCA = 27 GO SOCI-MOS1.
IF OP = "S" NEXT SENTENCE ELSE GO SOCI-BORRAR.
DELETE AGENDA INVALID KEY
MOVE "BORRAR UN REGISTRO" TO MOTIVO PERFORM MENERROR.
GO SOCIO0.
Regrabamos el registro con los datos actuales.
SOCI-GRABAR.
MOVE AGECOD TO AGECOD1 MOVE AGENOM TO AGENOM1.
REWRITE REGAGE INVALID KEY
MOVE "REGRABAR UN REGISTRO" TO MOTIVO PERFORM
MENERROR.
Abandonamos el mantenimiento del archivo, cerramos la ventana y volvemos a la
pantalla principal.
SOCIFIN.
DISPLAY WIN (1) CONTROL "WINDOW-REMOVE".
GO TRES. |
 |
El siguiente capítulo,
mostrará como hacer una consulta de los datos por pantalla, utilizando para
ello un scroll. |
(1/2)  |  |
|
|
Programando en Ms-Dos (texto)
