Venice
SDelivDet::SeekByStcArtNum
 
Seeks a Sales Delivery Detail line by its stock article number.
 
VARIANT_BOOL SeekByStcArtNum (
    enum eSeekMode eSeekMode,
    BSTR bsArtNumStock,
    DATE dDocDate
)
 
Key information
This method uses key number 5 (See SwapKey).
This key allows duplicates.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumStockBSTRAscendingHierarchy
pDocDateDATE (date)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNumStock
[in] The number of the stock article of the Sales Delivery Detail line you want to seek.
dDocDate
[in] The document date of the Sales Delivery of which you want to seek a detail line.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateSDelivDet
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek the data of all detail lines for the article with stock number = 'Stock' of all sales deliveries
CString strArtNumStock = "Stock";
pSDelivDet->SeekByStcArtNum (smGreaterOrEqual, (LPCSTR)strArtNumStock, COleDateTime (0, 0, 0, 0, 0, 0).m_dt);
while (pSDelivDet->GetDBStatus () == 0 && (CString)pSDelivDet->pArtNumStock == strArtNumStock)
{
    // Process record data
    
    pSDelivDet->GetNext ();
}

C#
 
// Seek the data of all detail lines for the article with stock number = 'Stock' of all sales deliveries
string strArtNumStock = "Stock";
oSDelivDet.SeekByStcArtNum (eSeekMode.smGreaterOrEqual, strArtNumStock, new DateTime ());
while (oSDelivDet.GetDBStatus () == 0 && oSDelivDet.pArtNumStock.ToString () == strArtNumStock)
{
    // Process record data
    
    oSDelivDet.GetNext ();
}

VBS
 
' Seek the data of all detail lines for the article with stock number = 'Stock' of all sales deliveries
Dim strArtNumStock
Dim dtDocDate
strArtNumStock = "Stock"
Call oSDelivDet.SeekByStcArtNum(smGreaterOrEqual, strArtNumStock, dtDocDate)
While oSDelivDet.GetDBStatus() = 0 And oSDelivDet.pArtNumStock = strArtNumStock
    ' Process record data

    Call oSDelivDet.GetNext()
Wend

VB.NET
 
' Seek the data of all detail lines for the article with stock number = 'Stock' of all sales deliveries
Dim strArtNumStock As String
Dim dtDocDate As Date
strArtNumStock = "Stock"
oSDelivDet.SeekByStcArtNum(eSeekMode.smGreaterOrEqual, strArtNumStock, dtDocDate)
While oSDelivDet.GetDBStatus() = 0 And oSDelivDet.pArtNumStock = strArtNumStock
    ' Process record data

    oSDelivDet.GetNext()
End While