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" &_