Subversion Repositories DevTools

Rev

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

Rev 13 Rev 29
Line 18... Line 18...
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector
 23 
Dim objFormCollector, objProjCollector
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 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
27 
parBom_id = Request("bom_id")
 27 
parBom_id = Request("bom_id")
28 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 28 
Set objFormCollector = CreateObject("Scripting.Dictionary")
- 
 
 29 
Set	objProjCollector = CreateObject("Scripting.Dictionary")
29 
'------------ CONDITIONS ----------------------
 30 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
 31 
'----------------------------------------------
31 
%>
 32 
%>
32 
<%
 33 
<%
- 
 
 34 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 35 
Sub GetProjectCollection ( nProj_id, ByRef outobjDetails )
- 
 
 36 
	Dim rsQry, query
- 
 
 37 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 38
- 
 
 39 
	query = _
- 
 
 40 
	" SELECT pr.*"&_
- 
 
 41 
	"   FROM DM_PROJECTS pr"&_
- 
 
 42 
	"  WHERE pr.PROJ_ID = :PROJ_ID"
- 
 
 43
- 
 
 44 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
- 
 
 45
- 
 
 46 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
- 
 
 47 
		outobjDetails.Item ("proj_id")   = rsQry("proj_id")
- 
 
 48 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
- 
 
 49 
		outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
- 
 
 50 
		outobjDetails.Item ("is_hidden") = rsQry("is_hidden")
- 
 
 51
- 
 
 52 
	'Else
- 
 
 53 
	'	Err.Raise 8, "Sub GetProjectCollection", "Empty record set returned. nProj_id="& nProj_id
- 
 
 54
- 
 
 55 
	End If
- 
 
 56
- 
 
 57 
	OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 58 
	rsQry.Close
- 
 
 59 
	Set rsQry = Nothing
- 
 
 60 
End Sub
- 
 
 61 
'-----------------------------------------------------------------------------------------------------------------
33 
'--------------------------------------------------------------------------------------------------------------------------
 62 
'--------------------------------------------------------------------------------------------------------------------------
34 
Sub GetFormDetails ( nBomId, ByRef outobjDetails )
 63 
Sub GetFormDetails ( nBomId, ByRef outobjDetails )
35
64
36 
	Call GetBomDetails ( nBomId, outobjDetails )
 65 
	Call GetBomDetails ( nBomId, outobjDetails )
37
66
Line 39... Line 68...
39
68
40 
End Sub
 69 
End Sub
41 
'--------------------------------------------------------------------------------------------------------------------------
 70 
'--------------------------------------------------------------------------------------------------------------------------
42 
Function GetRMReleaseList ( nRtagId, nProjId )
 71 
Function GetRMReleaseList ( nRtagId, nProjId )
43 
	Dim rsQry, query
 72 
	Dim rsQry, query
44
- 
 
45 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
73 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
46 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
74 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
47
75
48 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
 76 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
49
77
Line 88... Line 116...
88 
%>
 116 
%>
89 
<%
 117 
<%
90 
'------------ RUN BEFORE PAGE RENDER ----------
 118 
'------------ RUN BEFORE PAGE RENDER ----------
91 
' --- Get Form details from DB ---
 119 
' --- Get Form details from DB ---
92 
Call GetFormDetails ( parBom_id, objFormCollector )
 120 
Call GetFormDetails ( parBom_id, objFormCollector )
- 
 
 121 
Call GetProjectCollection ( dbPARproj_id, objProjCollector )
93 
 
 122 
 
94 
' --- Load Validation Rules ---
 123 
' --- Load Validation Rules ---
95 
Call objForm.LoadValidationRules ( Array("bom_comments"), OraDatabase )		' Load Validation Rules
 124 
Call objForm.LoadValidationRules ( Array("bom_comments"), OraDatabase )		' Load Validation Rules
96 
 
 125 
 
97 
' --- Enter Form Validation Rule Changes here... ----
 126 
' --- Enter Form Validation Rule Changes here... ----
Line 155... Line 184...
155 
        <td valign="top"><%=objFormComponent.TextBox ( "bom_full_version", objFormCollector.Item("bom_full_version"), "size='60' class='form_ivalue' disabled" )%></td>
 184 
        <td valign="top"><%=objFormComponent.TextBox ( "bom_full_version", objFormCollector.Item("bom_full_version"), "size='60' class='form_ivalue' disabled" )%></td>
156 
		<td valign="top"></td>
 185 
		<td valign="top"></td>
157 
      </tr>
 186 
      </tr>
158 
	  <tr>
 187 
	  <tr>
159 
        <td nowrap class="form_iname" valign="top">Release Manager Reference</td>
 188 
        <td nowrap class="form_iname" valign="top">Release Manager Reference</td>
160 
        <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>
 189 
        <td valign="top"><%=objFormComponent.Combo ( "rtag_id_fk", GetRMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), objProjCollector.Item ("rm_projects_fk") ), TRUE, "class='form_ivalue'" )%></td>
161 
		<td valign="top"></td>
 190 
		<td valign="top"></td>
162 
      </tr>
 191 
      </tr>
163 
      <tr>
 192 
      <tr>
164 
        <td valign="top" nowrap class="form_iname">Bom Comments</td>
 193 
        <td valign="top" nowrap class="form_iname">Bom Comments</td>
165 
        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", objForm.GetValue( "bom_comments", objFormCollector.Item("bom_comments") ), 10, 60, "class='form_ivalue'" )%></td>
 194 
        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", objForm.GetValue( "bom_comments", objFormCollector.Item("bom_comments") ), 10, 60, "class='form_ivalue'" )%></td>