MyRpt - Diseñador de Reportings - En desarrollo :-)

Post Reply
User avatar
Carles
Posts: 937
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Contact:

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Carles »

Jose,

El metodo :nVertRes se encuentra dentro del modulo printer.prg. Cuando se crea el objeto de impresion, se hace un

Code: Select all

::oPrn := PrintBegin( ::cTitle , ::lFromUser, ::lPreview,, .f., .f. )
Por lo que se tendria de crear correctamente el objeto de tipo Tprinter.

Conprueba el orden de las librerias quizas...
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

https://modharbour.app
https://modharbour.app/compass
https://forum.modharbour.app
User avatar
Marcelo Roggeri
Posts: 275
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina
Contact:

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Marcelo Roggeri »

Hola Carles, buenas tardes, he bajado el diseñador de reporte (MyRpt) pero al abrir los ejemplos me da error Resource: PrintAnimate
No se si hay que descomprimir todo en alguna carpeta en especial.
Saludos
Marcelo
FWH - Harbour - BCC7 - PellesC - FivEdit (Cristobal Navarro)
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Antonio Linares »

Marcelo,

PrintAnimate es una caja de dialogo definida en myrpt.rc
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Sebastián Almirón
Posts: 125
Joined: Mon Dec 12, 2005 9:56 am
Location: Moralzarzal - Spain

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Sebastián Almirón »

Fantástico MyRpt, mil gracias Carles.

De momento lo tengo implementado en una app y me funciona de maravilla, con unas cuantas modificaciones que creo son útiles:

Le he puesto una data :lmenusmart para implementar el diseño de documentos por separado. De este modo puedo crear un objeto MyRpt, en modo diseñó, que no muestre ciertas opciones del menú como abrir .rpt, modificar el cID de los ítems que necesite para el documento concreto, etc.

Por fin he podido pasar de un obsoleto sistema basado en indicar mediante números en una tabla las coordenadas, fuente, colores... de los datos a mostrar, a uno visual, que bien queda...

Ha, se me olvidaba.... He conseguido hacer documentos MyRpt incrustandole objetos richedit de varias páginas, mediante Reprintbox(), estaría muy bien poderlos incorporar a MyRpt. Curioso que el documento se vea mucho mejor en el diseñador que en el rpreview.

En lo que pueda ayudar, sólo decirlo
Xapó
User avatar
Andrés González
Posts: 625
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Andrés González »

Sebastián, se ve muy interesante todas estas modificaciones. Hay manera de que las puedas compartir o mandar por privado.
Saludos

Andrés González desde Mallorca
User avatar
Sebastián Almirón
Posts: 125
Joined: Mon Dec 12, 2005 9:56 am
Location: Moralzarzal - Spain

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Sebastián Almirón »

Hola Andrés, por supuesto que puedo compartir todo. Ahora me pillas en casa con un iPad (y después de las cañitas), pero el lunes te digo donde lo dejo pada poderlo descargar, si Carles no tiene inconveniente.

Por cierto, he metido todo en uno solo fichero prg, aunque sé que no es muy ortodoxo, para incorporarlo a mis app con solo añadirles ese prg, ya que originalmente me pareció un lío tantos prg, problemas al construir la librería,etc.

Creo que Carles ha abandonado el proyecto porque ninguno lo utilizábamos...una pena que esperó reconsidere. No le hemos dado la importancia que tiene y es muy muy bueno y sencillo de implementar. Con poco que le pongamos de nuestra parte tendríamos un diseñador de documentos visual para incorporar a nuestros programas, de hecho yo ya lo he incluido en una app en producción y voy a incluirlo en todas las demàs. Nada de programas externos, nada de licencias, todo el código fuente a nuestra disposición, el más simple de implementar, ...en fin, que más podemos pedir.

Saludos
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by cnavarro »

Sebastián Almirón wrote:Hola Andrés, por supuesto que puedo compartir todo. Ahora me pillas en casa con un iPad (y después de las cañitas), pero el lunes te digo donde lo dejo pada poderlo descargar, si Carles no tiene inconveniente.

Por cierto, he metido todo en uno solo fichero prg, aunque sé que no es muy ortodoxo, para incorporarlo a mis app con solo añadirles ese prg, ya que originalmente me pareció un lío tantos prg, problemas al construir la librería,etc.

