Venice
StockDoc::SeekByDocDate
 
Seeks a Stock Document by its document date.
 
VARIANT_BOOL SeekByDocDate (
    enum eSeekMode eSeekMode,
    DATE dDocDate,
    LONG lSysNum
)
 
Key information
This method uses key number 3 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pDocTypeBYTEAscending-
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
dDocDate
[in] The document date of the stock document you want to seek.
lSysNum
[in] The system number of the record you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateStockDoc
 
Samples
 
C++
 
// Seek all the stock documents with document date = 28/06/2024
COleDateTime odtDocDate;
odtDocDate.SetDate (2024, 6, 28);
pStockDoc->SeekByDocDate (smGreaterOrEqual, odtDocDate, 0);
while (pStockDoc->GetDBStatus () == 0 && (DATE)pStockDoc->pDocDate == odtDocDate)
{
    // Process record data

    pStockDoc->GetNext ();
}

C#
 
// Seek all the stock documents with document date = 28/06/2024
DateTime dtDocDate = new DateTime (2024, 6, 28);
oStockDoc.SeekByDocDate (eSeekMode.smGreaterOrEqual, dtDocDate, 0);
while (oStockDoc.GetDBStatus () == 0 && (DateTime)oStockDoc.pDocDate == dtDocDate)
{
    // Process record data

    oStockDoc.GetNext ();
}

VBS
 
' Seek all the stock documents with document date = 28/06/2024
Dim dtDocDate
dtDocDate = #6/28/2024#
Call oStockDoc.SeekByDocDate(smGreaterOrEqual, dtDocDate, 0)
While oStockDoc.GetDBStatus() = 0 And oStockDoc.pDocDate = dtDocDate
    ' Process record data

    Call oStockDoc.GetNext()
Wend

VB.NET
 
' Seek all the stock documents with document date = 28/06/2024
Dim dtDocDate As Date
dtDocDate = #6/28/2024#
oStockDoc.SeekByDocDate(eSeekMode.smGreaterOrEqual, dtDocDate, 0)
While oStockDoc.GetDBStatus() = 0 And oStockDoc.pDocDate = dtDocDate
    ' Process record data

    oStockDoc.GetNext()
End While