[Home] [Help]
PACKAGE BODY: APPS.AP_APXCMINV_XMLP_PKG
Source
1 PACKAGE BODY AP_APXCMINV_XMLP_PKG AS
2 /* $Header: APXCMINVB.pls 120.0 2007/12/27 07:36:29 vjaganat noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*srw.user_exit('FND SRWINIT');*/null;
8
9 IF (p_debug_switch = 'Y') THEN
10 /*SRW.MESSAGE('1','After SRWINIT');*/null;
11
12 END IF;
13
14
15 LP_DATE_FROM:=TO_CHAR(P_DATE_FROM,'DD-MON-YY');
16 LP_DATE_TO:=TO_CHAR(P_DATE_TO,'DD-MON-YY');
17
18 select gl.name, gl.set_of_books_id, gl.chart_of_accounts_id
19 into P_NAME, P_SET_OF_BOOKS_ID, P_CHART_OF_ACCOUNTS_ID
20 from gl_sets_of_books gl, ap_system_parameters ap
21 where gl.set_of_books_id = ap.set_of_books_id;
22
23 IF (p_debug_switch = 'Y') THEN
24 /*SRW.MESSAGE('2','After Ledger id, chart of accounts id');*/
25 null;
26
27 END IF;
28
29
30
31 if P_VENDOR_FROM IS NULL and P_VENDOR_TO IS NULL
32 then C_VENDOR := ' ';
33 elsif P_VENDOR_FROM IS NOT NULL and P_VENDOR_TO IS NOT NULL
34
35
36 then C_VENDOR := 'and upper(po1.vendor_name) >='
37 ||''''||upper(REPLACE(P_VENDOR_FROM,'''',''''''))||''''||'and
38 upper(po1.vendor_name) <='||''''||upper(REPLACE(P_VENDOR_TO,'''',''''''))||'''';
39 /*srw.message(101,C_VENDOR);*/null;
40
41 elsif P_VENDOR_FROM IS NOT NULL
42 then C_VENDOR := 'and upper(po1.vendor_name) >='
43 ||''''||upper(REPLACE(P_VENDOR_FROM,'''',''''''))||'''';
44 else C_VENDOR := 'and upper(po1.vendor_name) <='
45 ||''''||upper(REPLACE(P_VENDOR_TO,'''',''''''))||'''';
46 end if;
47
48
49
50 if P_DATE_FROM is Null and P_DATE_TO is Null
51 then C_DATE := ' ';
52 elsif P_DATE_FROM is not Null and P_DATE_TO is not Null
53 then C_DATE := 'and i.invoice_date >=
54 '''||to_char(P_DATE_FROM)||''' and i.invoice_date <=
55 '''||to_char(P_DATE_TO)||''' ';
56 elsif P_DATE_FROM is not Null
57 then
58 C_DATE := 'and i.invoice_date >='''||to_char(P_DATE_FROM)||''' ';
59 else
60 C_DATE := 'and i.invoice_date <='''||to_char(P_DATE_TO)||''' ';
61 end if;
62
63
64
65 DECLARE
66 init_failure EXCEPTION;
67 BEGIN
68
69 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
70 END IF;
71
72 IF (p_debug_switch = 'Y') THEN
73 /*SRW.MESSAGE('3','After get_base_curr_data');*/null;
74
75 END IF;
76
77 RETURN (TRUE);
78
79 EXCEPTION
80
81 WHEN OTHERS THEN
82 /* RAISE_application_error(-20101,null);SRW.PROGRAM_ABORT;*/
83
84 null;
85
86 END;
87
88 return (TRUE);
89 end;
90
91 FUNCTION get_base_curr_data RETURN BOOLEAN IS
92
93 base_curr ap_system_parameters.base_currency_code%TYPE; prec fnd_currencies_vl.precision%TYPE; min_au fnd_currencies_vl.minimum_accountable_unit%TYPE; descr fnd_currencies_vl.description%TYPE;
94 BEGIN
95
96 base_curr := '';
97 prec := 0;
98 min_au := 0;
99 descr := '';
100
101 SELECT p.base_currency_code,
102 c.precision,
103 nvl(c.minimum_accountable_unit,0),
104 c.description
105 INTO base_curr,
106 prec,
107 min_au,
108 descr
109 FROM ap_system_parameters p,
110 fnd_currencies_vl c
111 WHERE p.base_currency_code = c.currency_code;
112
113 c_base_currency_code := base_curr;
114 c_base_precision := prec;
115 c_base_min_acct_unit := nvl(min_au,0);
116 c_base_description := descr;
117
118 RETURN (TRUE);
119
120
121 RETURN NULL; EXCEPTION
122
123 WHEN OTHERS THEN
124 RETURN (FALSE);
125
126 END;
127
128 function AfterReport return boolean is
129 begin
130
131 BEGIN
132 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
133
134 IF (P_DEBUG_SWITCH = 'Y') THEN
135 /*SRW.MESSAGE('4','After SRWEXIT');*/null;
136
137 END IF;
138 EXCEPTION
139 WHEN OTHERS THEN
140 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
141
142 END; return (TRUE);
143 end;
144
145 --Functions to refer Oracle report placeholders--
146
147 Function C_VENDOR_p return varchar2 is
148 Begin
149 return C_VENDOR;
150 END;
151 Function C_DATE_p return varchar2 is
152 Begin
153 return C_DATE;
154 END;
155 Function C_BASE_CURRENCY_CODE_p return varchar2 is
156 Begin
157 return C_BASE_CURRENCY_CODE;
158 END;
159 Function C_BASE_MIN_ACCT_UNIT_p return number is
160 Begin
161 return C_BASE_MIN_ACCT_UNIT;
162 END;
163 Function C_BASE_PRECISION_p return number is
164 Begin
165 return C_BASE_PRECISION;
166 END;
167 Function C_BASE_DESCRIPTION_p return varchar2 is
168 Begin
169 return C_BASE_DESCRIPTION;
170 END;
171 END AP_APXCMINV_XMLP_PKG ;
172
173