Subversion Repositories DevTools

Rev

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

Rev 15 Rev 19
Line 28... Line 28...
28 
<%
 28 
<%
29 
'--------------------------------------------------------------------------------------------------------------------------
 29 
'--------------------------------------------------------------------------------------------------------------------------
30 
Sub RemoveProcessFromOs ()
 30 
Sub RemoveProcessFromOs ()
31 
	On Error Resume Next
 31 
	On Error Resume Next
32
32
- 
 
 33 
	OraDatabase.Parameters.Add "PROC_NAME", 		Request("proc_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
33 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 		Request("proc_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
34 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 		Request("proc_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
34 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
35 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
35 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
36 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
36
37 
 
37 
	objEH.TryORA ( OraSession )
 38 
	objEH.TryORA ( OraSession )
38
39
39 
	OraDatabase.ExecuteSQL _
 40 
	OraDatabase.ExecuteSQL _
40 
	"BEGIN   pk_Product.Remove_Process ( :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
 41 
	"BEGIN   pk_Product.Remove_Process ( :PROC_NAME, :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
41
42
42 
	'--- Log Action ---
 43 
	'--- Log Action ---
43 
	'objEH.LogAction  _
 44 
	'objEH.LogAction  _
44 
	'objAccessControl.UserId, _
 45 
	'objAccessControl.UserId, _
45 
	'enumAT_EVENT_COMMENT, _
 46 
	'enumAT_EVENT_COMMENT, _
Line 48... Line 49...
48 
	'"Removed Products from OS.", _
 49 
	'"Removed Products from OS.", _
49 
	'OraDatabase
50 
	'OraDatabase
50
51
51 
	objEH.CatchORA ( OraSession )
 52 
	objEH.CatchORA ( OraSession )
52
53
- 
 
 54 
	OraDatabase.Parameters.Remove "PROC_NAME"
53 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 55 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
54 
	OraDatabase.Parameters.Remove "OS_ID"
 56 
	OraDatabase.Parameters.Remove "OS_ID"
55 
	OraDatabase.Parameters.Remove "USER_ID"
 57 
	OraDatabase.Parameters.Remove "USER_ID"
56
58
57 
End Sub
 59 
End Sub