WebSVN – DevTools – Diff – /ManagerSuite/Deployment_Manager/trunk/wEditNode.asp



	
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER 
 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER 
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID ); END;"	
	
	objEH.CatchORA ( OraSession )
	
	
	OraDatabase.Parameters.Remove "NODE_NAME"
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
	OraDatabase.Parameters.Remove "BOM_ID"
	OraDatabase.Parameters.Remove "USER_ID"
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateNode ()
	On Error Resume Next
	
	OraDatabase.Parameters.Add "NODE_ID", 		Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER 
	
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID ); END;"	
	
	objEH.CatchORA ( OraSession )
	
	
	OraDatabase.Parameters.Remove "NODE_NAME"
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
	OraDatabase.Parameters.Remove "NODE_ID"
	OraDatabase.Parameters.Remove "USER_ID"	
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/wEditNode.asp @ 17 – Rev 13 → 15

Rev 13		Rev 15
Line 108...		Line 108...
108		108
109	`OraDatabase.Parameters.Add "NODE_NAME", Request("node_name"), ORAPARM_INPUT, ORATYPE_STRING`	109	`OraDatabase.Parameters.Add "NODE_NAME", Request("node_name"), ORAPARM_INPUT, ORATYPE_STRING`
110	`OraDatabase.Parameters.Add "NODE_TYPE_ID", Request("node_type_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	110	`OraDatabase.Parameters.Add "NODE_TYPE_ID", Request("node_type_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
111	`OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), ORAPARM_INPUT, ORATYPE_STRING`	111	`OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), ORAPARM_INPUT, ORATYPE_STRING`
112	`OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	112	`OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
113		-
-		113	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
114		114
115	`objEH.TryORA ( OraSession )`	115	`objEH.TryORA ( OraSession )`
116		116
117	`OraDatabase.ExecuteSQL _`	117	`OraDatabase.ExecuteSQL _`
118	`"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID ); END;"`	118	`"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID ); END;"`
119		119
120	`objEH.CatchORA ( OraSession )`	120	`objEH.CatchORA ( OraSession )`
121		121
122		122
123	`OraDatabase.Parameters.Remove "NODE_NAME"`	123	`OraDatabase.Parameters.Remove "NODE_NAME"`
124	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`	124	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`
125	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`	125	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`
126	`OraDatabase.Parameters.Remove "BOM_ID"`	126	`OraDatabase.Parameters.Remove "BOM_ID"`
-		127	`OraDatabase.Parameters.Remove "USER_ID"`
127		128
128	`End Sub`	129	`End Sub`
129	`'--------------------------------------------------------------------------------------------------------------------------`	130	`'--------------------------------------------------------------------------------------------------------------------------`
130	`Sub UpdateNode ()`	131	`Sub UpdateNode ()`
131	`On Error Resume Next`	132	`On Error Resume Next`
132		133
133	`OraDatabase.Parameters.Add "NODE_ID", Request("node_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	134	`OraDatabase.Parameters.Add "NODE_ID", Request("node_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
134	`OraDatabase.Parameters.Add "NODE_NAME", Request("node_name"), ORAPARM_INPUT, ORATYPE_STRING`	135	`OraDatabase.Parameters.Add "NODE_NAME", Request("node_name"), ORAPARM_INPUT, ORATYPE_STRING`
135	`OraDatabase.Parameters.Add "NODE_TYPE_ID", Request("node_type_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	136	`OraDatabase.Parameters.Add "NODE_TYPE_ID", Request("node_type_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
136	`OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), ORAPARM_INPUT, ORATYPE_STRING`	137	`OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), ORAPARM_INPUT, ORATYPE_STRING`
-		138	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
137		139
138		140
139	`objEH.TryORA ( OraSession )`	141	`objEH.TryORA ( OraSession )`
140		142
141	`OraDatabase.ExecuteSQL _`	143	`OraDatabase.ExecuteSQL _`
142	`"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS ); END;"`	144	`"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID ); END;"`
143		145
144	`objEH.CatchORA ( OraSession )`	146	`objEH.CatchORA ( OraSession )`
145		147
146		148
147	`OraDatabase.Parameters.Remove "NODE_NAME"`	149	`OraDatabase.Parameters.Remove "NODE_NAME"`
148	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`	150	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`
149	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`	151	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`
150	`OraDatabase.Parameters.Remove "NODE_ID"`	152	`OraDatabase.Parameters.Remove "NODE_ID"`
-		153	`OraDatabase.Parameters.Remove "USER_ID"`
151		154
152	`End Sub`	155	`End Sub`
153	`'--------------------------------------------------------------------------------------------------------------------------`	156	`'--------------------------------------------------------------------------------------------------------------------------`
154	`%>`	157	`%>`
155	`<%`	158	`<%`