Subversion Repositories DevTools

Rev

Rev 5513 | Rev 5958 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5513 Rev 5517
Line 76... Line 76...
76 
	OraDatabase.Parameters.Remove "TOSTATE_ID"
 76 
	OraDatabase.Parameters.Remove "TOSTATE_ID"
77 
	OraDatabase.Parameters.Remove "COMMENTS"
 77 
	OraDatabase.Parameters.Remove "COMMENTS"
78
78
79 
End Sub
 79 
End Sub
80 
'--------------------------------------------------------------------------------------------------------------------------
 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\CheckForPackageVersions.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 
'--------------------------------------------------------------------------------------------------------------------------
 - 
 
92 
%>
 81 
%>
93 
<%
 82 
<%
94 
'------------ RUN BEFORE PAGE RENDER ----------
 83 
'------------ RUN BEFORE PAGE RENDER ----------
95 
' --- Get Form details from DB ---
 84 
' --- Get Form details from DB ---
96 
Call GetFormDetails ( Request("state_id"), objFormCollector )
 85 
Call GetFormDetails ( Request("state_id"), objFormCollector )
Line 104... Line 93...
104 
' --- RUN onPostBack ---
 93 
' --- RUN onPostBack ---
105 
If Request("action") <> "" Then
 94 
If Request("action") <> "" Then
106 
	If objForm.IsValidOnPostBack Then
 95 
	If objForm.IsValidOnPostBack Then
107 
		' --- Form is Valid ---
 96 
		' --- Form is Valid ---
108 
		Call ReleaseTo()
 97 
		Call ReleaseTo()
109 
		If Request("proj_id") = 122 Then
 - 
 
110 
			Call CheckPackages()
 - 
 
111 
		End If
 - 
 
112
- 
 
113 
		If objEH.Finally Then
 98 
		If objEH.Finally Then
114 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
 99 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
115 
		End If
 100 
		End If
116
101
117 
	End If
 102 
	End If