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

11 de julio de 2017

Observaciones sobre etiquetas alineadas a la derecha en informes de VFP 9.0

Artículo original: Observations on Rightaligned labels in VFP9 Reports
http://www.spacefold.com/colin/archive/articles/vfp9reporting/rightalign/monofonts.html
Autor: Colin Nicholls
Traducido por: Ana María Bisbé York


Introducción

Este artículo se basa en un trabajo que realicé tratando de contestar a una pregunta realizada por Alejandro Sosa en Universal Thread. Alex estaba teniendo problemas al alinear correctamente a la derecha títulos con campos/expresiones alineados a la derecha. Su informe era complejo y migraba desde una versión antigua de FoxPro, por lo que he creado una prueba sencilla para mostrar lo que ocurría.

Revisando: REPORTBEHAVIOR

En Visual FoxPro 9.0, existe un nuevo motor de informes que emplea GDI+ para generar la salida. Sin embargo, está soportado el motor viejo, con compatibilidad hacia atrás. Puede alternar entre los dos motores al vuelo empleando el comando SET REPORTBEHAVIOR.

Revisando: Fuentes con un único espacio contra fuentes proporcionales

Las fuentes que emplean igual espaciado tienen un ancho constante para todos los caracteres en dependencia de una altura dada. Las fuentes proporcionales utilizan anchos variables apropiado para hacer la fuente más legible. En este artículo verá la diferencia de forma muy simple: Los textos son proporcionales y los trozos de código están todos en formato de espacio único.

Resumen

En REPORTBEHAVIOR=90, todas las etiquetas de texto se van a generar con longitudes mayores que las que puede esperar al ver el Diseñador de informes. Esto se debe a que la generación de texto con GDI+ emplea más espacio. Las etiquetas sufren por esto, debido a que los diseños almacenan su posición inicial exacta, lo contrario a los campos / expresiones que permiten calcular la alineación a realizar por el motor, utilizando GDI+.

Lea más para detalles.

Observaciones

Datos de prueba

Quise comparar la alineación a la derecha para ambos tipos de valores: cadena y números, así que creé dos columnas en mi cursor de pruebas:

CREATE CURSOR x ( ftitle C(10), fnumb N(8,2) )
INSERT INTO x VALUES ( 'Bagels', 32.45 )
INSERT INTO x VALUES ( 'Cucumber', 5.23)
El informe de prueba

He aquí una imagen del informe de prueba, abierto en el diseñador, con los controles etiqueta seleccionados para mostrar sus posiciones exactas. He empleado líneas rojas para mostrar los ejes de alineación:

El control campo/expresión para los campos FTITLE y FNUMB tienen que ser configurados con Justificación: Derecha, el campo tiene que ser configurado manualmente: el campo numérico está alineado a la izquierda predeterminado. Puede ver que tengo visualmente alineadas las etiquetas con el final de cada control de campo/expresión. He duplicado el diseño de estos controles para cada una de las fuentes diferentes. Tahoma y Candara son fuentes proporcionales, y Courier New, Bitstream Vera Sans Mono y Consolas son mono espaciadas.[1]

Con REPORTBEHAVIOR 80

Así se ve la Presentación preliminar con REPORTBEHAVIOR = 80:

Y el resultado impreso

Asumiendo que las líneas rojas son una referencia exacta, se puede ver que los mejores resultados se ven con Courier New y Vera Sans Mono. Consolas y las fuentes proporcionales al parecer exceden sus posiciones esperadas ligeramente. Por tanto, debe estar muy ajustada la tolerancia para una salida aceptable, al utilizar estos tipos de fuente, o será un gran problema.

Con REPORTBEHAVIOR 90

He aquí cómo se ve la Presentación preliminar con REPORTBEHAVIOR = 90:

y el resultado impreso

Conclusiones

Es fácil ver desde la comparación que con REPORTBEHAVIOR = 90, todas las etiquetas de texto exceden su longitudes esperada, no sólo en las fuentes no espaciadas. Sin embargo, el efecto es definitivamente más pronunciado en fuentes mono espaciadas.

¿Por qué ocurre esto para etiquetas y no para para campos/expresiones?

