FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Number Total Pages
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Number Total Pages
Posted: Fri Jun 23, 2023 09:12 AM

on a Report from Xbrowse I use a function

I wisth show the total pages I tried with

LTrim( Str( Len( oRep:oDevice:oDevice:aMeta ) ) )

but not run

oBrw:Report( cTitle, , , ;

     { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aFields ) })

function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields )

local nTotalpages:=0 // LTrim( Str( Len( oRep:oDevice:oDevice:aMeta ) ) )

oRep:oheader := TrLine():New( {{||cTitle1},{||cTitle2} }, oRep, 0 )

oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina : "+Str(oRep:nPage,3)+"/"+Str(nTotalpages,3)} }, oRep, 2 )

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Number Total Pages
Posted: Fri Jun 23, 2023 10:35 AM
Maybe:
Code (fw): Select all Collapse
   ::nTotalPages := Round(::nCount/::nPageSize,0)
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Number Total Pages
Posted: Fri Jun 23, 2023 10:41 AM
karinha wrote:Maybe:
Code (fw): Select all Collapse
   ::nTotalPages := Round(::nCount/::nPageSize,0)
Regards, saludos.
Error description: Error BASE/1004 Message not found: TREPORT:NCOUNT
Args:
[ 1] = O TREPORT

Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TREPORT:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TREPORT:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TREPORT:NCOUNT( 0 )
Called from: ut_prn.prg => MYSETUP( 372 )



Error description: Error BASE/1004 Message not found: TREPORT:NPAGESIZE
Args:
[ 1] = O TREPORT

Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TREPORT:ERROR( 0 )
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion