FoxPro/Visual FoxPro - evitar duplicados

hola atodos disculpen las molestias , necesito codigo para evitar ingresar a mi bd datos duplicados,

mi tabla se llama "planilla_asistencias" y quiero controlar mediante los campos fecha_planilla y id_func , en caso que encuentre que ya existen estos datos antes de hacer un insert que me salga un mensage de ya se registro, les agradezco de antemano su ayuda.

Puedes crear una busqueda

public cId_func
cId_func = thisform.txtId.value

locate for alltrim(cId_func)==alltr(campoId_func)
if found()
messagebox("El dato ya existe", 0+16, "Error")
return .f.
else
insert y todo lo demas
endif

saludes

Es mas eficiente con un indice y buscarlo con SEEK

Hola Amigo

Es mas eficiente con select de sql y asi te olvidas de los indices, de esta manera te olvidas de los cortes de luz que corrompne los inidices, y los archivos y tener que reindexsar.

ejemplo.

vamos a suponer que la llave es el codigo y el archivo se llama maestro

select codigo,recno() from maestro;
where alltrim(thisform,text1.value)==codigo;
into cursor c_mae
select c_mae
go top
if bof()
SELECT MAESTRO
appen blank
REPLACE CODIGO WITH THISFORM.TEXT1.VALUE
else
wait windows "REGISTRO EXISTE"
SELECT MAESTRO
go c_mae.exp_2
ednif
REPLACE CAMPO1 WITH THISFORM.TEXT2.VALUE
REPLACE CAMPO2 WITH THISFORM.TEXT3.VALUE

espero te sirva.

ACM

estoy seguro que es mas seguro y con pocas lineas de codigo por esto es mejor usar el SEEK.

probablemente mas practico como dice ANdres

PUEDES USAR SEEK TAMBIEN

public cId_func
cId_func = thisform.txtId.value

select tabla
seek alltrim(cId_func) order tag id_func
if found()
messagebox("El dato ya existe", 0+16, "Error")
return .f.
else
insert y todo lo demas
o
select tabla
append blank
replace campo with cId_func
endif

A veces en la vida es bueno hacer las cosas mas dificiles para aprender mas, pero en algunas circunstancias las cosas faciles nos ahorran tiempo y dinero.

Saludes