Venice
ArtSup::SeekByArtNum
 
Seeks an Article Supplier card by its article number.
 
VARIANT_BOOL SeekByArtNum (
    enum eSeekMode eSeekMode,
    BSTR bsArtNum,
    LONG lSupNum
)
 
Key information
This method uses key number 1 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumBSTRAscendingHierarchy
pSupNumLONG (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNum
[in] The article number of the article supplier card you want to seek.
lSupNum
[in] The supplier number of the article supplier card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateArtSup
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all the article suppliers for the article with number 'Art_001'
CString    strArtNum = "Art_001";
pArtSup->SeekByArtNum (smGreaterOrEqual, (LPCSTR)strArtNum, 0);
while (pArtSup->GetDBStatus () == 0 && (CString)pArtSup->pArtNum == strArtNum)
{
    // Process data
    
    pArtSup->GetNext ();
}

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

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

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

    oArtSup.GetNext()
End While