| Line 35... |
Line 35... |
| 35 |
' Estimate the complete ripple time of this package
|
35 |
' Estimate the complete ripple time of this package
|
| 36 |
' Provide a warning if the complete ripple time is long
|
36 |
' Provide a warning if the complete ripple time is long
|
| 37 |
|
37 |
|
| 38 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
38 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 39 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
39 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
40 |
On Error Resume Next
|
| 40 |
Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CalcRippleTime.sql"), cint(0))
|
41 |
Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CalcRippleTime.sql"), cint(0))
|
| 41 |
OraDatabase.Parameters.Remove "PV_ID"
|
42 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 42 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
43 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 43 |
If rsTemp.RecordCount > 0 Then
|
44 |
If rsTemp.RecordCount > 0 Then
|
| 44 |
TotalBuildTime = NiceCLng (rsTemp("Total_BuildTime"), 0)
|
45 |
TotalBuildTime = NiceCLng (rsTemp("Total_BuildTime"), 0)
|
| Line 48... |
Line 49... |
| 48 |
End If
|
49 |
End If
|
| 49 |
End If
|
50 |
End If
|
| 50 |
rsTemp.Close()
|
51 |
rsTemp.Close()
|
| 51 |
Set rsTemp = nothing
|
52 |
Set rsTemp = nothing
|
| 52 |
|
53 |
|
| - |
|
54 |
If err.Number <> 0 Then
|
| - |
|
55 |
Call sMessageAdd(2,"Error calculating build time")
|
| - |
|
56 |
End If
|
| - |
|
57 |
|
| 53 |
'------------------------------------------------------------------------------------------------------------------------------------------
|
58 |
'------------------------------------------------------------------------------------------------------------------------------------------
|
| 54 |
' Add a line of text to the System Message
|
59 |
' Add a line of text to the System Message
|
| 55 |
'
|
60 |
'
|
| 56 |
Sub sMessageAdd(eLevel, text)
|
61 |
Sub sMessageAdd(eLevel, text)
|
| 57 |
If NOT isNull(sMessage) Then
|
62 |
If NOT isNull(sMessage) Then
|