Venice
PDelivDet::Browse
 
Browses the file for a Purchase Delivery Detail line.
 
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
CreatePDelivDet
SeekByDocument
 
Samples
 
C++
 
CString strBook = "FAC";
long lDocNum = 12, lSysNum;
if (pPDelivDet->SeekByDocument (smGreaterOrEqual, (LPCSTR)strBook, lDocNum, 0) &&
    (CString)pPDelivDet->pBook == strBook && (long)pPDelivDet->pDocNum == lDocNum)
    // Browse using the key 'PDD_LNE' (document) and positioned on the record found by SeekByDocument
    lSysNum = pPDelivDet->Browse (VARIANT_TRUE);
else
    // Browse using the last key that was manually selected and positioned at the beginning of the file
    lSysNum = pPDelivDet->Browse (VARIANT_FALSE);

C#
 
string strBook = "FAC";
int iDocNum = 12, iSysNum;
if (oPDelivDet.SeekByDocument (eSeekMode.smGreaterOrEqual, strBook, iDocNum, 0) &&
    oPDelivDet.pBook.ToString () == strBook && (int)oPDelivDet.pDocNum == iDocNum)
    // Browse using the key 'PDD_LNE' (document) and positioned on the record found by SeekByDocument
    iSysNum = oPDelivDet.Browse (true);
else
    // Browse using the last key that was manually selected and positioned at the beginning of the file
    iSysNum = oPDelivDet.Browse (false);

VBS
 
Dim strBook
Dim lDocNum, lSysNum
strBook = "FAC"
lDocNum = 12
If oPDelivDet.SeekByDocument(smGreaterOrEqual, strBook, lDocNum, 0) And oPDelivDet.pBook = strBook And oPDelivDet.pDocNum = lDocNum Then
    ' Browse using the key 'PDD_LNE' (document) and positioned on the record found by SeekByDocument
    lSysNum = oPDelivDet.Browse(True)
Else
    ' Browse using the last key that was manually selected and positioned at the beginning of the file
    lSysNum = oPDelivDet.Browse(False)
End If

VB.NET
 
Dim strBook As String
Dim lDocNum, lSysNum As Long
strBook = "FAC"
lDocNum = 12
If oPDelivDet.SeekByDocument(eSeekMode.smGreaterOrEqual, strBook, lDocNum, 0) And oPDelivDet.pBook = strBook And oPDelivDet.pDocNum = lDocNum Then
    ' Browse using the key 'PDD_LNE' (document) and positioned on the record found by SeekByDocument
    lSysNum = oPDelivDet.Browse(True)
Else
    ' Browse using the last key that was manually selected and positioned at the beginning of the file
    lSysNum = oPDelivDet.Browse(False)
End If