Subversion Repositories DevTools

Rev

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

Rev 5514 Rev 5962
Line 39... Line 39...
39
If Request("bom_id") <> "" Then
39
If Request("bom_id") <> "" Then
40
 
40
 
41
	OraDatabase.Parameters.Add "BOM_ID", 	  Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
41
	OraDatabase.Parameters.Add "BOM_ID", 	  Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
42
	OraDatabase.Parameters.Add "USER_ID", 	  objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
42
	OraDatabase.Parameters.Add "USER_ID", 	  objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
43
 
43
 
-
 
44
	On Error Resume Next
44
	objEH.TryORA ( OraSession )
45
	objEH.TryORA ( OraSession )
45
	
46
	
46
	OraDatabase.ExecuteSQL _
47
	OraDatabase.ExecuteSQL _
47
	"BEGIN   pk_Bom.Update_Nodes_Version ( :BOM_ID, :USER_ID );   END;"
48
	"BEGIN   pk_Bom.Update_Nodes_Version ( :BOM_ID, :USER_ID );   END;"
48
	
49
	
Line 110... Line 111...
110
Else
111
Else
111
	Response.write "Please specify bom_id. <br>Example:<br> "& SCRIPT_NAME &"?bom_id=1234"
112
	Response.write "Please specify bom_id. <br>Example:<br> "& SCRIPT_NAME &"?bom_id=1234"
112
End If
113
End If
113
 
114
 
114
'**********************************************************************
115
'**********************************************************************
-
 
116
Call Destroy_All_Objects
115
%>
117
%>
116
<script language="Javascript">
118
<script language="Javascript">
117
alert("XML files generated in Production Manager. Click OK to Redirect to Previous Page...")
119
alert("XML files generated in Production Manager. Click OK to Redirect to Previous Page...")
118
history.back()
120
history.back()
119
</script>
121
</script>
120
<%
122
 
121
'------------ RUN AFTER CODE RUN --------------
-
 
122
'----------------------------------------------
-
 
123
%><!--#include file="common/globals_destructor.asp"-->
-