Venice
PDelivDet::SeekByFupCode
 
Seeks a Purchase Delivery Detail line by its follow-up code.
 
VARIANT_BOOL SeekByFupCode (
    enum eSeekMode eSeekMode,
    BSTR bsFollowUp,
    DATE dDocDate
)
 
Key information
This method uses key number 8 (See SwapKey).
This key allows duplicates.
This is a null key, only the records where pFollowUp is not blank are in the index.
 
Key segment information
Segment NameTypeOrderCollation
pFollowUpBSTRAscendingCase insensitive
pDocDateDATE (date)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsFollowUp
[in] The follow-up code of the Purchase Delivery Detail line you want to seek.
dDocDate
[in] The document date of the Purchase Delivery of which you want to seek a detail line.
 
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 with a follow-up code of 'FUP'
CString strFupCode = "FUP";
pPDelivDet->SeekByFupCode (smGreaterOrEqual, (LPCSTR)strFupCode, COleDateTime (0, 0, 0, 0, 0, 0).m_dt);
while (pPDelivDet->GetDBStatus () == 0 && (CString)pPDelivDet->pFollowUp == strFupCode)
{
    // Process record data
    
    pPDelivDet->GetNext ();
}

C#
 
// Seek the data of all detail lines with a follow-up code of 'FUP'
string strFupCode = "FUP";
oPDelivDet.SeekByFupCode (eSeekMode.smGreaterOrEqual, strFupCode, new DateTime ());
while (oPDelivDet.GetDBStatus () == 0 && oPDelivDet.pFollowUp.ToString () == strFupCode)
{
    // Process record data
    
    oPDelivDet.GetNext ();
}

VBS
 
' Seek the data of all detail lines with a follow-up code of 'FUP'
Dim strFupCode
Dim dtDocDate
strFupCode = "FUP"
Call oPDelivDet.SeekByFupCode(smGreaterOrEqual, strFupCode, dtDocDate)
While oPDelivDet.GetDBStatus() = 0 And oPDelivDet.pFollowUp = strFupCode
    ' Process record data

    Call oPDelivDet.GetNext()
Wend

VB.NET
 
' Seek the data of all detail lines with a follow-up code of 'FUP'
Dim strFupCode As String
Dim dtDocDate As Date
strFupCode = "FUP"
oPDelivDet.SeekByFupCode(eSeekMode.smGreaterOrEqual, strFupCode, dtDocDate)
While oPDelivDet.GetDBStatus() = 0 And oPDelivDet.pFollowUp = strFupCode
    ' Process record data

    oPDelivDet.GetNext()
End While