Venice
PDelivDet::SeekByUnpaidArt
 
Seeks an unpaid Purchase Delivery Detail line by its article number.
 
VARIANT_BOOL SeekByUnpaidArt (
    enum eSeekMode eSeekMode,
    BSTR bsArtNum,
    BSTR bsBook,
    LONG lDocNum,
    SHORT sLineNum
)
 
Key information
This method uses key number 6 (See SwapKey).
This is a unique key.
This is a null key, only the records where pIsOpen is true are in the index.
 
Key segment information
Segment NameTypeOrderCollation
pArtNumBSTRAscendingHierarchy
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
pLineNumSHORT (unsigned)Ascending-
pIsOpenVARIANT_BOOLAscending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsArtNum
[in] The article number of the Purchase Delivery Detail line you want to seek.
bsBook
[in] The book code of the Purchase Delivery of which you want to seek a detail line.
lDocNum
[in] The document number of the Purchase Delivery of which you want to seek a detail line.
sLineNum
[in] The line number of the Purchase Delivery 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
CreatePDelivDet
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek the data of all detail lines for the article with number = 'Art_001' of all unpaid purchase deliveries
CString strArtNum = "Art_001";
pPDelivDet->SeekByUnpaidArt (smGreaterOrEqual, (LPCSTR)strArtNum, "", 0, 0);
while (pPDelivDet->GetDBStatus () == 0 && (CString)pPDelivDet->pArtNum == strArtNum)
{
    // Process record data
    
    pPDelivDet->GetNext ();
}

C#
 
// Seek the data of all detail lines for the article with number = 'Art_001' of all unpaid purchase deliveries
string strArtNum = "Art_001";
oPDelivDet.SeekByUnpaidArt (eSeekMode.smGreaterOrEqual, strArtNum, "", 0, 0);
while (oPDelivDet.GetDBStatus () == 0 && oPDelivDet.pArtNum.ToString () == strArtNum)
{
    // Process record data
    
    oPDelivDet.GetNext ();
}

VBS
 
' Seek the data of all detail lines for the article with number = 'Art_001' of all unpaid purchase deliveries
Dim strArtNum
strArtNum = "Art_001"
Call oPDelivDet.SeekByUnpaidArt(smGreaterOrEqual, strArtNum, "", 0, 0)
While oPDelivDet.GetDBStatus() = 0 And oPDelivDet.pArtNum = strArtNum
    ' Process record data

    Call oPDelivDet.GetNext()
Wend

VB.NET
 
' Seek the data of all detail lines for the article with number = 'Art_001' of all unpaid purchase deliveries
Dim strArtNum As String
strArtNum = "Art_001"
oPDelivDet.SeekByUnpaidArt(eSeekMode.smGreaterOrEqual, strArtNum, "", 0, 0)
While oPDelivDet.GetDBStatus() = 0 And oPDelivDet.pArtNum = strArtNum
    ' Process record data

    oPDelivDet.GetNext()
End While