MaCrd::SeekByPrcDat (Interface: MaCrd)
 
Seeks a Material Assets card by its purchase date.
 
VARIANT_BOOL SeekByPrcDat (
    enum eSeekMode eSeekMode,
    DATE dAprDate,
    BSTR bsCode
)
 
Key information
This method uses key number 3 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pAprDateDATE (date)Ascending-
pMasCodeBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
dAprDate
[in] The purchase date of the Material Assets card you want to seek.
bsCode
[in] The code of the Material Assets card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateMaCrd
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all Material Assets cards that were purchased on 28/03/2024
COleDateTime odtAprDate;
odtAprDate.SetDate (2024, 3, 28);
pMaCrd->SeekByPrcDat (smGreaterOrEqual, odtAprDate, "");
while (pMaCrd->GetDBStatus () == 0 && (DATE)pMaCrd->pAprDate == odtAprDate)
{
    // Process record data
    
    pMaCrd->GetNext ();
}

C#
 
// Seek all Material Assets cards that were purchased on 28/03/2024
DateTime dtAprDate = new DateTime (2024, 3, 28);
oMaCrd.SeekByPrcDat (eSeekMode.smGreaterOrEqual, dtAprDate, "");
while (oMaCrd.GetDBStatus () == 0 && (DateTime)oMaCrd.pAprDate == dtAprDate)
{
    // Process record data
    
    oMaCrd.GetNext ();
}

VBS
 
' Seek all Material Assets cards that were purchased on 28/03/2024
Dim dtAprDate
dtAprDate = #3/28/2024#
Call oMaCrd.SeekByPrcDat(smGreaterOrEqual, dtAprDate, "")
While oMaCrd.GetDBStatus() = 0 And oMaCrd.pAprDate = dtAprDate
    ' Process record data

    Call oMaCrd.GetNext()
Wend

VB.NET
 
' Seek all Material Assets cards that were purchased on 28/03/2024
Dim dtAprDate As Date
dtAprDate = #3/28/2024#
oMaCrd.SeekByPrcDat(eSeekMode.smGreaterOrEqual, dtAprDate, "")
While oMaCrd.GetDBStatus() = 0 And oMaCrd.pAprDate = dtAprDate
    ' Process record data

    oMaCrd.GetNext()
End While