Con REPORTBEHAVIOR = 90, el nuevo motor de informe utiliza GDI+ para generar la salida, y la generación de las cadenas de textos necesitan más espacio que la forma plana del viejo GDI. Escribí sobre por qué GDI+ necesita espacio adicional antes de las cadenas de texto: http://www.spacefold.com/colin/posts/2005/08-18GDIplusinreports.html

El Diseñador de informe utiliza GDI - no GDI + para generar los componentes del diseño del informe, incluyendo todas cadenas de texto que ve. Entonces, si visualmente ha justificado a la derecha un elemento de informe, el diseñador de informe guarda la coordenada más izquierda del elemento (la posición inicial del texto) en el diseño. La longitud de la cadena generada por GDI+ será mucho más grande que lo que cree, basada en que es lo que ve en el Diseñador.

No hay dudas del hecho de que tiene que tener en cuenta este efecto al diseñar sus controles etiqueta en los informes.

Ahora, verá que este problema no ocurre con los controles campo/expresiones. Ellos están todos alineados correctamente, debido a que el Diseñador de Informe, no especifica una posición exacta para la cadena de texto, pero sí especifica la caja donde el texto va a ser generado. Entonces, el cálculo de la alineación tiene lugar en el motor de informe, mientras GDI+ tiene en cuenta el tamaño del texto.

Notas al pie:

[1] Candara y Consolas son fuentes nuevas de Microsoft, distribuidas con Windows Vista.

Agradecimientos:

Gracias a Alex Sosa por su pregunta tan interesante.

7 de julio de 2017

VFP9 - Mejoras realizadas al Diseñador de Informes

Tanto el Motor de Informes, como su Diseñador en VFP 9.0, son los aspectos sobre los que más cambios se han incorporado. Como respuesta a la retroalimentación hecha por los usuarios, Microsoft ha mejorado significativamente el Generador de informes en VFP 9.0, ha velado por proteger todo el trabajo invertido, por lo que no modificó la estructura actual del archivo FRX.

Nuevo comando SET REPORTBEHAVIOR

Es como un interruptor que enciende o apaga la salida asistida por objetos.

Admite como parámetros, los valores 80 ó 90

Dado que antes se empleaba GDI y ahora GDI+ hay diferencias en el interlineado, alineación y espaciado. Eso puede afectar a informes existentes. Por tanto el valor predeterminado es 80. La asignación desde Herramientas - Opciones - Informes es Global; pero aun así se puede cambiar para cada informe que haga falta de forma específica.

El nuevo generador de informes se llama ReportBuilder.APP y viene con VFP 9.0.

Algunos de los logros han sido:

1. Mejorar el interfaz de usuario:

La interfaz de usuario ha sido mejorada en varios aspectos, que al sumarlos representan un importante ahorro de tiempo, veamos en detalles las diferencias entre VFP 8.0 y VFP 9.0.

- Menú contextual mejorado

El Menú contextual del Generador de informes en VFP 9.0 agrega las opciones: Bandas opcionales, Variables y Propiedades.

- Nueva ventana propiedades de Informes

Por su parte la nueva ventana Propiedades de Informe utiliza un marco de página y páginas para todos los aspectos de propiedades de informe. Esto agiliza el trabajo, ya que no hay que estar abriendo y cerrando cuadros de diálogo. Muchas de estas páginas agrupan a ventanas que ya existían en versiones anteriores como ventanas independientes. Tal es el caso de Cálculos, Condición. Pero hay otras: Protección, Entorno de datos, y Otros que son nuevas en este generador.

- Rediseñadas las ventanas Propiedades de campo y banda

En VFP 8.0 la ventana propiedades de un campo se corresponde con la ventana expresión de informe mostrada más adelante en este mismo escrito. Por su parte, VFP 9.0 ofrece una nueva ventana de Propiedades de campo, cuyo formato es también un marco de páginas con páginas que determinan los valores para los diferentes aspectos relativos al campo. El diseño actual es muy práctico e intuitivo.

Las bandas en VFP 9.0 adquieren una nueva dimensión y en el Diseñador se ha incluido una nueva ventana Propiedades para cada banda. El nuevo diseño comprende no sólo las bandas de detalle, sino todas las bandas del informe. Veamos ambos casos.

- Cambios en el Cuadro de diálogo generador de expresiones.

