La nueva apariencia de EasyReport

[cnavarro]

Manuel
Cambiado ListBox por XBrowse en Fonts
Faltaría crear las columnas con las propiedades de cada Font (Name, Width, Height, Bold, Italic, etc )

[Antonio Linares]

Manuel, Cristobal,

Podemos ya generar un reporte previamente creado sin tener que usar el diseñador visual ?

[mastintin]

Manuel
Cambiado ListBox por XBrowse en Fonts
Faltaría crear las columnas con las propiedades de cada Font (Name, Width, Height, Bold, Italic, etc )

Dejemos eso en pendiente ....
el botón de grabación no es necesario pues al realizar la edición en un dialogo al salir del dialogo lo grabamos .Podemos cambiar el texto grabar por borrar y el código de borrado :
Ojo que ese código es para listbox ( lo tenia ya ) , seria cambiar olbx:getPos() por olbx:nArrayAt y olbx:setitems() por olbx:setarray()

Code: Select all  Expand view

function DelFont( oLbx )

   local nID := Val(SUBSTR( oLbx:GetItem(oLbx:GetPos()), 1, 2))
    local aGetFonts, aShowFonts

   RndMsg( FwString("Deleting Font ") )

   DelIniEntry(  "Fonts", AllTrim(STR(nID,3)) ,oER:cDefIni  )
   aFonts[nID]:= nil
   aGetFonts  := GetFonts()
   aShowFonts := GetFontText( aGetFonts )
   olbx:SetItems( aShowFonts )

   syswait(.3)
   RndMsg()


RETURN nil
 

[mastintin]

Manuel, Cristobal,

Podemos ya generar un reporte previamente creado sin tener que usar el diseñador visual ?

Antonio , no tendría porque no .... , ¿ como quieres hacerlo ? llamándolo desde un nuevo botón ? , con un programa independiente ? . Lo suyo creo que seria crear una librería que se pueda enlazar con cualquier programa ....

[Antonio Linares]

Manuel,

Lucas explicó la sintaxis a usar para ejecutar un reporte de EasyReport desde una aplicación sin tener que usar el diseñador visual para nada.

Siguiendo la idea de poner a disposición de todos un aversión operativa, deberíamos completar ese paso para que asi ya puedan usarse los reportes desde las aplicaciones y luego nos enfocamos en ampliar y cambiar el diseñador visual.

Por supuesto es solo una sugerencia, cada uno es libre de desarrollar lo que desee

[Antonio Linares]

Lucas,

Puedes ayudarnos ?

gracias

[mastintin]

Atencion he hecho unos cambios e incluido un nuevo prg.
He fijado un par de alertas del código , he añadido un prg donde esta el código que llamando a una función permite imprimir desde cualquier programa directamente un reporte easyreport ...
He cambiado uno de los botones en concreto el de previsualizar para poder probar el código añadido ...
Faltan cosas por implementar pero es una primera aproximación .
Cristobal compilando los recursos desde borland ( go.bat ) existe un recurso (properties16)
Error vrd.rc 93 35: Invalid bitmap format

[mastintin]

Manuel,

Lucas explicó la sintaxis a usar para ejecutar un reporte de EasyReport desde una aplicación sin tener que usar el diseñador visual para nada.

Siguiendo la idea de poner a disposición de todos un aversión operativa, deberíamos completar ese paso para que asi ya puedan usarse los reportes desde las aplicaciones y luego nos enfocamos en ampliar y cambiar el diseñador visual.

Por supuesto es solo una sugerencia, cada uno es libre de desarrollar lo que desee

El tema diferencial es que la tactica usada era llamar a un programa externo estart.exe mediante winexec pasándole los parámetros , el código que he añadido hace un momento ( aunque aún no están todos los parámetros disponibles) lo que pretende es que hagamos una llamada a una función pasándole los parámetros a usar y listo . el código necesario se mete en una lib y enlazandola se tiene todo en el exe.

