Locat::SeekByWarehouse
 
Seeks a location card by its warehouse and its code.
 
VARIANT_BOOL SeekByWarehouse (
    enum eSeekMode eSeekMode,
    BSTR bsWarehouse,
    BSTR bsCode
)
 
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.
 
Remarks
This method seeks the file using the key 'LOC_COD' (key number 1).
 
See Also
CreateLocat
GetDBStatus
GetNext
The UNIT4 C-Logic Description File 'Locat.cld' in the Cld-directory in the system path of your Venice installation.
 
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