Venice
ArtWrh::SeekByWareh
 
Seeks an Article Warehouse card by its warehouse.
 
VARIANT_BOOL SeekByWareh (
    enum eSeekMode eSeekMode,
    BSTR bsWarehouse,
    BSTR bsArtNum
)
 
Key information
This method uses key number 2 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pWarehouseBSTRAscendingCase insensitive
pArtNumBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsWarehouse
[in] The warehouse of the article warehouse card you want to seek.
bsArtNum
[in] The article number of the article warehouse card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateArtWrh
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all the article warehouses for the warehouse with code 'Wrh_1'
CString    strWarehouse = "Wrh_1";
pArtWrh->SeekByWareh (smGreaterOrEqual, (LPCSTR)strWarehouse, "");
while (pArtWrh->GetDBStatus () == 0 && (CString)pArtWrh->pWarehouse == strWarehouse)
{
    // Process data
    
    pArtWrh->GetNext ();
}

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

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

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

    oArtWrh.GetNext()
End While