FoxPro/Visual FoxPro - base de datos

Estoy manejando una base de datos, tengo varias tablas y quiero guardar en una tabla que se llama personal. Pero cuando intento guardar no me graba los datos solo crea el espacio en blanco en la tabla.

Este es el codigo que tengo en el botonguardar

USE personal.dbf EXCLUSIVE AGAIN
IF EMPTY(thisform.trabajador.pagTrab.txtCve.Value)
MESSAGEBOX("CLAVE INCORRECTA")
thisform.trabajador.pagTrab.txtCve.SetFocus
ELSE
GO BOTTOM
APPEND BLANK
replace personal.cve_per WITH VAL(thisform.trabajador.pagTrab.txtCve.Value)
*replace personal.nom_per WITH thisform.trabajador.pagTrab.txtNom.Value
*replace personal.edad_per WITH thisform.trabajador.pagTrab.txtEdad.Value
*replace personal.fnac_per WITH thisform.trabajador.pagTrab.txtNac.Value
MESSAGEBOX("datos guardados")
endif

Espero alguien me pueda ayudar, estoy programando en vfp9

- Aunque no es un problema el GO BOTTOM esta de mas.
- antes del REPLACE pon SELECT personal.

Ya está, ahora el detalle es que en la tabla me anexa el registro en blanco (lo deja así) y el dato que guardo lo encima en el registro anterior.

Gracias de antemano.

trata usando un skip despues del APPEND BLANK quizas el puntero se esta regresando despues de crear el balnco ....


suerte

Una consulta,

No tienes ningun set relation activo a esa tabla? no deberia moverse el cursor despues del append blank

Hola amigo yo soy relativamente new en esto del Vfox pero buenoa ver si derrepente esto te ayuda lo que dice Ernesto me paso una vez cuando estan relacionadas 3 tablas bueno cuando quise ingresar datos primero en la 3 tabla (estando una relaccion activa) me salian problemas de ubicacion de punteros lo solucione utilizando set order to 0 (sin indice) y luego de los reemplazos puse el Order que estaba en la relacion, eso fue un caso .. lo otro que me sucedio fue cuando estaba jugando con eso de los buffers de memoria (creo que es eso tu problema ) cuando esta en buffer 5 (osea cuando trabajas con toda la tabla ) y trabata de hacer adiciones y reemplazos (appe y replace) no me funcionaba tenia que actualizar la tabla con tableupdate().

ojala te sirva de algo...

lanor

Buena deduccion compañero. me parece perfecto


Suerte

Saludos

no veo porque tengas problemas..pero yo hago lo siguiente...

Select 1
IF EMPTY(thisform.trabajador.pagTrab.txtCve.Value)
MESSAGEBOX("CLAVE INCORRECTA")
thisform.trabajador.pagTrab.txtCve.SetFocus
ELSE
GO BOTTOM
APPEND BLANK
replace cve_per WITH thisform.trabajador.pagTrab.txtCve.Value
replace nom_per WITH thisform.trabajador.pagTrab.txtNom.Value
replace edad_per WITH thisform.trabajador.pagTrab.txtEdad.Value
replace fnac_per WITH thisform.trabajador.pagTrab.txtNac.Value

MESSAGEBOX("datos guardados")
endif


Suerte »»

tengo un problema

no puedo unir la siguiente consulta utilizando un combo

text combo1 boton ir

la verdad no puedo relacionar una tabla con un combo
si puedes resolverme esta duda

gracias