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