| Line 452... |
Line 452... |
| 452 |
Function EuroDateTime ( dDate )
|
452 |
Function EuroDateTime ( dDate )
|
| 453 |
' Ensures Euro DateTime format DD/MM/YYYY H24:MIN:SS
|
453 |
' Ensures Euro DateTime format DD/MM/YYYY H24:MIN:SS
|
| 454 |
If IsNull(dDate) Then Exit Function
|
454 |
If IsNull(dDate) Then Exit Function
|
| 455 |
EuroDateTime = Day(dDate) &"/"& Month(dDate) &"/"& Year(dDate) &" "& FormatDateTime( dDate, 4 )
|
455 |
EuroDateTime = Day(dDate) &"/"& Month(dDate) &"/"& Year(dDate) &" "& FormatDateTime( dDate, 4 )
|
| 456 |
End Function
|
456 |
End Function
|
| - |
|
457 |
|
| 457 |
'-----------------------------------------------------------------------------------------------------------------
|
458 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
459 |
Sub Get_Release_Info (APV_ID, ByRef ARTAG_ID, ByRef APKG_ID)
|
| - |
|
460 |
Dim Query_String, rsTemp
|
| - |
|
461 |
|
| - |
|
462 |
Query_String = _
|
| - |
|
463 |
" SELECT rc.rtag_id, pv.pkg_id"&_
|
| - |
|
464 |
" FROM package_versions pv, release_content rc"&_
|
| - |
|
465 |
" WHERE rc.pv_id = " & APV_ID &_
|
| - |
|
466 |
" AND pv.pv_id = rc.pv_id"
|
| - |
|
467 |
|
| - |
|
468 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|
| - |
|
469 |
|
| - |
|
470 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
| - |
|
471 |
ARTAG_ID = rsTemp("rtag_id")
|
| - |
|
472 |
APKG_ID = rsTemp("pkg_id")
|
| - |
|
473 |
Else
|
| - |
|
474 |
Call Raise_Event ( enumEVENT_ERROR, "[sub:Get_Release_Info]", _
|
| - |
|
475 |
"PV_ID: "& APV_ID & VBNewLine ,_
|
| - |
|
476 |
"pv_id not found in release_content table!", enum_RELEASE_NOTES_FAILED )
|
| - |
|
477 |
End If
|
| - |
|
478 |
rsTemp.Close
|
| - |
|
479 |
Set rsTemp = Nothing
|
| - |
|
480 |
End Sub
|