31 de julio de 2017

VFP9 - Novedades - Manipulación de entorno de datos en el diseñador

El Diseñador de informes de VFP 9.0 ha sido modificado en muchos de sus aspectos. El entorno de datos ha sido uno de los aspectos cuyo tratamiento se ha modificado. Este artículo pretende comentar y mostrar algunos de estos cambios.

Muchas veces encontramos que el entorno de datos necesario para la ejecución de determinado grupo de informes es exactamente igual, o muy parecido. Antes de VFP 9.0 teníamos que valernos de código de programación para establecer un entorno adecuado, o en el peor de los casos rehacerlo a mano desde el Diseñador de Informes.

El Generador de informes de VFP 9.0 nos permite compartir fácilmente Entornos de datos con otros informes. El entorno de datos puede ser guardado como una clase y luego cargado en informes, según la necesidad. Esto brinda nuevas posibilidades para definir y reutilizar entornos en informes con escenarios similares.

Veamos las diferencias en el menú Archivo.

Menú Archivo para VFP 8.0 y VFP 9.0

Una opción nueva salta a la vista: Guardar como clase

Para guardar un Entorno de datos como clase, una vez definido, seleccione la opción Guardar como clase…en el menú Archivo. No es necesario tener el entorno de datos abierto.

Como vemos la única posibilidad disponible es Guardar como clase DataEnvironment. Este tipo de clase base fue incorporada a VFP en la versión 8.0.

Si va a crear una clase nueva, basta con escribir su nombre y localizar la biblioteca de clases donde se va a almacenar, al seleccionar el botón de comandos junto a Archivo se muestra la ventana Guardar como

Veamos otro menú, en este caso el de Informes comparemos:

Menú Informe para VFP 8.0  y VFP 9.0

Además de varios cambios en materia de organización de opciones y algunas otras novedades nos detenemos en la opción Carga el Entorno de Datos. Al seleccionarla, vemos que se muestra la nueva ventana Propiedades del Informe con la ficha Entorno de datos activa.

VFP 90, además de permitirnos definir manualmente el Entorno de datos para un nuevo informe, ofrece la opción de cargar un Entorno de datos de un informe ya existente o de una clase DataEnvironment guardada previamente. La opción Carga el Entorno de Datos… en el menú Informe permite seleccionar el origen del Entorno de datos a cargar. Tenemos dos posibilidades:

  • Copiar desde otro archivo de Informe
    Al cargar el Entorno de datos desde otro informe, todo el código y los miembros del Entorno original se copian en el nuevo informe. Esto significa que cualquier cambio que se realice en el Entorno del informe original, después de ser copiado, no se va a reflejar en el informe creado a partir del informe original.
  • Enlazar con una clase DataEnvironment visual
    Al cargar un Entorno de datos desde una clase, se agrega código al Entorno de datos del nuevo informe para enlazarlo con la clase DataEnvironment original e instanciarla en tiempo de ejecución. Esto debería significar que los cambios que pueden realizarse en el futuro sobre la clase DataEnvironment se van a propagar a cualquier informe que emplee esta clase DataEnvironment. Pero no es así, porque el código se escribe sólo la primera vez y no verifica si hubo cambios en la clase.

Veamos como se traduce esta explicación teórica en un ejemplo práctico.

Supongamos que tenemos un nuevo informe, aun vacío, al que deseamos establecer un Entorno de datos, a partir de una clase guardada previamente. Al seleccionar la clase deseada nos muestra lo siguiente:

Esta pregunta se va a hacer siempre que se intente copiar el Entorno de datos, ya sea de otro informe o de una clase DataEnvironment

Al responder nos muestra la fuente que da origen al Entorno de datos y el mensaje:

Veamos qué ha ocurrido en el Entorno de Datos del Diseñador de informes

Pues lo que ha ocurrido es que se ha generado código en algunos métodos del DataEnvironment y de los cursores que lo integran. Vamos a aclarar que en el informe original no existía ningún código en estos métodos. El código que se agrega es para poder enlazar el informe con esa clase.

El enlace con la clase original se produce en el método BeforeOpenTables como se puede ver a continuación

Algunos de los métodos tienen un código tan simple como un único comando DODEFAULT(). La razón para esto es que BindEvents() no funciona si al menos no hay una línea de código. BindEvent() se emplea en BeforeOpenTables para enlazar con los eventos Init y Destroy. El evento INIT no tiene código adicional.

En cuanto al tratamiento de Entorno de datos hay un aspecto muy interesante, que ha resultado un tanto sorprendente para algunos desarrolladores Visual FoxPro y se trata de la forma en que se vinculan con la ventana Expresión de informe.

Comportamiento actual para las tablas abiertas en el Entorno de datos del Diseñador de Informe:

Si la variable de sistema _reportbuilder está vacía, todos los campos de tablas contenidas en el entorno de datos se muestran en la lista Campos (Fields). Las tablas abiertas fuera del entorno de datos no se muestran.

Si la variable de sistema _reportbuilder apunta a alguna aplicación, por ejemplo, _ reportbuilder = ’reportbuilder.app’ significa que se está empleando el nuevo Diseñador de informes, por lo que el comportamiento, y las ventanas son un tanto diferentes.

Se muestra el nuevo cuadro para generar expresiones con un cuadro combinado para seleccionar la tabla que mostrará sus campos en la lista de campos. Es aquí donde debemos prestar atención, se van a mostrar solamente las tablas que estén realmente en uso. Las tablas definidas en el Entorno de datos del informe no se abren automáticamente por el Diseñador de informes, por tanto, no aparecerán en este cuadro combinado.

Esta característica, que no es muy intuitiva al inicio, nos reporta gran beneficio, ya que es la forma más segura y limpia para garantizar que el usuario va a manipular solamente las tablas a las que le demos acceso. Se trata de extender los informes y brindar al usuario final posibilidades para su configuración; pero evitando todo tipo de riesgos. Entonces, las tablas que vamos a utilizar y no queremos que el usuario manipule las creamos en el Entorno de Datos y solo abrimos por fuera aquellas que el usuario necesita manipular.

