FiveTech Software tech support forums

Code: Select all  Expand view

 REPORT oReport TITLE " ",cTITLE+"   "+ dtoc(anfang)+" - "+dtoc(ende)," "  LEFT ;
            FONT   oFont1,;
            oFont2,;
            oFont3 ;
            PEN oPen1;
            HEADER Setup():LizenzNehmer()," ", ALLTRIM("Erstellt: " + dtoc(date())+ " - "+time()) RIGHT;
            FOOTER "Seite " + Str(oReport:nPage,3) RIGHT PREVIEW
 

Code: Select all  Expand view

oBrw:Report( cTitle, lPreview, lModal, { |oRep,oBrw,n| RepSetup( oRep, oBrw, n ) } )

...
...

function RepSetup( oRep, oBrw, n )

   oRep:bPostEnd := { || MyRepPostEnd( oRep ) }

return nil

function MyRepPostEnd( oRep )

< your code to add page at the end of report >

return nil
 

Code: Select all  Expand view

function MyRepPostEnd( oRep )

oRep:oFooter:aLine := Str(oRep:nPage,3)

return nil

can I get any example to add page on the bottom of oBrw:Report ?

Code: Select all  Expand view

oBrw:Report( "INTEST" .t., nil, { |oRep,oBrw,n| RepSetup( oRep, oBrw, n ) } , nil)

*-----------------------------------------------------------------------------------
function RepSetup( oRep, oBrw, n )

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

Code: Select all  Expand view

oBrw:Report( "INTEST" .t., nil, nil, nil)

Code: Select all  Expand view

REPORT oReport TITLE " ",cTITLE+"   "+ dtoc(anfang)+" - "+dtoc(ende)," "  LEFT ;
            FONT   oFont1,;
            oFont2,;
            oFont3 ;
            PEN oPen1;
            HEADER Setup():LizenzNehmer()," ", ALLTRIM("Erstellt: " + dtoc(date())+ " - "+time()) RIGHT;
            FOOTER "Page " + Str(oReport:nPage,3) RIGHT PREVIEW
 

Code: Select all  Expand view

@ 40, 10 GET oGet VAR mGet MEMO OF oDlg SIZE 450, 200 PIXEL