FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problemas con Rpreview
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Problemas con Rpreview
Posted: Sat Feb 05, 2011 09:37 AM
Hola a todos
Al revisar uno de mis programas, en la opci贸n informes al cliente le saco un preview del informe, noto algunos problemas
El primero, que los botones de la versi贸n 10.12 de previsualizar en Word, y salvar en pdf/doc no aparecen.
El segundo, el preview se esconde debajo de los di谩logos, pensaba que esto ya estaba solucionado.
El tercero, que al darle a salvar en formato doc da este error :
Error description: Error Word.Application:DOCUMENTS:ADD/0 S_OK: SAVEAS
Args:
[ 1] = C C:\DOCUMENTS AND SETTINGS\PEDRO\MIS DOCUMENTOS\INFORME.doc
[ 2] = N 16

Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:SAVEAS(0)
Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:SAVEAS(1576)
Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW:SAVEASMENU(1519)
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(470)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(648)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1489)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1450)
Called from: .\source\classes\WINDOW.PRG => _FWH(3408)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(992)
Called from: c:\PROYEC~1\Brinquis2\SOURCE\geshinic.prg => MAIN(96)


El cuarto, al aumentar el preview, algunas l铆neas escritas desaparecen,estan pero no se ven, y hace un efecto feo que al disminuir se quede el borde de la ventana del informe cuando se aument贸.

En otro orden de cosas, 驴por qu茅 ahora tengo que ir a todos los browses, hechos con xBrowse, y ponerle la picture a los campos fecha? si no se lo pongo me pinta la fecha como date time.
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problemas con Rpreview
Posted: Sun Feb 06, 2011 04:03 AM

El primero, que los botones de la versi贸n 10.12 de previsualizar en Word, y salvar en pdf/doc no aparecen.


Prev32.dll and Prev32sp.dll are changed in version 10.12. As clearly explained in the "whatsnew.txt", you need to redistribute the revised dlls along with the application.

El segundo, el preview se esconde debajo de los di谩logos, pensaba que esto ya estaba solucionado.

Can you please provide a self-contained example reproducing this behavior?

El tercero, que al darle a salvar en formato doc da este error :
Error description: Error Word.Application:DOCUMENTS:ADD/0 S_OK: SAVEAS
Args:
[ 1] = C C:\DOCUMENTS AND SETTINGS\PEDRO\MIS DOCUMENTOS\INFORME.doc
[ 2] = N 16

Please let us know the version of Word and OS of the PC, where this error is observed. Also plese try this modification in rpreview.prg and let us know if the error still continues.

For lines 1578 and 1579 in the rpreview.prg (10.12)
Code (fw): Select all Collapse
聽 聽 聽 oDoc:SaveAs( cFile, ;
聽 聽 聽 聽 聽If( nVer >= 12.0 .and. Lower( cFileExt( cFile ) ) == 'doc', 0, 16 ) )

Substitute these lines:
Code (fw): Select all Collapse
聽 聽 聽 if nVer >= 12.0
聽 聽 聽 聽 聽oDoc:SaveAs( cFile, If( Lower( cFileExt( cFile ) ) == 'doc', 0, 16 ) )
聽 聽 聽 else
聽 聽 聽 聽 聽oDoc:SaveAs( cFile )
聽 聽 聽 endif



El cuarto, al aumentar el preview, algunas l铆neas escritas desaparecen,estan pero no se ven, y hace un efecto feo que al disminuir se quede el borde de la ventana del informe cuando se aument贸.

We are unable to reproduce this behavior. Can you please provide a self contained sample code and screen-shot?


En otro orden de cosas, 驴por qu茅 ahora tengo que ir a todos los browses, hechos con xBrowse, y ponerle la picture a los campos fecha? si no se lo pongo me pinta la fecha como date time.

Consistent behavior of XBrowse since DateTime variables were introduced is to display datetime values in DateTime format if
(a) Date value contains time part also or
(b) oCol:cDataType = 'T'
(c) FieldType is 'T'
and to display dates in Date format in all other cases (most common cases).

You may compile and test this small sample code:
Code (fw): Select all Collapse
#include "fivewin.ch"
#include "xbrowse.ch"


function Main()

聽 聽SET DATE ITALIAN
聽 聽SET CENTURY ON

聽 聽XBROWSER "c:\fwh\samples\customer.dbf" COLUMNS "HireDate", "HireDate + .45"

return nil

ScreenShot:


First column is shown in simple dateformat since the values do no contain any datepart and second column is shown in datetime format since these values contain time-part also.
Regards



G. N. Rao.

Hyderabad, India
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Problemas con Rpreview
Posted: Sun Feb 06, 2011 09:40 AM
nageswaragunupudi wrote:Prev32.dll and Prev32sp.dll are changed in version 10.12. As clearly explained in the "whatsnew.txt", you need to redistribute the revised dlls along with the application.


Ok Nao, no me di cuenta que usaba el prev32.dll de la version 9.04

