Subversion Repositories DevTools

Rev

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

Rev 21 Rev 23
Line 49... Line 49...
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
55
55 
		Else
 56 
		Else
56 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
 57 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
57
58
58 
		End If
 59 
		End If
Line 110... Line 111...
110
111
111 
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
112 
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
112 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
113 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
113 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
114 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
114 
	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
- 
 
 116 
	OraDatabase.Parameters.Add "NOT_XML", 		Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
115 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
117 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
116
118
117 
	objEH.TryORA ( OraSession )
 119 
	objEH.TryORA ( OraSession )
118
120
119 
	OraDatabase.ExecuteSQL _
 121 
	OraDatabase.ExecuteSQL _
120 
	"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID ); END;"
122 
	"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID, :NOT_XML ); END;"
121
123
122 
	objEH.CatchORA ( OraSession )
 124 
	objEH.CatchORA ( OraSession )
123
125
124
126
125 
	OraDatabase.Parameters.Remove "NODE_NAME"
 127 
	OraDatabase.Parameters.Remove "NODE_NAME"
126 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 128 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
127 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
 129 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
128 
	OraDatabase.Parameters.Remove "BOM_ID"
 130 
	OraDatabase.Parameters.Remove "BOM_ID"
129 
	OraDatabase.Parameters.Remove "USER_ID"
 131 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 132 
	OraDatabase.Parameters.Remove "NOT_XML"
130
133
131 
End Sub
 134 
End Sub
132 
'--------------------------------------------------------------------------------------------------------------------------
 135 
'--------------------------------------------------------------------------------------------------------------------------
133 
Sub UpdateNode ()
 136 
Sub UpdateNode ()
134 
	On Error Resume Next
 137 
	On Error Resume Next
Line 137... Line 140...
137 
	OraDatabase.Parameters.Add "NODE_NAME", 			Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
140 
	OraDatabase.Parameters.Add "NODE_NAME", 			Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
138 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 			Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
141 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 			Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
139 
	OraDatabase.Parameters.Add "NODE_COMMENTS", 		Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
142 
	OraDatabase.Parameters.Add "NODE_COMMENTS", 		Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
140 
	OraDatabase.Parameters.Add "USER_ID", 				objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
143 
	OraDatabase.Parameters.Add "USER_ID", 				objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
141 
	OraDatabase.Parameters.Add "NODE_LIFE_CYCLE", 		Request("node_life_cycle"), 	ORAPARM_INPUT, ORATYPE_NUMBER
144 
	OraDatabase.Parameters.Add "NODE_LIFE_CYCLE", 		Request("node_life_cycle"), 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 145 
	OraDatabase.Parameters.Add "NOT_XML", 				Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
142
146
143 
	objEH.TryORA ( OraSession )
 147 
	objEH.TryORA ( OraSession )
144
148
145 
	OraDatabase.ExecuteSQL _
 149 
	OraDatabase.ExecuteSQL _
146 
	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE ); END;"
150 
	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE, :NOT_XML ); END;"
147
151
148 
	objEH.CatchORA ( OraSession )
 152 
	objEH.CatchORA ( OraSession )
149
153
150
154
151 
	OraDatabase.Parameters.Remove "NODE_NAME"
 155 
	OraDatabase.Parameters.Remove "NODE_NAME"
152 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 156 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
153 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
 157 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
154 
	OraDatabase.Parameters.Remove "NODE_ID"
 158 
	OraDatabase.Parameters.Remove "NODE_ID"
155 
	OraDatabase.Parameters.Remove "USER_ID"
159 
	OraDatabase.Parameters.Remove "USER_ID"
156 
	OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
160 
	OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
- 
 
 161 
	OraDatabase.Parameters.Remove "NOT_XML"
157
162
158 
End Sub
 163 
End Sub
159 
'--------------------------------------------------------------------------------------------------------------------------
 164 
'--------------------------------------------------------------------------------------------------------------------------
160 
%>
 165 
%>
161 
<%
 166 
<%
Line 252... Line 257...
252 
      </tr>
 257 
      </tr>
253 
      <tr>
 258 
      <tr>
254 
        <td nowrap class="form_iname" valign="top">Node LifeCycle </td>
 259 
        <td nowrap class="form_iname" valign="top">Node LifeCycle </td>
255 
        <td valign="top"><%=objFormComponent.TextBox ( "node_life_cycle", objForm.GetValue( "node_life_cycle", objFormCollector.Item("node_life_cycle") ), "size='60' class='form_ivalue'" )%></td>
 260 
        <td valign="top"><%=objFormComponent.TextBox ( "node_life_cycle", objForm.GetValue( "node_life_cycle", objFormCollector.Item("node_life_cycle") ), "size='60' class='form_ivalue'" )%></td>
256 
      </tr>
261 
      </tr>
257 
<%End If%>
262 
<%End If%>
- 
 
 263 
	  <tr>
- 
 
 264 
        <td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
- 
 
 265 
		<%If IsNull(objFormCollector.Item("not_xml")) Then%>
- 
 
 266 
        <td valign="top"><input type="checkbox" name="not_xml"></td>
- 
 
 267 
		<%Else%>
- 
 
 268 
        <td valign="top"><input type="checkbox" name="not_xml" checked></td>
- 
 
 269 
		<%End If%>
- 
 
 270 
		<td valign="top"></td>
- 
 
 271 
      </tr>
258 
      <tr>
 272 
      <tr>
259 
        <td valign="top" nowrap class="form_iname">Comments</td>
 273 
        <td valign="top" nowrap class="form_iname">Comments</td>
260 
        <td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
 274 
        <td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
261 
		<td valign="top"><%=objForm.Validate ("node_comments")%></td>
 275 
		<td valign="top"><%=objForm.Validate ("node_comments")%></td>
262 
      </tr>
 276 
      </tr>