Mostar un reporte dentro de un Formulario a traves de una rutina .PRG

Saludos! Nuevamente les traigo una aportacion sobre como se puede mostrar un Reporte (.frx) dentro de un formulario (.scx) en una rutina (.prg) de visual foxpro.


1. Creamos un archivo .prg en nuestro proyecto. Lo llamaremos "mostrarreporte".
2. Copiamos el siguiente codigo dentro del .prg.

PROCEDURE xreporte

PUBLIC repform

repform = CREATEOBJECT('Vista previa')
repform.Visible = .T.

**--Definimos la clase Form
DEFINE CLASS vista previa AS FORM
   Name = "Vista Previa"
   ScaleMode = 3
   Top = 0
   Width = 700
   Height = 650
   ShowWindow = 2
   Closable = .T.
   Caption = "Vista previa - Reporte xxx"
   Movable = .T.
   WindowState = 2
   SizeBox = .F.



**--Mostramos el reporte
REPORT FORM "Mireporte" PREVIEW WINDOW vista previa IN WINDOW vista previa

**--
  END DEFINE
ENDPROC

3. Luego, solamente llamamos la rutnina desde cualquier punto de nuestra aplicacion. Por ejemplo, en el evento Click de un boton, ponemos un codigo como este:

DO xreporte IN mostrarreporte


Es decir, llamamos al procedimiento contenido en el .prg. :)


Cualquier duda, o comentario o critica, es siempre bienvenida para mejorar!

Saludos! Desde Managua, Nicaragua!
Ravenn! :)