FiveTech Software tech support forums

... Here again we start with oRs := oCn:RowSet( <table>, nRows ) nRows is treated as the pagesize ( oRs:nPageStep ) After this we can use oRs:NextPage(), oRs:PrevPage(), oRs:GoToPage( n ) as required. Parameters: It is also possible to deal with different logical parts of the table based on ...

... while opening the rowset, which can be changed later in the program. DATAS nPageStep, nCurrentPage, nMaxPages METHOS FirstPage(), PrevPage(), NextPage(), LastPage(), GoToPage( nPage ) These datas and methods are self-explantory. It is also possible to alternate the usage of paging and ReadNext() ...

... oWndMain METHOD New( oDevice ) METHOD Activate() METHOD BuildButtonBar() METHOD BuildWindow() METHOD BuildMenu() METHOD PaintMeta() METHOD NextPage() METHOD PrevPage() METHOD TopPage() METHOD BottomPage() METHOD TwoPages( lMenu ) METHOD Zoom( lMenu ) METHOD VScroll( nType, lPage, nSteps ...

... ACTION PrevPage() ; TOOLTIP Strtran(TXT_PREVIOUS,"&","") ; MESSAGE TXT_GOTO_PREVIOUS_PAGE DEFINE TBBUTTON OF oBar ; ACTION NextPage() ; TOOLTIP Strtran(TXT_NEXT,"&","") ; MESSAGE TXT_GOTO_NEXT_PAGE DEFINE TBBUTTON OF oBar ; ACTION BottomPage() ; TOOLTIP ...

... para el resto no hace nada, ni siquiera quita el zoom. He colocado el rpreview en fuente en el programa, y he colocado msginfo en Paintmeta, NextPage, y Bottompage de esta manera METHOD PaintMeta() CLASS TPreview local oCoors1, oCoors2 local aFiles := ::oDevice:aMeta // DEVICE local nWidth, ...

... he pasado todo a la función CMSAY, y ha funcionado. Ahora viene lo bueno y esto va para Antonio, el rpreview me falla en la función BottomPage() y NextPage(). En ambas funciones ::oDevice:aMeta debería traer un valor de 4 ( en mi listado ) sin embargo cuando ya ha pasado de la función PaintMeta() ...

... TBBUTTON OF oBar ; ACTION PrevPage() ; TOOLTIP Strtran(TXT_PREVIOUS,"&","") ; MESSAGE TXT_GOTO_PREVIOUS_PAGE DEFINE TBBUTTON OF oBar ; ACTION NextPage() ; TOOLTIP Strtran(TXT_NEXT,"&","") ; MESSAGE TXT_GOTO_NEXT_PAGE DEFINE TBBUTTON OF oBar ; ACTION BottomPage() ; TOOLTIP Strtran(TXT_LAST,"&","") ...

... numeración y siempre se queda en la página 1/n. Hemos solucionado esto en el rpreview.prg quitando la instrucción oBar:Refresh() en las funciones NextPage(), PrevPage().... Saludos José Luis Izquierdo http://www.ipgsoft.com

Antonio, it works. I've just found that in the NextPage() PrevPage() (etc.) functions, the oPage (say) is updated with the new page value, and the background is lost. If I FixSays() as soon as oPage is updated, when clicking the "Next" button, the ...

... CODE 0009:2824 00249H MSGGET CODE 0009:2A6E 00C7CH RPREVIEW CODE 0009:36EA 0042DH BUILDMENU CODE 0009:3B18 002B3H PAINTMETA CODE 0009:3DCC 00100H NEXTPAGE CODE 0009:3ECC 000FCH PREVPAGE CODE 0009:3FC8 000F9H TOPPAGE CODE 0009:40C2 000DDH BOTTOMPAGE CODE 0009:41A0 001DBH TWOPAGES CODE 0009:437C ...

... CODE 0009:2824 00249H MSGGET CODE 0009:2A6E 00C7CH RPREVIEW CODE 0009:36EA 0042DH BUILDMENU CODE 0009:3B18 002B3H PAINTMETA CODE 0009:3DCC 00100H NEXTPAGE CODE 0009:3ECC 000FCH PREVPAGE CODE 0009:3FC8 000F9H TOPPAGE CODE 0009:40C2 000DDH BOTTOMPAGE CODE 0009:41A0 001DBH TWOPAGES CODE 0009:437C ...

... /All When by accident press the button LastPage on the Reprot Preview toolbal an error occurs and the program quits. The same happens and with the NextPage Button. This happens if we have only one page to preview / print. Error Log for the Last Page Error occurance folows: Application =========== ...

... CODE 0009:8266 00040H ZOOM CODE 0009:82A6 001C6H ZOOM CODE 0009:846C 00C73H RPREVIEW CODE 0009:90E0 00286H PAINTMETA CODE 0009:9366 00100H NEXTPAGE CODE 0009:9466 000FCH PREVPAGE CODE 0009:9562 000F9H TOPPAGE CODE 0009:965C 000DDH BOTTOMPAGE CODE 0009:973A 001DBH TWOPAGES CODE 0009:9916 ...