1 PACKAGE BODY WIP_WIPUTOAC_XMLP_PKG AS
2 /* $Header: WIPUTOACB.pls 120.1 2008/01/31 12:55:07 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 /*SRW.USER_EXIT('FND FLEXSQL CODE="GL#" NUM=":P_STRUCT_NUM"
8 APPL_SHORT_NAME="SQLGL", OUTPUT=":P_M_ACCT_FLEX"
9 MODE="SELECT" DISPLAY="ALL" TABLEALIAS="GCC1"')*/NULL;
10 IF (P_FROM_ACCOUNT IS NOT NULL) THEN
11 IF (P_TO_ACCOUNT IS NOT NULL) THEN
12 NULL;
13 ELSE
14 NULL;
15 END IF;
16 ELSE
17 IF (P_TO_ACCOUNT IS NOT NULL) THEN
18 NULL;
19 END IF;
20 END IF;
21 RETURN (TRUE);
22 RETURN (TRUE);
23 END BEFOREREPORT;
24
25 FUNCTION AFTERREPORT RETURN BOOLEAN IS
26 BEGIN
27 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
28 RETURN (TRUE);
29 END AFTERREPORT;
30
31 FUNCTION LIMIT_DATES RETURN CHARACTER IS
32 LIMIT_DATES VARCHAR2(120);
33 BEGIN
34 IF (P_FROM_DATE IS NOT NULL) THEN
35 IF (P_TO_DATE IS NOT NULL) THEN
36 LIMIT_DATES := ' AND WT.transaction_date >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
37 ,'YYYYMMDD') || ''',''YYYYMMDD'')' || ' AND WT.transaction_date < TO_DATE(''' || TO_CHAR(P_TO_DATE + 1
38 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
39 ELSE
40 LIMIT_DATES := ' AND WT.transaction_date >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
41 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
42 END IF;
43 ELSE
44 IF (P_TO_DATE IS NOT NULL) THEN
45 LIMIT_DATES := ' AND WT.transaction_date < TO_DATE(''' || TO_CHAR(P_TO_DATE + 1
46 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
47 ELSE
48 LIMIT_DATES := ' ';
49 END IF;
50 END IF;
51 RETURN (LIMIT_DATES);
52 END LIMIT_DATES;
53
54 FUNCTION C_LIMIT_ACCOUNTSFORMULA RETURN VARCHAR2 IS
55 BEGIN
56 BEGIN
57 IF (P_ACCT_WHERE IS NOT NULL) THEN
58 RETURN ('AND ');
59 ELSE
60 RETURN (' ');
61 END IF;
62 END;
63 RETURN NULL;
64 END C_LIMIT_ACCOUNTSFORMULA;
65
66 FUNCTION C_SUBTITLE_CURRENCYFORMULA(C_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
67 BEGIN
68 RETURN ('(' || C_CURRENCY_CODE || ')');
69 END C_SUBTITLE_CURRENCYFORMULA;
70
71 FUNCTION C_D_ACCT_SORTFORMULA(C_D_ACCT_SORT IN VARCHAR2) RETURN VARCHAR2 IS
72 BEGIN
73 RETURN (C_D_ACCT_SORT);
74 END C_D_ACCT_SORTFORMULA;
75
76 FUNCTION C_M_ACCT_SORTFORMULA(C_M_ACCT_FLEX IN VARCHAR2
77 ,C_M_ACCT_FIELD IN VARCHAR2
78 ,C_M_ACCT_SORT IN VARCHAR2) RETURN VARCHAR2 IS
79 BEGIN
80 /*SRW.REFERENCE(C_M_ACCT_FLEX)*/NULL;
81 /*SRW.REFERENCE(C_M_ACCT_FIELD)*/NULL;
82 RETURN (C_M_ACCT_SORT);
83 END C_M_ACCT_SORTFORMULA;
84
85 FUNCTION AFTERPFORM RETURN BOOLEAN IS
86 BEGIN
87 RETURN (TRUE);
88 END AFTERPFORM;
89
90 END WIP_WIPUTOAC_XMLP_PKG;
91