El primer cambio que salta a la vista es la mayor amplitud para la expresión, tanto en la ficha General como en el generador de expresiones.

- Nuevo Cuadro de diálogo selección múltiple

En VFP 9.0 existe el cuadro de diálogo Selección múltiple que permite establecer las propiedades Protección e Imprimir cuando para más de un objeto de diseño a la vez. Permite además cambiar cualquier otra propiedad de Protección a un objeto individual. Para utilizar esta nueva característica, seleccione más de un objeto, y luego haga doble clic en cualquiera de ellos para llamar al cuadro de diálogo Selección múltiple. Resulta muy productivo sobre todo el haber incluido la posibilidad de dar valor a la condición de impresión en el cuadro de texto Imprimir cuando.

- Nueva opción en el Menú Archivo

Este menú contiene una nueva opción Guardar como clase. El objetivo es guardar el Entorno de datos como clase, lo que constituye, a su vez, una de las novedades aportadas al Motor de informes en VFP 9.0. Sobre el tratamiento del Entorno de datos, ver: Visual FoxPro 9.0 - Novedades - Manipulación de entorno de datos en el diseñador de Informes

- Nueva opción en el Menú Ver

En el menú Ver hay una nueva opción - Barra de Diseñador de informes

- Nuevos botones la barra de Herramientas del Diseñador de informes

Incluye dos opciones nuevas: Ajustar página y Propiedades del tipo de letra, las que vemos ahora en la barra de Herramientas.

- Mejoras en el Menú Informes, y el menú contextual del Generador de informes

En el menú Informes hay opciones nuevas: Vista Preliminar, Carga entorno de datos, Bandas opcionales y Propiedades. El resto de las opciones están mejor agrupadas.

- Cambios en la ficha Informes de Herramientas - Opciones.

Las nuevas opciones son:

  • Generador de Expresiones - regula si el nombre del alias va a preceder al nombre del campo: las posibilidades son: siempre, solo para alias no seleccionadas, nunca.
  • Comportamiento Motor de Informes - Determina el comportamiento en tiempo de ejecución: las posibilidades son 80 que mantiene el comportamiento anterior y 90 que es la generación de informes asistida por objetos (comando SET REPORTBEHAVIOR). La vamos a configurar para que trabaje sobre la 90, asistida por objetos.
  • Escala - Agrega nuevos valores: centímetros y pulgadas ()
  • Usar alfabeto para fuentes - indica el conjunto de caracteres de lenguaje que va a estar habilitado en el cuadro de diálogo Fuente. Si marcamos esta opción, en la Ventana Fuentes se activará el combobox Alfabeto. En caso contrario, permanece desactivado.
  • Se agregaron los elementos del contenedor Grid, Forzar al Grid y Mostrar líneas del Grid

Además, el cursor del ratón cambia de forma para dar una clave visual de los objetos que pueden ser redimensionables.

2. Proporcionar nuevas posibilidades:

- Tooltips

Se pueden agregar Tooltips a los controles del informe. Para ello vamos a la ficha Otros de la ventana propiedades. El comando Modificar Tooltip nos permite acceder a un editbox en el que podemos escribir el texto deseado y este se verá reflejado al pasar el ratón por el control. Solamente se aplica a controles.

- Comentarios

De igual forma, se pueden agregar Comentarios a los controles del informe. Desde la ficha Otros de la ventana propiedades y comando Modificar Comentarios nos permite acceder a un editbox en el que podemos escribir el texto deseado y este se verá reflejado al pasar el ratón por el control. Se aplica a controles, bandas y el Informe.

- Modo de recorte para expresiones de caracteres

Se puede definir desde la ficha Formato de la Ventana propiedades, los valores se definen desde el cuadro combinado Modo para truncar expresiones de caracteres.

Si se escoge el Recorte predeterminado lo que ocurre es que se agregan 3 puntos suspensivos indicando que no cabe la expresión en el espacio actual. El resto de las opciones para aplicar recorte de caracteres, se pueden intuir por la descripción, que aparece en idioma español, si tiene instalado el IDE VFP 9.0 en español.

- Protección

