Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 72... Line 72...
72 
Sub AddProdToBaseEnv ()
 72 
Sub AddProdToBaseEnv ()
73 
	On Error Resume Next
 73 
	On Error Resume Next
74
74
75 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 75 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
76 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
76 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 77 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
78
79
- 
 
 80
79 
	objEH.TryORA ( OraSession )
 81 
	objEH.TryORA ( OraSession )
80
82
81 
	OraDatabase.ExecuteSQL _
 83 
	OraDatabase.ExecuteSQL _
82 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :USER_ID );   END;"
 84 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
83
85
84 
	objEH.CatchORA ( OraSession )
 86 
	objEH.CatchORA ( OraSession )
85
87
86
88
87 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 89 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
88 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 90 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
- 
 
 91 
	OraDatabase.Parameters.Remove "OS_ID"
89 
	OraDatabase.Parameters.Remove "USER_ID"
 92 
	OraDatabase.Parameters.Remove "USER_ID"
90 
End Sub
 93 
End Sub
91 
'--------------------------------------------------------------------------------------------------------------------------
 94 
'--------------------------------------------------------------------------------------------------------------------------
92 
Sub AddProdToOs ()
 95 
Sub AddProdToOs ()
93 
	On Error Resume Next
 96 
	On Error Resume Next