Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 86... Line 86...
86 
	On Error Resume Next
 86 
	On Error Resume Next
87
87
88 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
88 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 89 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
90 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
91
- 
 
- 
 
 91 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 92 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
92
93
93 
	objEH.TryORA ( OraSession )
 94 
	objEH.TryORA ( OraSession )
94
95
95 
	OraDatabase.ExecuteSQL _
 96 
	OraDatabase.ExecuteSQL _
96 
	"BEGIN   pk_Base_Env.Update_Base_Env ( :BASE_ENV_ID, :BASE_ENV_NAME, :BOS_ID );   END;"
 97 
	"BEGIN   pk_Base_Env.Update_Base_Env ( :BASE_ENV_ID, :BASE_ENV_NAME, :BOS_ID, :OS_ID, :USER_ID );   END;"
97
98
98 
	objEH.CatchORA ( OraSession )
 99 
	objEH.CatchORA ( OraSession )
99
100
100
101
101 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 102 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
102 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
 103 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
103 
	OraDatabase.Parameters.Remove "BOS_ID"
 104 
	OraDatabase.Parameters.Remove "BOS_ID"
- 
 
 105 
	OraDatabase.Parameters.Remove "OS_ID"
- 
 
 106 
	OraDatabase.Parameters.Remove "USER_ID"
104
107
105 
End Sub
 108 
End Sub
106 
'--------------------------------------------------------------------------------------------------------------------------
 109 
'--------------------------------------------------------------------------------------------------------------------------
107 
Sub AddBaseEnv ()
 110 
Sub AddBaseEnv ()
108 
	On Error Resume Next
 111 
	On Error Resume Next
109
112
110 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 113 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
111 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
114 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
112 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
113 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
116 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
114
- 
 
- 
 
 117 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
115
118
116 
	objEH.TryORA ( OraSession )
 119 
	objEH.TryORA ( OraSession )
117
120
118 
	OraDatabase.ExecuteSQL _
 121 
	OraDatabase.ExecuteSQL _
119 
	"BEGIN   pk_Base_Env.Add_Base_Env ( :BASE_ENV_NAME, :BOS_ID, :BOM_ID, :OS_ID );   END;"
 122 
	"BEGIN   pk_Base_Env.Add_Base_Env ( :BASE_ENV_NAME, :BOS_ID, :BOM_ID, :OS_ID, :USER_ID );   END;"
120
123
121 
	objEH.CatchORA ( OraSession )
 124 
	objEH.CatchORA ( OraSession )
122
125
123
126
124 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
 127 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
125 
	OraDatabase.Parameters.Remove "BOS_ID"
 128 
	OraDatabase.Parameters.Remove "BOS_ID"
126 
	OraDatabase.Parameters.Remove "BOM_ID"
 129 
	OraDatabase.Parameters.Remove "BOM_ID"
127 
	OraDatabase.Parameters.Remove "OS_ID"
 130 
	OraDatabase.Parameters.Remove "OS_ID"
- 
 
 131 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 132
128
133
129 
End Sub
 134 
End Sub
130 
'--------------------------------------------------------------------------------------------------------------------------
 135 
'--------------------------------------------------------------------------------------------------------------------------
131 
%>
 136 
%>
132 
<%
 137 
<%