En VFP 9.0, puede crear protección para uno o más objetos al utilizar el Diseñador de Informes o Diseñador de etiquetas. Esto ofrece la posibilidad de que el usuario pueda modificar un informe, sin permitirle aún hacer determinados cambios. Para configurar las banderas de protección vemos los cuadros de diálogo correspondientes a Propiedades tanto para campos, como para bandas y también para informes. En el Diseñador de informes esto se ve reflejado en la ficha Protección en la Ventana Propiedades, tanto de controles, bandas, como del informe entero.

Sobre este tema, ver más elementos en: Visual FoxPro 9.0 - Novedades - Protección de Informes

- Posicionamiento absoluto

Desde la ventana propiedades - Ficha general se puede indicar el posicionamiento absoluto con propiedades tales como Top, Left, Height y Width. Es muy útil para controles que no dependen de una banda.

- Tratamiento de imágenes

Se han ampliado las posibilidades para definición de objetos tipo Imagen. Si tenemos definida una clase con valor en la propiedad PictureVal se puede emplear como origen de una imagen en un informe.

- Múltiples bandas de detalle

Contar con la posibilidad de crear múltiples bandas de detalle es una de las mejoras más importantes y más solicitadas. A partir de VFP 9.0 es posible procesar múltiples tablas hijas para cada registro de la tabla padre. Existen posibilidades ilimitadas de lo que se puede hacer con esta nueva característica. En el Diseñador de informes esto se ve reflejado en nuevas opciones de menú, la ficha Bandas Opcionales en la Ventana Propiedades.

Hemos visto algunos elementos, digamos, los más importantes. Seguramente quedan aspectos por explorar.

Espero que haya resultado de utilidad.

Saludos,

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


3 de julio de 2017

¿Donde se encuentra el control?

Artículo original: Where is that control?
http://www.jamesbooth.com/containership.htm
Autor: Jim Booth
Traducción: José Luis Santana Blasco


Contenedores, todos hemos oído esta palabra. “Visual FoxPro tiene un modelo de contenedores muy bueno.” ¿Qué son los contenedores y porque nos tenemos que preocupar por ellos? Por un parte, trabajamos con Visual FoxPro y por tanto necesitamos hacer uso de los contenedores de VFP, pero se pueden dar más razones por las que deberíamos conocer mejor los contenedores. El uso de los contenedores en nuestro beneficio nos permitirá crear clases más reutilizables y flexibles.

Contenedores y  POO

El concepto de contenedores no es nuevo en la Programación Orientada a Objetos. Uno de los diagramas empleado para diseñar sistemas OO se llama Diagrama Todo/Parte. Este diagrama describe objetos que están compuestos de otros objetos. Por ejemplo, un Formulario de entrada de datos contiene un gran número de controles, algunos de estos controles pueden encontrarse agrupados dentro de algún tipo de contenedor, etc.

Los contenedores necesitan que se indique el objeto donde "viven".  Esto no se diferencia de enviar una carta a alguien, en VFP se debe indicar  donde se encuentra el objeto que queremos emplear. Si quisieran enviarme una carta, no pueden  remitirla a Jim Booth sin más indicaciones. El cartero no podrá encontrarme así. Necesitarán decirle al cartero que vivo en un país llamado USA, en un estado llamado Connecticut, en una ciudad llamada Prospect, en una calle llamada Birchwood Terrace, en la casa numero 1, y que mi nombre es Jim Booth. En VFP la sintaxis sería algo así:

USA.Connecticut.Prospect.BirchwoodTerrace.One.JimBooth

Debemos localizar los objetos de VFP de la misma manera, mediante su referencia dentro de su ámbito de actuación. Un cuadro de texto llamado Text1 que se encuentre en un formulario llamado Form1 se referencia como Form1.Text1. Coloca este cuadro de texto en la página 1 de un marco de página en Form1 y su referencia será entonces Form1.PageFrame1.Page1.Text1. Esta es la referencia al contenedor que VFP necesita.

Podemos pensar en este comportamiento como si estuviésemos refiriéndonos a cajas. El formulario es una caja que contiene cosas, dentro de la caja formulario hay una caja Marco de página que contiene únicamente unas cosas llamadas páginas, y en una de estas cajas páginas hay un cuadro de texto que es a lo que queremos hacer referencia. Entonces, le decimos a VFP que mire dentro de la caja formulario una caja marco de página llamada Pageframe1, y que en esta caja PageFrame1 debe buscar una caja página llamada page1 y que a su vez busque dentro de la caja Page1 algo llamado text1.

