| Line 456... |
Line 456... |
| 456 |
|
456 |
|
| 457 |
OraDatabase.Parameters.Remove "BOM_ID"
|
457 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| 458 |
rsQry.Close
|
458 |
rsQry.Close
|
| 459 |
Set rsQry = Nothing
|
459 |
Set rsQry = Nothing
|
| 460 |
End Sub
|
460 |
End Sub
|
| - |
|
461 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
462 |
Sub GetProjDetails ( nBom_id, ByRef outobjDetails )
|
| - |
|
463 |
Dim rsQry, query
|
| - |
|
464 |
OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
465 |
|
| - |
|
466 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjDetails.sql") , ORADYN_DEFAULT )
|
| - |
|
467 |
|
| - |
|
468 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| - |
|
469 |
outobjDetails.Item ("is_download") = rsQry("is_download")
|
| - |
|
470 |
Else
|
| - |
|
471 |
Err.Raise 8, "Sub GetBomDetails", "Empty record set returned. nBom_id="& nBom_id
|
| - |
|
472 |
|
| - |
|
473 |
End If
|
| - |
|
474 |
|
| - |
|
475 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| - |
|
476 |
rsQry.Close
|
| - |
|
477 |
Set rsQry = Nothing
|
| - |
|
478 |
End Sub
|
| 461 |
'-----------------------------------------------------------------------------------------------------------------------------
|
479 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 462 |
Sub RaiseMsg ( SSerrFile, SSerrDesc )
|
480 |
Sub RaiseMsg ( SSerrFile, SSerrDesc )
|
| 463 |
' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
|
481 |
' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
|
| 464 |
Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
|
482 |
Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
|
| 465 |
Response.Redirect ("messages/"& SSerrFile )
|
483 |
Response.Redirect ("messages/"& SSerrFile )
|