Subversion Repositories DevTools

Rev

Rev 13 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 25
Line 21... Line 21...
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim parState_id
 24 
Dim parState_id
25 
Dim parBom_id_list
 25 
Dim parBom_id_list
- 
 
 26 
Dim parParentBomId
26 
'------------ CONSTANTS DECLARATION -----------
 27 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
 28 
'------------ VARIABLE INIT -------------------
28 
parState_id = Request("state_id")
 29 
parState_id = Request("state_id")
29 
parBom_id_list = Request("bom_id_list")
 30 
parBom_id_list = Request("bom_id_list")
- 
 
 31 
parParentBomId = Request("parent_bom_id")
30 
'------------ CONDITIONS ----------------------
 32 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
 33 
'----------------------------------------------
32 
%>
 34 
%>
33 
<%
 35 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------
 36 
'--------------------------------------------------------------------------------------------------------------------------
Line 74... Line 76...
74 
	OraDatabase.Parameters.Remove "TOSTATE_ID"
 76 
	OraDatabase.Parameters.Remove "TOSTATE_ID"
75 
	OraDatabase.Parameters.Remove "COMMENTS"
 77 
	OraDatabase.Parameters.Remove "COMMENTS"
76
78
77 
End Sub
 79 
End Sub
78 
'--------------------------------------------------------------------------------------------------------------------------
 80 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 81 
Sub CheckPackages ()
- 
 
 82 
	'On Error Resume Next
- 
 
 83 
	Dim objWSH, IntReturn
- 
 
 84 
	Set objWSH = Server.CreateObject("WScript.Shell")
- 
 
 85 
 
- 
 
 86 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\CheckForUnitTests.wsf /user_name:"&objAccessControl.UserName&" /bom_id:"& parBom_id_list&" /compare_bom_id:"&parParentBomId , 0, False
- 
 
 87 
 
- 
 
 88 
	Set objWSH = nothing
- 
 
 89
- 
 
 90 
End Sub
- 
 
 91 
'--------------------------------------------------------------------------------------------------------------------------
79 
%>
 92 
%>
80 
<%
 93 
<%
81 
'------------ RUN BEFORE PAGE RENDER ----------
 94 
'------------ RUN BEFORE PAGE RENDER ----------
82 
' --- Get Form details from DB ---
 95 
' --- Get Form details from DB ---
83 
Call GetFormDetails ( Request("state_id"), objFormCollector )
 96 
Call GetFormDetails ( Request("state_id"), objFormCollector )
Line 91... Line 104...
91 
' --- RUN onPostBack ---
 104 
' --- RUN onPostBack ---
92 
If Request("action") <> "" Then
 105 
If Request("action") <> "" Then
93 
	If objForm.IsValidOnPostBack Then
 106 
	If objForm.IsValidOnPostBack Then
94 
		' --- Form is Valid ---
 107 
		' --- Form is Valid ---
95 
		Call ReleaseTo()
 108 
		Call ReleaseTo()
- 
 
 109 
		If Request("proj_id") = 122 Then
- 
 
 110 
			Call CheckPackages()
- 
 
 111 
		End If
96
112
97 
		If objEH.Finally Then
 113 
		If objEH.Finally Then
98 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
 114 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
99 
		End If
 115 
		End If
100
116
101 
	End If
 117 
	End If
Line 116... Line 132...
116 
<!-- HEADER ++++++++++++++++ -->
 132 
<!-- HEADER ++++++++++++++++ -->
117 
<!--#include file="_header.asp"-->
 133 
<!--#include file="_header.asp"-->
118 
<!-- +++++++++++++++++++++++ -->
 134 
<!-- +++++++++++++++++++++++ -->
119 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 135 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
120 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
 136 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
- 
 
 137 
<%
- 
 
 138 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BOMS WHERE BOM_ID="&parBom_id_list, ORADYN_DEFAULT )
- 
 
 139 
	parParentBomId = rsQry("parent_bom_id")
- 
 
 140 
	rsQry.Close()
- 
 
 141 
	Set rsQry = nothing
- 
 
 142 
%>
- 
 
 143 
 
121 
  <tr>
 144 
  <tr>
122 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
 145 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
123 
  </tr>
 146 
  </tr>
124 
  <tr>
 147 
  <tr>
125 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
 148 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
Line 194... Line 217...
194 
                      </tr>
 217 
                      </tr>
195 
                  </table></td>
 218 
                  </table></td>
196 
                </tr>
 219 
                </tr>
197 
                <%=objPMod.ComposeHiddenTags()%>
 220 
                <%=objPMod.ComposeHiddenTags()%>
198 
                <input type="hidden" name="bom_id_list" value="<%=parBom_id_list%>">
 221 
                <input type="hidden" name="bom_id_list" value="<%=parBom_id_list%>">
- 
 
 222 
				<input type="hidden" name="parent_bom_id" value="<%=parParentBomId%>">
199 
                <input type="hidden" name="action" value="true">
 223 
                <input type="hidden" name="action" value="true">
200 
              </table>                </td>
 224 
              </table>                </td>
201 
            </tr>
 225 
            </tr>
202 
          </table></td>
 226 
          </table></td>
203 
        </tr>
 227 
        </tr>