Subversion Repositories DevTools

Rev

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

Rev 15 Rev 23
Line 22... Line 22...
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim parFrom_Bom_id
 24 
Dim parFrom_Bom_id
25 
'------------ CONSTANTS DECLARATION -----------
 25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
- 
 
 27 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
27 
parProj_id = Request("proj_id")
 28 
parProj_id = Request("proj_id")
28 
parFrom_Bom_id = Request("from_bom_id")
 29 
parFrom_Bom_id = Request("from_bom_id")
29 
'------------ CONDITIONS ----------------------
 30 
'------------ CONDITIONS ----------------------
30 
'------------ CONDITIONS ----------------------
 31 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
 32 
'----------------------------------------------
32 
%>
 33 
%>
33 
<%
 34 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------
 35 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 36 
Function GetRMReleaseList ( nRtagId, nProjId )
- 
 
 37 
	Dim rsQry, query
- 
 
 38
- 
 
 39 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 40 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 41
- 
 
 42 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
- 
 
 43
- 
 
 44 
	If rsQry.RecordCount > 0 Then
- 
 
 45 
		GetRMReleaseList = rsQry.GetRows()
- 
 
 46
- 
 
 47 
	Else
- 
 
 48 
		GetRMReleaseList = NULL
- 
 
 49
- 
 
 50 
	End If
- 
 
 51
- 
 
 52 
	OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 53 
	OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 54
- 
 
 55 
	rsQry.Close
- 
 
 56 
	Set rsQry = Nothing
- 
 
 57 
End Function
- 
 
 58 
'--------------------------------------------------------------------------------------------------------------------------
35 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 59 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
- 
 
 60
36 
	Dim rsQry, query
 61 
	Dim rsQry, query
37 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
62 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
38
63
39
64
40 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT )
 65 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT )
Line 80... Line 105...
80 
	On Error Resume Next
 105 
	On Error Resume Next
81
106
82 
	OraDatabase.Parameters.Add "FROM_BOM_ID", 	Request("from_bom_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
107 
	OraDatabase.Parameters.Add "FROM_BOM_ID", 	Request("from_bom_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
83 
	OraDatabase.Parameters.Add "BRANCH_ID", 	Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
108 
	OraDatabase.Parameters.Add "BRANCH_ID", 	Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
84 
	OraDatabase.Parameters.Add "BOM_VERSION", 	Request("bom_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
109 
	OraDatabase.Parameters.Add "BOM_VERSION", 	Request("bom_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
85 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	Request("bom_lifecycle"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 110 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", Request("bom_lifecycle"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
86 
	OraDatabase.Parameters.Add "BOM_COMMENTS", 	Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 111 
	OraDatabase.Parameters.Add "BOM_COMMENTS", 	Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 112 
	OraDatabase.Parameters.Add "RTAG_ID_FK", 	Request("rtag_id_fk"), 		ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
113 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
88
114
89 
	objEH.TryORA ( OraSession )
 115 
	objEH.TryORA ( OraSession )
90 
 
 116 
 
91 
	'Response.write Request("from_bom_id") &"-"& Request("branch_id")
117 
	'Response.write Request("from_bom_id") &"-"& Request("branch_id")
92 
	OraDatabase.ExecuteSQL _
 118 
	OraDatabase.ExecuteSQL _
93 
	"BEGIN   pk_Bom.Add_Bom (NULL, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, :FROM_BOM_ID, :USER_ID );   END;"
 119 
	"BEGIN   pk_Bom.Add_Bom (NULL, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, :FROM_BOM_ID, :RTAG_ID_FK, :USER_ID );   END;"
94
120
95 
	objEH.CatchORA ( OraSession )
 121 
	objEH.CatchORA ( OraSession )
96
122
97
123
98 
 
 124 
 
99 
	OraDatabase.Parameters.Remove "BOM_VERSION"
 125 
	OraDatabase.Parameters.Remove "BOM_VERSION"
100 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
126 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
101 
	OraDatabase.Parameters.Remove "FROM_BOM_ID"
 127 
	OraDatabase.Parameters.Remove "FROM_BOM_ID"
102 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 128 
	OraDatabase.Parameters.Remove "BRANCH_ID"
103 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
 129 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
- 
 
 130 
	OraDatabase.Parameters.Remove "RTAG_ID_FK"
104 
	OraDatabase.Parameters.Remove "USER_ID"
 131 
	OraDatabase.Parameters.Remove "USER_ID"
105 
End Sub
 132 
End Sub
106 
'--------------------------------------------------------------------------------------------------------------------------
 133 
'--------------------------------------------------------------------------------------------------------------------------
107 
%>
 134 
%>
108 
<%
 135 
<%
109 
'------------ RUN BEFORE PAGE RENDER ----------
 136 
'------------ RUN BEFORE PAGE RENDER ----------
110 
' --- Get Form details from DB ---
 137 
' --- Get Form details from DB ---
111 
Call GetFormDetails ( parFrom_Bom_id, objFormCollector )
 138 
Call GetFormDetails ( parFrom_Bom_id, objFormCollector )
112 
 
 139 
 
- 
 
 140 
Call GetBomDetails ( parFrom_Bom_id, objFormCollector )
- 
 
 141 
 
- 
 
 142 
 
113 
' --- Load Validation Rules ---
 143 
' --- Load Validation Rules ---
114 
 
 144 
 
115 
Call objForm.LoadValidationRules ( Array("bom_comments"), OraDatabase )		' Load Validation Rules
 145 
Call objForm.LoadValidationRules ( Array("bom_comments"), OraDatabase )		' Load Validation Rules
116 
Call objForm.LoadValidationRules ( Array("bom_version"), OraDatabase )		' Load Validation Rules
 146 
Call objForm.LoadValidationRules ( Array("bom_version"), OraDatabase )		' Load Validation Rules
117 
Call objForm.LoadValidationRules ( Array("bom_lifecycle"), OraDatabase )		' Load Validation Rules
 147 
Call objForm.LoadValidationRules ( Array("bom_lifecycle"), OraDatabase )		' Load Validation Rules
Line 206... Line 236...
206 
				      </tr>
236 
				      </tr>
207 
					  <tr>
 237 
					  <tr>
208 
				        <td nowrap class="form_iname" valign="top">BOM Lifecycle </td>
 238 
				        <td nowrap class="form_iname" valign="top">BOM Lifecycle </td>
209 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_lifecycle", Request("bom_lifecycle") , "class='form_ivalue' size='60' " )%></td>
 239 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_lifecycle", Request("bom_lifecycle") , "class='form_ivalue' size='60' " )%></td>
210 
						<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
 240 
						<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
- 
 
 241 
				      </tr>
- 
 
 242
- 
 
 243 
	  				  <tr>
- 
 
 244 
				        <td nowrap class="form_iname" valign="top">Release Manager Reference</td>
- 
 
 245 
				        <td valign="top"><%=objFormComponent.Combo ( "rtag_id_fk", GetRMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), dbPARproj_id ), TRUE, "class='form_ivalue'" )%></td>
- 
 
 246 
						<td valign="top"></td>
211 
				      </tr>
247 
				      </tr>
212 
				      <tr>
 248 
				      <tr>
213 
				        <td valign="top" nowrap class="form_iname">Comments</td>
 249 
				        <td valign="top" nowrap class="form_iname">Comments</td>
214 
				        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
 250 
				        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
215 
						<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
 251 
						<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
216 
				      </tr>
 252 
				      </tr>