Comprendiendo el modelo de contenedores de VFP

Visual FoxPro tiene un numero de clases base que son  originalmente contenedores, esto es, que pueden contener otros objetos. Estas clases contenedoras son: Conjunto de Formularios, Formulario, Contenedor, Custom, Control, Cuadricula, Marcos de Página, Página y Columna (se debe tener cuidado de no confundir la clase Contenedor con la habilidad de una clase de ser un contenedor).

Estas clases base pueden ser empleadas para proveer una aproximación a lo que en diseño Orientado a Objetos se conoce como composición. Composición es la combinación de un número de objetos dentro de otro objeto más complejo. La composición se puede realizar de dos maneras: temprana o tardía.

La composición temprana se produce cuando se construye el objeto y posteriormente se le da comportamiento a los miembros que forman la composición. La composición tardía se diferencia de la temprana en que cada clase individual tiene completamente definido todo su comportamiento antes de combinarse en el contenedor. En conveniente seguir una estrategia de diseño basada en  la composición tardía. 

Como ejemplo, consideremos una entrada de datos de una dirección. Esta clase compuesta se puede construir mediante un cuadro de texto para el nombre, dos cuadros de texto para la dirección de la calle, uno más para la ciudad, el estado, y el código postal. Todos estos cuadros de texto se colocan en una clase contenedor para emplearlos como si fuesen un solo objeto. ¿Cual es el beneficio de crear esta clase? El más obvio es la reutilización, en cada formulario de una aplicación que necesite una dirección simplemente pondremos nuestro objeto dirección en el formulario y con esto tendremos todo el trabajo hecho.

Comparemos ahora  la composición temprana en contraposición a la composición tardía. En la composición temprana podemos construir la clase contenedora con los cuadros de texto, y entonces escribir código dentro de varios cuadros de texto para darle el comportamiento. Posiblemente escribamos código dentro de los Valid de los cuadros de texto de Estado y de Código Postal para validar la entrada de estados de USA y el dato del Código Postal. En la composición tardía, definiremos los cuadros de texto de Estado y de Código Postal como clases independientes, y posteriormente combinaremos estas con los otros cuadros de texto en el contenedor.

¿Cual es la diferencia entre los dos métodos? Las diferencias se ven cuando deseamos modificar el comportamiento de la clase dirección. Supongamos que necesita crear una dirección internacional. Con la clase realizada mediante composición temprana, podemos realizar una subclase de la dirección y entonces intentar alterar el comportamiento de los objetos contenidos. Esto es bastante fácil, siempre y cuando queramos conservar todos los controles pero, si se quiere eliminar los cuadros de texto de la dirección, y reemplazar estos por un cuadro de edición nos encontraremos con una sorpresa. Visual FoxPro no permite eliminar ninguno de los cuadros de texto porque son miembros de la clase padre, por tanto la única opción es hacer los cuadros de texto invisibles o construir una nueva clase dirección. Si se escogemos esto último tendremos que rescribir el código de comportamiento para todos los cuadros de texto que deseemos conservar ya que ese comportamiento se define en la clase contenedor y no en los cuadros de texto.

Con composición tardía simplemente realizaremos una nueva clase dirección y pondremos dentro lo que queramos. Dado que la definición del comportamiento de cada cuadro de texto se encuentra en su propia clase, incorporaremos los que queramos y dejaremos fuera aquellos que no necesitemos.

Escribiendo código en contenedores

Bien, hemos visto los beneficios de los contenedores y de la composición pero, ¿cómo se relaciona nuestro código con los contenedores?. Antes hemos visto que necesitamos emplear la jerarquía del contenedor para referenciar en tiempo de ejecución los objetos que se encuentran dentro de él, sin embargo, hay más de una forma de referenciar un objeto, y unas son mejores que otras.

Por ejemplo, mire el formulario de la figura 1.

Figura 1 un formulario con varios niveles de contenedores.

Este formulario tiene dos instancias de una clase contenedora que contiene un cuadro de texto y un botón de comando. La primera instancia se encuentra en Page1 del marco de página  exterior (contenedor 1), la segunda se encuentra en la Page1 dentro del marco de página interior (contenedor 2). El comportamiento programado en el botón de comando hace que cambie el valor de su respectivo cuadro de texto para hacerlo coincidir con el título del botón.

