ArtSup::SeekBySupNum (Interface: ArtSup)
 
Seeks an Article Supplier card by its supplier number.
 
VARIANT_BOOL SeekBySupNum (
    enum eSeekMode eSeekMode,
    LONG lSupNum,
    BSTR bsArtNum
)
 
Key information
This method uses key number 2 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pSupNumLONG (unsigned)Ascending-
pArtNumBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
lSupNum
[in] The supplier number of the article supplier card you want to seek.
bsArtNum
[in] The article 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 supplier with number 125
pArtSup->SeekBySupNum (smGreaterOrEqual, 125, "");
while (pArtSup->GetDBStatus () == 0 && (DWORD)pArtSup->pSupNum == 125)
{
    // Process data
    
    pArtSup->GetNext ();
}

C#
 
// Seek all the article suppliers for the supplier with number 125
oArtSup.SeekBySupNum (eSeekMode.smGreaterOrEqual, 125, "");
while (oArtSup.GetDBStatus () == 0 && (int)oArtSup.pSupNum == 125)
{
    // Process data
    
    oArtSup.GetNext ();
}

VBS
 
' Seek all the article suppliers for the supplier with number 125
Call oArtSup.SeekBySupNum(smGreaterOrEqual, 125, "")
While oArtSup.GetDBStatus() = 0 And oArtSup.pSupNum = 125
    ' Process record data
    
    Call oArtSup.GetNext()
Wend

VB.NET
 
' Seek all the article suppliers for the supplier with number 125
oArtSup.SeekBySupNum(eSeekMode.smGreaterOrEqual, 125, "")
While oArtSup.GetDBStatus() = 0 And oArtSup.pSupNum = 125
    ' Process record data

    oArtSup.GetNext()
End While