Venice
Artcl::SeekBySupNum
 
Seeks an Article card by its supplier number.
 
VARIANT_BOOL SeekBySupNum (
    enum eSeekMode eSeekMode,
    LONG lSupNum,
    BSTR bsNumber
)
 
Key information
This method uses key number 16 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pSupNumberLONG (unsigned)Ascending-
pNumberBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
lSupNum
[in] The supplier number of the Article you want to seek.
bsNumber
[in] The number of the Article you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateArtcl
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all articles that are purchased from supplier with number = 125
long lSupNum = 125;
pArtcl->SeekBySupNum (smGreaterOrEqual, lSupNum, "");
while (pArtcl->GetDBStatus () == 0 && (long)pArtcl->pSupNumber == lSupNum)
{
    // Process record data
    
    pArtcl->GetNext ();
}

C#
 
// Seek all articles that are purchased from supplier with number = 125
int iSupNum = 125;
oArtcl.SeekBySupNum (eSeekMode.smGreaterOrEqual, iSupNum, "");
while (oArtcl.GetDBStatus () == 0 && (int)oArtcl.pSupNumber == iSupNum)
{
    // Process record data
    
    oArtcl.GetNext ();
}

VBS
 
' Seek all articles that are purchased from supplier with number = 125
Dim lSupNum
lSupNum = 125
Call oArtcl.SeekBySupNum(smGreaterOrEqual, lSupNum, "")
While oArtcl.GetDBStatus() = 0 And oArtcl.pSupNumber = lSupNum
    ' Process record data
    
    Call oArtcl.GetNext()
Wend

VB.NET
 
' Seek all articles that are purchased from supplier with number = 125
Dim lSupNum As Long
lSupNum = 125
oArtcl.SeekBySupNum(eSeekMode.smGreaterOrEqual, lSupNum, "")
While oArtcl.GetDBStatus() = 0 And oArtcl.pSupNumber = lSupNum
    ' Process record data
    
    oArtcl.GetNext()
End While