Venice
POfferDet::SeekByDocument
 
Seeks a Purchase Offer Detail line by its document.
 
VARIANT_BOOL SeekByDocument (
    enum eSeekMode eSeekMode,
    BSTR bsBook,
    LONG lDocNum,
    SHORT sLineNum
)
 
Key information
This method uses key number 1 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
pLineNumSHORT (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsBook
[in] The book code of the Purchase Offer of which you want to seek a detail line.
lDocNum
[in] The document number of the Purchase Offer of which you want to seek a detail line.
sLineNum
[in] The line number of the Purchase Offer Detail line you want to seek.
 
Remarks
This number is a 0-based index, i.e. it starts from 0. Therefore the value of this parameter is 1 less than the numbers shown in the Venice grids and 1 less than the value returned by the property vLine (see properties)!
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreatePOfferDet
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek the data of all detail lines of the purchase offer with book code = 'FAC' and document number = 12
CString strBook = "FAC";
long lDocNum = 12;
pPOfferDet->SeekByDocument (smGreaterOrEqual, (LPCSTR)strBook, lDocNum, 0);
while (pPOfferDet->GetDBStatus () == 0 && (CString)pPOfferDet->pBook == strBook && (long)pPOfferDet->pDocNum == lDocNum)
{
    // Process record data
    
    pPOfferDet->GetNext ();
}

C#
 
// Seek the data of all detail lines of the purchase offer with book code = 'FAC' and document number = 12
string strBook = "FAC";
int iDocNum = 12;
oPOfferDet.SeekByDocument (eSeekMode.smGreaterOrEqual, strBook, iDocNum, 0);
while (oPOfferDet.GetDBStatus () == 0 && oPOfferDet.pBook.ToString () == strBook && (int)oPOfferDet.pDocNum == iDocNum)
{
    // Process record data
    
    oPOfferDet.GetNext ();
}

VBS
 
' Seek the data of all detail lines of the purchase offer with book code = 'FAC' and document number = 12
Dim strBook
Dim lDocNum
strBook = "FAC"
lDocNum = 12
Call oPOfferDet.SeekByDocument(smGreaterOrEqual, strBook, lDocNum, 0)
While oPOfferDet.GetDBStatus() = 0 And oPOfferDet.pBook = strBook And oPOfferDet.pDocNum = lDocNum
    ' Process record data

    Call oPOfferDet.GetNext()
Wend

VB.NET
 
' Seek the data of all detail lines of the purchase offer with book code = 'FAC' and document number = 12
Dim strBook As String
Dim lDocNum As Long
strBook = "FAC"
lDocNum = 12
oPOfferDet.SeekByDocument(eSeekMode.smGreaterOrEqual, strBook, lDocNum, 0)
While oPOfferDet.GetDBStatus() = 0 And oPOfferDet.pBook = strBook And oPOfferDet.pDocNum = lDocNum
    ' Process record data

    oPOfferDet.GetNext()
End While