Venice
ProductDet::SeekByStcArtNum
 
Seeks a Production Document Detail line by its stock article number.
 
VARIANT_BOOL SeekByStcArtNum (
    enum eSeekMode eSeekMode,
    BSTR bsArtNumStock,
    DATE dProdDate
)
 
Key information
This method uses key number 2 (See SwapKey).
This key allows duplicates.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumStockBSTRAscendingHierarchy
pProdDateDATE (date)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNumStock
[in] The number of the stock article of the Production Document Detail line you want to seek.
dProdDate
[in] The production date of the Production Document 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
CreateProductDet
 
Samples
 
C++
 
// Seek all the detail lines for article with stock number 'Stk_001' that were produced on 19/04/2024
COleDateTime odtProdDate;
CString strStcArtNum = "Stk_001";
odtProdDate.SetDate (2024, 4, 19);
pProductDet->SeekByStcArtNum (smEqual, (LPCSTR)strStcArtNum, odtProdDate);
while (pProductDet->GetDBStatus () == 0 && (CString)pProductDet->pArtNumStock == strStcArtNum && (DATE)pProductDet->pProdDate == odtProdDate)
{
    // Process record data
    
    pProductDet->GetNext ();
}

C#
 
// Seek all the detail lines for article with stock number 'Stk_001' that were produced on 19/04/2024
DateTime dtProdDate = new DateTime (2024, 4, 19);
string strStcArtNum = "Stk_001";
oProductDet.SeekByStcArtNum (eSeekMode.smEqual, strStcArtNum, dtProdDate);
while (oProductDet.GetDBStatus () == 0 && oProductDet.pArtNumStock.ToString () == strStcArtNum && (DateTime)oProductDet.pProdDate == dtProdDate)
{
    // Process record data
    
    oProductDet.GetNext ();
}

VBS
 
Dim dtProdDate
Dim strStcArtNum
dtProdDate = #4/19/2024#
strStcArtNum = "Stk_001"
Call oProductDet.SeekByStcArtNum(smEqual, strStcArtNum, dtProdDate)
While oProductDet.GetDBStatus() = 0 And oProductDet.pArtNumStock = strStcArtNum And oProductDet.pProdDate = dtProdDate
    ' Process record data

    Call oProductDet.GetNext()
Wend

VB.NET
 
Dim dtProdDate As Date
Dim strStcArtNum As String
dtProdDate = #4/19/2024#
strStcArtNum = "Stk_001"
oProductDet.SeekByStcArtNum(eSeekMode.smEqual, strStcArtNum, dtProdDate)
While oProductDet.GetDBStatus() = 0 And oProductDet.pArtNumStock = strStcArtNum And oProductDet.pProdDate = dtProdDate
    ' Process record data

    oProductDet.GetNext()
End While