Venice
ArtLoc::SeekByArticle
 
Seeks an Article Location card by its article number.
 
VARIANT_BOOL SeekByArticle (
    enum eSeekMode eSeekMode,
    BSTR bsArtNum,
    BSTR bsWarehouse,
    BSTR bsLocation
)
 
Key information
This method uses key number 1 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumBSTRAscendingHierarchy
pWarehouseBSTRAscendingCase insensitive
pLocationBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNum
[in] The article number of the article location card you want to seek.
bsWarehouse
[in] The warehouse of the article location card you want to seek.
bsLocation
[in] The location of the article location card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateArtLoc
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all the article locations for the article with number 'Art_001'
CString    strArtNum = "Art_001";
pArtLoc->SeekByArticle (smGreaterOrEqual, (LPCSTR)strArtNum, "", "");
while (pArtLoc->GetDBStatus () == 0 && (CString)pArtLoc->pArtNum == strArtNum)
{
    // Process data
    
    pArtLoc->GetNext ();
}

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

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

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

    oArtLoc.GetNext()
End While