nageswaragunupudi wrote:Can you please provide a self-contained example reproducing this behavior?


En la l铆nea 455 del rpreview sigue estando la clausula MDICHILD, esto hace que el preview se esconda debajo de los dialogos cuando tienes una windowd mdichild debajo del dialogo.

nageswaragunupudi wrote:For lines 1578 and 1579 in the rpreview.prg (10.12)
CODE: SELECT ALL聽聽EXPAND VIEW

聽 聽 聽 oDoc:SaveAs( cFile, ;
聽 聽 聽 聽 聽If( nVer >= 12.0 .and. Lower( cFileExt( cFile ) ) == 'doc', 0, 16 ) )


Substitute these lines:
CODE: SELECT ALL聽聽EXPAND VIEW

聽 聽 聽 if nVer >= 12.0
聽 聽 聽 聽 聽oDoc:SaveAs( cFile, If( Lower( cFileExt( cFile ) ) == 'doc', 0, 16 ) )
聽 聽 聽 else
聽 聽 聽 聽 聽oDoc:SaveAs( cFile )
聽 聽 聽 endif 聽 聽 聽



Ok hecho y funciona

nageswaragunupudi wrote:Consistent behavior of XBrowse since DateTime variables were introduced is to display datetime values in DateTime format if
(a) Date value contains time part also or
(b) oCol:cDataType = 'T'
(c) FieldType is 'T'
and to display dates in Date format in all other cases (most common cases).


Si pongo un xBrowse
Code (fw): Select all Collapse
oLbx := TXBrowse():New( oWChild ) 

聽 聽 oLbx:nMarqueeStyle 聽 聽 聽 := MARQSTYLE_HIGHLCELL 
聽 聽 oLbx:nColDividerStyle 聽 聽:= LINESTYLE_BLACK 
聽 聽 oLbx:nRowDividerStyle 聽 聽:= LINESTYLE_BLACK 
聽 聽 oLbx:lColDividerComplete := .t. 

聽 聽 oLbx:SetRDD() 

聽 聽 for nFor := 1 to len( oLbx:aCols ) 
聽 聽 聽 聽 oCol := oLbx:aCols[ nFor ] 
聽 聽 聽 聽 oCol:nEditType := 0 
聽 聽 聽 聽 oCol:blDClickData := {|| CtrPaciente(ID_MOD,oDPacien) }
聽 聽 next 
聽 聽 oLbx:l2007 := (.t.)
聽 聽 oLbx:bClrStd := { || If( ( (oLbx:cAlias)->(OrdKeyNo()) % 2 ) == 0, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) } 
聽 聽 oLbx:CreateFromCode() 
聽 聽 oWChild:oClient := oLbx

En la columnas con fecha, sale con date time, he de poner oLbx:aCols[x]:cEditPicture:= "@D" para que la pinte sin la hora

nageswaragunupudi wrote:El cuarto, al aumentar el preview, algunas l铆neas escritas desaparecen,estan pero no se ven, y hace un efecto feo que al disminuir se quede el borde de la ventana del informe cuando se aument贸.

We are unable to reproduce this behavior. Can you please provide a self contained sample code and screen-shot?



Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problemas con Rpreview
Posted: Fri Feb 11, 2011 04:51 PM

Mr. Pedro

Thanks for the screen shots. The problem is clear. Hope this will be fixed soon.

Regards



G. N. Rao.

Hyderabad, India
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con Rpreview
Posted: Tue Jul 23, 2013 08:43 PM
He buscado por el foro y me he encontado este post:

nageswaragunupudi wrote:El cuarto, al aumentar el preview, algunas l铆neas escritas desaparecen,estan pero no se ven, y hace un efecto feo que al disminuir se quede el borde de la ventana del informe cuando se aument贸.

We are unable to reproduce this behavior. Can you please provide a self contained sample code and screen-shot?





Este mismo efecto me ocurre a mi.
驴C贸mo se puede solucionar?
Gracias
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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problemas con Rpreview
Posted: Wed Jul 24, 2013 02:18 PM
Pedro, Cristobal,

Tal vez sea porque en la resoluci贸n de mi ordenador no se vea la imagen completa, pero no aprecio cual es el error al que os referis. A la derecha deber铆a verse una barra de scroll con la que poder desplazarse por el documento.

En cuanto al uso de una ventana MDICHILD, se hacen estas tres comprobaciones:

1. Que el preview no sea MODAL.
2. Que exista una ventana principal
3. Que esa ventana principal sea MDI.

Se entiende que en un entorno MDI lo l贸gico es que la previsualizaci贸n aparezca como MDICHILD, pero si le especificas la cl谩usula MODAL entonces deber铆a aparecerte por encima de todo. Tu decides si quieres integrarlo como una ventana MDICHILD m谩s 贸 no permitirle al usuario hacer algo m谩s. Una ventana MDICHILD _no_ se puede situar por encima de un di谩logo. Windows no lo permite.

