Venice
AnUnt::SeekByUnitKindAcc
 
Seeks an Analytical Unit entry by its unit, kind and account.
 
VARIANT_BOOL SeekByUnitKindAcc (
    enum eSeekMode eSeekMode,
    BSTR bsUnit,
    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.
bsUnit
[in] The analytical unit 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
CreateAnUnt
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all analytical unit entries for the analytical unit with code = 'UNIT', the analytical kind with code = 'KIND' and the general account with number = '601'
CString strUnit = "UNIT", strKind = "KIND", strAccNum = "601";
pAnUnt->SeekByUnitKindAcc (smGreaterOrEqual, (LPCSTR)strUnit, (LPCSTR)strKind, (LPCSTR)strAccNum, COleDateTime (0, 0, 0, 0, 0, 0).m_dt);
while (pAnUnt->GetDBStatus () == 0 && (CString)pAnUnt->pAnaAccount == strUnit && (CString)pAnUnt->pAnaKind == strKind && (CString)pAnUnt->pAccount == strAccNum)
{
    // Process record data
    
    pAnUnt->GetNext ();
}

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

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

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