Como Crear reporte en PDF desde Visual Foxpro

Reporte  PDF desde Visual Foxpro archivo Texto

Como Crear reporte en PDF desde Visual Foxpro, convierte tus reportes en algo distinto, destaca la manera de poder convertir tus reportes en PDF con esta magnifica herramienta Foxypreviewer , podrás enviarlos por correo electrónico y Mejorar el aspecto de tus reportes. Utilizaremos la herramienta Foxypreviewer para crear estos tipos de informes el cual nos brindan una mejor forma de poder presentar nuestros informes. Con Foxypreviewer son muchas las ventajas las cuales tenemos

En el init del Formulario

PUBLIC xhasta

xhasta=DATE()

Set Safety Off

sw=0
xdir_pdf = "c:/pdf"
IF DIRECTORY(xdir_pdf)
      thisform.Refresh 
ELSE
     MKDIR &xdir_pdf
     MESSAGEBOX("Creada Carpeta")

ENDIF

Create Table vispre Free (i1 c(20),i2 c(20), i3 c(20),i4 c(20),i5 c(20), i6 c(20), i7 c(20), i8 c(20), i9 c(20))

Set Devi To File "temp.txt"

SELECT poliza,tip_poli,as_cedula,as_nombre,as_fecexp FROM poliza INTO table "porvencer2" WHERE as_fecexp <=xhasta

unlock

x=0

xempresa="Tu Empresa"

xrif="J-000000000-0"

xdir="Direccion de la Empresa"

@ x,1 Say "EMPRESA  : "+xempresa

X=X+1

@ x,1 Say "Rif      : "+xrif

X=X+1

@ x,1 Say "Direccion: "+xdir

X=X+1

@ x,1 Say "REPORTE DE POLIZAS X VENCER : "+"    HASTA EL DIA : "+DTOC(XHASTA)

x=x+1

@ x,1 Say "Fecha    : " +Dtoc(Date())

x=x+1

@ x,1 say REPLICATE("-",115)

x=x+1

@ x,1 Say "Poliza Tipo de Poliza            Cédula          Nombre del Cliente         Fecha de Vencimiento"

x=x+1

@ x,1 say REPLICATE("-",115)

x=x+1

Select "porvencer2.DBF"

Go Top

Do While !Eof()

      @ x,1 Say poliza+" "+tip_poli+" "+as_cedula+" "+SUBSTR(as_nombre,1,32)+DTOC(as_fecexp)

      x=x+1

      If x>1000

            Set Devi To Screen

            Select "vispre"

            Append From "temp.txt" Sdf

            Set Devi To File "temp.txt"

            x=0

      Endif

      Skip

Enddo

@ x,1 say REPLICATE("-",115)

x=x+1

@ x,1 say ""

X=X+1

Set Devi To Screen

Select "vispre"

Append From "temp.txt" Sdf

Thisform.grid1.RecordSource="vispre"

Thisform.Refresh

Thisform.grid1.column1.text1.SetFocus

También te puede interesar : Menu estilo CSS