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

[Carles]

Hola,

Andres,

Se puede emplear el reporter para diseñar etiquetas

De momento no. Esta primera fase es para consolidar los conceptos básicos.

se puede poner de fondo un grid de líneas para que nos sirvan de referencia

Vamos paso a paso. Miraremos de haber si es mejor poner un grid, unos ejes, reglas, todo !, ... De momento, en la parte inferior muestra la posicion.

MdaSolution -> Gracias. Vamos a mirar de poner pronto un grid.

Nueva version v.0356 - Nuevo metodo ::SetPropierty()

http://code.google.com/p/fivewin-contri ... akechanges

La idea básica de esta libreria es:

1.- Diseño de la posicion y propiedades de cada item
2.- Un metodo para manejar los datos -> ::Data( ID, Value )

Se ha incorporado un el metodo SetPropierty( ID, Propiedad, valor ), para que en el caso que queramos cambiar la propiedad (de momento del fuente, a ver si sirve de algo este metodo), podamos cambiarlo. A la siguiente llamada de ata() el item tomara los nuevos valores, pero a la siguiente volvera a su estado de diseño

Ver este ejemplo, (listimg2.prg) en el que hay una subposicion que como no encuentro un dato, cambio sus atributos a color rojo, bold, italic, underline...



El codigo de manejo es este

Code: Select all  Expand view

...
          MAT_USER->( DbSeek( MATERIAL->id ) )
    WHILE MAT_USER->id_mat == MATERIAL->id  .AND. MAT_USER->( !Eof() )


        IF CLIENT->( DbSeek( MAT_USER->id_user ) )

          oUser:Data( 'usr_img'   , 'user.jpg' )
          oUser:Data( 'usr_id'    , MAT_USER->id_user )
          oUser:Data( 'usr_name'  , CLIENT->name )
          oUser:Data( 'usr_fecha' , MAT_USER->fecha   )

         ELSE

          oUser:SetPropierty( 'usr_name' , 'Color'    , CLR_RED )
          oUser:SetPropierty( 'usr_name' , 'Bold'     , .T.     )
          oUser:SetPropierty( 'usr_name' , 'Italic'   , .T.     )
          oUser:SetPropierty( 'usr_name' , 'Underline', .T.     )

          oUser:Data( 'usr_img'   , 'question.jpg' )
          oUser:Data( 'usr_id'    , MAT_USER->id_user )
          oUser:Data( 'usr_name'  , '< User desconocido ??? >' )

        ENDIF


        MAT_USER->( DbSkip() )

        oUser:Skip()

    END
...

Y listos... Creo que puede ser muy poderoso por su flexibilidad

[xmanuel]

Tal vez deberías cambiarla a ::SetProperty()
jaja o es spanglis jeje

Saludos y buen curro, sí señor

[Carles]

M,

Jajaja es verdad tio. Es q voy saturaoooooo. Lunes lo cambio, ahora estoy con la birrita.

Q bueno, jejeje (es q soy de tierra yo...)

[Carles]

Hola,

Nueva version v.0357

http://code.google.com/p/fivewin-contri ... akechanges

v.0357
------
+ SetPropierty() -> Now is SetProperty() !!! Thanks to my friend Manu
+ Property Border
See CliAlb.prg
+ New Property Section: Effect Pijama
See ProdList.prg
+ New Property -> REMARK Remark all line section with one color
See ListImg2.prg

Imprimir bordes del Item


Efecto Pijama


Propiedades dinamicas en Seccion y centrado verticalmente en linea (Cuando hay imagenes, diferentes fonts...)

[sysctrl2]

todo se ve bien PRO,

Carles, has pensado en un ejemplo usando un ARRAY o tdolphin o tmysql ?

saludos.

[Carles]

Sysctrl2,

No hay ningun ejemplo, pero el origen de este proyecto fue precisamente esto. Poder generar facilmente informes independientemente del origen de datos. Si miras los ejemplos, la base es el uso del metodo ::DATA( ID, <TuDato> ) y ese dato lo puedes tu manejar desde cualquier lado: Dbf, array, ado, .... Tu le dices al report: Me pones en el ID tal el DATO cual, el ya encargara de ponerlo en su sitio....

Tendria de ser tan facil como esto

Code: Select all  Expand view

