Subversion Repositories DevTools

Rev

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

Rev 15 Rev 23
Line 21... Line 21...
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
- 
 
 26 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
26 
parProj_id = Request("proj_id")
 27 
parProj_id = Request("proj_id")
27 
parBranch_id = Request("branch_id")
 28 
parBranch_id = Request("branch_id")
28 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
29 
'----------------------------------------------
 30 
'----------------------------------------------
30 
%>
 31 
%>
Line 50... Line 51...
50
51
51 
	rsQry.Close
 52 
	rsQry.Close
52 
	Set rsQry = Nothing
 53 
	Set rsQry = Nothing
53 
End Sub
 54 
End Sub
54 
'--------------------------------------------------------------------------------------------------------------------------
 55 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 56 
Function GetRMReleaseList ( nRtagId, nProjId )
- 
 
 57 
	Dim rsQry, query
- 
 
 58
- 
 
 59 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 60 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 61
- 
 
 62 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
- 
 
 63
- 
 
 64 
	If rsQry.RecordCount > 0 Then
- 
 
 65 
		GetRMReleaseList = rsQry.GetRows()
- 
 
 66
- 
 
 67 
	Else
- 
 
 68 
		GetRMReleaseList = NULL
- 
 
 69
- 
 
 70 
	End If
- 
 
 71
- 
 
 72 
	OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 73 
	OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 74
- 
 
 75 
	rsQry.Close
- 
 
 76 
	Set rsQry = Nothing
- 
 
 77 
End Function
- 
 
 78 
'--------------------------------------------------------------------------------------------------------------------------
55 
Function GetBomNames ( nProj_id )
 79 
Function GetBomNames ( nProj_id )
56 
	Dim rsQry
 80 
	Dim rsQry
57
81
58 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 82 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
59
83
Line 75... Line 99...
75 
	OraDatabase.Parameters.Add "BOM_NAME", 		Request("bom_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 99 
	OraDatabase.Parameters.Add "BOM_NAME", 		Request("bom_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
76 
	OraDatabase.Parameters.Add "BRANCH_ID", 	Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "BRANCH_ID", 	Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "BOM_VERSION", 	Request("bom_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
101 
	OraDatabase.Parameters.Add "BOM_VERSION", 	Request("bom_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
78 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	Request("bom_lifecycle"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
102 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	Request("bom_lifecycle"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
79 
	OraDatabase.Parameters.Add "BOM_COMMENTS", 	Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 103 
	OraDatabase.Parameters.Add "BOM_COMMENTS", 	Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 104 
	OraDatabase.Parameters.Add "RTAG_ID_FK", 	Request("rtag_id_fk"), 		ORAPARM_INPUT, ORATYPE_NUMBER
80 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
105 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
81
106
82 
	objEH.TryORA ( OraSession )
 107 
	objEH.TryORA ( OraSession )
83
108
84 
	OraDatabase.ExecuteSQL _
 109 
	OraDatabase.ExecuteSQL _
85 
	"BEGIN   pk_Bom.Add_Bom ( :BOM_NAME, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, NULL, :USER_ID );   END;"
 110 
	"BEGIN   pk_Bom.Add_Bom ( :BOM_NAME, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, NULL, :RTAG_ID_FK, :USER_ID );   END;"
86
111
87 
	objEH.CatchORA ( OraSession )
 112 
	objEH.CatchORA ( OraSession )
88
113
89 
	OraDatabase.Parameters.Remove "BOM_VERSION"
 114 
	OraDatabase.Parameters.Remove "BOM_VERSION"
90 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
115 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
91 
	OraDatabase.Parameters.Remove "BOM_NAME"
 116 
	OraDatabase.Parameters.Remove "BOM_NAME"
92 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 117 
	OraDatabase.Parameters.Remove "BRANCH_ID"
93 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
 118 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
- 
 
 119 
	OraDatabase.Parameters.Remove "RTAG_ID_FK"
94 
	OraDatabase.Parameters.Remove "USER_ID"
 120 
	OraDatabase.Parameters.Remove "USER_ID"
95 
End Sub
 121 
End Sub
96 
'--------------------------------------------------------------------------------------------------------------------------
 122 
'--------------------------------------------------------------------------------------------------------------------------
97 
%>
 123 
%>
98 
<%
 124 
<%
Line 187... Line 213...
187 
				      </tr>
213 
				      </tr>
188 
					  <tr>
 214 
					  <tr>
189 
				        <td nowrap class="form_iname" valign="top">BOM Lifecycle </td>
 215 
				        <td nowrap class="form_iname" valign="top">BOM Lifecycle </td>
190 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_lifecycle", Request("bom_lifecycle") , "class='form_ivalue' size='60' " )%></td>
 216 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_lifecycle", Request("bom_lifecycle") , "class='form_ivalue' size='60' " )%></td>
191 
						<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
 217 
						<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
- 
 
 218 
				      </tr>
- 
 
 219 
					  <tr>
- 
 
 220 
				        <td nowrap class="form_iname" valign="top">Release Manager Reference </td>
- 
 
 221 
				        <td valign="top" nowrap><%=objFormComponent.Combo ( "rtag_id_fk", GetRMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), dbPARproj_id ) , TRUE, "class='form_ivalue' " )%></td>
192 
				      </tr>
222 
				      </tr>
193 
				      <tr>
 223 
				      <tr>
194 
				        <td valign="top" nowrap class="form_iname">Comments</td>
 224 
				        <td valign="top" nowrap class="form_iname">Comments</td>
195 
				        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
 225 
				        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
196 
						<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
 226 
						<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
197 
				      </tr>
 227 
				      </tr>