| Line 72... |
Line 72... |
| 72 |
Sub AddBom ()
|
72 |
Sub AddBom ()
|
| 73 |
On Error Resume Next
|
73 |
On Error Resume Next
|
| 74 |
|
74 |
|
| 75 |
OraDatabase.Parameters.Add "BOM_NAME", Request("bom_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
75 |
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
|
76 |
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
|
| - |
|
78 |
OraDatabase.Parameters.Add "BOM_LIFECYCLE", Request("bom_lifecycle"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 77 |
OraDatabase.Parameters.Add "BOM_COMMENTS", Request("bom_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
79 |
OraDatabase.Parameters.Add "BOM_COMMENTS", Request("bom_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 78 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
80 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 79 |
|
81 |
|
| 80 |
objEH.TryORA ( OraSession )
|
82 |
objEH.TryORA ( OraSession )
|
| 81 |
|
83 |
|
| 82 |
OraDatabase.ExecuteSQL _
|
84 |
OraDatabase.ExecuteSQL _
|
| 83 |
"BEGIN pk_Bom.Add_Bom ( :BOM_NAME, :BOM_COMMENTS, :BRANCH_ID, NULL, :USER_ID ); END;"
|
85 |
"BEGIN pk_Bom.Add_Bom ( :BOM_NAME, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, NULL, :USER_ID ); END;"
|
| 84 |
|
86 |
|
| 85 |
objEH.CatchORA ( OraSession )
|
87 |
objEH.CatchORA ( OraSession )
|
| 86 |
|
88 |
|
| 87 |
|
- |
|
| - |
|
89 |
OraDatabase.Parameters.Remove "BOM_VERSION"
|
| - |
|
90 |
OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
|
| 88 |
OraDatabase.Parameters.Remove "BOM_NAME"
|
91 |
OraDatabase.Parameters.Remove "BOM_NAME"
|
| 89 |
OraDatabase.Parameters.Remove "BRANCH_ID"
|
92 |
OraDatabase.Parameters.Remove "BRANCH_ID"
|
| 90 |
OraDatabase.Parameters.Remove "BOM_COMMENTS"
|
93 |
OraDatabase.Parameters.Remove "BOM_COMMENTS"
|
| 91 |
OraDatabase.Parameters.Remove "USER_ID"
|
94 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 92 |
End Sub
|
95 |
End Sub
|
| Line 98... |
Line 101... |
| 98 |
|
101 |
|
| 99 |
' --- Get Form details from DB ---
|
102 |
' --- Get Form details from DB ---
|
| 100 |
|
103 |
|
| 101 |
' --- Load Validation Rules ---
|
104 |
' --- Load Validation Rules ---
|
| 102 |
Call objForm.LoadValidationRules ( Array("bom_name","bom_comments"), OraDatabase ) ' Load Validation Rules
|
105 |
Call objForm.LoadValidationRules ( Array("bom_name","bom_comments"), OraDatabase ) ' Load Validation Rules
|
| - |
|
106 |
Call objForm.LoadValidationRules ( Array("bom_version"), OraDatabase ) ' Load Validation Rules
|
| - |
|
107 |
Call objForm.LoadValidationRules ( Array("bom_lifecycle"), OraDatabase ) ' Load Validation Rules
|
| 103 |
|
108 |
|
| 104 |
' --- Enter Form Validation Rule Changes here... ----
|
109 |
' --- Enter Form Validation Rule Changes here... ----
|
| 105 |
'----------------------------------------------------
|
110 |
'----------------------------------------------------
|
| 106 |
|
111 |
|
| 107 |
' --- RUN onPostBack ---
|
112 |
' --- RUN onPostBack ---
|
| 108 |
If Request("action") <> "" Then
|
113 |
If Request("action") <> "" Then
|
| 109 |
If objForm.IsValidOnPostBack Then
|
114 |
If objForm.IsValidOnPostBack Then
|
| 110 |
' --- Form is Valid ---
|
115 |
' --- Form is Valid ---
|
| - |
|
116 |
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BOMS WHERE BOM_VERSION='"& Request("bom_version") &"' AND BRANCH_ID = "& Request("branch_id") &" AND BOM_LIFECYCLE='"& Request("bom_lifecycle") &"'" , ORADYN_DEFAULT )
|
| - |
|
117 |
|
| - |
|
118 |
If rsQry.RecordCount = 0 Then
|
| 111 |
Call AddBom()
|
119 |
Call AddBom()
|
| 112 |
|
120 |
|
| 113 |
If objEH.Finally Then
|
121 |
If objEH.Finally Then
|
| 114 |
Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
|
122 |
Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
|
| 115 |
End If
|
123 |
End If
|
| - |
|
124 |
Else
|
| - |
|
125 |
Call Messenger ("Cannot create SBOM! The selected sbom version and lifecycle exists in this branch.", 1, "100%")
|
| - |
|
126 |
rsQry.Close
|
| - |
|
127 |
Set rsQry = nothing
|
| - |
|
128 |
End If
|
| 116 |
|
129 |
|
| 117 |
End If
|
130 |
End If
|
| - |
|
131 |
|
| 118 |
End If
|
132 |
End If
|
| 119 |
|
- |
|
| 120 |
'----------------------------------------------
|
133 |
'----------------------------------------------
|
| 121 |
%>
|
134 |
%>
|
| 122 |
<html>
|
135 |
<html>
|
| 123 |
<head>
|
136 |
<head>
|
| 124 |
<title>Deployment Manager</title>
|
137 |
<title>Deployment Manager</title>
|
| Line 165... |
Line 178... |
| 165 |
<tr>
|
178 |
<tr>
|
| 166 |
<td nowrap class="form_iname" valign="top">BOM Name </td>
|
179 |
<td nowrap class="form_iname" valign="top">BOM Name </td>
|
| 167 |
<td valign="top" nowrap><%=objFormComponent.ComboWithText ( "bom_name", NULL, GetBomNames( parProj_id ), "class='form_ivalue' size='60'" )%></td>
|
180 |
<td valign="top" nowrap><%=objFormComponent.ComboWithText ( "bom_name", NULL, GetBomNames( parProj_id ), "class='form_ivalue' size='60'" )%></td>
|
| 168 |
<td valign="top"> <%=objForm.Validate ("bom_name")%> </td>
|
181 |
<td valign="top"> <%=objForm.Validate ("bom_name")%> </td>
|
| 169 |
</tr>
|
182 |
</tr>
|
| - |
|
183 |
<tr>
|
| - |
|
184 |
<td nowrap class="form_iname" valign="top">BOM Version </td>
|
| - |
|
185 |
<td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_version", Request("bom_version") , "class='form_ivalue' size='60' " )%></td>
|
| - |
|
186 |
<td valign="top"><%=objForm.Validate ("bom_version")%></td>
|
| - |
|
187 |
</tr>
|
| - |
|
188 |
<tr>
|
| - |
|
189 |
<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>
|
| - |
|
191 |
<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
|
| - |
|
192 |
</tr>
|
| 170 |
<tr>
|
193 |
<tr>
|
| 171 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
194 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
| 172 |
<td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
|
195 |
<td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
|
| 173 |
<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
|
196 |
<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
|
| 174 |
</tr>
|
197 |
</tr>
|