Venice
ArtLoc::SeekByWarehouse
 
Seeks an Article Location card by its warehouse.
 
VARIANT_BOOL SeekByWarehouse (
    enum eSeekMode eSeekMode,
    BSTR bsWarehouse,
    BSTR bsLocation,
    BSTR bsArtNum
)
 
Key information
This method uses key number 2 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pWarehouseBSTRAscendingCase insensitive
pLocationBSTRAscendingHierarchy
pArtNumBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
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.
bsArtNum
[in] The article number 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 warehouse with code 'Wrh_1'
CString    strWarehouse = "Wrh_1";
pArtLoc->SeekByWarehouse (smGreaterOrEqual, (LPCSTR)strWarehouse, "", "");
while (pArtLoc->GetDBStatus () == 0 && (CString)pArtLoc->pWarehouse == strWarehouse)
{
    // Process data
    
    pArtLoc->GetNext ();
}

C#
 
// Seek all the article locations for the warehouse with code 'Wrh_1'
string strWarehouse = "Wrh_1";
oArtLoc.SeekByWarehouse (eSeekMode.smGreaterOrEqual, strWarehouse, "", "");
while (oArtLoc.GetDBStatus () == 0 && oArtLoc.pWarehouse.ToString () == strWarehouse)
{
    // Process data
    
    oArtLoc.GetNext ();
}

VBS
 
' Seek all the article locations for the warehouse with code 'Wrh_1'
Dim strWarehouse
strWarehouse = "Wrh_1"
Call oArtLoc.SeekByWarehouse(smGreaterOrEqual, strWarehouse, "", "")
While oArtLoc.GetDBStatus() = 0 And oArtLoc.pWarehouse = strWarehouse
    ' Process record data
    
    Call oArtLoc.GetNext()
Wend

VB.NET
 
' Seek all the article locations for the warehouse with code 'Wrh_1'
Dim strWarehouse As String
strWarehouse = "Wrh_1"
oArtLoc.SeekByWarehouse(eSeekMode.smGreaterOrEqual, strWarehouse, "", "")
While oArtLoc.GetDBStatus() = 0 And oArtLoc.pWarehouse = strWarehouse
    ' Process record data

    oArtLoc.GetNext()
End While