...
nI := 1
WHILE Len( aTabla ) >

   oRpt:Data( 'CODIGO', aTabla[ nI ][ 1 ] )

   nI++

END
...
 

Y listos...

[MdaSolution]

Carles,

¿Puedo tener una librería compatible con xHarbour?

No puedo compilar un ejemplo


hay un error al compilar

Error: Unresolved external '_HB_FUN___CLSUNLOCKDEF'
Error: Unresolved external '_HB_FUN_FW_GT'
Error: Unresolved external '_HB_FUN___CLSLOCKDEF'

Que tengas un buen día,
Domenico

[Carles]

MdaSolution,

La libreria ahora esta en Harbour, y necesitamos sentar conceptos, funcionalidad y estabilidad. Una vez lo podamos conseguir, miraremos de pasarla a xH.

[karinha]

MdaSolution,

La libreria ahora esta en Harbour, y necesitamos sentar conceptos, funcionalidad y estabilidad. Una vez lo podamos conseguir, miraremos de pasarla a xH.

Esperando ansioso por la versíon en xHarbour.

Saludos y gracias.

[Carles]

Hola

Nueva version v0.358

http://code.google.com/p/fivewin-contri ... akechanges

v.0358
------
+ Grid
+ Demo samples can execute via HRB, and you can modify the samples on-fly

[sysctrl2]

Carles, tienes toda la razon,

podemos imprimir cualquier tipo de datos no importa su origen,

pero me uno a las demas peticiones, vamos a esperar a la version XHB.

saludos..

[Enrrique Vertiz]

Solo para indicar que "somos varios" los que estamos esperando la version de este buen aporte para xHB

[Carles]

Hola

Nueva version v0.401

http://code.google.com/p/fivewin-contri ... akechanges

v.0400
------
+ Great implementation. We changed the property inspector. Now it's with a class modified of our friend Paco Garcia and adapted for MyRpt
+ When you put one item, isn't respect the grid. Now it's Ok
+ Modified TControl. When you dragging one item, the event ::bPostDrag allways jump. Now it's ok

v.0401
------
+ File *.rc is already to change to different languages

Se ha rediseñado el inspector de propiedades, con una clase de nuestro amigo Paco Garcia, adaptándola para su uso con MyRpt. El resultado es espectacular ! Gracias Paco

Tambien, se han puesto todos los strings dentro del fichero *.rc, para poder modificar a diferntes idiomas. Si alguien se presta a traducir a otros idiomas, que me lo diga.



Seguimos adelante !!!

[MdaSolution]

Puede usar el command j / y i18n ()

xHarbour crea un archivo con un "Hit" para ser usado directamente en el exe en el archivo sin necesidad de añadir recursos

[Carles]

Bones,

Nueva version v0.404

http://code.google.com/p/fivewin-contri ... loads/list

En esta version tenemos mejoras importantes.

1.- Soporte multilenguaje. Ver ejemplo 1 Vr.prg, para ver como cambiar de un lenguaje a otro

2.- Nuevas datas ::bLoad y ::bSave. Por defecto MyRpt genera unos ficheros de ascii con la configuracion del report diseñado. Mediante estas datas, nosotros podemos controlar el flujo de Cargar y Salvar un report y por ejemplo en lugar de tener el report grabado en un fichero localmente, lo queremos grabar en un campo de una base de datos, tabla, encriptar en un fichero el report, ... Ver ejemplo 40 Vr2.prg

3.- Soporte Codigo de Barras. Ahora ya podemos contar con codigo de barras en nuestros reportes. De momento hay definidos 6 tipos de codigos de barras, y se generan nativamente sin necesidad de instalar ninguna fuente especial. Se ha integrado en MyRpt la codebar de Ramon Avendaño.

Ejemplos de Codigo de Barras (Codebar.prg)


Ejemplo de codigo de barras aplicado al reporting (CliAlb4.prg)


Aparte del soporte a los CB, si mirais el codigo de CliAlb3 y CliAlb4 es calcado. Solo cambia en el diseño el Item, que uno es de tipo String y en el otro de tipo CodeBar

Estare unos dias de vacaciones , si teneis alguna duda o lo que sea, lo posteais...

Nota: (No he podido probar el resultado con pistolas de codigo de barras, poruqe no tengo ninguna. Si alguien puede verificarlo o hacer pruebas, mejor, gracias.)