Entry::SeekByToTick (Interface: Entry)
 
Seeks an Entry record that is not ticked yet.
 
VARIANT_BOOL SeekByToTick (
    enum eSeekMode eSeekMode,
    BSTR bsAccNum,
    DATE dBookDate,
    enum eBookType eBookType,
    BSTR bsBook,
    LONG lDocNum,
    SHORT sEntryNum
)
 
Key information
This method uses key number 4 (See SwapKey).
This key allows duplicates.
This is a null key, only the records where pAccount is not blank and pTickStatus is not 2 (=not closed) are in the index.
 
Key segment information
Segment NameTypeOrderCollation
pAccountBSTRAscendingCase sensitive
pBookDateDATE (date)Ascending-
pBookTypeBYTEAscending-
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
pEntryNumSHORT (unsigned)Ascending-
pTickStatusBYTEAscending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsAccNum
[in] The account number of the Entry record you want to seek.
dBookDate
[in] The book date of the Entry record you want to seek.
eBookType
[in] A value of the 'eBookType' enumeration.
bsBook
[in] The book code of the Entry record you want to seek.
lDocNum
[in] The document number of the Entry record you want to seek.
sEntryNum
[in] The entry number of the Entry record you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateEntry
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all unticked entry records for the customer with number = 25 (assuming that '400' is the customer prefix account)
CString strAccNum = "400000000025";
pEntry->SeekByToTick (smGreaterOrEqual, (LPCSTR)strAccNum, COleDateTime (0, 0, 0, 0, 0, 0).m_dt, btMin, "", 0, 0);
while (pEntry->GetDBStatus () == 0 && (CString)pEntry->pAccount == strAccNum)
{
    // Process record data
    
    pEntry->GetNext ();
}

C#
 
// Seek all unticked entry records for the customer with number = 25 (assuming that '400' is the customer prefix account)
string strAccNum = "400000000025";
oEntry.SeekByToTick (eSeekMode.smGreaterOrEqual, strAccNum, new DateTime (), eBookType.btMin, "", 0, 0);
while (oEntry.GetDBStatus () == 0 && oEntry.pAccount.ToString () == strAccNum)
{
    // Process record data
    
    oEntry.GetNext ();
}

VBS
 
' Seek all unticked entry records for the customer with number = 25 (assuming that '400' is the customer prefix account)
Dim strAccNum
Dim dtBookDate
strAccNum = "400000000025"
Call oEntry.SeekByToTick(smGreaterOrEqual, strAccNum, dtBookDate, btMin, "", 0, 0)
While oEntry.GetDBStatus() = 0 And oEntry.pAccount = strAccNum
    ' Process record data

    Call oEntry.GetNext()
Wend

VB.NET
 
' Seek all unticked entry records for the customer with number = 25 (assuming that '400' is the customer prefix account)
Dim strAccNum As String
Dim dtBookDate As Date
strAccNum = "400000000025"
oEntry.SeekByToTick(eSeekMode.smGreaterOrEqual, strAccNum, dtBookDate, eBookType.btMin, "", 0, 0)
While oEntry.GetDBStatus() = 0 And oEntry.pAccount = strAccNum
    ' Process record data

    oEntry.GetNext()
End While