Creo que Carles ha abandonado el proyecto porque ninguno lo utilizábamos...una pena que esperó reconsidere. No le hemos dado la importancia que tiene y es muy muy bueno y sencillo de implementar. Con poco que le pongamos de nuestra parte tendríamos un diseñador de documentos visual para incorporar a nuestros programas, de hecho yo ya lo he incluido en una app en producción y voy a incluirlo en todas las demàs. Nada de programas externos, nada de licencias, todo el código fuente a nuestra disposición, el más simple de implementar, ...en fin, que más podemos pedir.

Saludos
++++++1
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
elvira
Posts: 462
Joined: Fri Jun 29, 2012 12:49 pm

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by elvira »

Hola Sebastián,

Es una muy buena noticia.

A mi el proyecto de Carles me pareció fantástico. El único problema es que a veces, al mover los objetos, el diseñador cascaba.

¿No te ha sucedido esto a ti?

Sería extraordinario tener un diseñador de informes totalmente nativo en Fivewin, porque FastReport para Harbour ya quedó abandonado por la muerte de Sergey.

Muy agradecida ;)
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by AngelSalom »

¡Muy interesante! Sigo el hilo con atención ...
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
George
Posts: 710
Joined: Tue Oct 18, 2005 6:49 pm

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by George »

Este proyecto "MyRpt" (un VisualReport nativo de FW) de Carles, y ahora apoyado por Sebastian, es de suma importancia para nosotros los usuarios de FW.

Favor de indicarnos como podemos colaborar.

Saludos,

George
User avatar
Kleyber
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Kleyber »

Me sumo al pedido.
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by MarioG »

Carles
Felictaciones por TAMAÑO aporte!

Te sugiero, que de seguir siendo libre, uses el repositorio GIT para los que se quieren sumar como colaboradores y para los que lo deseamos usar :wink:
Por si no lo conoces, encontre esto:
http://www.genbetadev.com/sistemas-de-c ... el-nuestro
Saludos
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Silvio.Falconi »

Amigos,
lo siento por mi español
My Rpt es muy grande.
Lo único aquí que no funciona es cuando se utiliza el archivo WMF importado de powerpoint como fondo
Ya he hablado de esto con mi amigo Chales
Pero no he encontrado todavía una solución
Ahora utilizo MyRpt sin imágenes wnf importado de powerpoint
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Sebastián Almirón
Posts: 125
Joined: Mon Dec 12, 2005 9:56 am
Location: Moralzarzal - Spain

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by Sebastián Almirón »

Por si a alguien le puede ayudar o se anima a usar MyRpt. Yo no conocía la existencia de MyRpt y llegue a el buscando en el foro por tener necesidad de un diseñador de documentos decente. Lo he podido implementar en poco más de un día, así que ahí van los pasos que he seguido.

Aunque por supuesto MyRpt se puede usar tal y como lo ha dejado Carles (de nuevo gracias), yo me he encontrado con unos cuantos problemas:

1º) Agregar una cantidad impresionante de prgs a mis programas o utilizar la librería generada. La primera opción me pareció un tostón tener que meter tantos ficheros al .MAK o a Verce que utilizo habitualmente y más si lo voy a implementar en varias aplicaciones, la segunda me dio muchos problemas. Al final metí todos los prg en un solo fichero, lo he linkado en un par de aplicaciones y funciona. Se que no es muy ortodoxo, pero hasta que esté totalmente terminada y funcione sin problemas, para mi es más cómodo.

2º) En los fuente viene una clase TReport que no es la de FW, la he renombrado a TRpt (y todas las llamadas a ella)

3º) Quería dejar que el usuario pudiese configurar ciertos documentos, algo así como "Configurar factura". Tal y como venía el usuario tenía que guardar el archivo y lo podía hacer con otro nombre, además podía cambiarle el nombre a los cID de los items, con lo cual podía fastidiar todo. Le he puesto una data ::lsmartmenu, que hace que no se muestren ciertas opciones de menú, el menú flotante del botón derecho del ratón y que no permita cambiar los cID. Estoy trabajando en una data que consista en un array con los datos obligatorios y que no se puedan borrar, renombrar ni ocultar en el documento. También le he añadido data ::cnomapp para mostrar el nombre de la aplicación en ciertos mensajes.

4º) Para facilitar su uso, le he puesto parametros a la llamada a MyRpt():New()
Así, para llamar al diseño de un documento concreto., solo tengo que poner dos líneas:
orpt := MyRpt():New(diruta()+'\Factura.rpt',"Diseñador de Factura de MyApp",'MyApp', t.) //El último parametro es ::lmenusmart
orpt:Activate()
Si quiero llamar al diseño de MyRpt en modo completo:
orpt := MyRpt():New()
orpt:Activate()

