La nueva apariencia de EasyReport

[mastintin]

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"

No entiendo muy bien lo que me dices... Aquí me funciona ( aparentemente ) bien ...
1.- debemos tener en cuenta que no tiene nada que ver realmente con el diseñador , solo es una manera de probar como lanzaríamos un reporte en una aplicación ...

Pasos lanzamos ereport.exe .
1.- no abrimos ningún reporte ... ( los menús quedan deshabitados ) pero si permite escoger el botón preview ...
2.- al pulsarlo nos manda escoger que reporte queremos visualizar ... escogemos uno ... en el nuevo dialogo escogemos Previsualizar( de momento, no tengo impresora para probar impresión directa ) se abre el preview y podemos imprimir ,ver... ,
3.- cerramos el preview ( ojo el preview no el programa ) .
4.- Podemos escoger cualquier otro reporte presinandpo nuevamente el botón preview ...

Evidentemente una vez cerrada la previsualizacion no tenemos ningún archivo abierto para usar en el diseñador , debemos abrirlo desde el menú abrir ...

[cnavarro]

Manuel, asi no hay problema
Es que la prueba la habia realizado con otro report abierto, y al ir a seleccionar uno nuevo con el boton preview, daba a cancelar ( ahi estaba el problema )

Me toca hacer de "usuario que no sigue las instrucciones"

[cnavarro]

Comienzo de implementacion del diálogo de DATABASES

[mastintin]

