FoxPro/Visual FoxPro - BUSCA LOS ELIMINADOS

Hola programadores tengo este codigo funciona bien el problema es que me busca hasta los eliminados y no se como puedo hacer para que no haga eso gracias.
SET exact on
SELEC socios
SET order to soc_cod
locate for soc_cod = thisform.text8.value
IF found()then
=messagebox("El Socio Pertenece a la empresa",64,"Mensaje del Sistema")
endif

debes ajustar
SET DELETED OFF

Saludos cordiales

Me corrijo
El comando SET DELETE esté en OFF por defecto
Lo debes ajustar a
SET DELETED ON

Saludos Cordiales

SET DELETE ON

EN EL INIT DE TU FORM, O EN EL PROGRAMA PRINCIPAL

SALUDES

o en su defecto

locate for soc_cod = thisform.text8.value and not deleted()

GRACIAS AMIGOS POR LA INFORMACION