1 PACKAGE BODY PO_POXSUCAT_XMLP_PKG AS
2 /* $Header: POXSUCATB.pls 120.1 2007/12/25 12:27:11 krreddy noship $ */
3
4 USER_EXIT_FAILURE EXCEPTION;
5
6 function BeforeReport return boolean is
7 begin
8
9 BEGIN
10
11 P_PO_CREATION_DATE_FROM := P_CREATION_DATE_FROM;
12 P_PO_CREATION_DATE_TO := P_CREATION_DATE_TO;
13
14 /*SRW.USER_EXIT('FND SRWINIT');*/null;
15
16 if (get_p_struct_num <> TRUE )
17 then /*SRW.MESSAGE('1','Init failed');*/null;
18
19 end if;
20
21
22
23
24
25 null;
26
27 null;
28 RETURN TRUE;
29 END; return (TRUE);
30 end;
31
32 function get_p_struct_num return boolean is
33
34 l_p_struct_num number;
35
36 begin
37 select structure_id
38 into l_p_struct_num
39 from mtl_default_sets_view
40 where functional_area_id = 2 ;
41
42 P_STRUCT_NUM := l_p_struct_num ;
43
44 return(TRUE) ;
45
46 RETURN NULL; exception
47 when others then return(FALSE) ;
48 end;
49
50 function AfterReport return boolean is
51 begin
52
53 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
54
55 return (TRUE);
56 end;
57
58 function P_creation_date_toValidTrigger return boolean is
59 begin
60
61
62 IF (P_Creation_Date_To IS NOT null) THEN
63 P_Creation_Date_To := fnd_date.displaydt_to_date(
64 fnd_date.date_to_displaydate(P_Creation_Date_To)
65 || '23:59:59');
66 END IF;
67 return (TRUE);
68 end;
69
70 function P_PO_CREATION_DATE_TOValidTrig return boolean is
71 begin
72
73 return (TRUE);
74 end;
75
76 function AfterPForm return boolean is
77 begin
78
79
80
81
82
83
84 IF (P_Creation_Date_From IS NOT null AND
85 P_Creation_Date_To IS NOT null) THEN
86
87 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
88 AND trunc(poh.creation_date)
89 BETWEEN :P_PO_Creation_Date_From
90 AND :P_PO_Creation_Date_To';
91
92 ELSE
93 IF (P_Creation_Date_From IS NOT null) THEN
94 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
95 AND trunc(poh.creation_date) >= :P_PO_Creation_Date_From';
96 ELSIF (P_Creation_Date_To IS NOT null) THEN
97 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
98 AND trunc(poh.creation_date) <= :P_PO_Creation_Date_To';
99 END IF;
100 END IF;
101
102
103 IF (P_Vendor_From IS NOT null AND P_Vendor_To IS NOT null) THEN
104 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
105 AND pov.vendor_name
106 BETWEEN :P_Vendor_From AND :P_Vendor_To';
107 ELSE
108 IF (P_Vendor_From IS NOT null) THEN
109 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
110 AND pov.vendor_name >= :P_Vendor_From';
111 ELSIF (P_Vendor_To IS NOT null) THEN
112 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
113 AND pov.vendor_name <= :P_Vendor_To';
114 END IF;
115 END IF;
116
117
118 IF (P_Buyer_From IS NOT null AND P_Buyer_To IS NOT null) THEN
119 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
120 AND ppf.full_name BETWEEN
121 :P_Buyer_From AND :P_Buyer_To';
122 ELSE
123 IF (P_Buyer_From IS NOT null) THEN
124 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
125 AND ppf.full_name >= :P_Buyer_From';
126 ELSIF (P_Buyer_To IS NOT null) THEN
127 WHERE_PERFORMANCE := WHERE_PERFORMANCE || '
128 AND ppf.full_name <= :P_Buyer_To';
129 END IF;
130 END IF;
131
132 If WHERE_PERFORMANCE is null then
133 WHERE_PERFORMANCE:= 'and 1=1';
134 end if;
135 return (TRUE);
136
137 end;
138
139 --Functions to refer Oracle report placeholders--
140 function P_PO_CREATION_DATE_FROM_p return date is
141 begin
142
143 return P_PO_CREATION_DATE_FROM;
144 end;
145
146
147 function P_PO_CREATION_DATE_TO_p return date is
148 begin
149
150 return P_PO_CREATION_DATE_TO;
151 end;
152
153 END PO_POXSUCAT_XMLP_PKG ;
154