Podemos además, proteger el Entorno de Datos y no permitir al usuario que acceda, por cierto, que la posibilidad de proteger datos es otra gran novedad del Diseñador de Informes en VFP 9.0

En tiempo de ejecución, el nuevo motor de informe de VFP 9.0 cambia el tratamiento de la sesión actual de datos, agrega sesiones nuevas, su dominio y correcta manipulación, son esenciales para la correcta obtención de los datos… de este importante tema hablaremos otro día.

Espero que haya resultado de utilidad.

Saludos,

Ana María Bisbé York
www.amby.net

25 de julio de 2017

Registrando cambios a vistas locales - Actualización

Artículo original: Logging Changes to Local Views - Updated
Autor: Nancy Folsom
Traducido por: Luis María Guayán


Escribí un artículo en el boletín de noticias de VFUG sobre una sencilla manera de rastrear los cambios a las vistas y a las tablas usando eventos de la base de datos. Este artículo muestra los retoques que he hecho durante los dos últimos dos meses, que incluye un sencillo informe de cambios.

Nota del traductor: El artículo que indica Nancy se lo puede ver en: Registrando cambios a vistas locales

¿Eventos de la base de datos con código en un archivo PRG  externo o en procedimientos almacenados?

Originalmente,  he planeado utilizar un archivo PRG externo para los eventos de la base de datos en vez de los procedimientos almacenados del contenedor de la base de datos. Mi razón para esto era porque utilizo múltiples contenedores de base de datos en mis proyectos y no quise cortar y pegar código, ya que es tan difícil mantener los cambios sincronizados. Esta opción funcionó bien durante el desarrollo. Sin embargo, esto causó problemas cuando actualicé las bases de datos de un cliente, que son usadas para abastecer una aplicación ASP.NET. Confieso que yo no tuve el tiempo ni los recursos para comprender completamente el problema. Sin embargo, en resumen, la aplicación en ASP.NET devolvió errores de OLEDB. Entiendo la razón por la cual un evento de la base de datos en un archivo PRG externo causaría el problema para una interfase Web; sin embargo no he tenido tiempo para investigar a fondo porqué el desencadenante dbc_AfterModifyView se dispararía.

Otro asunto surgió conjuntamente con usar la herramienta Stonefield Data Toolkit (SDT) (versión 6.1c). Esta herramienta permite que utilice los eventos de una base de datos en archivos PRG externos, así que esto no era el problema, y creará el código SDT para los eventos de la base de datos. SDT utiliza los procedimientos almacenados (SPs), sin embargo, no utilizará el archivo PRG externo que he seleccionado. Los eventos de la base de datos basados en archivos PRG tienen prioridad sobre los procedimientos almacenados. Eso no es un problema insuperable, puesto que es fácil mover el código de SDT desde el SPs. Considerando el primer problema, sin embargo, he decidido utilizar el SPs. Por motivos simples, continuaré utilizando un PRG externo para este artículo.

Nueva versión del programa para crear los eventos de base de datos y la tabla de registro

El siguiente código es una versión revisada del código de instalación del último artículo. Esto crea una base de datos de registro de modificaciones y la tabla. Añadí un pequeño campo de comentario para mostrar en el informes de modificaciones, y agregué valores por defecto para tTimeStamp y cComment. El campo cComment pretende cumplir el objetivo de contener los comentarios en el código ya que no podemos comentar las vistas locales. Además está actualizado.

* ModifyViewTracker_Part_II.PRG
*
* 2005.05.20 Nancy Folsom, Pixel Dust Industries
* Este programa crea un contenedor de base de datos y una tabla
* para registrar las modificaciones en vistas y tablas
*
* * Se asume que se ejecuta en el directorio de desarrollo
* * ¡Cuidado! Como cualquier código que cambia datos, primero 
* * haga un respaldo de sus datos, y pruebe el código sobre algunos
* * datos de prueba antes de ejecutarlo sobre datos de producción
*
* Creamos el registro de modificaciones
*
Close Databases All
If File(Fullpath('ChangeLog.DBC'))
  Delete File (Fullpath('ChangeLog.DBC'))) recycle
Endif
Create Database ChangeLog
  Set Database To ChangeLog
If File(Fullpath('ChangeLogEvents.DBF'))
  Delete File (Fullpath('ChangeLogEvents.DBF'))) recycle
Endif
Create Table ;
  ChangeLogEvents (;
  IID I Autoinc, ;
  cObjectName C(254), ;
  cAction C(254) Default Program(), ;
  mValue M, ;
  cComment C(254) Default Iif(Version(2)=2,;
  InputBox("Comment:","Comment Change",""),""),    ;
  tTimeStamp T Default Datetime())

Local lcDBC, lcLogFile, lcPRG
*
* Creamos los eventos PRG usando los comandos TEXT y StrToFile()
*
TEXT to lcPrg textmerge noshow

Procedure dbc_AfterCreateView(cViewName,lRemote)
  * Almacenamos la estructura de la sentencia SQL
  Local lnSelect
    lnSelect = Select()
  * Almacenamos la definición SQL
  Insert Into ChangeLog!ChangeLogEvents ( ;
    mValue,cObjectName ) Values ( ;
    DBGetProp(cViewName,"VIEW","SQL"),cViewName)
  Use In ChangeLogEvents
    Select (lnSelect)
Endproc
Procedure dbc_AfterModifyView(cViewName,lChanged)
  * Almacenamos la estructura de la sentencia SQL
  If lChanged
    Local lnSelect
    lnSelect = Select()
    * Almacenamos la definición SQL
    Insert Into ChangeLog!ChangeLogEvents ( ;
      mValue,cObjectName ) Values ( ;
      DBGetProp(cViewName,"VIEW","SQL"),cViewName)
    Use In ChangeLogEvents
    Select (lnSelect)
  Endif
