Subversion Repositories DevTools

Rev

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

Rev 6647 Rev 6827
Line 150... Line 150...
150 
    End If
 150 
    End If
151 
 
 151 
 
152 
End Sub
 152 
End Sub
153 
 
 153 
 
154 
'-----------------------------------------------------------------------------------------------------------------------------
 154 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 155 
Sub Rebuild_Release_Metrics ( NNrtag_id )
- 
 
 156 
    On Error Resume Next
- 
 
 157 
 
- 
 
 158 
    objEH.TryORA ( OraSession )
- 
 
 159 
    OraDatabase.ExecuteSQL "BEGIN PK_RMAPI.UPDATE_RELEASE_METRICS( "& NNrtag_id &" ); END;"
- 
 
 160 
    objEH.CatchORA ( OraSession )
- 
 
 161 
 
- 
 
 162 
End Sub
- 
 
 163 
 
- 
 
 164 
'-----------------------------------------------------------------------------------------------------------------------------
155 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
 165 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
156 
   Dim rsErr, Query_String
 166 
   Dim rsErr, Query_String
157 
   Query_String = sQuery
 167 
   Query_String = sQuery
158 
 
 168 
 
159 
 
 169