 |
| |
| Browses the file for an Analytical Unit entry. |
| |
|
LONG Browse (
VARIANT_BOOL bFromCurrPos
) |
|
| |
| Parameters | | bFromCurrPos | | [in] When this parameter is set to true the browse will use the current position of the file and the key that was set by the previous SeekBy-method. If the parameter is false the browse will be positioned at the beginning of the file and the key will be the last one that was manually selected in the browse. | | | | Return value |
| A LONG containing the system number of the selected record, 0 if no record was selected. | | | | Remarks |
 | This method can only be used if user interface is allowed (parameter bWithUserInterface is set to true in the Logon method), because a record can only be selected using the browse dialog. |
|
| |
| See Also |
|
|
|
| |
| Samples |
| |
|
C++ |
| |
CString strUnit = "UNIT", strKind = "KIND", strAccNum = "601";
long lSysNum;
if (pAnUnt->SeekByUnitKindAcc (smGreaterOrEqual, (LPCSTR)strUnit, (LPCSTR)strKind, (LPCSTR)strAccNum, COleDateTime (0, 0, 0, 0, 0, 0).m_dt) &&
(CString)pAnUnt->pAnaAccount == strUnit && (CString)pAnUnt->pAnaKind == strKind && (CString)pAnUnt->pAccount == strAccNum)
// Browse using the key 'AUN_AKC' (unit - kind - account) and positioned on the record found by SeekByUnitKindAcc
lSysNum = pAnUnt->Browse (VARIANT_TRUE);
else
// Browse using the last key that was manually selected and positioned at the beginning of the file
lSysNum = pAnUnt->Browse (VARIANT_FALSE);
|
|
|
C# |
| |
string strUnit = "UNIT", strKind = "KIND", strAccNum = "601";
int iSysNum;
if (oAnUnt.SeekByUnitKindAcc (eSeekMode.smGreaterOrEqual, strUnit, strKind, strAccNum, new DateTime ()) &&
oAnUnt.pAnaAccount.ToString () == strUnit && oAnUnt.pAnaKind.ToString () == strKind && oAnUnt.pAccount.ToString () == strAccNum)
// Browse using the key 'AUN_AKC' (unit - kind - account) and positioned on the record found by SeekByUnitKindAcc
iSysNum = oAnUnt.Browse (true);
else
// Browse using the last key that was manually selected and positioned at the beginning of the file
iSysNum = oAnUnt.Browse (false);
|
|
|
VBS |
| |
Dim strUnit, strKind, strAccNum
Dim dtBookDate
strUnit = "UNIT"
strKind = "KIND"
strAccNum = "601"
If oAnUnt.SeekByUnitKindAcc(smGreaterOrEqual, strUnit, strKind, strAccNum, dtBookDate) And oAnUnt.pAnaAccount = strUnit And oAnUnt.pAnaKind = strKind And oAnUnt.pAccount = strAccNum Then
' Browse using the key 'AUN_AKC' (unit - kind - account) and positioned on the record found by SeekByUnitKindAcc
lSysNum = oAnUnt.Browse(True)
Else
' Browse using the last key that was manually selected and positioned at the beginning of the file
lSysNum = oAnUnt.Browse(False)
End If
|
|
|
VB.NET |
| |
Dim strUnit, strKind, strAccNum As String
Dim dtBookDate As Date
Dim lSysNum As Long
strUnit = "UNIT"
strKind = "KIND"
strAccNum = "601"
If oAnUnt.SeekByUnitKindAcc(eSeekMode.smGreaterOrEqual, strUnit, strKind, strAccNum, dtBookDate) And oAnUnt.pAnaAccount = strUnit And oAnUnt.pAnaKind = strKind And oAnUnt.pAccount = strAccNum Then
' Browse using the key 'AUN_AKC' (unit - kind - account) and positioned on the record found by SeekByUnitKindAcc
lSysNum = oAnUnt.Browse(True)
Else
' Browse using the last key that was manually selected and positioned at the beginning of the file
lSysNum = oAnUnt.Browse(False)
End If
|
|
|
|
|
|
