01.
function AfterPForm return boolean is
02.
03.
begin
04.
05.
IF (:p_acct_from IS NOT NULL and :p_acct_to IS NOT NULL) then
06.
:P_ACCT_SQL :=
07.
ELSE
08.
:P_ACCT_SQL :=
09.
END IF;
10.
IF (:p_cc_from IS NOT NULL and :p_cc_to IS NOT NULL) then
11.
:P_CC_SQL :=
12.
ELSE
13.
:P_CC_SQL :=
14.
END IF;
15.
IF (:p_int_comp_from IS NOT NULL and :p_int_comp_to IS NOT NULL) then
16.
:P_INT_COMP_SQL :=
17.
ELSE
18.
:P_INT_COMP_SQL :=
19.
END IF;
20.
IF (:p_proj_from IS NOT NULL and :p_proj_to IS NOT NULL) then
21.
:P_PROJ_SQL :=
22.
ELSE
23.
:P_PROJ_SQL :=
24.
END IF;
25.
return (TRUE);
26.
end;