Problemas con el botón guardar en visual foxpro 9.0

Tengo un problema con el botón guardar, tengo la siguiente codificación,

1ero en el Init del form

SELECT agregarymodificar
SET ORDER to CÓDIGO && CÓDIGO
GO bott
thisform.txtCodigo.value=agregarymodificar.código+1
thisform.refresh

y luego en el click del botón guardar

SELECT agregarymodificar
SEEK(thisform.txtCodigo.value)
if found()
Wait window "El código ya existe intente de nuevo"
else
APPEND BLANK
REPLACE código WITH thisform.txtCodigo.value
WAIT window "Datos guardados con éxito"
thisform.txtCodigo.value=0
Thisform. Refresh
ENDIF

Quiero que me ayudes por siempre que lo ejecuto cuando quiero guardarlo me dice que el código ya existe aunque agregue codigos que no estan en la tabla. Hago esto para evitar valores duplicados.
Desde ya

Respuesta
1

¿El campo código en tu tabla agregarymodificar es numérico o carácter?

es numerico

¿Y el textbox también es numérico? Lo que podrías hacer es usar en vez del seek usar el locate for

me podrías copiar un ejemplo o con mis datos como se utiliza el locate for, porque la verdad se me complico, gracias

Seria asi

SELECT agregarymodificar
locate for codigo = thisform.txtCodigo.value
if found()
Wait window "El código ya existe intente de nuevo"
else
APPEND BLANK
REPLACE código WITH thisform.txtCodigo.value
WAIT window "Datos guardados con éxito"
thisform.txtCodigo.value=0
Thisform. Refresh
ENDIF

Me avisas como te va, suerte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas