FoxPro/Visual FoxPro - VALIDACIÓN DE TEXT

SOLICITO AYUDA URGENTE!!!!!!!

HOLA: NECESITO QUE ME AYUDEN CON ESTO! HE CREADO UNA BASE
DE DATOS QUE CONTIENE VARIAS TABLAS: UNA, POR EJEMPLO, SE
LLAMA PAGOCLIENTEESCOLAR, QUE ALMACENA INFORMACIÓN ACERCA
DE LOS PAGOS QUE REALIZA UN CLIENTE; OTRA QUE SE LLAMA
ESCOLAR, LA CUAL CONTIENE DATOS PARTICULARES DE CADA
CLIENTE.
AHORA BIEN, YO HE VALIDADO UN TEXT DE LA TABLA
PAGOCLIENTEESCOLAR PARA QUE CHEQUEE QUE EL CÓDIGO DE ESE
CLIENTE EXISTA EN LA TABLA ESCOLAR PERO ME DA ERRORES.
ALGUIEN PUEDE DECIRME QUÉ FALTA, QUÉ SOBRA O QUÉ ESTÁ MAL?
EN PAGOCLIENTEESCOLAR, NECESITO QUE ME MUESTRE EL APELLIDO
DEL CLIENTE QUE ME ESTÁ PAGANDO EN ESTE MOMENTO QUE
RESPONDE AL CÓDIGO INGRESADO Y QUE ESTÁ ALMACENADO EN LA
TABLA ESCOLAR.
ASÍ LO PUSE EN EL EVENTO VALID DEL TEXT EN CUESTIÓN.
DESDE YA, MUCHAS GRACIAS

open database kattytour
use pagoclienteescolar
set order to codcl
if len(alltrim(thisform.codcliente1.value))=0
return 0
endif
use escolar
set order to codclient
seek alltrim (thisform. codcliente1.value)
if eof()
wait window "no existe"
use pagoclienteescolar
return 0
else
Scatte memvar
Thisform.APELLIDOYNOMBRE1.refresh
use pagoclienteescolar
return 1
endif
.

Hola Meli:

Que errores te da?

Bueno dejame intuir y ver como te ayudo.

Lo primero, estoy deberia de ir en el LOAD o en el INIT del Formulario

open database kattytour
use pagoclienteescolar in 0
use escolar in 0

En el Valid de tu TextBox

lcCliente = Alltrim(thisform.codcliente1.value)
Select PagoClienteEscolar
set order to codcl
if !empty(lcCliente)
return 0
endif
Select escolar
set order to codclient
If !Seek(lcCliente)
wait window "no existe"
select pagoclienteescolar
return 0
else
Scatte memvar
Thisform.APELLIDOYNOMBRE1.refresh
select pagoclienteescolar
return 1
endif

Prueba y me cuentas

Saludos