1 PACKAGE BODY WIP_WIPMTLCT_XMLP_PKG AS
2 /* $Header: WIPMTLCTB.pls 120.1 2008/01/31 12:29:25 npannamp noship $ */
3 FUNCTION LIMIT_JOBS RETURN CHARACTER IS
4 LIMIT_JOBS VARCHAR2(500);
5 BEGIN
6 IF (P_FROM_JOB_ID IS NOT NULL) THEN
7 IF (P_TO_JOB_ID IS NOT NULL) THEN
8 LIMIT_JOBS := ' AND WE.wip_entity_name BETWEEN ''' || P_FROM_JOB_ID || ''' AND ''' || P_TO_JOB_ID || '''';
9 ELSE
10 LIMIT_JOBS := ' AND WE.wip_entity_name >= ''' || P_FROM_JOB_ID || '''';
11 END IF;
12 ELSE
13 IF (P_TO_JOB_ID IS NOT NULL) THEN
14 LIMIT_JOBS := ' AND WE.wip_entity_name <= ''' || P_TO_JOB_ID || '''';
15 ELSE
16 LIMIT_JOBS := ' ';
17 END IF;
18 END IF;
19 RETURN (LIMIT_JOBS);
20 END LIMIT_JOBS;
21
22 FUNCTION LIMIT_LINES RETURN CHARACTER IS
23 LIMIT_LINES VARCHAR2(500);
24 BEGIN
25 IF (P_FROM_LINE IS NOT NULL) THEN
26 IF (P_TO_LINE IS NOT NULL) THEN
27 LIMIT_LINES := ' AND WL.line_code BETWEEN ''' || P_FROM_LINE || ''' AND ''' || P_TO_LINE || '''';
28 ELSE
29 LIMIT_LINES := ' AND WL.line_code >= ''' || P_FROM_LINE || '''';
30 END IF;
31 ELSE
32 IF (P_TO_LINE IS NOT NULL) THEN
33 LIMIT_LINES := ' AND WL.line_code <= ''' || P_TO_LINE || '''';
34 ELSE
35 LIMIT_LINES := ' ';
36 END IF;
37 END IF;
38 RETURN (LIMIT_LINES);
39 END LIMIT_LINES;
40
41 FUNCTION LIMIT_ASSEMBLYFORMULA RETURN VARCHAR2 IS
42 BEGIN
43 BEGIN
44 IF (P_FLEXWHERE IS NOT NULL) THEN
45 RETURN ('AND ');
46 ELSE
47 RETURN (' ');
48 END IF;
49 END;
50 RETURN ' ';
51 END LIMIT_ASSEMBLYFORMULA;
52
53 FUNCTION LIMIT_DEPARTMENTS RETURN CHARACTER IS
54 LIMIT_DEPARTMENTS VARCHAR2(500);
55 BEGIN
56 IF (P_FROM_DEPARTMENT_ID IS NOT NULL) THEN
57 IF (P_TO_DEPARTMENT_ID IS NOT NULL) THEN
58 LIMIT_DEPARTMENTS := ' AND DE.department_code BETWEEN ''' || P_FROM_DEPARTMENT_ID || ''' AND ''' || P_TO_DEPARTMENT_ID || '''';
59 ELSE
60 LIMIT_DEPARTMENTS := ' AND DE.department_code >= ''' || P_FROM_DEPARTMENT_ID || '''';
61 END IF;
62 ELSE
63 IF (P_TO_DEPARTMENT_ID IS NOT NULL) THEN
64 LIMIT_DEPARTMENTS := ' AND DE.department_code <= ''' || P_TO_DEPARTMENT_ID || '''';
65 ELSE
66 LIMIT_DEPARTMENTS := ' ';
67 END IF;
68 END IF;
69 RETURN (LIMIT_DEPARTMENTS);
70 END LIMIT_DEPARTMENTS;
71
72 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
73 BEGIN
74 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
75 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
76 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
77 APPL_SHORT_NAME="INV",
78 OUTPUT=":P_ASSY_FLEX"
79 MODE="SELECT"
80 DISPLAY="ALL"
81 TABLEALIAS="MSI"')*/NULL;
82 IF (P_FROM_ASSEMBLY_ID IS NOT NULL) THEN
83 IF (P_TO_ASSEMBLY_ID IS NOT NULL) THEN
84 NULL;
85 ELSE
86 NULL;
87 END IF;
88 ELSE
89 IF (P_TO_ASSEMBLY_ID IS NOT NULL) THEN
90 NULL;
91 END IF;
92 END IF;
93 RETURN (TRUE);
94 RETURN (TRUE);
95 END BEFOREREPORT;
96
97 FUNCTION AFTERREPORT RETURN BOOLEAN IS
98 BEGIN
99 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
100 RETURN (TRUE);
101 RETURN (TRUE);
102 END AFTERREPORT;
103
104 FUNCTION C_ORDER1 RETURN CHARACTER IS
105 C_ORDER1 VARCHAR2(80);
106 BEGIN
107 IF (P_SORT = 1) THEN
108 C_ORDER1 := 'ORDER BY WE.wip_entity_name, ';
109 ELSE
110 IF (P_SORT = 2) THEN
111 C_ORDER1 := 'ORDER BY ';
112 ELSE
113 IF (P_SORT = 3) THEN
114 C_ORDER1 := 'ORDER BY DE.department_code, ';
115 ELSE
116 IF (P_SORT = 4) THEN
117 C_ORDER1 := 'ORDER BY WL.line_code, ';
118 END IF;
119 END IF;
120 END IF;
121 END IF;
122 RETURN (C_ORDER1);
123 END C_ORDER1;
124
125 FUNCTION C_ORDER2 RETURN CHARACTER IS
126 C_ORDER2 VARCHAR2(80);
127 BEGIN
128 IF (P_SORT = 1) THEN
129 C_ORDER2 := ', WL.line_code, WO.operation_seq_num';
130 ELSE
131 IF (P_SORT = 2) THEN
132 C_ORDER2 := ', WE.wip_entity_name, WL.line_code, WO.operation_seq_num';
133 ELSE
134 IF (P_SORT = 3) THEN
135 C_ORDER2 := ', WE.wip_entity_name, WO.operation_seq_num';
136 ELSE
137 IF (P_SORT = 4) THEN
138 C_ORDER2 := ', WE.wip_entity_name, WO.operation_seq_num';
139 END IF;
140 END IF;
141 END IF;
142 END IF;
143 RETURN (C_ORDER2);
144 END C_ORDER2;
145
146 FUNCTION C_ASSY_ORDER RETURN CHARACTER IS
147 C_ASSY_ORDER VARCHAR2(850);
148 BEGIN
149 C_ASSY_ORDER := 'Assembly';
150 RETURN (C_ASSY_ORDER);
151 END C_ASSY_ORDER;
152
153 FUNCTION C_SORT_LIST RETURN CHARACTER IS
154 C_SORT_LIST VARCHAR2(80);
155 BEGIN
156 IF (P_SORT = 1) THEN
157 C_SORT_LIST := 'Job/Schedule, Assembly, Line, OpSeq';
158 ELSE
159 IF (P_SORT = 2) THEN
160 C_SORT_LIST := 'Assembly, Job/Schedule, Line, OpSeq';
161 ELSE
162 IF (P_SORT = 3) THEN
163 C_SORT_LIST := 'Department, Assembly, Job/Schedule, OpSeq';
164 ELSE
165 IF (P_SORT = 4) THEN
166 C_SORT_LIST := 'Line, Assembly, Job/Schedule, OpSeq';
167 END IF;
168 END IF;
169 END IF;
170 END IF;
171 RETURN (C_SORT_LIST);
172 END C_SORT_LIST;
173
174 FUNCTION AFTERPFORM RETURN BOOLEAN IS
175 BEGIN
176 RETURN (TRUE);
177 END AFTERPFORM;
178
179 END WIP_WIPMTLCT_XMLP_PKG;
180
[Home] [Help]