| Line 109... |
Line 109... |
| 109 |
rsQry.Close
|
109 |
rsQry.Close
|
| 110 |
Set rsQry = Nothing
|
110 |
Set rsQry = Nothing
|
| 111 |
End Sub
|
111 |
End Sub
|
| 112 |
'--------------------------------------------------------------------------------------------------------------------------
|
112 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 113 |
Sub UpdateReleaseDetails ()
|
113 |
Sub UpdateReleaseDetails ()
|
| 114 |
On Error Resume Next
|
- |
|
| 115 |
|
114 |
|
| 116 |
Dim State : State = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)
|
115 |
Dim State : State = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)
|
| 117 |
Dim lxrState : lxrState = Iif(CheckBoxValue(request("lxr")),"Y","N")
|
116 |
Dim lxrState : lxrState = Iif(CheckBoxValue(request("lxr")),"Y","N")
|
| 118 |
Dim bAge : bAge = Request("build_age")
|
117 |
Dim bAge : bAge = Request("build_age")
|
| 119 |
If bAge = 0 Then bAge = NULL
|
118 |
If bAge = 0 Then bAge = NULL
|
| Line 127... |
Line 126... |
| 127 |
OraDatabase.Parameters.Add "PARENT_RTAG_ID", Request("parent_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
126 |
OraDatabase.Parameters.Add "PARENT_RTAG_ID", Request("parent_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 128 |
OraDatabase.Parameters.Add "MASSREF_RTAG_ID", Request("massref_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
127 |
OraDatabase.Parameters.Add "MASSREF_RTAG_ID", Request("massref_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 129 |
OraDatabase.Parameters.Add "STATE", State, ORAPARM_INPUT, ORATYPE_VARCHAR
|
128 |
OraDatabase.Parameters.Add "STATE", State, ORAPARM_INPUT, ORATYPE_VARCHAR
|
| 130 |
OraDatabase.Parameters.Add "BUILD_AGE", bAge, ORAPARM_INPUT, ORATYPE_NUMBER
|
129 |
OraDatabase.Parameters.Add "BUILD_AGE", bAge, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 131 |
OraDatabase.Parameters.Add "LXR", lxrState, ORAPARM_INPUT, ORATYPE_CHAR
|
130 |
OraDatabase.Parameters.Add "LXR", lxrState, ORAPARM_INPUT, ORATYPE_CHAR
|
| - |
|
131 |
|
| - |
|
132 |
objEH.ErrorRedirect = FALSE
|
| - |
|
133 |
On Error Resume Next
|
| 132 |
objEH.TryORA ( OraSession )
|
134 |
objEH.TryORA ( OraSession )
|
| 133 |
|
135 |
|
| 134 |
OraDatabase.ExecuteSQL _
|
136 |
OraDatabase.ExecuteSQL _
|
| 135 |
"BEGIN PK_RELEASE.UPDATE_RELEASE ( " &_
|
137 |
"BEGIN PK_RELEASE.UPDATE_RELEASE ( " &_
|
| 136 |
" :RTAG_ID, " &_
|
138 |
" :RTAG_ID, " &_
|