FiveTech Software tech support forums

... 1 ]:aMenuItems[ 1 ]:bAction:hMenu, oMnu:hMenu
if !Empty( oMnu )
if oMnu:nLimit > 0
( Alias( nAr ) )->( DbGoTo( ( oMnu:nLimit * oMnu:nPage ) + 1 ) )
if ( Alias( nAr ) )->( !Eof() )
oMnu:nPage++
aItems := oMnu:aMenuItems
x := 0
Do While ( Alias( nAr ) )->( !Eof() )
x++
if x ...

... cTitulo PREVIEW;
HEADER ALLTRIM(oApp:cRazonSocial),;
"",;
cTitulo CENTER;
TITLE "Fecha: "+Date2Txt(DATE(),,,,,,),;
"Página:"+STR(oReporte:nPage,3);
FONT oFont1,oFont2,oFont3;
PEN oPen1

COLUMN TITLE "","Folio" DATA oRsDet:Fields("DET_FOL"):Value SIZE 5 RIGHT PICTURE "@Z 9999999"
COLUMN ...

... local cFooter := "Progetto Magazzino - "
local cTitle1 := "title row 1"
local cTitle2 := "title row 2"

local nTotalpages:= oRep:oDevice:cLastPage


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



I tried and run ok

thanks Rao

Is It possible also with treport?

Yes
Where you write page number, write something like this:
"Page : " + cValToChar( nPage ) + ;
" of " + oRep:oDevice:cLastPage

Nages,
There is something not run ok on Treport

https://i.postimg.cc/WzYHVtyx/kk.png

I made

oRep:oTitle := TrLine():New ...

How I can calculate on Report ( class Treport) the total number of pages ?


local nTotalpages:= ?

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

I tried also with nTotalpages:=:= Round(oRep:nCount/oRep:nPageSize,0)
thanks

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

... last result

but i still have problems
1) the stripes don't have the pajama effect, they are all grey
2) does not recognize "Page : "+Str(oRep:nPage,3)
3) the title line needs to be narrower

oBrw:Report( "Stampa elenco", nil, nil, { | oRep, oBrw, n| RepSetUp( oRep, oBrw, n ) })



static ...

Hola Amigos.

Tengo un reporte realizado con REPORT, el cual se imprime en hoja nueva por cada GROUP, necesito que al cambiar de GROUP, el nPage comience en 1.

Muchos Saludos

Antonio

Dejo el codigo:
Static Function InfTAte(Tit,cNom) Local cTi1,cTi2,oPen1,oPen2,oFo1,oFo2,oFo3,oLine,oFo4 ...

... Elenco Categorie",.T.,,bSetUp )

Endif


function MyRepSetup( oRep, oBrw, n ,llandscape)

?llandscape // here is nil

if llandscape
oRep:lAutoLand := .T.
else
oRep:lAutoLand := .f.
Endif

oRep:CellView()
oRep:oFooter := TrLine():New( {{|| "Page : "+Str(oRep:nPage,3)} }, oRep, 3 )

return nil

... Entregador ==> " + Alltrim(vEntregador),"Todos os Entregadores") CENTERED;
FONT oFont1, oFont2, oFont3;
FOOTER OemToAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED;
PREVIEW


IF vDetalhado == .T.
oReport:lSummary := .F.
ELSE
oReport:lSummary := .T.
ENDIF

COLUMN TITLE "Entregador" ;
DATA ...

... DE CLIENTES (NUMERICO)" ;
FONT oFont1, oFont2 ;
HEADER "Fecha: " + DToC( Date() ) , "Hora.: " + Time() ;
FOOTER "Página: " + Str( oReport:nPage, 3 ) ;
PREVIEW NAME "Clientes" ;
CAPTION "Clientes"
COLUMN TITLE "NRO.","IVA";
DATA cliente,if(str(sit_iva,1) $"12345",xtipiva[sit_iva],"") FONT ...

... no es "FOTOS" PRINT/ENDPRINT se controla desde atrás y es aquí donde se produce el error.

Function printafoto(oImage,base)
LOCAL cz:=lz:=""
Local nPage:=X:=1
Local nHz:=0
*Local oImage
Local oPrn
IF BASE="FOTOS"
PRINT oprn NAME "GRAFICOS" preview
DEFINE FONT oFont1 NAME "MS SANSERIF" Size 0, -10 ...

... cSocio,"","RUT "+cRut;
HEADER "SINDICATO DE TRABAJADORES HONORARIOS",;
"Fecha: "+Dtoc(Date()),;
"Hora : "+Time() LEFT ;
FOOTER "Pag "+Str(oLis:nPage,3) CENTERED;
CAPTION "Boletas de Medicamentos";
PREVIEW

COLUMN TITLE "FECHA" DATA Boletas->FECHA

COLUMN TITLE "Nº BOLETA" DATA Boletas->NUM_BOL ...

... oLis TITLE "BOLETAS DE "+cSocio,"","RUT "+cRut;
HEADER "SINDICATO",;
"Fecha: "+Dtoc(Date()),;
"Hora : "+Time() LEFT ;
FOOTER "Pag "+Str(oLis:nPage,3) CENTERED;
CAPTION "Boletas";
PREVIEW

COLUMN TITLE "FECHA" DATA Boletas->FECHA

COLUMN TITLE "Nº BOLETA" DATA Boletas->NUM_BOL

COLUMN TITLE ...

... HEADER "Data: " + DTOC( DATE() ) ,;
"stabilimento bagno" ,;
"stabilimento bagno" ,;
"1234567890" LEFT ;
FOOTER "Pagina: " + STR( ::oReport:nPage, 3 ) RIGHT ;
PREVIEW



and now seem print ok as you can see here ...very very strange

https://i.postimg.cc/28WrXbcL/rr.png ...