Subversion Repositories DevTools

Rev

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

Rev 13 Rev 17
Line 31... Line 31...
31 
	On Error Resume Next
 31 
	On Error Resume Next
32
32
33 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 		ORAPARM_INPUT, ORATYPE_NUMBER
33 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 		ORAPARM_INPUT, ORATYPE_NUMBER
34 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
34 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
35 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
35 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
36
- 
 
- 
 
 36 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
37
37
38 
	objEH.TryORA ( OraSession )
 38 
	objEH.TryORA ( OraSession )
39
39
40 
	OraDatabase.ExecuteSQL _
 40 
	OraDatabase.ExecuteSQL _
41 
	"BEGIN   pk_Product.Accept_Reject_List ( :PROD_ID_LIST, :BOM_ID, NULL, :USER_ID );   END;"
 41 
	"BEGIN   pk_Product.Accept_Reject_List ( :PROD_ID_LIST, :BOM_ID, NULL, :USER_ID, :OS_ID );   END;"
42
42
43 
	objEH.CatchORA ( OraSession )
 43 
	objEH.CatchORA ( OraSession )
44
44
45
45
46 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 46 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
47 
	OraDatabase.Parameters.Remove "BOM_ID"
 47 
	OraDatabase.Parameters.Remove "BOM_ID"
48 
	OraDatabase.Parameters.Remove "USER_ID"
 48 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 49 
	OraDatabase.Parameters.Remove "OS_ID"
49
50
50 
End Sub
 51 
End Sub
51 
'--------------------------------------------------------------------------------------------------------------------------
 52 
'--------------------------------------------------------------------------------------------------------------------------
52 
%>
 53 
%>
53 
<%
 54 
<%