codigo

*variables
altas=0
do while (altas<>3)
@0,0 clear to 23,79
@0,0 to 23,79 double
@2,30 say "proceso e altas"
@3,30 say "1.-altas al archivo clientes"
@4,30 say "2.-altas al archivo ´productos"
@5,30 say "3.-terminar"
@10,30 say "opcion" get altas picture '9' range 1,3
read

do case
case altas=1
@23,0 say space (80)
@23,0 say space"programa de altas el archivo de alumnos"
borra=space(10)
nuevoAlum=space(20)
apellidopat=space(20)
apellidomat=space(20)
matalum=0
ntel=0
nemail=space(30)
@6,0 clear to 20,79@0,0 to 23,79 double
@10,10 say "teclea el nombre del alumno" get nuevo alum picture "@!20"
@11,10 say "teclea la matricula" get matalum picture "9999999999999999"read

Select 1
Use Alumnos
got to top
locate for (nombre=nombrealum).and(telefono=ntel)
if eof()

@10,12 say "teclea matricula" get matalum picture "999999999999999"
@13,10say "teclea semestre" get semestre picture "@!20"
@14,10 say "teclea grupo" get grupo picture "@!20"
@15,10 say "teclea e-mail" get nemail picture "@!30"

Read

AppendBlanck

Replace nombre with nomalum
Replace apellido pat winth apellido 1
Replace apellido mat with apellido 2
Replace matricula with matrialum
Replace semestre withsemestre
Replace grupo with grupo
Replace e-mail with nemail
use

do while inkey ()=0
enddo

else
@14,8 to 16,44 double
@15,10 say "error_registro ya existe"
end if
usecase altas =2
@23,0 say space (80)
@23.0 say "programa de altas al archivos de productos"
borrar=space (10)
nnmomp=space(20)
nvol=space (10)
nnump=0
ncodigo=0
nprecio=0@6,0 clear to 20,79
@0,0 to 23,79 double
@10,10 say "teclea el nombre" get nnomp picture "@!20"
@11,10 say "teclea el codigo" get ncodigo picture "999999999999999"
Read