FoxPro/Visual FoxPro - gomonth

Hola programadores tengo un problema con la funcion gomonth, tengo un cliente que pasa consulta por ejm, 01/07/2011, y quiero validarlo para que NO vuelva pasar consulta dentro de los primeros 7 meses contando desde el ultimo dia de su atencion; ahora el cliente recien tendria su atencion el 01/02/2012, este es mi codigo muy agradecido a quien pueda ayudarme.

selec atenciones
set order to h_codigo
locate for h_codigo = alltrim(thisform.text1.value)
if found()
fecha_temp = h_fecha
if fecha >= gomonth( fecpa, -7 )
wait"Debe de pasar 7 meses para la próxima atencion"window nowait
endif

No nos dices cual es el valor de FECPA o de donde viene. Ni qué haces con la variable FECHA_TEMP

En todo caso el gomonth debería ser en positivo (7 meses a futuro) pero como no quedan claras tus variables, no podemos saberlo.

Otra más: ¿por qué usais SET ORDER y LOCATE si esta última es una búsqueda secuencial que no aprovecha los índices?

Siendo tan fácil algo como

selec atenciones
if seek( thisform.text1.value, 'atenciones', 'h_codigo' )
*** bla bla bla....
endif