[Antonio Linares]

Manuel,

Genial!

Muchas gracias!

[mastintin]

la otra opción que existe , colocar en el código de nuestro programa :

Code: Select all  Expand view

EASYREPORT oVRD NAME ".\REPORT\FACTURA.VRD" ;
PREVIEW lPreview PRINTDIALOG .T. OF oWndMain

IF oVRD:lDialogCancel = .T.
dbSelectArea( nOldArea )
RETURN( .F. )
ENDIF

PRINTAREA 1 OF oVRD ;
ITEMIDS { 500,501 ,;
401,402,403,404 ,;
102,103,104,105,106 ,;
201,202,203 } ;
ITEMVALUES { NIL,NIL ,;
EMPRESAS->NOMBRE2, EMPRESAS->DIRECCION, EMPRESAS->POBLACION , "NIF / CIF: " + EMPRESAS->NIF ,;

END EASYREPORT oVRD


 

Esta opción sigue operativa , solo es necesario enlazar vrd.prg , vrditem.prg y no se si algún archivo mas con el programa a usar y debería funcionar perfectamente . Cunado este mas estabilizado el desarrollo se mete en una lib y las dos formas están disponibles.

[mastintin]

Añadida vdr.lib al repositorio . Contiene vdr.prg,vdrbcode.prg, vdritem.prg es el motor de reporte . con esto podremos lanzar reportes desde código ...( a falta de probar por si hemos metido algún bug )

[cnavarro]

Atencion he hecho unos cambios e incluido un nuevo prg.
He fijado un par de alertas del código , he añadido un prg donde esta el código que llamando a una función permite imprimir desde cualquier programa directamente un reporte easyreport ...
He cambiado uno de los botones en concreto el de previsualizar para poder probar el código añadido ...
Faltan cosas por implementar pero es una primera aproximación .
Cristobal compilando los recursos desde borland ( go.bat ) existe un recurso (properties16)
Error vrd.rc 93 35: Invalid bitmap format

Sustituido bitmap

[cnavarro]

Manuel
Cambiado ListBox por XBrowse en Fonts
Faltaría crear las columnas con las propiedades de cada Font (Name, Width, Height, Bold, Italic, etc )

Dejemos eso en pendiente ....
el botón de grabación no es necesario pues al realizar la edición en un dialogo al salir del dialogo lo grabamos .Podemos cambiar el texto grabar por borrar y el código de borrado :
Ojo que ese código es para listbox ( lo tenia ya ) , seria cambiar olbx:getPos() por olbx:nArrayAt y olbx:setitems() por olbx:setarray()

Code: Select all  Expand view

function DelFont( oLbx )

   local nID := Val(SUBSTR( oLbx:GetItem(oLbx:GetPos()), 1, 2))
    local aGetFonts, aShowFonts

   RndMsg( FwString("Deleting Font ") )

   DelIniEntry(  "Fonts", AllTrim(STR(nID,3)) ,oER:cDefIni  )
   aFonts[nID]:= nil
   aGetFonts  := GetFonts()
   aShowFonts := GetFontText( aGetFonts )
   olbx:SetItems( aShowFonts )

   syswait(.3)
   RndMsg()


RETURN nil
 

Implementado boton de borrado de Font ( uno o todos )
Tanto para LISTBOX como para XBROWSE

[cnavarro]

Añadida vdr.lib al repositorio . Contiene vdr.prg,vdrbcode.prg, vdritem.prg es el motor de reporte . con esto podremos lanzar reportes desde código ...( a falta de probar por si hemos metido algún bug )

Manuel, habría que añadir el .bat que genera la libreria

[cnavarro]

Manuel
He probado el boton Preview, cuando he cancelado, el menu no era operativo y la aplicacion se ha quedado en memoria
Voy a volver a probar

-------------- Editado ------------------
Efectivamente: cuando cancelas y te dice "No se ha introducido fichero a procesar"