Venice
AnCnt::SeekByCentreKindAcc
 
Seeks an Analytical Centre entry by its centre, kind and account.
 
VARIANT_BOOL SeekByCentreKindAcc (
    enum eSeekMode eSeekMode,
    BSTR bsCentre,
    BSTR bsKind,
    BSTR bsAccNum,
    DATE dBookDate
)
 
Key information
This method uses key number 1 (See SwapKey).
This key allows duplicates.
 
Key segment information
Segment NameTypeOrderCollation
pAnaAccountBSTRAscendingHierarchy
pAnaKindBSTRAscendingHierarchy
pAccountBSTRAscendingCase sensitive
pBookDateDATE (date)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsCentre
[in] The analytical centre of the analytical entry you want to seek.
bsKind
[in] The analytical kind of the analytical entry you want to seek.
bsAccNum
[in] The general account of the analytical entry you want to seek.
dBookDate
[in] The book date of the document of which you want to seek an analytical entry.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateAnCnt
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all analytical centre entries for the analytical centre with code = 'CENT', the analytical kind with code = 'KIND' and the general account with number = '601'
CString strCentre = "CENT", strKind = "KIND", strAccNum = "601";
pAnCnt->SeekByCentreKindAcc (smGreaterOrEqual, (LPCSTR)strCentre, (LPCSTR)strKind, (LPCSTR)strAccNum, COleDateTime (0, 0, 0, 0, 0, 0).m_dt);
while (pAnCnt->GetDBStatus () == 0 && (CString)pAnCnt->pAnaAccount == strCentre && (CString)pAnCnt->pAnaKind == strKind && (CString)pAnCnt->pAccount == strAccNum)
{
    // Process record data
    
    pAnCnt->GetNext ();
}

C#
 
// Seek all analytical centre entries for the analytical centre with code = 'CENT', the analytical kind with code = 'KIND' and the general account with number = '601'
string strCentre = "CENT", strKind = "KIND", strAccNum = "601";
oAnCnt.SeekByCentreKindAcc (eSeekMode.smGreaterOrEqual, strCentre, strKind, strAccNum, new DateTime ());
while (oAnCnt.GetDBStatus () == 0 && oAnCnt.pAnaAccount.ToString () == strCentre && oAnCnt.pAnaKind.ToString () == strKind && oAnCnt.pAccount.ToString () == strAccNum)
{
    // Process record data
    
    oAnCnt.GetNext ();
}

VBS
 
' Seek all analytical centre entries for the analytical centre with code = 'CENT', the analytical kind with code = 'KIND' and the general account with number = '601'
Dim strCentre, strKind, strAccNum
Dim dtBookDate
strCentre = "CENT"
strKind = "KIND"
strAccNum = "601"
Call oAnCnt.SeekByCentreKindAcc(smGreaterOrEqual, strCentre, strKind, strAccNum, dtBookDate)
While oAnCnt.GetDBStatus() = 0 And oAnCnt.pAnaAccount = strCentre And oAnCnt.pAnaKind = strKind And oAnCnt.pAccount = strAccNum
    ' Process record data
    
    Call oAnCnt.GetNext()
Wend

VB.NET
 
' Seek all analytical centre entries for the analytical centre with code = 'CENT', the analytical kind with code = 'KIND' and the general account with number = '601'
Dim strCentre, strKind, strAccNum As String
Dim dtBookDate As Date
strCentre = "CENT"
strKind = "KIND"
strAccNum = "601"
oAnCnt.SeekByCentreKindAcc(eSeekMode.smGreaterOrEqual, strCentre, strKind, strAccNum, dtBookDate)
While oAnCnt.GetDBStatus() = 0 And oAnCnt.pAnaAccount = strCentre And oAnCnt.pAnaKind = strKind And oAnCnt.pAccount = strAccNum
    ' Process record data
    
    oAnCnt.GetNext()
End While