Endproc
Procedure dbc_AfterCreateTable(cTableName,cLongTableName)
  * Almacenamos la estructura y la información acerca de los índices de la tabla
  Local lcAlias
    lcAlias = JustStem(cTableName)
  Insert Into ChangeLog!ChangeLogEvents (;
    mValue,cObjectName) Values (;
    GetStructure(lcAlias),Justfname(cTableName))
  Use In ChangeLogEvents
  Select (lcAlias)
Endproc

Procedure dbc_AfterModifyTable(cTableName,lChanged)
  * Almacenamos la estructura y la información acerca de los índices de la tabla
  If lChanged
    Local lcAlias
      lcAlias = JustStem(cTableName)
    Insert Into ChangeLog!ChangeLogEvents (;
      mValue,cObjectName) Values (;
      GetStructure(lcAlias),cTableName)
    Use In ChangeLogEvents
    Select (lcAlias)
  Endif
Endproc
Procedure GetStructure(tcAlias)
  Local lni,lnj,laArray[1],lcStructure
    lcStructure = "Field structures"+Chr(13)
  Select (tcAlias)
  * Por cada campo en la tabla ...
  For lni = 1 To Afields(laArray)
    For lnj = 1 To Alen(laArray,2) - 1
      * ... capturamos la estructura de la tabla
      lcStructure = lcStructure+;
      Transform(laArray[lni,lnj])+","
    Next lnj
    lcStructure = lcStructure+;
    Transform(laArray[lni,lnj])+Chr(13)
  Next lni
  lcStructure = lcStructure+Chr(13)+"Indices"+Chr(13)
  * Por cada etiqueta de índice ...
  For lni=1 To Ataginfo(laArray)
    For lnj=1 To Alen(laArray,2) - 1
      * ... capturamos el nombre de la etiqueta y la expresión
      lcStructure=lcStructure+laArray[lni,lnj]+","
    Next lnj
    lcStructure=lcStructure+laArray[lni,lnj]+Chr(13)
  Next lni
  Return lcStructure
Endproc
ENDTEXT
* Guardamos la cadena que hicimos con TEXT en un PRG.
lcLogFile="DataBaseEvents.PRG"
If File(Fullpath("DataBaseEvents.PRG"))
  lcLogFile=Forceext(Putfile("Save PRG As","DataBaseEvents","PRG"),;
    'PRG')
Endif
Strtofile(lcPRG,lcLogFile)
Compile (lcLogFile) 

La siguiente porción de código puede ser copiada a un PRG y ejecutada como una prueba. Este código creará una base de datos, una tabla y una vista de ejemplo. Esto también modificará la tabla. Cuando la tabla y la vista son creadas, y cuando la estructura de tabla es modificada, las entradas de registro serán hechas. Ingreso por teclado un cComment. Generalmente cada vez que un registro es insertado en la tabla de registro de modificaciones, le será solicitado un breve comentario a raíz del valor por omisión.

* DemoChangeLog.PRG
*
Close Databases All
Set Exclusive On
If File(Fullpath('ChangeLogExample.DBC'))
  Delete File Fullpath('ChangeLogExample.DBC') recycle
Endif
Create Database ChangeLogExample
Set Database To ChangeLogExample
* Habilitamos los eventos de la base de datos y apuntamos al 
* archivo PRG creado en el PRG de instalación
DBSetProp("ChangeLogExample","Database","DBCEvents",.T.)
DBSetProp("ChangeLogExample","Database","DBCEventFilename",;
  lcLogFile)
If File(Fullpath('ChangeLogExample.DBF'))
  Delete File Fullpath('ChangeLogExample.DBF') recycle
Endif
* Creamos la tabla: Ingresamos un comentario por teclado
Keyboard "Created table 'ChangeLogExample'" + Chr(13)
Create Table ChangeLogExample (;
  IID I Autoinc Primary Key, ;
  tTimeStamp T Default Datetime())
Close Tables All
* Creamos la vista: Ingresamos un comentario por teclado
Keyboard "Created view 'cDescription'" + Chr(13)
Create Sql View lv_ChangeLogExample As ;
  select * From ChangeLogExample
* Modificamos la tabla
Keyboard "Added field 'cDescription'" + Chr(13)
Alter Table ChangeLogExample ;
  Add Column cDescription C(32)
Close Databases All
Public oform1
oform1 = Newobject("form1")
oform1.Show
Return

Finalmente tendré ganas de ver la diferencia exacta entre dos versiones de, en mi caso, una vista. En el camino de ese objetivo, primero hice un formulario sencillo que lista los cambios, dentro de un rango de fechas, y si se quiere, un detalle del cambio. El siguiente código puede ser ejecutado en un directorio con la tabla ChangeLogEvents. Esto debería parecerse a lo que se muestra en la siguiente figura:

Aquí está el código del formulario.

