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



Sub GetFormDetails ( nNodeId, ByRef outobjDetails )
	Dim rsQry, query
	
	If nNodeId <> "" Then
		OraDatabase.Parameters.Add "NODE_ID", nNodeId,	ORAPARM_INPUT, ORATYPE_NUMBER 
 
		Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID = :NODE_ID", ORADYN_DEFAULT )
		OraDatabase.Parameters.Remove "NODE_ID"
 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
			outobjDetails.Item ("node_id") = rsQry("node_id")
			outobjDetails.Item ("node_name") = rsQry("node_name")
			outobjDetails.Item ("node_comments") = rsQry("node_comments")
			outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
			outobjDetails.Item ("node_version") = rsQry("node_version")
			outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")
			outobjDetails.Item ("not_xml") = rsQry("not_xml")
 
		Else
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
			
		End If
		
 
		rsQry.Close
		Set rsQry = Nothing
	End If
	
	

	
	OraDatabase.Parameters.Remove "NODE_NAME"
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
	OraDatabase.Parameters.Remove "BOM_ID"
 
	OraDatabase.Parameters.Remove "NOT_XML"
	OraDatabase.Parameters.Remove "USER_ID"
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateNode ()
	On Error Resume Next

	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE, :NOT_XML ); END;"	
	
	objEH.CatchORA ( OraSession )
	
	
	OraDatabase.Parameters.Remove "NODE_ID"
	OraDatabase.Parameters.Remove "NODE_NAME"
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
 
	OraDatabase.Parameters.Remove "USER_ID"	
	OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
	OraDatabase.Parameters.Remove "NOT_XML"
	
End Sub

Rev 5513	Rev 5955
Line 39...	Line 39...
39	`Sub GetFormDetails ( nNodeId, ByRef outobjDetails )`	39	`Sub GetFormDetails ( nNodeId, ByRef outobjDetails )`
40	`Dim rsQry, query`	40	`Dim rsQry, query`
41		41
42	`If nNodeId <> "" Then`	42	`If nNodeId <> "" Then`
43	`OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER`	43	`OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER`
44		-
45	`Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID ="& nNodeId, ORADYN_DEFAULT )`	44	`Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID = :NODE_ID", ORADYN_DEFAULT )`
-		45	`OraDatabase.Parameters.Remove "NODE_ID"`
46		46
47	`If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then`	47	`If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then`
48	`outobjDetails.Item ("node_id") = rsQry("node_id")`	48	`outobjDetails.Item ("node_id") = rsQry("node_id")`
49	`outobjDetails.Item ("node_name") = rsQry("node_name")`	49	`outobjDetails.Item ("node_name") = rsQry("node_name")`
50	`outobjDetails.Item ("node_comments") = rsQry("node_comments")`	50	`outobjDetails.Item ("node_comments") = rsQry("node_comments")`
51	`outobjDetails.Item ("node_type_id") = rsQry("node_type_id")`	51	`outobjDetails.Item ("node_type_id") = rsQry("node_type_id")`
52	`outobjDetails.Item ("node_version") = rsQry("node_version")`	52	`outobjDetails.Item ("node_version") = rsQry("node_version")`
53	`outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")`	53	`outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")`
54	`outobjDetails.Item ("not_xml") = rsQry("not_xml")`	54	`outobjDetails.Item ("not_xml") = rsQry("not_xml")`
55		-
56	`Else`	55	`Else`
57	`Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId`	56	`Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId`
58		57
59	`End If`	58	`End If`
60		59
61	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`	-
62	`rsQry.Close`	60	`rsQry.Close`
63	`Set rsQry = Nothing`	61	`Set rsQry = Nothing`
64	`End If`	62	`End If`
65		63
66		64
Line 126...	Line 124...
126		124
127	`OraDatabase.Parameters.Remove "NODE_NAME"`	125	`OraDatabase.Parameters.Remove "NODE_NAME"`
128	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`	126	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`
129	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`	127	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`
130	`OraDatabase.Parameters.Remove "BOM_ID"`	128	`OraDatabase.Parameters.Remove "BOM_ID"`
131	`OraDatabase.Parameters.Remove "USER_ID"`	-
132	`OraDatabase.Parameters.Remove "NOT_XML"`	129	`OraDatabase.Parameters.Remove "NOT_XML"`
-		130	`OraDatabase.Parameters.Remove "USER_ID"`
133		131
134	`End Sub`	132	`End Sub`
135	`'--------------------------------------------------------------------------------------------------------------------------`	133	`'--------------------------------------------------------------------------------------------------------------------------`
136	`Sub UpdateNode ()`	134	`Sub UpdateNode ()`
137	`On Error Resume Next`	135	`On Error Resume Next`
Line 150...	Line 148...
150	`"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE, :NOT_XML ); END;"`	148	`"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE, :NOT_XML ); END;"`
151		149
152	`objEH.CatchORA ( OraSession )`	150	`objEH.CatchORA ( OraSession )`
153		151
154		152
-		153	`OraDatabase.Parameters.Remove "NODE_ID"`
155	`OraDatabase.Parameters.Remove "NODE_NAME"`	154	`OraDatabase.Parameters.Remove "NODE_NAME"`
156	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`	155	`OraDatabase.Parameters.Remove "NODE_TYPE_ID"`
157	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`	156	`OraDatabase.Parameters.Remove "NODE_COMMENTS"`
158	`OraDatabase.Parameters.Remove "NODE_ID"`	-
159	`OraDatabase.Parameters.Remove "USER_ID"`	157	`OraDatabase.Parameters.Remove "USER_ID"`
160	`OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"`	158	`OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"`
161	`OraDatabase.Parameters.Remove "NOT_XML"`	159	`OraDatabase.Parameters.Remove "NOT_XML"`
162		160
163	`End Sub`	161	`End Sub`

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/web/wEditNode.asp – Rev 5513 → 5955