Venice
ArtSrl::SeekByArtNum
 
Seeks a Serial Number card by its article number.
 
VARIANT_BOOL SeekByArtNum (
    enum eSeekMode eSeekMode,
    BSTR bsArtNum,
    BSTR bsCode
)
 
Key information
This method uses key number 2 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumBSTRAscendingHierarchy
pCodeBSTRAscendingCase insensitive
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNum
[in] The article number of the serial number card you want to seek.
bsCode
[in] The code of the serial number card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateArtSrl
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all the serial numbers for the article with number 'Art_001'
CString    strArtNum = "Art_001";
pArtSrl->SeekByArtNum (smGreaterOrEqual, (LPCSTR)strArtNum, "");
while (pArtSrl->GetDBStatus () == 0 && (CString)pArtSrl->pArtNum == strArtNum)
{
    // Process data
    
    pArtSrl->GetNext ();
}

C#
 
// Seek all the serial numbers for the article with number 'Art_001'
string strArtNum = "Art_001";
oArtSrl.SeekByArtNum (eSeekMode.smGreaterOrEqual, strArtNum, "");
while (oArtSrl.GetDBStatus () == 0 && oArtSrl.pArtNum.ToString () == strArtNum)
{
    // Process data
    
    oArtSrl.GetNext ();
}

VBS
 
' Seek all the serial numbers for the article with number 'Art_001'
Dim strArtNum
strArtNum = "Art_001"
Call oArtSrl.SeekByArtNum(smGreaterOrEqual, strArtNum, "")
While oArtSrl.GetDBStatus() = 0 And oArtSrl.pArtNum = strArtNum
    ' Process record data
    
    Call oArtSrl.GetNext()
Wend

VB.NET
 
' Seek all the serial numbers for the article with number 'Art_001'
Dim strArtNum As String
strArtNum = "Art_001"
oArtSrl.SeekByArtNum(eSeekMode.smGreaterOrEqual, strArtNum, "")
While oArtSrl.GetDBStatus() = 0 And oArtSrl.pArtNum = strArtNum
    ' Process record data

    oArtSrl.GetNext()
End While