Asdaasdasa

append blank
select materia
if reccount() = 0
thisform.creditos.value = " "
banderaclave = 1
else
go bottom
cuenta=recno()+1
if cuenta >=10
clave = " "+alltrim(str(cuenta))
thisform.creditos.value= clave
else
clave = " "+alltrim(str(cuenta))thisform.creditos.value= clave
endif
endif



respuesta = messagebox ('desea ingresar nuevo alumno',4+32+0,'Nuevo alumno')
if respuesta = 6
if found()thisform.clave_mat.value = clave_mat
thisform.nombre.value = nombre
thisform.area.value = area
thisform.creditos.value = creditosinserta = 1
endif
else
bandera = 1
endif
thisform.refresh

local materia
if thisform.nombre.value <> " " and bandera=1 ANDband_mod = 0

insert into materia(clave_mat,nombre,area,creditos);
values(thisform.clave_mat.value,thisform.nombre.value,;
thisform.area.value,thisform.creditos.value,;)

endif

ifbanderaclave = 1
select materia
set index to nomb.idx
locate for alltrim(nombre) = alltrim(thisform.nombre.value)
if found()
clave = nombre
endifwait window "Datos actualizados" nowait
thisform.guardar.visible = .F.
bandera = 0


wait window "Actualizando datos" nowaitENDif
select materia
use
use materia in 0
thisform.refresh

if alltrim(thisform.nombre.value) =alltrim(nombre)
dato = thisform.nombre.value
thisform.nombre.value =dato
ENDIF

select materia
thisform.clave_mat.visible = .F.
thisform.nombre.visible = .T.
thisform.guardar.visible = .T.
thisform.salir.visible = .T.
band_mod = 1

eliminar
wait...