Subversion Repositories DevTools

Rev

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

Rev 7395 Rev 7417
Line 360... Line 360...
360 
        objEH.ErrorRedirect = FALSE
 360 
        objEH.ErrorRedirect = FALSE
361 
        objEH.TryORA ( OraSession )
 361 
        objEH.TryORA ( OraSession )
362 
        On Error Resume Next
 362 
        On Error Resume Next
363 
        OraDatabase.ExecuteSQL SqlQry
 363 
        OraDatabase.ExecuteSQL SqlQry
364 
        objEH.CatchORA ( OraSession )
 364 
        objEH.CatchORA ( OraSession )
- 
 
 365 
 
- 
 
 366 
        If NOT objEH.LastOraFailed Then
- 
 
 367 
            objEH.TryORA ( OraSession )
- 
 
 368 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
- 
 
 369 
            objEH.CatchORA ( OraSession )
- 
 
 370 
		End If
- 
 
 371 
 
365 
        On Error GoTo 0
 372 
        On Error GoTo 0
366 
        result = 0
 373 
        result = 0
367 
 
 374 
 
368 
    OraDatabase.Parameters.Remove "RTAG_ID"
 375 
    OraDatabase.Parameters.Remove "RTAG_ID"
369 
    OraDatabase.Parameters.Remove "PV_ID"
 376 
    OraDatabase.Parameters.Remove "PV_ID"
Line 390... Line 397...
390 
        objEH.ErrorRedirect = FALSE
 397 
        objEH.ErrorRedirect = FALSE
391 
        objEH.TryORA ( OraSession )
 398 
        objEH.TryORA ( OraSession )
392 
        On Error Resume Next
 399 
        On Error Resume Next
393 
        OraDatabase.ExecuteSQL SqlQry
 400 
        OraDatabase.ExecuteSQL SqlQry
394 
        objEH.CatchORA ( OraSession )
 401 
        objEH.CatchORA ( OraSession )
- 
 
 402 
 
- 
 
 403 
        If NOT objEH.LastOraFailed Then
- 
 
 404 
            objEH.TryORA ( OraSession )
- 
 
 405 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
- 
 
 406 
            objEH.CatchORA ( OraSession )
- 
 
 407 
		End If
- 
 
 408 
 
- 
 
 409 
 
395 
        On Error GoTo 0
 410 
        On Error GoTo 0
396 
        result = 0
 411 
        result = 0
397 
 
 412 
 
398 
    OraDatabase.Parameters.Remove "RTAG_ID"
 413 
    OraDatabase.Parameters.Remove "RTAG_ID"
399 
 
 414