FoxPro/Visual FoxPro - Ver si el cliente existe

Buenas tardes, tengo una base de datos con un cierto numero de clientes, y deseeo que por accidente no den de alta a un cliente que ya existe, la situacion es la siguiente ya tengo una rutina en la cual evalua si el cliente existe.

pero eso no funciona si por ejemplo abrevian Ma o MA en vez de MARIA tambien si se escribe incorrectamente Z S o un V por una B.

Para tratar de corregir el que te escriban en minusculas, mayusculas o mezca de ambas, tienes que crear en el campo nombre con el UPPER(ALLT(nombre))
*---- Para el caso de Ma, MA o MARIA
vnombre = UPPER(ALLT(nombre))
IF SEEK(vnombre,"clientes") && lo encontro
* mensaje de encontrado
RETURN .F.
ENDIF
*---- Para el caso de Z, S o C
vnombre = UPPER(ALLT("Sebastian"))
vnombre1 = UPPER(ALLT("Zebastian"))
vnombre2 = UPPER(ALLT("Cebastian"))
IF SEEK(vnombre,"clientes") OR SEEK(vnombre1,"clientes") OR SEEK(vnombre2,"clientes") && lo encontro
* mensaje de encontrado
RETURN .F.
ENDIF
*--- Igual lo tienes que tratar con V y B

Excelente esto es lo que andaba buscando sobre todo con lo de las s z y c, gracias.

DEBE CREAR UN METODO QUE SE LLAME BUSCAR_CLIENTE.

LPARAMENTER IDCLIENTE

SELECT * FROM CLIENTE WHERE CLIENTE.IDCLIENTE = IDCLIENTE

IF RECCOUNT>0
RETURN .T.
ELSE
RETURN .F.
ENDIF

EN EL BOTON DE GUARDAR O DONDE VAYAS A USAR ESTE METODO

IF NOMBREMETODO = .T.
CLIENTE EXISTE.
ELSE
CLIENTE NO EXISTE.
ENDIF

Y LISTO SOLO DEBE BUSCARLO POR CODIGO.

ESPERO TE SIRVA.

JUAN