Venice
ProjectDet::SeekByActionDate
 
Seeks a Project Detail by its action date.
 
VARIANT_BOOL SeekByActionDate (
    enum eSeekMode eSeekMode,
    DATE dActionDate,
    LONG lProject,
    SHORT sSeqNum
)
 
Key information
This method uses key number 6 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pActionDateDATE (date)Ascending-
pProjectLONG (unsigned)Ascending-
pSeqNumSHORT (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
dActionDate
[in] The action date of the project detail you want to seek.
lProject
[in] The number of the project of which you want to seek a detail.
sSeqNum
[in] The sequence number of the project detail you want to seek.
 
See Also
CreateProjectDet
 
Samples
 
C++
 
// Seek all project details of which the action was executed on 26/04/2024
COleDateTime odtActionDate;
odtActionDate.SetDate (2024, 4, 26);
pProjectDet->SeekByActionDate (smGreater, odtActionDate, 0, 0);
while (pProjectDet->GetDBStatus () == 0 && (DATE)pProjectDet->pActionDate == odtActionDate)
{
    // Process record data

    pProjectDet->GetNext ();
}

C#
 
// Seek all project details of which the action was executed on 26/04/2024
DateTime dtActionDate = new DateTime (2024, 4, 26);
oProjectDet.SeekByActionDate (eSeekMode.smGreater, dtActionDate, 0, 0);
while (oProjectDet.GetDBStatus () == 0 && (DateTime)oProjectDet.pActionDate == dtActionDate)
{
    // Process record data
    
    oProjectDet.GetNext ();
}

VBS
 
' Seek all project details of which the action was executed on 26/04/2024
Dim dtActionDate
dtActionDate = #4/26/2024#
Call oProjectDet.SeekByActionDate(smGreater, dtActionDate, 0, 0)
While oProjectDet.GetDBStatus() = 0 And oProjectDet.pActionDate = dtActionDate
' Process record data

Call oProjectDet.GetNext()
Wend

VB.NET
 
' Seek all project details of which the action was executed on 26/04/2024
Dim dtActionDate As Date
dtActionDate = #4/26/2024#
oProjectDet.SeekByActionDate(eSeekMode.smGreater, dtActionDate, 0, 0)
While oProjectDet.GetDBStatus() = 0 And oProjectDet.pActionDate = dtActionDate
' Process record data

oProjectDet.GetNext()
End While