Venice
Suppl::Browse
 
Browses the file for a Supplier card.
 
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
CreateSuppl
SeekByName
 
Samples
 
C++
 
long lSysNum;
if (pSuppl->SeekByName (smEqual, "ADRI NV"))
    // Browse using the key 'SUP_NAM' (supplier name) and positioned on the record found by SeekByName
    lSysNum = pSuppl->Browse (VARIANT_TRUE);
else
    // Browse using the last key that was manually selected and positioned at the beginning of the file
    lSysNum = pSuppl->Browse (VARIANT_FALSE);

C#
 
int iSysNum;
if (oSuppl.SeekByName (eSeekMode.smEqual, "ADRI NV"))
    // Browse using the key 'SUP_NAM' (supplier name) and positioned on the record found by SeekByName
    iSysNum = oSuppl.Browse (true);
else
    // Browse using the last key that was manually selected and positioned at the beginning of the file
    iSysNum = oSuppl.Browse (false);

VBS
 
Dim lSysNum
If oSuppl.SeekByName(smEqual, "ADRI NV") Then
    ' Browse using the key 'SUP_NAM' (supplier name) and positioned on the record found by SeekByName
    lSysNum = oSuppl.Browse(True)
Else
    ' Browse using the last key that was manually selected and positioned at the beginning of the file
    lSysNum = oSuppl.Browse(False)
End If

VB.NET
 
Dim lSysNum As Long
If oSuppl.SeekByName(eSeekMode.smEqual, "ADRI NV") Then
    ' Browse using the key 'SUP_NAM' (supplier name) and positioned on the record found by SeekByName
    lSysNum = oSuppl.Browse(True)
Else
    ' Browse using the last key that was manually selected and positioned at the beginning of the file
    lSysNum = oSuppl.Browse(False)
End If