topic-26812

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: RPreview más reciente
Posted: Sat Jul 20, 2013 07:28 PM

Antonio Linares wrote:Elvira,

gracias a ti por tus sugerencias y aportaciones que estas haciendo

Si nos guiamos por la estética de Windows 8, la actual toolbar que usa FWH se ve más "plana" que una rebar. La tendencia es eliminar degradados en superficies pequeñas y que se vean "planas".

+1

Aunque lo de la Ribbon para sustituir el menu en vista de posibles ampliaciones me parece muy adecuado

Saludos

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

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: RPreview más reciente
Posted: Sat Jul 20, 2013 07:38 PM

+1

prev32pt-br.dll

FWH2008 | xHarbour | BCC74 | SQLRDD

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: RPreview más reciente
Posted: Sat Jul 20, 2013 08:12 PM

Elvira,

Cuando generas un pdf, usas un nombre temporal ( por ejemplo usando cTempFile( "", "pdf" ) ), le preguntas por el nombre, ó usas el titulo del reporte ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: RPreview más reciente
Posted: Sat Jul 20, 2013 08:14 PM

oReport:cName + ".pdf" parece lo más adecuado...

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: RPreview más reciente
Posted: Sat Jul 20, 2013 09:14 PM

Se me olvidó comentar antes que el preview de FWH detecta si la barra de botones de la ventana principal usa el estilo 2007 ó 2010 y automaticamente lo implementa tambien en el preview, en cuyo caso se ve asi

regards, saludos

Antonio Linares
www.fivetechsoft.com

elvira

Posts: 518

Joined: Fri Jun 29, 2012 12:49 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 07:13 AM

Antonio,

Cuando genero el PDF le pido el usuario el nombre.

Cuando envío el informe por e-mail, lo convierto a PDF y le pongo al PDF un nombre temporal, añadiendo al título del Report la fecha y la hora como nombre del archivo PDF.

Por favor, ¿no te gusta más el icono de Word que te enviíe?.

¿Podrías añadir Exportar a Excel?.

No uso una barra de botones en la WndMain, sino una Ribbon estilo 2010, y ahora 2013.

Muy agradecida.

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 03:58 PM

Antonio:

Con la versión 1306 no logro ver el número de páginas.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 05:46 PM

Armando,

No aparece cuando el reporte solo tiene una página. De todas formas lo he modificado asi, pues creo que debe mostrarse siempre para evitar confusión en el usuario:

en rpreview.prg

Code (fw): Select all Collapse

   if nStyle >= 2007
      oBar:bPainted = { || oBar:Say( nRow, nCol, "Factor:",,, ::oFont, .T., .T. ),;
                           oBar:Say( nRow, nCol+100, ::cPageNum + LTrim( Str( ::nPage, 4, 0 ) ) + " / " + ;
                           LTrim( Str( Len( ::oDevice:aMeta ) ) ),,, ::oFont, .T., .T. ) }

   endif

Code (fw): Select all Collapse

   if nStyle < 2007
      @ nRow, nCol + 100 SAY ::oPage PROMPT TXT_PAGENUM + LTrim( Str( ::nPage, 4, 0 ) ) + " / " + ;
        LTrim( Str( Len( ::oDevice:aMeta ) ) ) ;
        SIZE 180, 15 PIXEL OF ::oBar FONT ::oFont
      ::oPage:lTransparent = .T.
   endif

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 05:55 PM

Elvira,

Implementado como lo has solicitado:

He implementado un nuevo método SendEmail() en la Clase TPreview asi:

Code (fw): Select all Collapse

METHOD SendEmail() CLASS TPreview

   local oMail
   local cName := ::oReport:cName + " " + DtoS( Date() ) + ;
                  StrTran( Time(), ":", "" ) + ".pdf"

   FWSavePreviewToPDF( Self, cName, .F. )

   DEFINE MAIL oMail ;
      SUBJECT ::oReport:cName ;
      TEXT "" ;
      FILES cName, cName ;
      FROM USER 

   ACTIVATE MAIL oMail

   // MsgInfo( oMail:nRetCode )
   
   ::oWnd:GoTop()

   MsgInfo( "set the focus here" ) // how ?

return nil

Me he encontrado el problema de que el foco no vuelve al preview, de momento se corrige con ese MsgInfo() pero lo suyo sería que no tenga que usarse. Como lo habeis hecho vosotros ? gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 07:14 PM

Antonio:

Vaya que este post dio mucha cuerda , voy haciendo los cambios pero tú vas a velocidad vertiginosa,
podrías publicar el RPreview.Prg más reciente?, incluso creo que los PrevXX,Dll han cambiado.

Saludos y muchas gracias por el apoyo

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 07:22 PM

Antonio, gracias
Otro buen motivo para actualizarse.

Peticiones futuras, de ser posible, y asi lo consideras:

Panel lateral para ver en miniaturas los EMF
Poder salvar el/los fichero/s EMF y poder recuperarlos.

Saludos

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

lucasdebeltran

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 07:54 PM

Antonio,

Excelentes cambios, enhorabuena.

Me sumo a la petición de modernizar la barra del Preview.

Prueba con SetFocus( oWnd )

Un saludo

PD. Cuando esté listo, por favor no olvides actualizar prev64.dll

Asimismo, el prev64sp.dll está en inglés también, en vez de castellano.

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

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: RPreview más reciente
Posted: Sun Jul 21, 2013 08:54 PM

Me uno al post ....
Yo no uso la dll externa , sino que incluyo todo dentro del propio programa como recursos , asi que tengo la clase modificada para que no me tome ninguna dll con una data Extra..
DATA lDll INIT .t.
lDll := .f. si quiero que no use la dll
lDll:= .t. si quiero el comportamiento estandar .
No sé si esto interesaría a muchos, pero es tonto de implementar si alguien quiere no tener que suministrar la dll e incluirlos en los recursos del propio programa .

Por cierto yo uso dos impresoras , una laser y una de tinta y si que existen diferencias en lo que imprime , pero son mínimas , si eres consciente de eso el metodo sirve.

Otra cosa curiosa en una de las impresoras ( una laser brother ) ,la funcion que devuelve el ancho de la impresora ( ¿ devicecaps ? si mi memoria no falla ) me devuelve un ancho de 18 cm , cuando la impresora imprime perfectamante el ancho de un dina4 , asi que los cálculos de posicion basados en el ancho de la página salen mal. ¿ Pasa a mas gente esto ? .
Saludos a todos.

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: RPreview más reciente
Posted: Mon Jul 22, 2013 03:32 AM

Holas,

este rpreview https://app.box.com/shared/8lhxyymtga lo hice ya unos años atras, implementa miniaturas y una lupa pulsando el boton derecho sobre el reporte

saludos

Marcelo

lucasdebeltran

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: RPreview más reciente
Posted: Mon Jul 22, 2013 07:50 AM

Antonio,

Una precisión, por favor.

El estilo de la barra y de los menús del rpreview.prg debe tomarse, no desde la barra de WndMain porque puede que el programador no use barra en WndMain, sino desde el estilo del menú principal.

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.

FiveTech Support Forums