FoxPro/Visual FoxPro - Entorno datos del informe...

Queridos compañeros foxeros, tengo una aplicacion en fox que utiliza un
metodo en los form para abrir el entorno de datos y cambiar la ruta en
concreto de cada tabla de la base de datos para abrir la que a mi me
interese...el sistema se basa en el siguiente codigo añadido en el form en
los metodos load y unload a demas de un metodo propio... El problema es como
adaptar este codigo para poder usarlo igualmente en los informes, alguno
tiene alguna idea de como hacerlo...

&& METODO: LOAD.

LOCAL ARRAY laObjects(1)

IF EMPTY(THISFORM.ICON)
THISFORM.ICON=SPACE(0)
ENDIF

&&Método: Load del formulario de la clase base - Abre las tablas

*!* Configurar la sesión de datos del formulario
DO PONERSETS

*!* Abre y configura el entorno de datos del formulario
THISFORM.FormOpenDE()

*!* Abrir tablas, solo si existe el objeto DataEnvironment y contiene
miembros
IF VARTYPE(THISFORM.DataEnvironment) == ´O´ AND AMEMBERS(laObjects,
THISFORM.DataEnvironment, 2) > 0
THISFORM.DataEnvironment.OpenTables()
ENDIF


&&Método: Unload del formulario de la clase base - Cierra las tablas

LOCAL ARRAY laObjects(1)

*!* Hacer que el formulario
*!* desaparezca más rápidamente
THISFORM.Visible = .F.

*!* Cerrar tablas, solo si existe el objeto DataEnvironment y contiene
miembros
IF VARTYPE(THISFORM.DataEnvironment) == ´O´ AND AMEMBERS(laObjects,
THISFORM.DataEnvironment, 2) > 0
THISFORM.DataEnvironment.CloseTables()
ENDIF


*** METODO FORMOPENDE()

FOR EACH lcObjName IN

Buenas,
Si tienes las mismas tablas en diferentes directorios, lo mejor es que utilices la instrucción SET PATH TO.
Si fuera ese el caso, entonces te doy un ejemplo, donde tienes los siguientes directorios:
c:\sistema --> aqui esta el ejecutable
c:\sistema\datos1999 --> datos de la gestion 1999
c:\sistema\datos2000 --> datos de la gestion 2000

entonces puedes hacer al inicio de la ejecución, suponiendo que tus datos son del 2000 los que quieres:

SET PATH TO datos2000

luego, cuando quieras cambiar a otros datos:

SET PATH TO datos1999

y eso es todo, asi te evitas de hacer codigo en tus formularios como en los reportes.
Saludos.