Edwin
30 de Julio del 2003

hola amigos me gustaria que me ayuden se que ustedes tiene mas experiencia en esto mi problema consiste en que nesecito guardar una cuenta atraves de un formulario y una ves registrado ya no pueda guardar otro, solo ser modificado en caso de ser nesesario mi codigo es este

Select caja
with thisform

objeto:command evento:click

Seek alltrim (.ctNombre.value)
If Found()
wait window "hay una cantidad actual" timeout 1
.ctNombre.value=Space(10)
.ctFecha.value=Ctod(" / / ")
.ctCantidad.value=0
.ctNombre.setfocus
else

do case
case.ctfecha.value=Space(1)
wait windows "Fecha invalida intende de nuevo" timeout 1
.ctNombre.setfocus
otherwise
append blank
replace nombre with .ctNombre.value
replace fecha with .ctFecha.value
replace efectivo with .ctCantidad.value
*Borrar valores
.ctNombre.value=Space(10)
.ctFecha.value=Ctod(" / / ")
.ctCantidad.value=0
.ctNombre.setfocus
Endcase
endif
endwith


les agradeceria que me ayudaran