MaCrd::SeekByPrcDoc (Interface: MaCrd)
 
Seeks a Material Assets card by its purchase document.
 
VARIANT_BOOL SeekByPrcDoc (
    enum eSeekMode eSeekMode,
    SHORT sAccYear,
    BSTR bsBook,
    LONG lDocNum
)
 
Key information
This method uses key number 2 (See SwapKey).
This key allows duplicates.
 
Key segment information
Segment NameTypeOrderCollation
pAprAccYearSHORT (unsigned)Ascending-
pAprBookBSTRAscendingCase insensitive
pAprDocNumLONG (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
sAccYear
[in] The financial year of the purchase document of the Material Assets card you want to seek.
bsBook
[in] The book code of the purchase document of the Material Assets card you want to seek.
lDocNum
[in] The document number of the purchase document 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 in financial year 2024, using the book code 'MAS' on the purchase document
CString strAprBook = "MAS";
USHORT usAccYear = 2024;
pMaCrd->SeekByPrcDoc (smGreaterOrEqual, usAccYear, (LPCSTR)strAprBook, 0);
while (pMaCrd->GetDBStatus () == 0 && (USHORT)pMaCrd->pAccYear == usAccYear && (CString)pMaCrd->pAprBook == strAprBook)
{
    // Process record data
    
    pMaCrd->GetNext ();
}

C#
 
// Seek all Material Assets cards that were purchased in financial year 2024, using the book code 'MAS' on the purchase document
string strAprBook = "MAS";
short sAccYear = 2024;
oMaCrd.SeekByPrcDoc (eSeekMode.smGreaterOrEqual, sAccYear, strAprBook, 0);
while (oMaCrd.GetDBStatus () == 0 && (short)oMaCrd.pAccYear == sAccYear && oMaCrd.pAprBook.ToString () == strAprBook)
{
    // Process record data
    
    oMaCrd.GetNext ();
}

VBS
 
' Seek all Material Assets cards that were purchased in financial year 2024, using the book code 'MAS' on the purchase document
Dim sAccYear
Dim strAprBook
sAccYear = 2024
strAprBook = "MAS"
Call oMaCrd.SeekByPrcDoc(smGreaterOrEqual, sAccYear, strAprBook, 0)
While oMaCrd.GetDBStatus() = 0 And oMaCrd.pAccYear = sAccYear And oMaCrd.pAprBook = strAprBook
    ' Process record data

    Call oMaCrd.GetNext()
Wend

VB.NET
 
' Seek all Material Assets cards that were purchased in financial year 2024, using the book code 'MAS' on the purchase document
Dim sAccYear As Short
Dim strAprBook As String
sAccYear = 2024
strAprBook = "MAS"
oMaCrd.SeekByPrcDoc(eSeekMode.smGreaterOrEqual, sAccYear, strAprBook, 0)
While oMaCrd.GetDBStatus() = 0 And oMaCrd.pAccYear = sAccYear And oMaCrd.pAprBook = strAprBook
    ' Process record data

    oMaCrd.GetNext()
End While