1 PACKAGE BODY FA_FASINSDR_XMLP_PKG AS
2 /* $Header: FASINSDRB.pls 120.0.12010000.1 2008/07/28 13:16:46 appldev ship $ */
3
4 function AfterReport return boolean is
5 begin
6
7 /*srw.user_exit('FND SRWEXIT');*/null;
8 return (TRUE);
9 end;
10
11 function BeforeReport return boolean is
12 begin
13
14 /*srw.user_exit('FND SRWINIT');*/null;
15
16
17 DECLARE
18
19 coaid NUMBER;
20 sobname VARCHAR2(30);
21 functcurr VARCHAR2(15);
22 errbuf VARCHAR2(132);
23
24 BEGIN
25
26
27 SELECT SOB.Set_Of_Books_ID,
28 SOB.name,
29 SC.Category_Flex_Structure,
30 BC.Book_Type_Code,
31 BC.book_class,
32 BC.Accounting_Flex_Structure,
33 SC.location_flex_structure,
34 BC.Distribution_Source_Book,
35 SOB.Currency_Code,
36 CR.Precision,
37 to_char(sysdate,'DD-MON-YYYY')
38 INTO C_SET_OF_BOOKS_ID,
39 C_SOB_NAME,
40 C_Cat_Flex_Struct,
41 C_Book_Type_Code,
42 C_book_class,
43 C_Acct_Flex_Struct,
44 C_locn_flex_struct,
45 C_Distribution_Source_Book,
46 C_Currency_Code,
47 C_Precision,
48 C_TODAYS_DATE
49 FROM FND_CURRENCIES CR,
50 FA_SYSTEM_CONTROLS SC,
51 GL_SETS_OF_BOOKS SOB,
52 FA_BOOK_CONTROLS BC
53
54 WHERE
55 BC.Book_Type_Code = P_ASSET_BOOK
56 AND SOB.Set_Of_Books_ID = BC.Set_Of_Books_ID
57 AND CR.CURRENCY_CODE= SOB.CURRENCY_CODE;
58
59
60 IF P_COMPANY_FROM is not null and
61 P_COMPANY_TO is not null then
62
63 /*SRW.REFERENCE(c_acct_flex_struct);*/null;
64
65
66 null;
67 C_ACCT_FLEX_BAL_WHERE := 'AND'||C_ACCT_FLEX_BAL_WHERE;
68 end if;
69 IF P_CATEGORY_FLEX_FROM is not null and
70 P_CATEGORY_FLEX_TO is not null then
71
72 /*SRW.REFERENCE(c_cat_flex_struct);*/null;
73
74
75 null;
76 C_WHERE_CAT_FLEX := 'AND'||C_WHERE_CAT_FLEX;
77 end if;
78
79
80 IF P_LOCATION_FLEX_FROM is not null and
81 P_LOCATION_FLEX_TO is not null then
82
83 /*SRW.REFERENCE(c_locn_flex_struct);*/null;
84
85
86 null;
87 C_WHERE_LOCN_FLEX := 'AND'||C_WHERE_LOCN_FLEX;
88 end if;
89
90 END;
91 return (TRUE);
92 end;
93
94 function C_1Formula return VARCHAR2 is
95 begin
96
97 c_no_data_found := 'N';
98 RETURN NULL; end;
99
100 --Functions to refer Oracle report placeholders--
101
102 Function c_acct_flex_struct_p return number is
103 Begin
104 return c_acct_flex_struct;
105 END;
106 Function c_acct_flex_bal_seg_p return varchar2 is
107 Begin
108 return c_acct_flex_bal_seg;
109 END;
110 Function c_cat_flex_struct_p return number is
111 Begin
112 return c_cat_flex_struct;
113 END;
114 Function c_where_cat_flex_p return varchar2 is
115 Begin
116 return c_where_cat_flex;
117 END;
118 Function c_cat_flex_seg_p return varchar2 is
119 Begin
120 return c_cat_flex_seg;
121 END;
122 Function C_SOB_NAME_p return varchar2 is
123 Begin
124 return C_SOB_NAME;
125 END;
126 Function c_book_class_p return varchar2 is
127 Begin
128 return c_book_class;
129 END;
130 Function c_book_type_code_p return varchar2 is
131 Begin
132 return c_book_type_code;
133 END;
134 Function c_distribution_source_book_p return varchar2 is
135 Begin
136 return c_distribution_source_book;
137 END;
138 Function C_currency_code_p return varchar2 is
139 Begin
140 return C_currency_code;
141 END;
142 Function c_precision_p return varchar2 is
143 Begin
144 return c_precision;
145 END;
146 Function c_locn_flex_struct_p return number is
147 Begin
148 return c_locn_flex_struct;
149 END;
150 Function c_loc_flex_seg_p return varchar2 is
151 Begin
152 return c_loc_flex_seg;
153 END;
154 Function c_where_locn_flex_p return varchar2 is
155 Begin
156 return c_where_locn_flex;
157 END;
158 Function c_acct_flex_bal_where_p return varchar2 is
159 Begin
160 return c_acct_flex_bal_where;
161 END;
162 Function C_NO_DATA_FOUND_p return varchar2 is
163 Begin
164 return C_NO_DATA_FOUND;
165 END;
166 Function C_TODAYS_DATE_p return varchar2 is
167 Begin
168 return C_TODAYS_DATE;
169 END;
170 Function C_WHERE_ASSET_NUMBER_p return varchar2 is
171 Begin
172 return C_WHERE_ASSET_NUMBER;
173 END;
174 END FA_FASINSDR_XMLP_PKG ;
175
[Home] [Help]