1 PACKAGE BODY WIP_WIPTSMOV_XMLP_PKG AS
2 /* $Header: WIPTSMOVB.pls 120.1 2008/01/31 13:12:02 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_FROM_DATE1 := TO_CHAR(P_FROM_DATE,'DD-MON-YY');
7 P_TO_DATE1 := TO_CHAR(P_TO_DATE,'DD-MON-YY');
8 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9 QTY_PRECISION:=wip_common_xmlp_pkg.get_precision(P_QTY_PRECISION);
10 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
11 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
12 APPL_SHORT_NAME="INV" OUTPUT=":P_FLEXDATA"
13 MODE="SELECT" DISPLAY="ALL" TABLEALIAS="MSI"')*/NULL;
14 IF (P_FROM_ASSEMBLY IS NOT NULL) THEN
15 IF (P_TO_ASSEMBLY IS NOT NULL) THEN
16 NULL;
17 ELSE
18 NULL;
19 END IF;
20 ELSE
21 IF (P_TO_ASSEMBLY IS NOT NULL) THEN
22 NULL;
23 END IF;
24 END IF;
25 RETURN TRUE;
26 END;
27 RETURN (TRUE);
28 END BEFOREREPORT;
29
30 FUNCTION LIMIT_DATES RETURN CHARACTER IS
31 LIMIT_DATES VARCHAR2(150);
32 BEGIN
33 IF (P_FROM_DATE IS NOT NULL) THEN
34 IF (P_TO_DATE IS NOT NULL) THEN
35 LIMIT_DATES := ' AND WT.transaction_date >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
36 ,'YYYYMMDD') || ''',''YYYYMMDD'')' || ' AND WT.transaction_date < TO_DATE(''' || TO_CHAR(P_TO_DATE + 1
37 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
38 ELSE
39 LIMIT_DATES := ' AND WT.transaction_date >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
40 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
41 END IF;
42 ELSE
43 IF (P_TO_DATE IS NOT NULL) THEN
44 LIMIT_DATES := ' AND WT.transaction_date < TO_DATE(''' || TO_CHAR(P_TO_DATE + 1
45 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
46 ELSE
47 LIMIT_DATES := ' ';
48 END IF;
49 END IF;
50 RETURN (LIMIT_DATES);
51 END LIMIT_DATES;
52
53 FUNCTION LIMIT_JOBS RETURN CHARACTER IS
54 LIMIT_JOBS VARCHAR2(500);
55 BEGIN
56 IF (P_FROM_JOB IS NOT NULL) THEN
57 IF (P_TO_JOB IS NOT NULL) THEN
58 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME BETWEEN ''' || REPLACE(P_FROM_JOB
59 ,''''
60 ,'''''') || ''' AND ''' || REPLACE(P_TO_JOB
61 ,''''
62 ,'''''') || '''';
63 ELSE
64 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME >= ''' || REPLACE(P_FROM_JOB
65 ,''''
66 ,'''''') || '''';
67 END IF;
68 ELSE
69 IF (P_TO_JOB IS NOT NULL) THEN
70 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME <= ''' || REPLACE(P_TO_JOB
71 ,''''
72 ,'''''') || '''';
73 ELSE
74 LIMIT_JOBS := ' ';
75 END IF;
76 END IF;
77 RETURN (LIMIT_JOBS);
78 END LIMIT_JOBS;
79
80 FUNCTION LIMIT_LINES RETURN CHARACTER IS
81 LIMIT_LINES VARCHAR2(80);
82 BEGIN
83 IF (P_FROM_LINE IS NOT NULL) THEN
84 IF (P_TO_LINE IS NOT NULL) THEN
85 LIMIT_LINES := ' AND WL.LINE_CODE BETWEEN ''' || P_FROM_LINE || ''' AND ''' || P_TO_LINE || ''' ';
86 ELSE
87 LIMIT_LINES := ' AND WL.LINE_CODE >= ''' || P_FROM_LINE || ''' ';
88 END IF;
89 ELSE
90 IF (P_TO_LINE IS NOT NULL) THEN
91 LIMIT_LINES := ' AND WL.LINE_CODE <= ''' || P_TO_LINE || ''' ';
92 ELSE
93 LIMIT_LINES := ' ';
94 END IF;
95 END IF;
96 RETURN (LIMIT_LINES);
97 END LIMIT_LINES;
98
99 FUNCTION LIMIT_REASONS RETURN CHARACTER IS
100 LIMIT_REASONS VARCHAR2(120);
101 BEGIN
102 IF (P_FROM_REASON IS NOT NULL) THEN
103 IF (P_TO_REASON IS NOT NULL) THEN
104 LIMIT_REASONS := ' AND MTR.REASON_NAME BETWEEN ''' || P_FROM_REASON || ''' AND ''' || P_TO_REASON || ''' ';
105 ELSE
106 LIMIT_REASONS := ' AND MTR.REASON_NAME >= ''' || P_FROM_REASON || ''' ';
107 END IF;
108 ELSE
109 IF (P_TO_REASON IS NOT NULL) THEN
110 LIMIT_REASONS := ' AND MTR.REASON_NAME <= ''' || P_TO_REASON || ''' ';
111 ELSE
112 LIMIT_REASONS := ' ';
113 END IF;
114 END IF;
115 RETURN (LIMIT_REASONS);
116 END LIMIT_REASONS;
117
118 FUNCTION C_LIMIT_DATESFORMULA RETURN VARCHAR2 IS
119 BEGIN
120 RETURN (LIMIT_DATES);
121 END C_LIMIT_DATESFORMULA;
122
123 FUNCTION C_LIMIT_REASONSFORMULA RETURN VARCHAR2 IS
124 BEGIN
125 RETURN (LIMIT_REASONS);
126 END C_LIMIT_REASONSFORMULA;
127
128 FUNCTION C_LIMIT_LINESFORMULA RETURN VARCHAR2 IS
129 BEGIN
130 RETURN (LIMIT_LINES);
131 END C_LIMIT_LINESFORMULA;
132
133 FUNCTION C_LIMIT_JOBSFORMULA RETURN VARCHAR2 IS
134 BEGIN
135 RETURN (LIMIT_JOBS);
136 END C_LIMIT_JOBSFORMULA;
137
138 FUNCTION C_LIMIT_ASSEMBLIESFORMULA RETURN VARCHAR2 IS
139 BEGIN
140 BEGIN
141 IF (P_FLEXWHERE IS NOT NULL) THEN
142 RETURN ('AND ');
143 ELSE
144 RETURN (' ');
145 END IF;
146 END;
147 RETURN NULL;
148 END C_LIMIT_ASSEMBLIESFORMULA;
149
150 FUNCTION AFTERREPORT RETURN BOOLEAN IS
151 BEGIN
152 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
153 RETURN (TRUE);
154 END AFTERREPORT;
155
156 FUNCTION C_FLEX_SORTFORMULA(C_FLEX_SORT IN VARCHAR2) RETURN VARCHAR2 IS
157 BEGIN
158 RETURN (C_FLEX_SORT);
159 END C_FLEX_SORTFORMULA;
160
161 FUNCTION AFTERPFORM RETURN BOOLEAN IS
162 BEGIN
163 RETURN (TRUE);
164 END AFTERPFORM;
165
166 END WIP_WIPTSMOV_XMLP_PKG;
167
168