Cristobal . hoy me he cambiado de ordenandor a uno con unas pantalla de 19'' pero cuadrada ( no apaisada) 1280*1024 ... el tema es que con un informe de 200 de ancho ( ojo que dina4 es 210 ) no da el ancho , se solapa el informe y el contenido del spliter hace cosas raras ( medio transparenta etc ) . Seria bueno poder poner un ¿ boton ? para poder cerrar y abrir el splitter cuando se necesite ( tipo acrobat o photoshop ) o colocar todo en un unico lado ( izquierdo) , limitando el numero de tabs a los mas necesarios y dejando algunos como antes ( Expresiones, filtros, grip setup , report settings ) que se usan menos ...
Estos dias ando con trabajuo atrasado asi que no podre poner demasiado codigo , para no interferirnos intentaré seguir con la parte que empecé ayer , para poder lanzar los reportes desde los programas sin necesidad del propio diseñador (por favor cambia el boton del preview para que se desabilite cuando tengas abierto un reporte y asi evitar que alguien repita lo que te paso a ti ayer...
quedo en espera de tu comentario respecto al tema del ancho ...

[lucasdebeltran]

Hola Manuel,

No entiendo el problema, para llamar a los informes de EasyReport coloqué el código -prg de ejemplo y hay que enlazar los archivos vdr.prg,vdrbcode.prg, vdritem.prg a la aplicación.

Lo mejor sería fusionar los tres en un único archivo, vrd.prg, así no hay que hacer librerías.

¿Qué error o problemas te da?.

Muchas gracias.

[mastintin]

Hola Manuel,

No entiendo el problema, para llamar a los informes de EasyReport coloqué el código -prg de ejemplo y hay que enlazar los archivos vdr.prg,vdrbcode.prg, vdritem.prg a la aplicación.

Lo mejor sería fusionar los tres en un único archivo, vrd.prg, así no hay que hacer librerías.

¿Qué error o problemas te da?.

Muchas gracias.

Lucas , Antonio pensaba que no era operativo Ereport desde código cuando siempre a estado funcionando ... Hemos creado una lib , con los modulos que comentas para que sea mas facil de incorporar a los programas , pero es una buena idea unificarlo todo en un único archivo ... Cristobal ¿ que opinas ? ¿ lo pasamos todo a un archivo ?
Gracias por tu ayuda...

[cnavarro]

Cristobal . hoy me he cambiado de ordenandor a uno con unas pantalla de 19'' pero cuadrada ( no apaisada) 1280*1024 ... el tema es que con un informe de 200 de ancho ( ojo que dina4 es 210 ) no da el ancho , se solapa el informe y el contenido del spliter hace cosas raras ( medio transparenta etc ) . Seria bueno poder poner un ¿ boton ? para poder cerrar y abrir el splitter cuando se necesite ( tipo acrobat o photoshop ) o colocar todo en un unico lado ( izquierdo) , limitando el numero de tabs a los mas necesarios y dejando algunos como antes ( Expresiones, filtros, grip setup , report settings ) que se usan menos ...
Estos dias ando con trabajuo atrasado asi que no podre poner demasiado codigo , para no interferirnos intentaré seguir con la parte que empecé ayer , para poder lanzar los reportes desde los programas sin necesidad del propio diseñador (por favor cambia el boton del preview para que se desabilite cuando tengas abierto un reporte y asi evitar que alguien repita lo que te paso a ti ayer...
quedo en espera de tu comentario respecto al tema del ancho ...

No solo ese es el problema
Si te fijas, cuando tienes en el folder derecho la pestaña de "Databases" seleccionada, los gets se siguen viendo, por eso cambié el orden de las pestañas, para poder seguir hoy ( a ver si tengo un ratillo), pero la decision estaba tomada: ocultaba el folder derecho y lo mostraba cuando el usuario lo necesitara, o prescindía de él y reorganizaba las pestañas sólo en el lado izquierdo. Ahora lo pensaré y tomaré una decision (pondré una imagen para que me digas qué te parece)
Yo voy a intentar probar la aplicacion en monitores de 1600 y 1900, a ver qué tal y pondré por aquí mis comentarios
Saludos

[cnavarro]

Hola Manuel,

No entiendo el problema, para llamar a los informes de EasyReport coloqué el código -prg de ejemplo y hay que enlazar los archivos vdr.prg,vdrbcode.prg, vdritem.prg a la aplicación.

Lo mejor sería fusionar los tres en un único archivo, vrd.prg, así no hay que hacer librerías.

¿Qué error o problemas te da?.

Muchas gracias.

Lucas , Antonio pensaba que no era operativo Ereport desde código cuando siempre a estado funcionando ... Hemos creado una lib , con los modulos que comentas para que sea mas facil de incorporar a los programas , pero es una buena idea unificarlo todo en un único archivo ... Cristobal ¿ que opinas ? ¿ lo pasamos todo a un archivo ?
Gracias por tu ayuda...

Manuel, Lucas, considero que de momento sería aconsejable dejarlo como está en tres ficheros distintos porque aún no sabemos si se ha de modificar algo en dichos ficheros, y, para depurar, sobre todo trabajando en equipo, creo que es más sencillo tenerlo organizado tal y como está.
La idea de unificarlo una vez tengamos claro que no se va a tocar, no me parece mal
La creación de la librería me parece también un gran aporte, a mi me gusta trabajar con librerias sobre todo porque trabajo en varios proyectos a la vez, asi evito duplicados o haber modificado un fuente y olvidar modificarlo en los demás proyectos, etc. Me obligo a crear las librerías. Ya sé que esta opinión es muy personal y que influye mucho la forma en que tienes organizados tus fuentes ( y la utilizacion de fuentes compartidos para varios proyectos ).

[cnavarro]

Cristobal . Estos dias ando con trabajuo atrasado asi que no podre poner demasiado codigo , para no interferirnos intentaré seguir con la parte que empecé ayer , para poder lanzar los reportes desde los programas sin necesidad del propio diseñador (por favor cambia el boton del preview para que se desabilite cuando tengas abierto un reporte y asi evitar que alguien repita lo que te paso a ti ayer...
quedo en espera de tu comentario respecto al tema del ancho ...

Ya he cambiado el comportamiento del boton Previsualizar, peeeeeero, prueba lo siguiente:
1.- Inicia la aplicacion y al solicitarte la seleccion de Report, pulsa Cancelar
2.- Pulsa sobre el boton de "Previsualizar"
3.- En el cuadro de Diálogo de Selección de Report, pulsa Cancelar (te saldrá el mensaje de que no has seleccionado documento)
4.- Intenta usar el menu o los bitmaps del oBar

No funcionan los bitmaps del oBar, no puedes salir y, si pulsas en la X de "Cerrar Ventana", el programa se te queda corriendo en memoria
Confírmame este comportamiento que te comento (yo uso Windows para intentar yo también echarle un vistazo si tú no tienes tiempo,
Gracias

[lucasdebeltran]

Hola Cristóbal,

Yo hace muchos años que lo fusioné en un único prg., y además hice modificaciones al respecto. Verás si abres los ficheros que son tres clases que están interrelacionadas como expliqué anteriormente.

No soy partidario de hacer libs porque van a dar guerra a los usuarios: diferentes versiones de Harbour y xHarbour, del compilador, 32 y 64 bytes, etc. Si ya hay usuarios que ya tienen problemas en customizar los make y a veces se han colado algún bug que impedía compilar que se solucionaba rápidamente, con las libs va a ver más problemas, frente a añadir a la aplicación un .prg, o incluso desde el main hacer #include "..\easyreport\vrd.prg". Pero todo ello por favor sin ningún ánimo de polemizar.

[cnavarro]

Lucas, sobre tus comentarios:
Totalmente de acuerdo
Lo único importante ahora para mí es lo que he comentado mientras se comprueba que no se van a realizar modificaciones sobre los ficheros
Por cierto, ¿puedes indicar las modificaciones que has realizado?
Gracias por tu comentario

[mastintin]

No funcionan los bitmaps del oBar, no puedes salir y, si pulsas en la X de "Cerrar Ventana", el programa se te queda corriendo en memoria
Confírmame este comportamiento que te comento (yo uso Windows para intentar yo también echarle un vistazo si tú no tienes tiempo,
Gracias

En Windows 7 pasa lo mismo .
Este cambio en el archivo erMain() arregla en tema

Code: Select all  Expand view  RUN

FUNCTION Print_erReport( cRptFile, cPrinter, nMode, oDlg )
.....
if Empty( cRptFile )
      cRptFile:=  GetFile( GL("Designer Files") + " (*.vrd)|*.vrd|" + ;
                              GL("All Files") + " (*.*)|*.*", GL("Open"), 1 )

   endif
   
   if Empty(cRptFile)    // añadido comprobar que se escoge un fichero valido
      Return .f.
   endif    
   
   oReport := ERStart():New(  cRptFile, cPrinter , oDlg )
   ......
 

[cnavarro]

Manuel, acabo de dar una posible solucion al tema del Folder derecho (subido)
Pruébalo por favor y me comentas
Espero que subas tu cambio para actualizar y probarlo

Pd.: a mi tampoco me gusta el bitmap que he puesto

-------------- EDITADO ---------------------------
Manuel, ya lo he probado y funciona bien
He hecho alguna modificacion
Como veo que no lo has subido lo subo ahora

------------------------- EDITADO ----------------

Ya está subido

[mastintin]

Manuel, acabo de dar una posible solucion al tema del Folder derecho (subido)
Pruébalo por favor y me comentas
Espero que subas tu cambio para actualizar y probarlo

Es una buena solución la del botón ( también es buena para el preview de fw ) ...
Pero tenemos un bug ... lanzas el programa , se despliega maximizado con el folder derecho correcto , pero cambiamos el tamaño de la ventana , el folder queda oculto pues queda fijo al ancho inicial cuando debería moverse .
Quizas así : ojo que no lo he probado pues estoy escribiendo desdee macosx..

Code: Select all  Expand view  RUN

....
 IF oER:lShowPanel

      oER:oPanelD := TPanel():New( 0.5, Int( ScreenWidth() - 2*328 ) + 2, ;
                              GetSysMetrics( 1 ) - 140 , Int( ScreenWidth() - 327 ), ;
                              oER:oMainWnd:oWndClient )
      oER:oPanelD:SetColor( , oER:nClrPaneTree )  //CLR_WHITE )
  oEr:oMainWnd:oRight  :=  oER:oPanelD  // añadido para mantener a la derecha
 ....
 

[mastintin]

me contesto a mi mismo . Esa solución no vale. He encontrado otra manera , pero pasa por quitar oPanel ...

Code: Select all  Expand view  RUN

......
 @ 0.5, 1 FOLDEREX oER:oFldD ;
        PROMPT GL("&Databases"), GL("&Expressions"), GL("&Fields"), GL("Fil&ters") ;
       OF  oEr:oMainWnd ;    // hacemos ofld hijo directo  de wndmain
       SIZE 326, GetSysMetrics( 1 ) - 138 ;
       OPTION 1 ;
       TAB HEIGHT 34 ;
        BITMAPS { "B_EDIT2", "B_ITEMLIST16", "B_AREA", "B_AREA" } ;
       PIXEL ;
       SEPARATOR 0

     oER:oFldD:SetColor(  , oEr:nClrPaneTree )  // color de panel
      oEr:oMainWnd:oRight  := oER:oFldD   // asignamos drecha.

.....


FUNCTION swichFldD(oWnd,oFld, lSetVisible  )

  LOCAL nWidth :=  GetSysMetrics( 1 ) - 1
  DEFAULT lSetVisible := !ofld:isVisible()
 

  IF lSetVisible
     ofld:show()
     oWnd:oRight:=ofld
  ELSE
     ofld:hide()
     oWnd:oRight:= NIL  
  ENDIF

  oWnd:resize()

RETURN nil

......

 DEFINE BUTTON RESOURCE "HIDE0", "HIDE1" ;
         PROMPT FWString( "Databases" ) ;
         OF oBar GROUP ;
         ACTION ( swichFldD( oEr:oMainWnd, oER:oFldD ) )
......

 DEFINE BUTTON aBtn[ 1 ] RESOURCE "B_PREVIEW", "B_PREVIEW", "B_PREVIEW1" ;
         OF oBar ;
         PROMPT FWString( "Preview" ) ;
         TOOLTIP GL("Preview") ;
         ACTION ( if( oER:oFldD:IsVisible(), oER:oFldD:Hide(), ), ;
                  if( !Print_erReport(,,2, oEr:oMainWnd ), swichFldD( oEr:oMainWnd, oER:oFldD ,.t.), ) );  
         WHEN Empty( oER:cDefIni )
.....