Una solución para esto, en el contenedor 2, es escribir el siguiente código: 

ThisForm.PageFrame1.Page1.PageFrame1.Page1.Container1.Text1.Value = “ABC”

Hemos Empleado la referencia absoluta del control dentro del contenedor. Sin embargo, si se emplea este código y el contenedor 1 se crea copiando desde el contenedor 2 y pegándolo en la otra página, ¿qué comportamiento podemos esperar al pulsar el botón que se encuentra en el contenedor 1? El botón del contenedor 1 cambiará el cuadro de texto en el contenedor 2, dado que la referencia es absoluta.

En vez de programarlo así, podemos emplear referencia relativa para el código del botón:

This.Parent.Text1.Value = “ABC”

Ahora ambos botones referencian el cuadro de texto asociado con él dentro del mismo contenedor. Un diseño mejor sería programar en el contenedor un método para la actualización de los controles y hacer que el botón llame a este método (patrón mediador). ¿ Por qué es mejor el patrón mediador?, porque ahora podremos cambiar el nombre del cuadro de texto y solo necesitaremos corregir el código en el contenedor, el botón no se tendrá que preocupar más por el nombre del cuadro de texto. No solo eso, podremos añadir más controles al contenedor y hacer que el botón actúe sobre todos ellos sin modificar el código del botón.

Algunas Definiciones

En las secciones anteriores se han introducido algunos componentes sintácticos que podrían ser nuevos para alguien.  Os proporciono algunas definiciones.

Término                    Definición

THIS

Una referencia al objeto que contiene el código.

THISFORM

Una referencia al formulario que contiene el código, incluso si el código se encuentra dentro de un objeto contenido en el formulario.

THISFORMSET

Una referencia al conjunto de formularios que contiene el código, incluso si el código se encuentra dentro de un objeto contenido en el formulario o en un formulario contenido en el conjunto de formularios.

Parent

Una referencia al contenedor inmediato superior del objeto que contiene el código. Parent puede ser combinado para ir hacia atrás en el árbol de contenedores, así si un cuadro de texto se encuentra en una página de un marco de página de un formulario, This.parent.Parent.Parent hace referencia al formulario.

ActiveX y Controles OLE

Se han dado un gran número de comunicaciones indicando que el nuevo control Calendar 8.0 no funciona correctamente. La gente que alertó  de esto, intentaba establecer o leer el valor de una propiedad del Control calendario, y recibió un mensaje de error equivocado que les indicó que la propiedad no existía.

Para comprender la razón de este error y la forma de no obtenerlo es importante comprender el contenedor de controles ActiveX de Visual FoxPro. VFP emplea el Control OLE como contenedor de los controles ActiveX. El control calendario se encuentra actualmente dentro de un Control OLE. Para referenciar el control contenido se debe emplear la propiedad Object del Control OLE. Esta propiedad es una referencia al objeto que se encuentra contenido dentro del Control OLE. Las siguientes dos lineas de código explican lo que significa aquí:

ThisForm.OLEControl1.Value = {^1999/01/01} && produce un error

ThisForm.OLEControl1.Object.Value = {^1999/01/01} && no produce error

Aparentemente, VFP se confunde con la propiedad llamada Value, debido a que el Control OLE no la tiene y por tanto VFP informa con un error. Normalmente solo necesitas emplear la propiedad Object cuando ambos, el objeto contenido y el Control OLE comparten propiedades con el mismo nombre. Mi experiencia es que se tiene menos problemas si siempre se emplea la propiedad Object cuando se referencia al objeto que se encuentra dentro del Control OLE.

Sumario

En este artículo únicamente se han tratado las nociones básicas del tema de los contenedores en Visual FoxPro. Es un tema que podría ocupar un libro entero. Se ha comentado los aspectos principales de los contenedores y como les afecta a nuestro código y a nuestros sistemas. Ha visto como sacarle el máximo provecho al modelo de contenedores de Visual FoxPro en su trabajo y como evitar problemas que pueden venir de una mala comprensión de la forma de trabajo de los contenedores.