Code (fw): Select all Collapse
   if !::oDevice:lPrvModal .and. ::oWndMain != nil .and. ;
      Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"
      DEFINE WINDOW ::oWnd ;
         TITLE cTitle ;
         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;
         ICON  oIcon                        ;
         VSCROLL HSCROLL MDICHILD
   else
      DEFINE WINDOW ::oWnd /*FROM 0, 0 TO 24, 80*/  ;
         TITLE cTitle ;
         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;
         ICON  oIcon                        ;
         VSCROLL HSCROLL MENU ::BuildMenu()
   endif
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problemas con Rpreview
Posted: Wed Jul 24, 2013 03:08 PM

In the above screenshots, two red arrows refer to two problems.
Bottom red arrow refers to a problem that a black line (shadow line) is shown longer than the width of the page. This was happening when we zoom and unzoom.
I may inform that this bug was already fixed and we do not have the problem with the present versions.

I have no answer for the problem pointed by the top red arrow. I have never seen it happening with me in my applications.

Regards



G. N. Rao.

Hyderabad, India
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Problemas con Rpreview
Posted: Wed Jul 24, 2013 03:13 PM

Utiliza esta data:
oPrn:lPrvModal := .t.

de esta forma siempre aparecera encima de los oDlg, o oWnd.

saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con Rpreview
Posted: Wed Jul 24, 2013 04:18 PM
He usado las imagenes que en su momento puso Pedro en Febrero del 2011 que encontre en el foro con el mismo problema que yo tenia

Yo uso la version de FWH 12.03

Adjunto imagenes del preview en una mdichild que es lo que necesito

El problema es que cuando hago zoom y unzoom aparecen las lineas verticales y horizontales negras (se ve en la tercera imagen)


Bottom red arrow refers to a problem that a black line (shadow line) is shown longer than the width of the page. This was happening when we zoom and unzoom.
I may inform that this bug was already fixed and we do not have the problem with the present versions.


Si minimizo y maximizo la aplicacion desaparecen las lineas negras
Imaginaba que ese efecto est谩 solucionado. Preguntaba como se solucion贸.
Gracias

If I maximize the application I minimize and black lines disappear
I imagined that this effect is solved. He asked as solved.
thanks







Cesar, lo probare
Gracias
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
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Problemas con Rpreview
Posted: Wed Jul 24, 2013 07:10 PM

Crist贸bal,

Se ve muy bonito.

驴Qu茅 estilo usas en la barra de botones?. Se parece mucho al look Windows 8 ;)-

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.
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con Rpreview
Posted: Wed Jul 24, 2013 07:42 PM
Lucas, si te refieres al preview
Code (fw): Select all Collapse
聽 聽if IsAppThemed() .and. ! l2007
聽 聽 聽 DEFINE IMAGELIST oImageList SIZE 16, 16

Como ves, ninguno, pero SI se est谩 ejecutando bajo Windows 8, y es el propio codigo de la clase, como sabes.
Pero yo no noto mucha diferencia al ejecutarlo bajo Win 7.
En el resto de la aplicacion, tampoco (todos los controles intento que tengan la apariencia mas "plana" , por ejemplo los xbrowse del menu izdo.)
Adjunto una imagen de un mantenimiento, como ves, el estilo lo mas simple posible, por si te sirve de algo.

Muchas gracias por tus palabras
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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problemas con Rpreview
Posted: Thu Jul 25, 2013 01:50 PM

Cristobal,

Veo que usas un control outlook a la izquierda y MDI.

Usas la funci贸n NoGPF() 贸 encontrastes una soluci贸n ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con Rpreview
Posted: Thu Jul 25, 2013 03:44 PM
Antonio,
No es un control Outlook, son dos xbrowses, uno encima de otro sobre un TPanel
El 95% de la aplicacion se desarrolla sobre ambiente MDI

驴Usas la funci贸n NoGPF() 贸 encontrastes una soluci贸n ?

No entiendo a lo que te refieres
Gracias y un saludo
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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con Rpreview
Posted: Thu Jul 25, 2013 11:04 PM
sysctrl2 wrote:Utiliza esta data:
oPrn:lPrvModal := .t.

de esta forma siempre aparecera encima de los oDlg, o oWnd.

saludos.


Gracias Cesar
No soluciona el problema.
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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con Rpreview
Posted: Fri Jul 26, 2013 08:45 AM
nageswaragunupudi wrote:In the above screenshots, two red arrows refer to two problems.
Bottom red arrow refers to a problem that a black line (shadow line) is shown longer than the width of the page. This was happening when we zoom and unzoom.
I may inform that this bug was already fixed and we do not have the problem with the present versions.


Antonio, Mr. Rao
En qu茅 version se soluciono el problema ?
Gracias
Saludos

Antonio, Mr. Rao
Which version will fix the problem?
thanks
regards
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