set talk off
set status off
clear
do while .t.
define window a from 0,0 to 60,300
activate window a
@4, 60 say "datos personales"font "arial",30
@10,30 prompt "ingreso" font "arial",30
@14,30 prompt "consulta"font "arial",30
@18,30 prompt "modificacion"font "arial",30
@22,30 prompt "eliminacion"font "arial",30
@26,30 prompt "reporte"font "arial",30
@30,30 prompt "salir"font "arial",30
menu to op
do case
case op=1
do ingreso
case op=2
do consulta
case op=3
do modificacion
case op=4
do elimacion
case op=5
do reporte
case op=6
exit
endcase
enddo
deactivate window a
procedure ingreso
set talk off
set status off
clear
use aplicaciones1
op="s"
do while op="s"
mapellidos = space(25)
mnombres = space (25)
mtelefono = space(10)
mestadocivi = space(25)
mnacionalid = space (25)
mpaisproced = space(25)
mdireccion = space (25)
mprofesion = space (25)
mocupacion = space (25)
define window b from 0,0 to 100,300 title "datos personales"font"arial",15
activate window b
@4,30 say "datos personales"font"arial",20
@6,10 say "apellidos"font"arial",10get mapellidos font"arial",10
@6,50 say "nombres"font"arial",10 get mnombres font"arial",10
@6,90 say "telefono"font "arial",10 get mtelefono font "arial",10
@8,10 say "estadocivi"font"arial",10 get mestadocivi font"arial",10
@8,50 say "nacionalid"font"arial",10 get mnacionalid font"arial",10
@8,90 say "paisproced "font"arial",10 get mpaisproced font"arial",10
@10,10 say "direccion"font"arial",10 get mdireccion font"arial",10
@10,50 say "profesion"font"arial",10 get mprofesion font"arial",10
@10,90 say "ocupacion"font"arial",10 get mocupacion font"arial",10
read
append blank
replace apellidos with mapellidos
replace nombres with mnombres
replace telefono with mtelefono !!!! aquie me muestra ese mensaje no coinciden los tipos de datos
replace estadocivi with mestadocivi
replace nacionalid with mnacionalid
replace paisproced with mpaisproced
replace direccion with mdireccion
replace profesion with mprofesion
replace ocupacion with mocupacion
@12,40 say "desea continuar s/n"font"arial",15 get op
read
if op="s"
loop
else
exit
endif
enddo
deactivate window b
procedure consulta
set talk off
set status off
clear
use aplicaciones1
go top
op="s"
do while op="s"
define window c from 0,0 to 80,300 title "datos personales"font"arial",30
activate window c
mapellidos=space(25)
@2,20 say"consulta de datos"font"arial",20
@3,10 say "apellidos"font"arial",15 get mapellidos font"arial",15
read
locate for apellidos=mapellidos
if apellidos=mapellidos
@4,10 say "nombres " + nombres font"arial",15
@5,10 say "telefono " + telefono font"arial",15
@6,10 say "estadocivi " + estadocivi font"arial",15
@7,10 say "nacionalid " + nacionalid font"arial",15
@8,10 say "paisproced " + paisproced font"arial",15
@9,10 say "direccion " + direccion font"arial",15
@10,10 say "profesion " + profesion font"arial",15
@11,10 say "ocupacion " + ocupacion font"arial",15
read
else
wait window "apellido no existe"time 3
endif
@12,10 say "desea continuar s/n"font"arial"get op
read
if op="s"
loop
exit
endif
enddo
deactivate window c

no entendi