| 64 |
jtweddle |
1 |
<%
|
|
|
2 |
'===================================================================
|
|
|
3 |
' Explorer Common
|
|
|
4 |
'===================================================================
|
|
|
5 |
%>
|
|
|
6 |
<!--#include file="../class/classTemplateManager.asp"-->
|
|
|
7 |
<!--#include file="../class/classCrumbs.asp"-->
|
|
|
8 |
<!--#include file="../class/classActionButtonControl.asp"-->
|
|
|
9 |
<!--#include file="../class/classPopupMenuControl.asp"-->
|
|
|
10 |
<!--#include file="../class/classFormater.asp"-->
|
|
|
11 |
<!--#include file="../class/classRepeater.asp"-->
|
|
|
12 |
<!--#include file="../controls/ERGFormComponent/classFormComponent.asp"-->
|
|
|
13 |
<%
|
|
|
14 |
'------------ VARIABLE DEFINITION -------------
|
|
|
15 |
Dim objTemplateManager
|
|
|
16 |
Dim objBomCollector
|
|
|
17 |
Dim objBtnControl
|
|
|
18 |
Dim objFormater
|
|
|
19 |
Dim objFormComponent
|
|
|
20 |
Dim objRepeater
|
|
|
21 |
Dim aTabBtnsDef
|
|
|
22 |
'Dim dbPARproj_id, dbPARbranch_id
|
|
|
23 |
'------------ CONSTANTS DECLARATION -----------
|
|
|
24 |
Const enumBOM_EDITMODE = "<img src='icons/bi_edit.gif' width='20' height='16' border='0' align='absmiddle' hspace='3' title='BOM is in edit mode.'>"
|
|
|
25 |
Const enumBOM_NEW = "<img src='icons/bi_new.gif' width='20' height='16' border='0' align='absmiddle' hspace='3' title='New BOM is available.'>"
|
|
|
26 |
Const enumBOM_ACCEPTED = "<img src='icons/bi_accepted.gif' width='20' height='16' border='0' align='absmiddle' hspace='3' title='BOM is tested and Accepted.'>"
|
|
|
27 |
Const enumBOM_REJECTED = "<img src='icons/bi_rejected.gif' width='20' height='16' border='0' align='absmiddle' hspace='3' title='BOM is tested and Rejected.'>"
|
|
|
28 |
'------------ VARIABLE INIT -------------------
|
|
|
29 |
Set objCrumbs = New Crumbs
|
|
|
30 |
Set objPMod = New PersistanceModule
|
|
|
31 |
Set objBomCollector = CreateObject("Scripting.Dictionary")
|
|
|
32 |
Set objBtnControl = New ActionButtonControl
|
|
|
33 |
Set objFormater = New Formater
|
|
|
34 |
Set objFormComponent = New FormComponent
|
|
|
35 |
Set objRepeater = New Repeater
|
|
|
36 |
'dbPARproj_id = enumDB_DEFAULT_EMPTY
|
|
|
37 |
'dbPARbranch_id = enumDB_DEFAULT_EMPTY
|
|
|
38 |
'------------ CONDITIONS ----------------------
|
|
|
39 |
If Request("proj_id") <> "" Then dbPARproj_id = Request("proj_id")
|
|
|
40 |
If Request("branch_id") <> "" Then dbPARbranch_id = Request("branch_id")
|
|
|
41 |
'----------------------------------------------
|
|
|
42 |
%>
|
|
|
43 |
<%
|
|
|
44 |
'------------ RUN BEFORE PAGE RENDER ----------
|
|
|
45 |
Call InitialiseCrumbs ( objCrumbs )
|
|
|
46 |
objPMod.PersistInQryString ( aPersistList(enumPAR_PROJ_ID) )
|
|
|
47 |
objPMod.PersistInQryString ( aPersistList(enumPAR_BRANCH_ID) )
|
|
|
48 |
'----------------------------------------------
|
|
|
49 |
%>
|
|
|
50 |
<%
|
|
|
51 |
'-----------------------------------------------------------------------------------------------------------------
|
|
|
52 |
Function GetStateImage ( nState_id )
|
|
|
53 |
Select Case CInt( nState_id )
|
|
|
54 |
Case enumDB_STATE_TYPE_BOM_CREATOR
|
|
|
55 |
GetStateImage = "icons/s_integration.gif"
|
|
|
56 |
Case enumDB_STATE_TYPE_BOM_LOCAL_TESTER
|
|
|
57 |
GetStateImage = "icons/s_local_test.gif"
|
|
|
58 |
Case Else
|
|
|
59 |
GetStateImage = "icons/s_generic.gif"
|
|
|
60 |
End Select
|
|
|
61 |
End Function
|
|
|
62 |
'-----------------------------------------------------------------------------------------------------------------
|
|
|
63 |
Sub ActionRedirection ( sAction )
|
|
|
64 |
Select Case sAction
|
|
|
65 |
Case "pmiNewBom"
|
|
|
66 |
Call NewBom ()
|
|
|
67 |
|
|
|
68 |
Case "btnDestroyBom"
|
|
|
69 |
Call DestroyBom ()
|
|
|
70 |
|
|
|
71 |
Case "pmiLockBom"
|
|
|
72 |
Call LockUnlockBom("Y")
|
|
|
73 |
|
|
|
74 |
Case "pmiUnlockBom"
|
|
|
75 |
Call LockUnlockBom("N")
|
|
|
76 |
|
|
|
77 |
Case "pmiReleaseTo"
|
|
|
78 |
Call ReleaseTo ()
|
|
|
79 |
|
|
|
80 |
Case "pmiAcceptBom"
|
|
|
81 |
Call AcceptBOM ()
|
|
|
82 |
|
|
|
83 |
Case "pmiRejectBom"
|
|
|
84 |
Call RejectBOM ()
|
|
|
85 |
|
|
|
86 |
Case "pmiVersionTree"
|
|
|
87 |
Call VersionTree()
|
|
|
88 |
|
|
|
89 |
Case "pmiToProduction"
|
|
|
90 |
Call ToProduction()
|
|
|
91 |
|
|
|
92 |
End Select
|
|
|
93 |
End Sub
|
|
|
94 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
95 |
Function PBSelector ( sName, nRowID, nParID, nLevel )
|
|
|
96 |
Const IMG_PROJECT = "<img src='icons/i_world.gif' hspace='5' align='absmiddle' border='0'>"
|
|
|
97 |
Const IMG_FOLDER_CLOSED = "<img src='icons/i_folder_closed.gif' width='15' height='12' hspace='5' border='0' align='absmiddle'>"
|
|
|
98 |
Const IMG_FOLDER_OPEN = "<img src='icons/i_folder_open.gif' width='15' height='12' hspace='5' border='0' align='absmiddle'>"
|
|
|
99 |
|
|
|
100 |
Dim imgItem
|
|
|
101 |
|
|
|
102 |
If nLevel = 0 Then
|
|
|
103 |
' Project Level
|
|
|
104 |
imgItem = IMG_PROJECT
|
|
|
105 |
If ( CInt(nRowID) = CINt(nParID) ) AND ( dbPARbranch_id = enumDB_DEFAULT_EMPTY ) Then
|
|
|
106 |
PBSelector = imgItem &"<SPAN class='menu_linkselect'>"& sName &"</SPAN>"
|
|
|
107 |
Else
|
|
|
108 |
PBSelector = imgItem & sName
|
|
|
109 |
End If
|
|
|
110 |
|
|
|
111 |
Else
|
|
|
112 |
' Branch Level
|
|
|
113 |
imgItem = IMG_FOLDER_CLOSED
|
|
|
114 |
If ( CInt(nRowID) = CINt(nParID) ) Then
|
|
|
115 |
PBSelector = IMG_FOLDER_OPEN &"<SPAN class='menu_linkselect'>"& sName &"</SPAN>"
|
|
|
116 |
Else
|
|
|
117 |
PBSelector = imgItem & sName
|
|
|
118 |
End If
|
|
|
119 |
|
|
|
120 |
End If
|
|
|
121 |
|
|
|
122 |
|
|
|
123 |
End Function
|
|
|
124 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
125 |
Sub LockUnlockBom ( cLock )
|
|
|
126 |
On Error Resume Next
|
|
|
127 |
|
|
|
128 |
objEH.Try
|
|
|
129 |
If Request("bom_id_list") = "" Then
|
|
|
130 |
Err.Raise 8, "Please select one BOM.", "No further details available."
|
|
|
131 |
|
|
|
132 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
133 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be destroyed at one time."
|
|
|
134 |
|
|
|
135 |
Else
|
|
|
136 |
Call OpenInWindow ( "_SetBomOfficial.asp?is_official="& cLock &"&bom_id_list="& Request("bom_id_list") &"&state_id="& Request("state_id") &"&rfile="& SCRIPT_NAME & objPMod.ComposeURLWithout("rfile,state_id") )
|
|
|
137 |
|
|
|
138 |
End If
|
|
|
139 |
|
|
|
140 |
objEH.Catch
|
|
|
141 |
|
|
|
142 |
End Sub
|
|
|
143 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
144 |
Sub DestroyBom ()
|
|
|
145 |
On Error Resume Next
|
|
|
146 |
|
|
|
147 |
objEH.Try
|
|
|
148 |
If Request("bom_id_list") = "" Then
|
|
|
149 |
Err.Raise 8, "Please select one BOM.", "No further details available."
|
|
|
150 |
|
|
|
151 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
152 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be destroyed at one time."
|
|
|
153 |
|
|
|
154 |
Else
|
|
|
155 |
Call OpenInWindow ( "_DestroyBom.asp?bom_id_list="& Request("bom_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
|
|
|
156 |
|
|
|
157 |
End If
|
|
|
158 |
|
|
|
159 |
objEH.Catch
|
|
|
160 |
|
|
|
161 |
End Sub
|
|
|
162 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
163 |
Sub NewBom ()
|
|
|
164 |
On Error Resume Next
|
|
|
165 |
|
|
|
166 |
objEH.Try
|
|
|
167 |
If NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
168 |
Err.Raise 8, "Please select one BOM only.", "No further details available."
|
|
|
169 |
|
|
|
170 |
Else
|
|
|
171 |
Call OpenInWindow ( "NewBom.asp?bom_id_list="& Request("bom_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
|
|
|
172 |
|
|
|
173 |
End If
|
|
|
174 |
|
|
|
175 |
objEH.Catch
|
|
|
176 |
|
|
|
177 |
End Sub
|
|
|
178 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
179 |
Sub VersionTree ()
|
|
|
180 |
On Error Resume Next
|
|
|
181 |
|
|
|
182 |
objEH.Try
|
|
|
183 |
If Request("bom_id_list") = "" Then
|
|
|
184 |
Err.Raise 8, "Please select one BOM.", "No further details available."
|
|
|
185 |
|
|
|
186 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
187 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be released at one time."
|
|
|
188 |
|
|
|
189 |
Else
|
|
|
190 |
Call OpenInWindow ( "BomVersionTree.asp?bom_id_list="& Request("bom_id_list") & objPMod.ComposeURLWithout("state_id") )
|
|
|
191 |
|
|
|
192 |
End If
|
|
|
193 |
|
|
|
194 |
objEH.Catch
|
|
|
195 |
|
|
|
196 |
End Sub
|
|
|
197 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
198 |
Sub ReleaseTo ()
|
|
|
199 |
Dim objFormCollector
|
|
|
200 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|
|
|
201 |
|
|
|
202 |
On Error Resume Next
|
|
|
203 |
|
|
|
204 |
objEH.Try
|
|
|
205 |
If Request("bom_id_list") = "" Then
|
|
|
206 |
Err.Raise 8, "Please select one BOM.", "No further details available."
|
|
|
207 |
|
|
|
208 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
209 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be released at one time."
|
|
|
210 |
|
|
|
211 |
Else
|
|
|
212 |
|
|
|
213 |
Call GetBomDetails ( Request("bom_id_list"), objFormCollector )
|
|
|
214 |
|
|
|
215 |
If objFormCollector.Item("is_readonly") = enumDB_NO Then
|
|
|
216 |
Err.Raise 8, "BOM must be locked first", "Please go back and Lock BOM."
|
|
|
217 |
|
|
|
218 |
Else
|
|
|
219 |
Call OpenInWindow ( "ReleaseTo.asp?bom_id_list="& Request("bom_id_list") &"&state_id="& Request("state_id") &"&rfile="& SCRIPT_NAME & objPMod.ComposeURLWithout("rfile,state_id") )
|
|
|
220 |
|
|
|
221 |
End If
|
|
|
222 |
|
|
|
223 |
End If
|
|
|
224 |
|
|
|
225 |
objEH.Catch
|
|
|
226 |
|
|
|
227 |
End Sub
|
|
|
228 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
229 |
Sub AcceptBOM ()
|
|
|
230 |
On Error Resume Next
|
|
|
231 |
|
|
|
232 |
objEH.Try
|
|
|
233 |
If Request("bom_id_list") = "" Then
|
|
|
234 |
Err.Raise 8, "Please select one BOM", "No further details available."
|
|
|
235 |
|
|
|
236 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
237 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be released at one time."
|
|
|
238 |
|
|
|
239 |
Else
|
|
|
240 |
Call OpenInWindow ( "Bom_AcceptReject.asp?is_rejected=N&bom_id_list="& Request("bom_id_list") &"&state_id="& Request("state_id") &"&rfile="& SCRIPT_NAME & objPMod.ComposeURLWithout("rfile,state_id") )
|
|
|
241 |
|
|
|
242 |
End If
|
|
|
243 |
|
|
|
244 |
objEH.Catch
|
|
|
245 |
|
|
|
246 |
End Sub
|
|
|
247 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
248 |
Sub RejectBOM ()
|
|
|
249 |
On Error Resume Next
|
|
|
250 |
|
|
|
251 |
objEH.Try
|
|
|
252 |
If Request("bom_id_list") = "" Then
|
|
|
253 |
Err.Raise 8, "Please select one BOM.", "No further details available."
|
|
|
254 |
|
|
|
255 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
256 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be released at one time."
|
|
|
257 |
|
|
|
258 |
Else
|
|
|
259 |
Call OpenInWindow ( "Bom_AcceptReject.asp?is_rejected=Y&bom_id_list="& Request("bom_id_list") &"&state_id="& Request("state_id") &"&rfile="& SCRIPT_NAME & objPMod.ComposeURLWithout("rfile,state_id") )
|
|
|
260 |
|
|
|
261 |
End If
|
|
|
262 |
|
|
|
263 |
objEH.Catch
|
|
|
264 |
|
|
|
265 |
End Sub
|
|
|
266 |
'-----------------------------------------------------------------------------------------------------------------
|
|
|
267 |
Sub ToProduction ()
|
|
|
268 |
On Error Resume Next
|
|
|
269 |
|
|
|
270 |
objEH.Try
|
|
|
271 |
If Request("bom_id_list") = "" Then
|
|
|
272 |
Err.Raise 8, "Please select one BOM.", "No further details available."
|
|
|
273 |
|
|
|
274 |
ElseIf NOT IsNumeric(Request("bom_id_list")) Then
|
|
|
275 |
Err.Raise 8, "Please select one BOM only.", "Only one BOM can be released at one time."
|
|
|
276 |
|
|
|
277 |
Else
|
|
|
278 |
Call OpenInWindow ( "XMLToProd.asp?bom_id="&Request("bom_id_list") )
|
|
|
279 |
|
|
|
280 |
End If
|
|
|
281 |
|
|
|
282 |
objEH.Catch
|
|
|
283 |
|
|
|
284 |
End Sub
|
|
|
285 |
'-----------------------------------------------------------------------------------------------------------------
|
|
|
286 |
%>
|