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
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
