Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

printint only at last page a margin field in reports oracle 6.0

Status
Not open for further replies.

Nockle22

Programmer
Nov 2, 2010
2
IT
thread442-1207328

you must create a hidden field in which enter the current code in format trigger

function F_1FormatTrigger return boolean is
begin
declare
appo number := 1;
begin
SRW.GET_PAGE_NUM(appo);
if appo >= Global_Page_Num.GV_TOT_PAGES then
SRW.GET_PAGE_NUM(Global_Page_Num.GV_TOT_PAGES);

--SRW.MESSAGE(0,'GV_TOT_PAGES is '||to_char(Global_Page_Num.GV_TOT_PAGES));
--SRW.MESSAGE(0,'appo is '||appo);
--SRW.MESSAGE(0,'VEDI');
return (TRUE);
else

--SRW.MESSAGE(0,'GV_TOT_PAGES is '||to_char(Global_Page_Num.GV_TOT_PAGES));
--SRW.MESSAGE(0,'appo is '||appo);
--SRW.MESSAGE(0,'NON VEDI');
return (FALSE);
end if;
end;
end;

where Global_Page_Num is ...

Package Global_Page_Num IS
GV_TOT_PAGES number := 1;
END;

and

PACKAGE BODY Global_Page_Num IS
END;

entered in program units section

after in the field you must manage you enter the current code in format trigger...

function F_DV_ATOT_FormatT return boolean is
begin

DECLARE PAGE_NUM NUMBER;
begin
srw.get_page_num (page_num);
if page_num < Global_Page_Num.GV_TOT_PAGES then
return(false);
else
return(true);
end if;
end;
end;

Bye
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top