Sales::SeekByCstNum (Interface: Sales)
 
Seeks a Sales Document by its customer number.
 
VARIANT_BOOL SeekByCstNum (
    enum eSeekMode eSeekMode,
    LONG lCstNum,
    DATE dDocDate
)
 
Key information
This method uses key number 2 (See SwapKey).
This key allows duplicates.
 
Key segment information
Segment NameTypeOrderCollation
pCstNumLONG (unsigned)Ascending-
pDocDateDATE (date)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
lCstNum
[in] The customer number of the Sales Document you want to seek.
dDocDate
[in] The document date of the Sales Document you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateSales
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all Sales Documents with a document date = 28/06/2024 for the customer with number 25
COleDateTime odtDocDate;
odtDocDate.SetDate (2024, 6, 28);
long lCstNum = 25;
pSales->SeekByCstNum (smEqual, lCstNum, odtDocDate);
while (pSales->GetDBStatus () == 0 && (long)pSales->pCstNum == lCstNum && (DATE)pSales->pDocDate == odtDocDate)
{
    // Process record data
    
    pSales->GetNext ();    
}

C#
 
// Seek all Sales Documents with a document date = 28/06/2024 for the customer with number 25
DateTime dtDocDate = new DateTime (2024, 6, 28);
int iCstNum = 25;
oSales.SeekByCstNum (eSeekMode.smEqual, iCstNum, dtDocDate);
while (oSales.GetDBStatus () == 0 && (int)oSales.pCstNum == iCstNum && (DateTime)oSales.pDocDate == dtDocDate)
{
    // Process record data
    
    oSales.GetNext ();
}

VBS
 
' Seek all Sales Documents with a document date = 28/06/2024 for the customer with number 25
Dim dtDocDate
Dim iCstNum
dtDocDate = #6/28/2024#
iCstNum = 25
Call oSales.SeekByCstNum(smEqual, iCstNum, dtDocDate)
While oSales.GetDBStatus() = 0 And oSales.pCstNum = iCstNum And oSales.pDocDate = dtDocDate
    ' Process record data

    Call oSales.GetNext()
Wend

VB.NET
 
' Seek all Sales Documents with a document date = 28/06/2024 for the customer with number 25
Dim dtDocDate As Date
Dim iCstNum As Integer
dtDocDate = #6/28/2024#
iCstNum = 25
oSales.SeekByCstNum(eSeekMode.smEqual, iCstNum, dtDocDate)
While oSales.GetDBStatus() = 0 And oSales.pCstNum = iCstNum And oSales.pDocDate = dtDocDate
    ' Process record data

    oSales.GetNext()
End While