Código de FoxPro/Visual FoxPro - Solución a pulga de reportes VFP9 en Windows 7

Primer programa: LeeEncabezadoReporte.Prg

*************

* Este programa lee y guarda en el archivo Encabezado_Reporte los valores del encabezado

* del reporte seleccionado antes de ser modificado por el generador de reportes de VFP bajo Win7

* Esta información deberá ser restaurada con el programa GuardaEncabezadoReporte una vez

* que se hagan los cambios necesarios.

CLOSE DATABASES

USE GETFILE("FRX") IN 0 ALIAS Informe

SELECT Informe

Largo=AFIELDS(Campos)

COPY STRUCTURE TO Encabezado_Reporte

USE Encabezado_Reporte IN 0 ALIAS Valores

SELECT Valores

APPEND BLANK

FOR I=1 TO ALEN(Campos,1)

   Campo1="Informe."+Campos(I,1)

        Campo2=FIELD(I,1)

        REPLACE &Campo2 WITH &Campo1

NEXT I

close data

*****************************************************

 Segundo Programa:GuardaEncabezadoReporte

****************************

* Este programa guardará nuevamente el encabezado del reporte seleccionado

* una vez modificado desde el generador de reportes.

* La razón: Win7 no permite configurar impresora y se perdería la configuración

* original para el reporte.

* Antes de ejecutar éste programa, se debió guardar la información del encabezado

* en el archivo encabezado_reporte con el programa LeeEncabezadoReporte.prg

CLOSE DATABASES

USE Encabezado_Reporte IN 0 ALIAS Valores

USE GETFILE("FRX") IN 0 ALIAS Informe &&Informe en el que se guardarán los datos...

SELECT Valores

Largo=AFIELDS(Campos)

Si=""

ACCEPT "Totalmente Seguro? (Sí=999)" TO Si

IF Si="999" &&Para evitar cualquier error por digitación involuntaria....

        SELECT Informe

       GO TOP &&Primer Registro..

     FOR I=1 TO ALEN(Campos,1)

                Campo1="Valores."+Campos(I,1)

                Campo2=FIELD(I,1)

                REPLACE &Campo2 WITH &Campo1

        NEXT I

ENDIF

CLOSE DATA

****************************************