1 PACKAGE BODY WIP_WIPMTDLT_XMLP_PKG AS
2 /* $Header: WIPMTDLTB.pls 120.0 2007/12/24 10:02:04 npannamp noship $ */
3 function BeforeReport return boolean is
4 begin
5 P_FROM_DATE1:=to_char(P_FROM_DATE,'DD-MON-YY');
6 P_TO_DATE1:=to_char(P_TO_DATE,'DD-MON-YY');
7 return (TRUE);
8 end;
9 FUNCTION LIMIT_JOBS RETURN CHARACTER IS
10 LIMIT_JOBS VARCHAR2(500);
11 BEGIN
12 IF (P_FROM_JOB IS NOT NULL) THEN
13 IF (P_TO_JOB IS NOT NULL) THEN
14 LIMIT_JOBS := ' AND WE.wip_entity_name BETWEEN ''' || P_FROM_JOB || ''' AND ''' || P_TO_JOB || '''';
15 ELSE
16 LIMIT_JOBS := ' AND WE.wip_entity_name >= ''' || P_FROM_JOB || '''';
17 END IF;
18 ELSE
19 IF (P_TO_JOB IS NOT NULL) THEN
20 LIMIT_JOBS := ' AND WE.wip_entity_name <= ''' || P_TO_JOB || '''';
21 ELSE
22 LIMIT_JOBS := ' ';
23 END IF;
24 END IF;
25 RETURN (LIMIT_JOBS);
26 END LIMIT_JOBS;
27
28 FUNCTION LIMIT_ASSEMBLYFORMULA RETURN VARCHAR2 IS
29 BEGIN
30 BEGIN
31 IF (P_FLEXWHERE IS NOT NULL) THEN
32 RETURN ('AND ');
33 ELSE
34 RETURN (' ');
35 END IF;
36 END;
37 RETURN NULL;
38 END LIMIT_ASSEMBLYFORMULA;
39
40 FUNCTION LIMIT_LOTS RETURN CHARACTER IS
41 LIMIT_LOTS VARCHAR2(500);
42 BEGIN
43 IF (P_FROM_LOT IS NOT NULL) THEN
44 IF (P_TO_LOT IS NOT NULL) THEN
45 LIMIT_LOTS := ' AND DJ.lot_number BETWEEN ''' || P_FROM_LOT || ''' AND ''' || P_TO_LOT || '''';
46 ELSE
47 LIMIT_LOTS := ' AND DJ.lot_number >= ''' || P_FROM_LOT || '''';
48 END IF;
49 ELSE
50 IF (P_TO_LOT IS NOT NULL) THEN
51 LIMIT_LOTS := ' AND DJ.lot_number <= ''' || P_TO_LOT || '''';
52 ELSE
53 LIMIT_LOTS := ' ';
54 END IF;
55 END IF;
56 RETURN (LIMIT_LOTS);
57 END LIMIT_LOTS;
58
59 FUNCTION SORT_OPTION RETURN CHARACTER IS
60 SORT_OPTION VARCHAR2(80);
61 BEGIN
62 IF (P_SORT = 1) THEN
63 SORT_OPTION := 'ORDER BY WE.wip_entity_name, DJ.lot_number';
64 ELSE
65 IF (P_SORT = 2) THEN
66 SORT_OPTION := 'ORDER BY DJ.lot_number, WE.wip_entity_name';
67 END IF;
68 END IF;
69 RETURN (SORT_OPTION);
70 END SORT_OPTION;
71
72 FUNCTION LIMIT_DATES RETURN CHARACTER IS
73 LIMIT_DATES VARCHAR2(120);
74 BEGIN
75 IF (P_FROM_DATE IS NOT NULL) THEN
76 IF (P_TO_DATE IS NOT NULL) THEN
77 LIMIT_DATES := ' AND TRUNC(DJ.date_released) BETWEEN TO_DATE(''' || TO_CHAR(P_FROM_DATE
78 ,'YYYYMMDD') || ''',''YYYYMMDD'') AND TO_DATE(''' || TO_CHAR(P_TO_DATE
79 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
80 ELSE
81 LIMIT_DATES := ' AND TRUNC(DJ.date_released) >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
82 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
83 END IF;
84 ELSE
85 IF (P_TO_DATE IS NOT NULL) THEN
86 LIMIT_DATES := ' AND TRUNC(DJ.date_released) <= TO_DATE(''' || TO_CHAR(P_TO_DATE
87 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
88 ELSE
89 LIMIT_DATES := ' ';
90 END IF;
91 END IF;
92 RETURN (LIMIT_DATES);
93 END LIMIT_DATES;
94
95 FUNCTION AFTERREPORT RETURN BOOLEAN IS
96 BEGIN
97 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
98 RETURN (TRUE);
99 RETURN (TRUE);
100 END AFTERREPORT;
101
102 FUNCTION C_SORT_SUM RETURN CHARACTER IS
103 C_SORT_SUM VARCHAR2(80);
104 BEGIN
105 IF (P_SORT = 1) THEN
106 C_SORT_SUM := 'Job';
107 ELSE
108 IF (P_SORT = 2) THEN
109 C_SORT_SUM := 'Lot';
110 ELSE
111 C_SORT_SUM := 'Illegal sort';
112 END IF;
113 END IF;
114 RETURN (C_SORT_SUM);
115 END C_SORT_SUM;
116
117 FUNCTION C_COMP_ORDERFORMULA(C_ASSY_FLEX IN VARCHAR2
118 ,COMPONENT IN VARCHAR2
119 ,C_COMP_ORDER IN VARCHAR2) RETURN VARCHAR2 IS
120 BEGIN
121 BEGIN
122 /*SRW.REFERENCE(C_ASSY_FLEX)*/NULL;
123 /*SRW.REFERENCE(COMPONENT)*/NULL;
124 RETURN (C_COMP_ORDER);
125 END;
126 RETURN NULL;
127 END C_COMP_ORDERFORMULA;
128
129 FUNCTION AFTERPFORM RETURN BOOLEAN IS
130 BEGIN
131 IF P_ASSEMBLY IS NOT NULL THEN
132 P_OUTER := ' ';
133 END IF;
134 RETURN (TRUE);
135 END AFTERPFORM;
136
137 END WIP_WIPMTDLT_XMLP_PKG;
138
139