Locat::SeekByCircuit (Interface: Locat)
 
Seeks a location card by its warehouse, its circuit code and its code.
 
VARIANT_BOOL SeekByCircuit (
    enum eSeekMode eSeekMode,
    BSTR bsWarehouse,
    BSTR bsCircuitCode,
    BSTR bsCode
)
 
Key information
This method uses key number 2 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pWarehouseBSTRAscendingCase insensitive
pCircuitCodeBSTRAscendingCase insensitive
pCodeBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsWarehouse
[in] The warehouse of the location card you want to seek.
bsCircuitCode
[in] The circuit code 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' with circuit code 'CIR_A'
CString    strWarehouse = "WRH", strCircuitCode = "CIR_A";
pLocat->SeekByCircuit (smGreaterOrEqual, (LPCSTR)strWarehouse, (LPCSTR)strCircuitCode, "");
while (pLocat->GetDBStatus () == 0 && (CString)pLocat->pWarehouse == strWarehouse && (CString)pLocat->pCircuitCode == strCircuitCode)
{
    // Process data
    
    pLocat->GetNext ();
}

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

VBS
 
' Seek all the locations in warehouse 'WRH' with circuit code 'CIR_A'
Dim strWarehouse, strCircuitCode
strWarehouse = "WRH"
strCircuitCode = "CIR_A"
Call oLocat.SeekByCircuit(smGreaterOrEqual, strWarehouse, strCircuitCode, "")
While oLocat.GetDBStatus() = 0 And oLocat.pWarehouse = strWarehouse And oLocat.pCircuitCode = strCircuitCode
    ' Process record data
    
    Call oLocat.GetNext()
Wend

VB.NET
 
' Seek all the locations in warehouse 'WRH' with circuit code 'CIR_A'
Dim strWarehouse, strCircuitCode As String
strWarehouse = "WRH"
strCircuitCode = "CIR_A"
oLocat.SeekByCircuit(eSeekMode.smGreaterOrEqual, strWarehouse, strCircuitCode, "")
While oLocat.GetDBStatus() = 0 And oLocat.pWarehouse = strWarehouse And oLocat.pCircuitCode = strCircuitCode
    ' Process record data

    oLocat.GetNext()
End While