[Home] [Help]
PACKAGE BODY: APPS.WIP_WIPUTACS_XMLP_PKG
Source
1 PACKAGE BODY WIP_WIPUTACS_XMLP_PKG AS
2 /* $Header: WIPUTACSB.pls 120.1 2008/01/31 12:53:43 npannamp noship $ */
3 FUNCTION LIMIT_DATES RETURN CHARACTER IS
4 LIMIT_DATES VARCHAR2(120);
5 BEGIN
6 IF (P_FROM_DATE IS NOT NULL) THEN
7 IF (P_TO_DATE IS NOT NULL) THEN
8 LIMIT_DATES := ' AND WT.transaction_date >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
9 ,'YYYYMMDD') || ''',''YYYYMMDD'')' || ' AND WT.transaction_date < TO_DATE(''' || TO_CHAR(P_TO_DATE + 1
10 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
11 ELSE
12 LIMIT_DATES := ' AND WT.transaction_date >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
13 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
14 END IF;
15 ELSE
16 IF (P_TO_DATE IS NOT NULL) THEN
17 LIMIT_DATES := ' AND WT.transaction_date < TO_DATE(''' || TO_CHAR(P_TO_DATE + 1
18 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
19 ELSE
20 LIMIT_DATES := ' ';
21 END IF;
22 END IF;
23 RETURN (LIMIT_DATES);
24 END LIMIT_DATES;
25
26 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
27 BEGIN
28 BEGIN
29 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
30
31 select FC.precision Precision into mprecision
32 from org_organization_definitions OOD
33 , gl_code_combinations L
34 , fnd_currencies FC
35 where OOD.organization_id = P_Organization_Id
36 and FC.currency_code = P_Currency_Code
37 and L.chart_of_accounts_id(+) = decode(1,2,ood.organization_id,P_STRUCT_NUM)
38 and L.code_combination_id(+) = NVL(P_Account,-1);
39
40 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
41 /*SRW.USER_EXIT('
42 FND FLEXSQL
43 CODE="GL#"
44 NUM=":P_STRUCT_NUM"
45 APPL_SHORT_NAME="SQLGL"
46 OUTPUT=":P_FLEXDATA"
47 TABLEALIAS="L"
48 MODE="SELECT"
49 DISPLAY="ALL"
50 ')*/NULL;
51 IF (P_PROJECT_ID IS NOT NULL) THEN
52 P_PROJECT_WHERE := 'WT.PROJECT_ID =' || P_PROJECT_ID;
53 END IF;
54 EXCEPTION
55 WHEN OTHERS THEN
56 /*SRW.MESSAGE(999
57 ,'FND FLEXSQL(MCAT) >X')*/NULL;
58 RAISE;
59 END;
60 LP_FROM_DATE:=to_char(P_FROM_DATE,'DD-MON-YYYY');
61 LP_TO_DATE:=to_char(P_TO_DATE,'DD-MON-YYYY');
62 RETURN TRUE;
63 END BEFOREREPORT;
64
65 FUNCTION AFTERREPORT RETURN BOOLEAN IS
66 BEGIN
67 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
68 RETURN (TRUE);
69 RETURN (TRUE);
70 END AFTERREPORT;
71
72 FUNCTION C_SUBTITLE_CURRENCYFORMULA RETURN VARCHAR2 IS
73 BEGIN
74 RETURN ('(' || P_CURRENCY_CODE || ')');
75 END C_SUBTITLE_CURRENCYFORMULA;
76
77 FUNCTION C_ACCT_DESCRIPFORMULA(C_FLEXDATA IN VARCHAR2
78 ,ACCOUNT IN VARCHAR2
79 ,C_ACCT_DESCRIP IN VARCHAR2) RETURN VARCHAR2 IS
80 BEGIN
81 BEGIN
82 /*SRW.REFERENCE(C_FLEXDATA)*/NULL;
83 /*SRW.REFERENCE(ACCOUNT)*/NULL;
84 RETURN (C_ACCT_DESCRIP);
85 END;
86 RETURN NULL;
87 END C_ACCT_DESCRIPFORMULA;
88
89 FUNCTION C_FLEX_SORTFORMULA(C_FLEXDATA IN VARCHAR2
90 ,ACCOUNT IN VARCHAR2
91 ,C_ACCT_DESCRIP IN VARCHAR2
92 ,C_FLEX_SORT IN VARCHAR2) RETURN VARCHAR2 IS
93 BEGIN
94 BEGIN
95 /*SRW.REFERENCE(C_FLEXDATA)*/NULL;
96 /*SRW.REFERENCE(ACCOUNT)*/NULL;
97 /*SRW.REFERENCE(C_ACCT_DESCRIP)*/NULL;
98 RETURN (C_FLEX_SORT);
99 END;
100 RETURN NULL;
101 END C_FLEX_SORTFORMULA;
102
103 FUNCTION AFTERPFORM RETURN BOOLEAN IS
104 BEGIN
105 IF P_ACCOUNT IS NOT NULL THEN
106 P_LIMIT_ACCOUNTS := 'and wa.reference_account = :P_Account';
107 END IF;
108 RETURN (TRUE);
109 END AFTERPFORM;
110
111 FUNCTION GET_PRECISION(QTY_PRECISION IN NUMBER) RETURN VARCHAR2 is
112 begin
113
114 if qty_precision = 0 then return('999G999G999G990');
115
116 elsif qty_precision = 1 then return('999G999G999G990D0');
117
118 elsif qty_precision = 3 then return('999G999G999G990D000');
119
120 elsif qty_precision = 4 then return('999G999G999G990D0000');
121
122 elsif qty_precision = 5 then return('999G999G999G990D00000');
123
124 elsif qty_precision = 6 then return('999G999G999G990D000000');
125
126 else return('999G999G999G990D00');
127
128 end if;
129
130 end;
131
132 END WIP_WIPUTACS_XMLP_PKG;
133