Venice
Locat::SeekByWarehouse
 
Seeks a location card by its warehouse and its code.
 
VARIANT_BOOL SeekByWarehouse (
    enum eSeekMode eSeekMode,
    BSTR bsWarehouse,
    BSTR bsCode
)
 
Key information
This method uses key number 1 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pWarehouseBSTRAscendingCase insensitive
pCodeBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsWarehouse
[in] The warehouse of the location card you want to seek.
bsCode
[in] The code of the location card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateLocat
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all the locations in warehouse 'WRH'
CString    strWarehouse = "WRH";
pLocat->SeekByWarehouse (smGreaterOrEqual, (LPCSTR)strWarehouse, "");
while (pLocat->GetDBStatus () == 0 && (CString)pLocat->pWarehouse == strWarehouse)
{
    // Process data
    
    pLocat->GetNext ();
}

C#
 
// Seek all the locations in warehouse 'WRH'
string strWarehouse = "WRH";
oLocat.SeekByWarehouse (eSeekMode.smGreaterOrEqual, strWarehouse, "");
while (oLocat.GetDBStatus () == 0 && oLocat.pWarehouse.ToString () == strWarehouse)
{
    // Process data
    
    oLocat.GetNext ();
}

VBS
 
' Seek all the locations in warehouse 'WRH'
Dim strWarehouse
strWarehouse = "WRH"
Call oLocat.SeekByWarehouse(smGreaterOrEqual, strWarehouse, "")
While oLocat.GetDBStatus() = 0 And oLocat.pWarehouse = strWarehouse
    ' Process record data
    
    Call oLocat.GetNext()
Wend

VB.NET
 
' Seek all the locations in warehouse 'WRH'
Dim strWarehouse As String
strWarehouse = "WRH"
oLocat.SeekByWarehouse(eSeekMode.smGreaterOrEqual, strWarehouse, "")
While oLocat.GetDBStatus() = 0 And oLocat.pWarehouse = strWarehouse
    ' Process record data

    oLocat.GetNext()
End While