FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index EasyReport, EasyDialog y EasyPreview La nueva apariencia de EasyReport
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 03: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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 03: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
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 03: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 (fw): Select all Collapse
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
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 03: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 ....
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 04: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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 04:34 PM

Lucas,

Puedes ayudarnos ?

gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 04: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

mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 04: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.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 05:01 PM

Manuel,

Genial! :-)

Muchas gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 05:07 PM
la otra opci贸n que existe , colocar en el c贸digo de nuestro programa :

Code (fw): Select all Collapse
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
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 05: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 )

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 06: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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 06: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 (fw): Select all Collapse
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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 06: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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sun Sep 21, 2014 06: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
Static archive 路 New replies & topics via GitHub Discussions