La nueva apariencia de EasyReport

Re: La nueva apariencia de EasyReport

Postby cnavarro » Sun Sep 21, 2014 3:01 pm

Manuel
Cambiado ListBox por XBrowse en Fonts
Faltaría crear las columnas con las propiedades de cada Font (Name, Width, Height, Bold, Italic, etc )
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Postby Antonio Linares » Sun Sep 21, 2014 3:20 pm

Manuel, Cristobal,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: La nueva apariencia de EasyReport

Postby mastintin » Sun Sep 21, 2014 3:22 pm

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
 
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Postby mastintin » Sun Sep 21, 2014 3:25 pm

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 ....
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Postby Antonio Linares » Sun Sep 21, 2014 4:32 pm

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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: La nueva apariencia de EasyReport

Postby Antonio Linares » Sun Sep 21, 2014 4:34 pm

Lucas,

Puedes ayudarnos ?

gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: La nueva apariencia de EasyReport

Postby mastintin » Sun Sep 21, 2014 4:55 pm

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
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Postby mastintin » Sun Sep 21, 2014 4:59 pm

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.
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Postby Antonio Linares » Sun Sep 21, 2014 5:01 pm

Manuel,

Genial! :-)

Muchas gracias!
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: La nueva apariencia de EasyReport

Postby mastintin » Sun Sep 21, 2014 5:07 pm

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.
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Postby mastintin » Sun Sep 21, 2014 5:19 pm

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 )
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Postby cnavarro » Sun Sep 21, 2014 6:45 pm

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Postby cnavarro » Sun Sep 21, 2014 6:46 pm

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Postby cnavarro » Sun Sep 21, 2014 6:48 pm

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Postby cnavarro » Sun Sep 21, 2014 6:49 pm

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"
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

PreviousNext

Return to EasyReport, EasyDialog y EasyPreview

Who is online

Users browsing this forum: No registered users and 9 guests