Venice
SOffer::SeekByCstSys
 
Seeks a Sales Offer by the system number of its customer.
 
VARIANT_BOOL SeekByCstSys (
    enum eSeekMode eSeekMode,
    LONG lSysNumCst,
    BSTR bsBook,
    LONG lDocNum
)
 
Key information
This method uses key number 2 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pSysNumCstLONGAscending-
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
lSysNumCst
[in] The system number of the customer of the Sales Offer you want to seek.
bsBook
[in] The book code of the Sales Offer you want to seek.
lDocNum
[in] The document number of the Sales Offer you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateSOffer
GetDBStatus
GetNext
 
Samples
 
C++
 
// Process all Sales Offers for the customer with system number = 1428
long lSeekSysNumCst = 1428;
pSOffer->SeekByCstSys (smGreater, lSeekSysNumCst, "", 0);
while (pSOffer->GetDBStatus () == 0 && (long)pSOffer->pSysNumCst.lVal == lSeekSysNumCst)
{
    // Process record data
    
    pSOffer->GetNext ();
}

C#
 
// Process all Sales Offers for the customer with system number = 1428
int iSeekSysNumCst = 1428;
oSOffer.SeekByCstSys (eSeekMode.smGreater, iSeekSysNumCst, "", 0);
while (oSOffer.GetDBStatus () == 0 && (int)oSOffer.pSysNumCst == iSeekSysNumCst)
{
    // Process record data
    
    oSOffer.GetNext ();
}

VBS
 
' Process all Sales Offers for the customer with system number = 1428
Dim iSeekSysNumCst
iSeekSysNumCst = 1428
Call oSOffer.SeekByCstSys(smGreater, iSeekSysNumCst, "", 0)
While oSOffer.GetDBStatus() = 0 And oSOffer.pSysNumCst = iSeekSysNumCst
    ' Process record data
    
    Call oSOffer.GetNext()
Wend

VB.NET
 
' Process all Sales Offers for the customer with system number = 1428
Dim iSeekSysNumCst As Integer
iSeekSysNumCst = 1428
oSOffer.SeekByCstSys(eSeekMode.smGreater, iSeekSysNumCst, "", 0)
While oSOffer.GetDBStatus() = 0 And oSOffer.pSysNumCst = iSeekSysNumCst
    ' Process record data
    
    oSOffer.GetNext()
End While