**************************************************
*-- Form:         form1 (changelog_report.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   05/20/05 06:11:04 PM
*
Define Class form1 As Form
  Height = 480
  Width = 640
  Caption = "Form1"
  startdate = {}
  enddate = {}
  Name = "Form1"
  Add Object line1 As Line With ;
    Height = 0, ;
    Left = 2, ;
    Top = 37, ;
    Width = 636, ;
    Name = "Line1"
  Add Object line2 As Line With ;
    Height = 0, ;
    Left = 2, ;
    Top = 158, ;
    Width = 636, ;
    Name = "Line2"
  Add Object text1 As TextBox With ;
    Century = 0, ;
    ControlSource = "thisform.StartDate", ;
    Format = "D", ;
    Height = 23, ;
    Left = 70, ;
    Top = 2, ;
    Name = "Text1"
  Add Object text2 As TextBox With ;
    ControlSource = "Thisform.EndDate", ;
    Format = "D", ;
    Height = 23, ;
    Left = 187, ;
    Top = 2, ;
    Name = "Text2"
  Add Object label1 As Label With ;
    Caption = "Report from", ;
    Height = 17, ;
    Left = 2, ;
    Top = 5, ;
    Width = 67, ;
    Name = "Label1"
  Add Object label2 As Label With ;
    Caption = "to", ;
    Height = 17, ;
    Left = 174, ;
    Top = 5, ;
    Width = 12, ;
    Name = "Label2"
  Add Object command1 As CommandButton With ;
    Left = 293, ;
    Height = 27, ;
    Width = 97, ;
    Caption = "Refresh", ;
    Name = "Command1"
  Add Object list1 As ListBox With ;
    BoundColumn = 4, ;
    ColumnCount = 5, ;
    ColumnWidths = "230,230,145,0,0", ;
    RowSourceType = 3, ;
    Height = 93, ;
    Left = 2, ;
    MultiSelect = .T., ;
    Top = 46, ;
    Width = 636, ;
    BoundTo = .T., ;
    Name = "List1"
  Add Object edit1 As EditBox With ;
    Height = 309, ;
    Left = 2, ;
    Top = 167, ;
    Width = 636, ;
    Name = "Edit1"
  Add Object label3 As Label With ;
    Caption = "Changes", ;
    Left = 5, ;
    Top = 29, ;
    Width = 53, ;
    Name = "Label3"
  Add Object label4 As Label With ;
    Caption = "Details", ;
    Left = 2, ;
    Top = 150, ;
    Width = 41, ;
    Name = "Label4"
  Procedure Init
    Bindevent(This.command1,'Click',This.list1,'Refresh')
    Bindevent(This.list1,'InteractiveChange',This.edit1,'Refresh')
  Endproc
  Procedure text1.Init
    Select Min(Ttod(tTimeStamp)) As MinDate ;
      From ChangeLogEvents ;
      Into Cursor lvwTemp
    This.Value = lvwTemp.MinDate
    Use In lvwTemp
  Endproc
  Procedure text2.Init
    Select Max(Ttod(tTimeStamp)) As MaxDate ;
      From ChangeLogEvents ;
      Into Cursor lvwTemp
    This.Value = lvwTemp.MaxDate
    Use In lvwTemp
  Endproc
  Procedure list1.Init
    This.RowSource = ;
      "select padr(juststem(cobjectname),254) as Object_Name, " + ;
      "cComment, tTimeStamp, iID, mValue from changelogevents " + ;
      "into cursor lvwChanges where between(ttod(tTimeStamp), " + ;
      " thisform.StartDate, thisform.EndDate) Order by tTimeStamp"
  Endproc
  Procedure list1.Refresh
    This.RowSource = This.RowSource
  Endproc
  Procedure list1.InteractiveChange
    Raiseevent(This,'InteractiveChange')
  Endproc
  Procedure edit1.Refresh
    This.Value = lvwChanges.mValue
  Endproc
Enddefine
*
*-- EndDefine: form1
**************************************************

Mi próxima revisión será seleccionar y luego ver las diferencias entre dos modificaciones. He pensado automatizar la característica de comparar documentos de Microsoft Word, pero he estado descontenta en el modo que Office 2003 arruinó, en mi opinión, lo que había sido una característica muy agradable. Y esto, mejor dicho, es una exageración para mi objetivo. Lo invito a que se contacte conmigo en nfolsomNOSPAM@NOSPAMpixeldustindustries.com con cualquier comentario, pregunta o críticas. Sus comentarios serán bienvenidos.

Obsérvese que los eventos de la base de datos fueron agregados en Visual FoxPro 7.0. Usted puede leer más sobre ellos en http://msdn.microsoft.com/library/en-us/dv_foxhelp/html/neconDatabaseContainerEvents.asp.

Nancy Folsom

21 de julio de 2017

Imprimir un gráfico creado con SimpleChart

SimpleChart es una clase creada por Mike Lewis (http://www.ml-consult.co.uk) quien logra, mediante un grupo de propiedades, facilitar el trabajo con MSChart y posibilitar que se obtengan gráficos con mucha rapidez y sin complejidades.

Para ver todos los detalles relativos a esta clase ver:

SimpleChart revisado (Mike Lewis) Traducción
https://comunidadvfp.blogspot.com/2003/10/simplechart-revisitado.html

Nos había quedado pendiente aclarar cómo se pueden imprimir estos gráficos. Pues bien, la pregunta es ¿Se puede copiar un gráfico creado con SimpleChart en un informe de VFP?

¡¡Sí se puede!! Tal y como se indica en el segundo artículo, hay que invocar el método EditCopy del gráfico.

Aquí dejo un ejemplo concreto

* Copiar al Clipboard
THISFORM.Grafico.EditCopy
* Copiar a un bmp
THISFORM.cRutaGrafico = GETENV("Temp")+SYS(2015)+".bmp"
DO Graficos WITH (THISFORM.cRutaGrafico),""

Pego directamente el código del programa gráficos escrito por el compañero J. Enrique Ramos Menchaca, quien lo publicó en PortalFox y nos autorizó a modificarlo dadas las nuevas necesidades que yo tenía.

Cambios que hicimos:

  1. Incluir 2 parámetros: tcArchivo, tcreporte
    • tcArchivo - nombre del .bmp que se va a cargar en el objeto imagen del informe
    • tcreporte - nombre del reporte a llamar
  2. No emplear campo general y sí campo de caracteres con la ruta de la imagen a mostrar, mira donde dice código nuevo.

Lo único que necesitamos es copiar y pegar el programa gráfico en nuestra aplicación e invocarlo con los parámetros adecuados.

***********************************************
* Programa Graficos
* Autor: J. Enrique Ramos Menchaca
* Modificado por Jorge Mota y Ana María Bisbé York
***********************************************
LPARAMETERS tcArchivo, tcreporte
#DEFINE CF_BITMAP 2
#DEFINE OBJ_BITMAP 7
DO decl
LOCAL hClipBmp, lcTargetFile
*lcTargetFile = "C:\clipboard.bmp"
lcTargetFile = tcArchivo && "grafime.bmp"
= OpenClipboard (0)
hClipBmp = GetClipboardData (CF_BITMAP)
= CloseClipboard()
IF hClipBmp = 0 Or GetObjectType(hClipBmp) <> OBJ_BITMAP
  = MessageBox("No se encontro imagen bitmap en el Portapapeles.",;
    64, "Clipboard to BMP")
  RETURN .F.
ENDIF
= bitmap2file (hClipBmp, lcTargetFile)
= DeleteObject (hClipBmp)
***
* crear las referencias para los arreglos
* external array laAspecto, lavalor, laporci,;
* lavalor1, lavalor2, lavalor3, lavalor4
* Código original
*!* CREATE CURSOR GRAFICO (GRAFICA G)
*!* APPEND BLANK
*!* APPEND GENERAL GRAFICO.GRAFICA FROM "c:\clipboard.bmp"
*!* REPORT FORM GRAFICA preview
*!* USE IN grafico
*!* RETURN
* Código modificado
CREATE CURSOR GRAFICO (cRuta c(250))
APPEND BLANK
REPLACE GRAFICO.cRuta WITH tcArchivo
IF !empty(tcreporte)
  REPORT FORM (tcreporte) to print prompt noconso
ENDIF
USE IN GRAFICO
RETURN
***********************************************
* InitBitsArray()
***********************************************
PROCEDURE InitBitsArray()
  #DEFINE GMEM_FIXED 0
  LOCAL lnPtr
  pnBitsSize = pnHeight * pnBytesPerScan
  lnPtr = GlobalAlloc (GMEM_FIXED, pnBitsSize)
  = ZeroMemory (lnPtr, pnBitsSize)
  RETURN lnPtr
ENDPROC

***********************************************
* String2file
***********************************************
PROCEDURE String2File (hFile, lcBuffer)
  DECLARE INTEGER WriteFile IN kernel32;
    INTEGER hFile, STRING @lpBuffer, INTEGER nBt2Write,;
    INTEGER @lpBtWritten, INTEGER lpOverlapped
  = WriteFile (hFile, @lcBuffer, Len(lcBuffer), 0, 0)
  RETURN
ENDPROC

***********************************************
* Bitmap2file
***********************************************
PROCEDURE Bitmap2file (hBitmap, lcTargetFile)
  #DEFINE DIB_RGB_COLORS 0
  PRIVATE pnWidth, pnHeight, pnBitsSize, pnRgbQuadSize, pnBytesPerScan
  STORE 0 TO pnWidth, pnHeight, pnBytesPerScan, pnBitsSize, pnRgbQuadSize
  = GetBitmapDimensions(hBitmap, @pnWidth, @pnHeight)
  LOCAL lpBitsArray, lcBInfo
  lcBInfo = InitBitmapInfo()
  lpBitsArray = InitBitsArray()
  LOCAL hwnd, hdc, hMemDC
  hwnd = GetActiveWindow()
  hdc = GetWindowDC(hwnd)
  hMemDC = CreateCompatibleDC (hdc)
  = ReleaseDC (hwnd, hdc)
  = GetDIBits (hMemDC, hBitmap, 0, pnHeight, lpBitsArray,;
    @lcBInfo, DIB_RGB_COLORS)
  #DEFINE BFHDR_SIZE 14 && BITMAPFILEHEADER
  #DEFINE BHDR_SIZE 40 && BITMAPINFOHEADER
  LOCAL hFile, lnFileSize, lnOffBits, lcBFileHdr
  lnFileSize = BFHDR_SIZE + BHDR_SIZE + pnRgbQuadSize + pnBitsSize
  lnOffBits = BFHDR_SIZE + BHDR_SIZE + pnRgbQuadSize
  lcBFileHdr = "BM" + num2dword(lnFileSize) +;
    num2dword(0) + num2dword(lnOffBits)
  #DEFINE GENERIC_WRITE 1073741824 && 0x40000000
  #DEFINE FILE_SHARE_WRITE 2
  #DEFINE CREATE_ALWAYS 2
  #DEFINE FILE_ATTRIBUTE_NORMAL 128
  #DEFINE INVALID_HANDLE_VALUE -1
  hFile = CreateFile (lcTargetFile,;
    GENERIC_WRITE,;
    FILE_SHARE_WRITE, 0,;
    CREATE_ALWAYS,;
    FILE_ATTRIBUTE_NORMAL, 0)
  IF hFile <> INVALID_HANDLE_VALUE
    WAIT WINDOW "Storing to file..." NOWAIT
    = String2File (hFile, @lcBFileHdr)
    = String2File (hFile, @lcBInfo)
    = Ptr2File (hFile, lpBitsArray, pnBitsSize)
    = CloseHandle (hFile)
  ELSE
    = MessageBox("Unable to create file: " + lcTargetFile)
  ENDIF
  = GlobalFree(lpBitsArray)
  = DeleteDC (hMemDC)
  RETURN
ENDPROC

***********************************************
* Ptr2File
***********************************************
PROCEDURE Ptr2File (hFile, lnPointer, lnBt2Write)
  DECLARE INTEGER WriteFile IN kernel32;
    INTEGER hFile, INTEGER lpBuffer, INTEGER nBt2Write,;
    INTEGER @lpBtWritten, INTEGER lpOverlapped
  = WriteFile (hFile, lnPointer, lnBt2Write, 0, 0)
  RETURN
ENDPROC

***********************************************
* InitBitmapInfo
***********************************************
PROCEDURE InitBitmapInfo(lcBIHdr)
  #DEFINE BI_RGB 0
  #DEFINE RGBQUAD_SIZE 4
  #DEFINE BHDR_SIZE 40
  LOCAL lnBitsPerPixel, lcBIHdr, lcRgbQuad
  lnBitsPerPixel = 24
  pnBytesPerScan = Int((pnWidth * lnBitsPerPixel)/8)
  IF Mod(pnBytesPerScan, 4) <> 0
    pnBytesPerScan = pnBytesPerScan + 4 - Mod(pnBytesPerScan, 4)
  ENDIF
  lcBIHdr = num2dword(BHDR_SIZE) + num2dword(pnWidth) +;
  num2dword(pnHeight) + num2word(1) + num2word(lnBitsPerPixel) +;
  num2dword(BI_RGB) + Repli(Chr(0), 20)
  IF lnBitsPerPixel <= 8
    pnRgbQuadSize = (2^lnBitsPerPixel) * RGBQUAD_SIZE
    lcRgbQuad = Repli(Chr(0), pnRgbQuadSize)
  ELSE
    lcRgbQuad = ""
  ENDIF
  RETURN lcBIHdr + lcRgbQuad
ENDPROC

***********************************************
* num2dword
***********************************************
FUNCTION num2dword (lnValue)
  #DEFINE m0 256
  #DEFINE m1 65536
  #DEFINE m2 16777216
  LOCAL b0, b1, b2, b3
  b3 = Int(lnValue/m2)
  b2 = Int((lnValue - b3*m2)/m1)
  b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
  b0 = Mod(lnValue, m0)
  RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3)
ENDFUNC

***********************************************
* GetBitmapDimensions
***********************************************
PROCEDURE GetBitmapDimensions(hBitmap, lnWidth, lnHeight)
  #DEFINE BITMAP_STRU_SIZE 24
  LOCAL lcBuffer
  lcBuffer = Repli(Chr(0), BITMAP_STRU_SIZE)
  IF GetObjectA (hBitmap, BITMAP_STRU_SIZE, @lcBuffer) <> 0
    lnWidth = buf2dword (SUBSTR(lcBuffer, 5,4))
    lnHeight = buf2dword (SUBSTR(lcBuffer, 9,4))
  ENDIF
  RETURN
ENDPROC

***********************************************
* buf2dword
***********************************************
FUNCTION buf2dword (lcBuffer)
  RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
    Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
    Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
    Asc(SUBSTR(lcBuffer, 4,1)) * 16777216
ENDFUNC

***********************************************
* num2word
***********************************************
FUNCTION num2word (lnValue)
  RETURN Chr(MOD(m.lnValue,256)) + CHR(INT(m.lnValue/256))
ENDFUNC

***********************************************
* decl
***********************************************
PROCEDURE decl
  DECLARE INTEGER GetActiveWindow IN user32
  DECLARE INTEGER GetClipboardData IN user32 INTEGER uFormat
  DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
  DECLARE INTEGER CloseClipboard IN user32
  DECLARE INTEGER DeleteObject IN gdi32 INTEGER hObject
  DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
  DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc
  DECLARE INTEGER CreateCompatibleDC IN gdi32 INTEGER hdc
  DECLARE INTEGER DeleteDC IN gdi32 INTEGER hdc
  DECLARE INTEGER GlobalAlloc IN kernel32 INTEGER wFlags, INTEGER dwBytes
  DECLARE INTEGER GlobalFree IN kernel32 INTEGER hMem
  DECLARE INTEGER GetObject IN gdi32 AS GetObjectA;
    INTEGER hgdiobj, INTEGER cbBuffer, STRING @lpvObject
  DECLARE INTEGER GetObjectType IN gdi32 INTEGER h
  DECLARE RtlZeroMemory IN kernel32 As ZeroMemory;
    INTEGER dest, INTEGER numBytes
  DECLARE INTEGER GetDIBits IN gdi32;
    INTEGER hdc, INTEGER hbmp, INTEGER uStartScan,;
    INTEGER cScanLines, INTEGER lpvBits, STRING @lpbi,;
    INTEGER uUsage
  DECLARE INTEGER CreateFile IN kernel32;
    STRING lpFileName, INTEGER dwDesiredAccess,;
    INTEGER dwShareMode, INTEGER lpSecurityAttr,;
    INTEGER dwCreationDisp, INTEGER dwFlagsAndAttrs,;
    INTEGER hTemplateFile
  DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject
ENDPROC

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

Espero que sirva como complemento a la información que ya teníamos para trabajar con esta clase SimpleChart

Saludos,

Ana María Bisbé York
www.amby.net


17 de julio de 2017

Técnicas para una interfaz alternativa de Report Preview

Artículo original: Techniques for an alternative Report Preview UI
http://www.spacefold.com/colin/archive/articles/reportpreview/techniques.htm
Autor: Colin Nicholls
Traducido por: Ana María Bisbé York


Antes de comenzar

Un grupo importante de los debates sobre informes en VFP de estos últimos tiempos en Universal Thread (http://www.universalthread.com) se han referido al tema de la nueva pantalla de presentación preliminar (Report Preview) y cómo controlarla. Un aspecto particularmente debatido es el comportamiento de la barra de herramientas cuando empleamos REPORT FORM ... PREVIEW en una aplicación de nivel superior. Existe un bug en VFP 9.0 (vea el código para reproducirlo en http://www.spacefold.com/colin/archive/articles/reportpreview/repro.prg) que provoca que la barra de herramientas asociada sea visible, aunque inhabilitada a los clics del ratón. La funcionalidad existe a través del menú contextual de la ventana preliminar, pero esto se convierte en un problema de educación de los usuarios o hay que utilizar NOWAIT para forzar que la ventana preliminar se muestre como una forma no modal. ( Esto no es un gran problema, ahora que tenemos la cláusula NOPAGEEJECT en el comando report form. Muchas de las razones por la que la gente piensa que necesitan una ventana modal no se aplican.

No obstante de los bugs del producto, en mis sesiones me esfuerzo por mostrar que la presentación preliminar predeterminada es sólo eso - predeterminada - y que ahora, no sólo son posible formularios con soluciones alternativas, sino que son fáciles de implementar. Entonces, voy a mostrar hoy una interfaz de usuario alternativa para la ventana de presentación preliminar que puede utilizar y personalizar acorde a sus contenidos.

He aquí una presentación preliminar.

Esto es lo que estamos construyendo:

Es un formulario sencillo con algunos botones y un contenedor en el que reside un control forma (shape) en el que se generará una única página del informe. El formulario permite hacer acercamientos y alejamientos (zoom) y arrastrar la página, empleando el ratón, por dentro del contenedor.

Realmente, aquí no hay mucho que hacer.

Crear el marco preliminar

*------------------------------------------------
* Marco preliminar...
*------------------------------------------------
define class myFrame as Container
  Width = 296
  Height = 372
  Left = 12
  Top = 12
  SpecialEffect = 1
  BackColor = rgb(192,192,192)

  add Object canvas as myCanvas && vea debajo:
enddefine

*------------------------------------------------
* ...y su forma hija:
*------------------------------------------------
define class myCanvas as Shape
  Height = 330
  Width = 255
  Left = 20
  Top = 20
  BackColor = rgb(255,255,255)

Vamos a permitir que la forma se mueva dentro del marco añadiendo código al evento .MouseDown del objeto Shape.

  procedure MouseDown
    lparameters nButton, nShift, nXCoord, nYCoord

    offsetX = m.nXCoord - THIS.Left
    offsetY = m.nYCoord - THIS.Top
  
    THISFORM.MousePointer = 5
    do while mdown()
      THIS.Left = mcol(0,3) - m.offsetX
      THIS.Top = mrow(0,3) - m.offsetY
    enddo
    THISFORM.MousePointer = 0 
  endproc
enddefine

El .MousePointer de 5 es el puntero del ratón que muestra ambas flechas NSEO en lugar de un cursor normal. Puede verlo en la figura mostrada antes.

Crear la clase form

Ahora que ya tenemos el marco, podemos crear la clase form myPreview y colocarlo en el marco:

*------------------------------------------------
* La clase form:
*------------------------------------------------
define class myPreview as Form
  add object frame as myFrame && vea arriba

Junto con los botones de comandos:

  add object cmdPrev as myButton ;
    with Top=12, Caption = "Previous"
  add object cmdNext as myButton ;
    with Top=44, Caption = "Next"
  add object cmdZoomIn as myButton ;
    with Top=96, Caption = "Zoom In"
  add object cmdZoomOut as myButton ;
    with Top=128, Caption = "Zoom Out"
  add object cmdReset as myButton ;
    with Top=176, Caption = "Whole Page"
  add object cmdClose as myButton ;
    with Top=220, Caption = "Close"

La clase derivada myButton que he utilizado aquí es precisamente una plantilla para .FontName, .FontStyle y la posición .Left. En breve, vamos a implementar algunos .Click. Sea paciente.

Viendo cómo necesitamos interactuar con el motor de informes, vamos a darle al formulario un par de propiedades de usuarios: Un marcador de posición para una referencia a un objeto ReportListener, y una propiedad numérica para el número de página actual:

Listener = .null.
PageNo = 1

La llave para crear un formulario de presentación preliminar en VFP 9.0 es utilizar el método OutPutPage de ReportListener, pasándole tres parámetros:

  • El número de página a generar
  • El dispositivo u objeto para generar la presentación preliminar
  • Un número que indica el tipo de dispositivo u objeto que se está generando.

Ya que estamos generando un objeto Visual FoxPro - THIS.Frame.Canvas - el parámetro - tipo de dispositivo es 2. Vamos a tener el número de página en THIS.PageNo, y la referencia al ReportListener es THIS.Listener, así que la sintaxis completa será:

THIS.Listener.OutputPage(THIS.PageNo, THIS.Frame.Canvas, 2)

Vamos a colocar todo el código - con las condiciones de verificación de límites - en un método de usuario del formulario, OutPage():

procedure Outputpage()
  with THIS
    if not isnull(.Listener) and .Listener.PageTotal > 0
      .Listener.OutputPage(.PageNo, .Frame.Canvas, 2)
      .Caption = ;
        justfname(.Listener.commandClauses.file) ;
        + " - page " + trans(.PageNo)
    endif
  endwith
endproc

Como puede ver, vamos a utilizar la propiedad Caption del formulario para mostrar el nombre de archivo y el número de página actual, solo por dejar las cosas más sencillas. Para asegurar que la página de informe se generará cuando se dibuje el formulario, añadimos una llamada a nuestro método de usuario en el evento Paint del formulario:

procedure Paint()
  THIS.OutputPage()
endproc

Hacer que estos botones reaccionen al Clic

¿Recuerda aquellos botones de comando que agregamos al formulario? Tenemos un par para la navegación alrededor del informe. Es importante tener en cuenta las condiciones de límites entre datos. El máximo número de páginas que se puede generar está determinado por: ReportListener.PageTotal:

procedure cmdPrev.Click
  with THISFORM
    .PageNo = max(1,.PageNo-1)
    .OutputPage()
  endwith
endproc

procedure cmdNext.Click
  with THISFORM
    .PageNo = min(.Listener.PageTotal,.PageNo+1)
    .OutputPage()
  endwith
endproc

Tenemos además un par de comandos para ajustar el tamaño de la presentación preliminar. Es fácil: solamente cambiar el tamaño del Shape y llamar a OutPutPage para re-pintar:

#define ZOOM_SCALE 1.3

procedure cmdZoomIn.Click
  with THISFORM.Frame.Canvas
    .Width = int(.Width * ZOOM_SCALE)
    .Height = int(.Height * ZOOM_SCALE)
  endwith
  THISFORM.OutputPage()
endproc

procedure cmdZoomOut.Click
  with THISFORM.Frame.Canvas
    .Width = max(17,int(.Width / ZOOM_SCALE))
    .Height = max(22,int(.Height / ZOOM_SCALE))
  endwith
  THISFORM.OutputPage()
endproc

Como puede ver, estamos utilizando algunas condiciones de límite en el tamaño más pequeño de la Forma, explícitamente escrito en el código 8.5 x 11, sobre esto podíamos pensar en algo más.

En caso de que desee perder el acercamiento y el movimiento, es conveniente un botón para re-inicializar el tamaño y la posición de la forma (shape).

procedure cmdReset.Click
  with THISFORM.Frame.Canvas
    .Top = 20
    .Left = 20
    .Width = 255
    .Height = 330
  endwith
endproc

El botón Cerrar no es realmente necesario - el formulario tiene su cuadro Cerrar en el título que funciona perfectamente. Pero, permítanme agregarlo de todas formas:

procedure cmdClose.Click
  THISFORM.Release()
endproc

Probamos hasta ahora

Bien, ¡Lo hemos hecho!, ahora vamos a probarlo. Lo primero que necesitamos es crear un ReportListener

rl = newobject("ReportListener")
rl.ListenerType = 3

Vea que estamos utilizando un ReportListener igual a 3. Un ListenerType igual a 1 provocaría que se invocara el contenedor preliminar predeterminado que no es lo deseado en este caso: Deseamos solamente generar la salida y guardarla en memoria temporal (caché) para nuestro propio empleo.

Ahora, necesitamos el motor de informes para que envíe un informe a nuestro listener:

report form ? object m.rl

Escoja cualquier informe que desee. (Yo escogí _SAMPLES+"\Solution\Reports\wrapping.frx" porque es bonito.) Ahora debemos instanciar nuestra Interfaz de usuario y asignarle una referencia a nuestra instancia ReportListener, y pedirle que lo muestre:

x = newobject("myPreview")
x.Listener = m.rl
x.Show(1)

Esperemos que en este punto tengamos algo como lo que tenemos en la figura mostrada antes.

  • Intente navegar por el informe.
  • Intente hacer Zoom.
  • Trate de arrastrar la página.

Un pequeño problema

Bien, confieso que he omitido ante un aspecto importante. (Los escritores de artículos hacen así todo el tiempo, porque piensan que es un buen recurso didáctico.)

Como probablemente ha notado, el método ReportListener.OutputPage() utiliza la posición y las dimensiones del objeto Shape para generar la página del informe sobre la superficie del formulario. En realidad no dibuja el objeto como tal.

Como resultado, la página sobre-escribe los otros controles en el formulario, produciendo un efecto visual desconcertante. Vea la imagen.

Existe una solución: tenemos que utilizar parámetros adicionales a OutPutPage() para especificar los límites dentro de los que se va a dibujar la imagen.

Especificar un área fija para OutputPage()

La documentación para el método OutPutPage (ver ayuda VFP) indica que los parámetros adicionales no se aplican para un tipo de dispositivo igual a 2 (2 = objeto FoxPro) Esto no es estrictamente correcto. En realidad, los parámetros 4to, 5to, 6to y 7mo se ignoran; pero los parámetros nClipLeft, nClipTop, nClipWidth, y nClipHeight se respetan por el método ReportListener.OutputPage() para objetos FoxPro

Estos cuatro parámetros finales definen una "ventana" - en pixels - en el área del formulario a través de la cual la salida regenerada va a aparecer. Cualquier cosa que quede fuera de esta área no se mostrará en el formulario.

Afortunadamente para nosotros, tenemos la forma conveniente para determinar la ubicación y dimensiones de área fija: el objeto frame como tal nos lo dirá.

Substituya la línea de código resaltada en negrita en el método OutPutPage del formulario para que sean especificados los parámetros adicionales:

* .Listener.OutputPage( .PageNo, .Frame.Canvas, 2 )
.Listener.OutputPage( ;
.PageNo, .Frame.Canvas, 2, ;
  0, 0 , 0 , 0 , ;
  .Frame.Left +2, ;
  .Frame.Top +2, ;
  .Frame.Width -4, ;
  .Frame.Height -4 )

Ahora el formulario preliminar debe trabajar como esperamos (vea la siguiente figura)

Ejercicios para estudiantes:

Considero que he mostrado propiedades excitantes de las posibilidades existentes. Pero no hemos hecho todo: existen algunas cosas adicionales que va a necesitar hacer antes de emplear este código en una aplicación en producción.

Debe:

  • Ajustar el código en el evento MouseDown del objeto Shape para evitar que el ratón se arrastre fuera de los límites del borde del marco.
  • Ajustar la proporción del objeto Shape para que se corresponda con las dimensiones del informe, utilizando los métodos .GetPageWidth() y .GetPageHeight() del ReportListener.
  • Permitir al formulario mostrar una escala apropiada para el nivel DPI de la pantalla, incluyendo una opción "Zoom al 100%"
  • Ajustar el código de alejamiento-acercamiento de tal forma que el centro del área visible del objeto Forma permanezca centrado en lugar de moverse basado en la posición de la esquina superior izquierda como ocurre actualmente
  • Posiblemente establecer el nivel máximo y mínimo para el zoom.

Puede además:

  • Hacer que el formulario sea redimensionable

Y quizás, lo que puede ser aun más útil, podría agregar además código adicional a la clase, para que conecte en el sistema de informes de Visual FoxPro, proporcionando un Contenedor preliminar (Preview container) alternativo cuando SET REPORTBEHAVIOR 90 está activado.

... oh, está bien. He aquí cómo se hace:

Empaquetado como Contenedor preliminar

Necesitará agregar estos métodos en la clase myPreview

*-------------------------------------------
* Métodos requeridos para que opere como 
* un contenedor preliminar :
*-------------------------------------------
procedure Release()
  if not isnull(THIS.Listener)
    THIS.Listener.OnPreviewClose(.F.)
    THIS.Listener = .null.
  endif
  THIS.Hide()
endproc

procedure Destroy()
  THIS.Listener = null
  dodefault()
endproc

procedure QueryUnload()
  nodefault
  THIS.Release()
endproc

procedure SetReport( oRef )
  if not isnull(oRef) and vartype(oRef) = "O"
    THIS.Listener = m.oRef
  else
    THIS.Listener = .null.
    THIS.Hide()
  endif
endproc

Deseará además colocar el código al inicio del archivo, de tal forma que solamente apunte a _REPORTPREVIEW directamente al programa.

*------------------------------------------
* Utilizado como contenedor preliminar:
* _REPORTPREVIEW = "<this program>"
*
* Comprobación fuera del sistema de informes:
* DO <este programa>
*------------------------------------------
lparameters oRef
if pcount()=0
  rl = newobject("ReportListener")
  rl.ListenerType = 3
  report form ? object m.rl
  x = newobject("myPreview")
  x.Listener = m.rl
  x.Show(1)
  return
else
  oRef = newobject("myPreview")
endif
return

¡Que lo disfrute!

He aquí el código fuente para este artículo: http://www.spacefold.com/colin/archive/articles/reportpreview/tech_src.prg

Copyright (c) 2005 Colin Nicholls