FoxPro/Visual FoxPro - cannot access character beyond string

Hola foro !!!

esperando me puedan ayudar gracias..


tengo lo siguiente


cuenta=Len(allt(thisform.pageframe.page1.rfc.value))


Select rfc from nomina
Where Allt(thisform.pageframe.page1.rfc.value)=substr(nomina.rfc),
1,cuenta)
into cursor cuadro


Thisform.grid.recordsource='cuadro'


estaba trabajando correctamente pero de un dia a otro me envia
este error (cannot access character beyond string) alguna idea ?
GRACIAS....

En la función substr(nomina.rfc) debés completarle los parámetros:
substr(nomina.rfc,Posición_De_Inicio,Longitud)
Además asegurarte que la posición de inicio sea menor o igual que la longitud de la cadena almacenada en nomina.rfc. El error te dice que estás tratando de tomar caracteres más allá de la longitud total de la cadena de origen.
El parámetro es opcional. Si no está presente, se asume una longitud que llegue hasta el final de la cadena.

Según tu código, tenés un error de sintaxis:

substr(nomina.rfc), 1,cuenta)

Quizás esté de más el corchete interno.

Debés estructurar tu sintaxis en un formato legible para poder detectar rápidamente este tipo de errores.
Por ejemplo de esa forma:

Select rfc ;
from nomina ;
Where Allt(thisform.pageframe.page1.rfc.value)=substr(nomina.rfc),1,cuenta) && Así notás mas fácilmente que sobra algún paréntesis o que falta algo más.
into cursor cuadro