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

[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...

[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

[Antonio Linares]

Marcelo,

PrintAnimate es una caja de dialogo definida en myrpt.rc

[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ó

[Andrés González]

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

[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

[cnavarro]

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

[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

[AngelSalom]

¡Muy interesante! Sigo el hilo con atención ...

[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

[Kleyber]

Me sumo al pedido.

[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
Por si no lo conoces, encontre esto:
http://www.genbetadev.com/sistemas-de-c ... el-nuestro
Saludos

[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

[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

[lucasdebeltran]

Hola Sebastián,

Me gustaría por favor contactarte en privado.

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

Muchas gracias.