FoxPro/Visual FoxPro - Calcular saldos

QUIERO CALCULAR SALDOS POR CODIGOS, TRATO DE USAR ESTE PROGRAMA, PERO ME GENERA EL ERROR SIGUIENTE: "THISFORM, sólo puede usarse en un método"


MUCHO LES AGRADECE QUE ME AYUDEN.-

Ese código no es genérico y no puede más que estar en un método del formulario, o en una clase custom que se agrega al formulario manualmente o por código.

Si por algún motivo tenés que tenerlo en una función dentro de un prg y necesitas el dato de la fecha, tienes dos opciones:
1) pasar la fecha como parámetro al procedimiento
Si la función se llama CalculeSaldo(), sería así:
Desde el formulario
CalculeSaldo(thisform.text1.value)
En el prg
PROCEDURE CalculeSaldo
LPARAMETERS xdFecha


2) pasar como parámetro la referencia de objeto del formulario,
CalculeSaldo( thisform )

En el prg
PROCEDURE CalculeSaldo
LPARAMETERS xoForm
LOCAL LDFECHA
ldFecha=xoForm.Text1.Value

3) Pasar la referencia de objeto del objeto que tiene la fecha (en este ejemplo, text1)
En el form
CalculeSaldo(thisform.Text1)

En el prg
PROCEDURE CalculeSaldo
LPARAMETERS xoObjeto
LOCAL ldFEcha
ldFecha=xoObjeto.Value

Para el caso que planteas, lo más simple:
Crea un método en el formulario que uses, por ejemplo, "CalcularSaldo" y cuando quieres correr la rutina pones Thisform.CalcularSaldo()

Observaciones
1) Movimientos1 es una tabla temporal?. De lo contrario indexar cada vez que se abre no parece una buena idea.
2) Este código nunca debería estar en un método o función. Puedes correrlo al evento Load del formulario, aunque Close All no es recomendable, salvo para la rutina de cierre. A los sumo, CLOSE DATA.
close all
set date to dmy
set talk off

3) Te recomiendo que emprolijes el tema de las variables
LOCAL ldFecha,lcArticulo
Si omites la definición LOCAL, las variables se crean como PRIVATE y son vistas y modificables por cualquier procedimiento inferior hasta que se cierra el procedimiento que las define. Generan ambigüedad.

El prefijo se utiliza más o menos así
1er letra te dice si la variable es local , public o private, o si es un parámetro
L=Local, P=Publica, V=private, X=parámetro
2da Letra te dice el tipo contenido (n=numerico, c=Character, l=Logico, d=date, t=datetime, etc)

No utilices una m como prefijo porque confunde. Una variable de memoria se puede diferenciar claramente de un campo de tabla, con el prefijo m.variable
Así
lcArticulo=alltrim(codigo)
if alltrim(codigo)==m.lcArticulo
*** lo que sea
endif