Page 5 of 16

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 3:01 pm
by 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 )

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 3:20 pm
by Antonio Linares
Manuel, Cristobal,

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

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 3:22 pm
by mastintin
cnavarro wrote: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
 

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 3:25 pm
by mastintin
Antonio Linares wrote: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 ....

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 4:32 pm
by 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 :-)

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 4:34 pm
by Antonio Linares
Lucas,

Puedes ayudarnos ?

gracias

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 4:55 pm
by 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

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 4:59 pm
by mastintin
Antonio Linares wrote: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.

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 5:01 pm
by Antonio Linares
Manuel,

Genial! :-)

Muchas gracias!

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 5:07 pm
by 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.

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 5:19 pm
by 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 )

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 6:45 pm
by cnavarro
mastintin wrote: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

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 6:46 pm
by cnavarro
mastintin wrote:
cnavarro wrote: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

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 6:48 pm
by cnavarro
mastintin wrote: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

Re: La nueva apariencia de EasyReport

PostPosted: Sun Sep 21, 2014 6:49 pm
by 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"