Venice
POffer::SeekByOpenStatSup
 
Seeks an unpaid Purchase Offer by its supplier number.
 
VARIANT_BOOL SeekByOpenStatSup (
    enum eSeekMode eSeekMode,
    LONG lSupNum,
    BSTR bsBook,
    LONG lDocNum
)
 
Key information
This method uses key number 7 (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
pSupNumLONG (unsigned)Ascending-
pBookBSTRAscendingCase insensitive
pDocNumLONG (unsigned)Ascending-
pIsOpenVARIANT_BOOLAscending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
lSupNum
[in] The supplier number of the Purchase Offer you want to seek.
bsBook
[in] The book code of the Purchase Offer you want to seek.
lDocNum
[in] The document number of the Purchase Offer you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreatePOffer
GetDBStatus
GetNext
 
Samples
 
C++
 
// Process all records that are still open
pPOffer->SeekByOpenStatSup (smFirst, 0, "", 0);
while (pPOffer->GetDBStatus () == 0)
{
    // Process record data

    pPOffer->GetNext ();
}

// Check if the document for the supplier with number 125 and with book code = 'Book' and document number = 12 is still open
if (pPOffer->SeekByOpenStatSup (smEqual, 125, "Book", 12))
    // Record is still open

C#
 
// Process all records that are still open
oPOffer.SeekByOpenStatSup (eSeekMode.smFirst, 0, "", 0);
while (oPOffer.GetDBStatus () == 0)
{
    // Process record data

    oPOffer.GetNext ();
}

// Check if the document for the supplier with number 125 and with book code = 'Book' and document number = 12 is still open
if (oPOffer.SeekByOpenStatSup (eSeekMode.smEqual, 125, "Book", 12))
    // Record is still open

VBS
 
' Process all records that are still open
Call oPOffer.SeekByOpenStatSup(smFirst, 0, "", 0)
While oPOffer.GetDBStatus() = 0
    ' Process record data

    Call oPOffer.GetNext()
Wend

' Check if the document for the supplier with number 125 and with book code = 'Book' and document number = 12 is still open
If oPOffer.SeekByOpenStatSup(smEqual, 125, "Book", 12) Then
    ' Record is still open
End If

VB.NET
 
' Process all records that are still open
oPOffer.SeekByOpenStatSup(eSeekMode.smFirst, 0, "", 0)
While oPOffer.GetDBStatus() = 0
    ' Process record data

    oPOffer.GetNext()
End While

' Check if the document for the supplier with number 125 and with book code = 'Book' and document number = 12 is still open
If oPOffer.SeekByOpenStatSup(eSeekMode.smEqual, 125, "Book", 12) Then
    ' Record is still open
End If