Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 85... Line 85...
85 
	On Error Resume Next
 85 
	On Error Resume Next
86
86
87 
	OraDatabase.Parameters.Add "PROD_NAME", 	Request("prod_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 87 
	OraDatabase.Parameters.Add "PROD_NAME", 	Request("prod_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
	OraDatabase.Parameters.Add "PROD_VERSION", 	Request("prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 88 
	OraDatabase.Parameters.Add "PROD_VERSION", 	Request("prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
89 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 90 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
91 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
91
92
92 
	objEH.TryORA ( OraSession )
 93 
	objEH.TryORA ( OraSession )
93
94
94 
	OraDatabase.ExecuteSQL _
 95 
	OraDatabase.ExecuteSQL _
95 
	"DECLARE "&_
 96 
	"DECLARE "&_
96 
	"   outProdId NUMBER;"&_
 97 
	"   outProdId NUMBER;"&_
97 
	"BEGIN   "&_
 98 
	"BEGIN   "&_
98 
	"   pk_Product.New_Product ( :PROD_NAME, :PROD_VERSION, :USER_ID, outProdId );"&_
 99 
	"   pk_Product.New_Product ( :PROD_NAME, :PROD_VERSION, :USER_ID, outProdId );"&_
99 
	"   pk_Base_Env.Add_Product ( outProdId, :BASE_ENV_ID, :USER_ID );"&_
 100 
	"   pk_Base_Env.Add_Product ( outProdId, :BASE_ENV_ID, :OS_ID, :USER_ID );"&_
100 
	"END;"
 101 
	"END;"
101
102
102 
	objEH.CatchORA ( OraSession )
 103 
	objEH.CatchORA ( OraSession )
103
104
104
105
105 
	OraDatabase.Parameters.Remove "PROD_NAME"
 106 
	OraDatabase.Parameters.Remove "PROD_NAME"
106 
	OraDatabase.Parameters.Remove "PROD_VERSION"
 107 
	OraDatabase.Parameters.Remove "PROD_VERSION"
107 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 108 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
- 
 
 109 
	OraDatabase.Parameters.Remove "OS_ID"
108 
	OraDatabase.Parameters.Remove "USER_ID"
 110 
	OraDatabase.Parameters.Remove "USER_ID"
109 
End Sub
 111 
End Sub
110 
'--------------------------------------------------------------------------------------------------------------------------
 112 
'--------------------------------------------------------------------------------------------------------------------------
111 
Sub AddProdNew ()
 113 
Sub AddProdNew ()
112
114