Subversion Repositories DevTools

Rev

Rev 6440 | Rev 6579 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6440 Rev 6480
Line 203... Line 203...
203 
 
 203 
 
204 
'------------------------------------------------------------------------------------------------------------------------------------
 204 
'------------------------------------------------------------------------------------------------------------------------------------
205 
Sub PersistRippleStop (flag)
 205 
Sub PersistRippleStop (flag)
206 
   Dim rsTemp, Query_String
 206 
   Dim rsTemp, Query_String
207 
   Query_String = _
 207 
   Query_String = _
208 
       " SELECT persist_ripple_stop"&_
 208 
       " SELECT persist_ripple_stop, ripple_stop"&_
209 
       " FROM release_content"&_
 209 
       " FROM release_content"&_
210 
       " WHERE pv_id = :PV_ID AND rtag_id = :RTAG_ID"
 210 
       " WHERE pv_id = :PV_ID AND rtag_id = :RTAG_ID"
211 
 
 211 
 
212 
   OraDatabase.Parameters.Add "PV_ID",            parPv_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
 212 
   OraDatabase.Parameters.Add "PV_ID",            parPv_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
213 
   OraDatabase.Parameters.Add "RTAG_ID",          parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
 213 
   OraDatabase.Parameters.Add "RTAG_ID",          parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
214 
 
 214 
 
215 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 215 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
216 
 
 216 
 
217 
   Dim sValue, textValue
 217 
   Dim sValue, sValueP, textValue
218 
   sValue = NULL
 218 
   sValue = NULL
- 
 
 219 
   sValueP = NULL
219 
   textValue = "clear_persist_ripple_stop"
 220 
   textValue = "clear_persist_ripple_stop"
220 
	If flag Then
 221 
	If flag Then
221 
        textValue = "set_persist_ripple_stop"
 222 
        textValue = "set_persist_ripple_stop"
- 
 
 223 
        sValue = "s"
222 
        sValue = "Y"
 224 
        sValueP = "Y"
223 
	End If
 225 
	End If
224 
 
 226 
 
225 
 
 227 
 
226 
    'update fields
 228 
    'update fields
227 
    rsTemp.Edit()
 229 
    rsTemp.Edit()
228 
    rsTemp.Fields("persist_ripple_stop").Value = sValue
 230 
    rsTemp.Fields("persist_ripple_stop").Value = sValueP
- 
 
 231 
    rsTemp.Fields("ripple_stop").Value = sValue
229 
    rsTemp.Update()
 232 
    rsTemp.Update()
230 
 
 233 
 
231 
   ' Determine the location of th epackage-version
 234 
   ' Determine the location of th epackage-version
232 
   Query_String = _
 235 
   Query_String = _
233 
    "SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME AS ReleaseLocation" &_
 236 
    "SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME AS ReleaseLocation" &_