FoxPro/Visual FoxPro - ayuda porfis

hola programadores podran ayudarme gracias
tengo 2 tablas
consulta y cliente
sede cod_cli
fecha nomb
cod_cli
el problema esta cuando registro un dato en consulta (COD_CLI) y quiero que busque en la tabla cliente para ver si existe en esa tabla si no existe en cliente no graba los registros en consulta este el codigo que estoy utilizando.

B=thisform.codigo.value
select clientes
set order to cod_cli
seek B
if found()
=messagebox("Codigo no existe en la tabla cliente",48,"Error")
go bottom
delete
endif
thisform.refresh

if empty(thisform.text1.value) or empty(thisform.text2.value)
=messagebox("Registros incompletos","Mesaje del sistema")
else

IF MESSAGEBOX("Seguro de grabar",36,"Confirmacion")=6

APPEND BLANK
REPLACE SEDE WITH S
REPLACE FECHA WITH F
REPLACE COD_CLI WITH C
thisform.refresh

ELSE
=MESSAGEBOX("No se grabaron los datos",64,"Mensage del sistema")
endif
endif
endif

B=thisform.codigo.value && aqui si tu campo es caracter pon
B=STR(ThisForm.Codigo.Value,6) && segun el tamaño de tu campo
select clientes
set order to cod_cli
seek (B,"CLIENTES",1) && aqui pon la tabla y el orden que uses

if found()
=messagebox("Codigo no existe en la tabla cliente",48,"Error")
go bottom
delete
endif
thisform.refresh

Suerte

Gracias chicos pero el resultado que requiero es que los datos guarde en la tabla consulta y no en cliente solamente quiero que lo busque en cliente y si no existe no graba, pasa que como habro la tabla al principio select clientes el proceso pìensa que lo guardara ahi y me tre conflictos chicos un ultimo esfuezo creo que no me explique bien
gracias.

usa la clausula IN

APPEND BLANK IN Consulta

Suerte

DOnde dice FOUND pon !FOUND()

Gracias chicos pero el resultado que requiero es que los datos guarde en la tabla consulta y no en cliente solamente quiero que lo busque en cliente y si no existe no graba, pasa que como habro la tabla al principio select clientes el proceso pìensa que lo guardara ahi y me tre conflictos chicos un ultimo esfuezo creo que no me explique bien
gracias.

Por lo menos se que found esta mal. Por que found significa que lo encontraste, mientras que !FOUND() es la negacion

gracias amiguito no sabia porque usar el !found creo que esta solucionado mi pregunta un besote

es correcto !