5º) He añadido el siguiente código al final método Postop() de TRptForm:
if ::lactive
::oRpt:oForm:lChange := .t.
::oRpt:oInspect:lactive := .f.
::oRpt:oForm:lBuilding = .T.
oitemact := ::oControlItem
::additem(oitemact:ntop, oitemact:nleft)
::oControlItem := oitemact
::oRpt:oInspect:DeleteItem(oitemact)
::oRpt:oInspect:AddItem(oitemact)
::oRpt:oInspect:SelectItem( oItemact )
::oRpt:oForm:lBuilding = .F.
::oRpt:oInspect:lactive := .t.
endif

Esto me ha surgido porque, aunque se puede poner de fondo un EMF, yo quería que pudiese ser un JPG, más accesible al usuario final. Me daba problemas si el JPG ocupaba todo el documento o el mismo espacio que otros items. Al pulsar el botón "Traer al frente", solo traia al frente (y con mala visualización) la ventana del control, pero en el Tree de TInspector seguía colocado en el mismo sitio, con lo cual al imprimirse, si el fondo JPG era el último, solo se veía el JPG porque machacaba los demás. Estoy viendo como poder poner otros controles encima de la imagen, de momento hay que dejar un pequeño hueco para ponerlos y luego moverlos a su sitio.

6º) He añadido el siguiente código al final del método PosBottom() de TRptFrom:
if ::lactive
oitemact := ::oControlItem
::oRpt:oForm:lChange := .t.
cSection := ::oControlItem:cSection
citemsel := ::oControlItem:cID
aItems := ::oRpt:oInspect:GetItemsSection( cSection )

::oRpt:oInspect:lactive := .f.
::oRpt:oForm:lBuilding = .T.
for nI := 1 To Len( aItems )
if aitems[nI]:cID <> citemsel
oitemmove := aitems[nI]
::additem(oitemmove:ntop, oitemmove:nleft)
::oControlItem := oitemmove
::oRpt:oInspect:DeleteItem(oitemmove)
::oRpt:oInspect:AddItem(oitemmove)
endif
next nI
::oRpt:oForm:lBuilding = .F.
::oRpt:oInspect:lactive := .t.
::oRpt:oInspect:SelectItem( oItemact )
endif

Por el mismo motivo que el anterior. De momento lo tengo así, a falta de buscar otra solución más límpia.

7º) He visto algunas funciones que hacian un SetResources() a ::cDllFile y luego, en ciertas circunstancias no volvía a hacer SetResources(oldresources), con lo cual me petaba mi programa al cargar algún otro dialogo, lo he corregido.

Eso es todo de momento, para el que no lo haya usado numca, el uso para imprimir documentos es muy simple, por ejemplo para una factura:

o := MyRpt():New(diruta()+'\factura.rpt', Generador de Factura de MyApp")
oRpt := o:Run()

oRpt:bHeader := {|| Cabefact(oRpt) } //Cabefact es la cabecera de la factura que se imprimirá igual en todas las hojas, los datos serán los de la section Public y de rellenan oRpt:Data('NOMBRE',cnombre)

oList := oRpt:GetSection('CUERPO') //CUERPO es una Section declarada en el .rpt
for n = 1 to len(alineas) //alineas son las líneas de la factura, sustituirlo por un do whil o lo que utiliceis
oList:Data('CANTIDAD', trimstr(alineas[n,1])) //CANTIDAD es el cID de un TSay metido en una Section
oList:Data('DESCRIPCION', alineas[n,2] )
oList:Data('PRECIO',transform(alineas[n,3],'@E 999,999.99'))
oList:Data('IMPORTE', transform(alineas[n,4],'@E 999,999.99'))

oList:Skip()
next n

oList:end()

oRpt:End()
oRpt := nil


Bueno, perdonad por el ladrillo, se que es mejor bajar la clase tal y como la ha dejado Carles, pero si quereis descargar el prg que estoy utilizando y la dll la he dejado en:
http://www.caseinformatica.com/MyRpt/myrpt.html
Es lo único que hace falta para implementarlo, la dll que he dejado es en español, sin cambios, la clase original trae varias en distintos idiomas si lo necesitais.

Saludos
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: MyRpt - Diseñador de Reportings - En desarrollo :-)

Post by lucasdebeltran »

Hola Sebastián,

Me gustaría por favor contactarte en privado.

¿Me puedes escribir un email a lucasdebeltran at gmail.com?.

Muchas gracias.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
Post Reply