El ejercicio esta en que debo crear una tabla y despues crear un programa con ALTAS, CONSULTA, LISTA, BUSCAR & BORRAR.
Debo hacerlo con Menús Despegables (PROMPT)
Llevo el siguiente código:
opcion=0
SET color TO GR+/B+
CLEAR
@ 10,5 PROMPT 'Altas ' MESSAGE 'Ingresa a la tabla nuevos datos'
@ 13,5 PROMPT 'Consulta ' MESSAGE 'Ve los datos disponibles en la tabla'
@ 16,5 PROMPT 'Listar ' MESSAGE 'Ve el orden de la tabla por registro'
@ 19,5 PROMPT 'Bajas ' MESSAGE 'Eliminamos/Marcamos un registro para su baja'
Menu to opcion
IF opcion=1 then
STORE SPACE(15) TO ape1,ape2
STORE SPACE(20) TO nom
store SPACE(1) to co
@10,30 say 'ALTAS'
@13,25 say 'Apellido Paterno' get ape1 picture "@!"
@15,25 say 'Apellido Materno' get ape2 picture "@!"
@17,25 say 'Nombre' get nom PICTURE "@!"
READ
USE tabla3b
APPEND BLANK
Replace apellido_p with ape1
Replace apellido_m with ape2
Replace nombre with nom
@19,25 say '¿Quieres continuar S/N?' GET co PICTURE "@!"
READ
IF co='N' then
EXIT
ENDIF
ENDIF
&& Aqui inicia Consulta &&
[color=#FF0000]IF opcion=2 then[/color] STORE 0 TO tecla
USE tabla3b
DO WHILE .T.
@10,30 say 'Registro No. ' + STR(RECNO())
@13,25 say 'Apellido Paterno ' + apellido_p
@16,25 say 'Apellido Materno ' + apellido_m
@19,25 say 'Nombre ' + nombre
tecla=INKEY()
IF tecla=1 then
CLEAR
GO top
ENDIF
IF tecla=6 then
CLEAR
GO bottom
ENDIF
IF tecla=27 then
CLEAR
EXIT
ENDIF
IF tecla=24 then
CLEAR
IF RECNO()=RECCOUNT() then
GO top
ELSE
skip+1
ENDIF
ENDIF
IF tecla=5 then
CLEAR
IF RECNO()=1 then
GO bottom
ELSE
skip-1
ENDIF
ENDIF
IF tecla=3 then
CLEAR
IF RECNO()<24 then
skip+5
ELSE
GO top
ENDIF
ENDIF
IF tecla=18 then
CLEAR
IF RECNO()>=5 then
skip-5
ELSE
GO bottom
ENDIF
ENDIF
ENDIF
enddo
Visual me esta diciendo esto "An IF|ELSE|ENDIF statement is missing
¿Alguna idea, pls?
Thnks!
