EdoWork::SeekByStatus (Interface: EdoWork)
 
Seeks an electronic document in the work file by its status.
 
VARIANT_BOOL SeekByStatus (
    enum eSeekMode eSeekMode,
    enum eEwkStatus eEwkStatus,
    enum eEwkDestination eEwkDestination
)
 
Key information
This method uses key number 2 (See SwapKey).
This key allows duplicates.
 
Key segment information
Segment NameTypeOrderCollation
pStatusBYTEAscending-
pDestinationBYTEAscending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
eEwkStatus
[in] A value of the 'eEwkStatus' enumeration.
eEwkDestination
[in] A value of the 'eEwkDestination' enumeration.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateEdoWork
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek all electronic documents in the work file with status 'Accepted' and destination 'Other'
eEwkStatus eES = esAccepted;
eEwkDestination eED = edOther;
pEdoWork->SeekByStatus (smGreaterOrEqual, esAccepted, edOther);
while (pEdoWork->GetDBStatus () == 0 && (BYTE)pEdoWork->pStatus == eES && (BYTE)pEdoWork->pDestination == eED)
{
    // Process record data
    
    pEdoWork->GetNext ();
}

C#
 
// Seek all electronic documents in the work file with status 'Accepted' and destination 'Other'
eEwkStatus eES = eEwkStatus.esAccepted;
eEwkDestination eED = eEwkDestination.edOther;
oEdoWork.SeekByStatus (eSeekMode.smGreaterOrEqual, eES, eED);
while (oEdoWork.GetDBStatus () == 0 && (eEwkStatus)((byte)oEdoWork.pStatus) == eES && (eEwkDestination)((byte)oEdoWork.pDestination) == eED)
{
    // Process record data
    
    oEdoWork.GetNext ();
}

VBS
 
' Seek all electronic documents in the work file with status 'Accepted' and destination 'Other'
Dim eES, eED
eES = esAccepted
eED = edOther
Call oEdoWork.SeekByStatus(smGreaterOrEqual, eES, eED)
While oEdoWork.GetDBStatus() = 0 And oEdoWork.pStatus = eES And oEdoWork.pDestination = eED
    ' Process record data

    Call oEdoWork.GetNext()
Wend

VB.NET
 
' Seek all electronic documents in the work file with status 'Accepted' and destination 'Other'
Dim eES As eEwkStatus
Dim eED As eEwkDestination
eES = eEwkStatus.esAccepted
eED = eEwkDestination.edOther
oEdoWork.SeekByStatus(eSeekMode.smGreaterOrEqual, eES, eED)
While oEdoWork.GetDBStatus() = 0 And oEdoWork.pStatus = eES And oEdoWork.pDestination = eED
    ' Process record data

    oEdoWork.GetNext()
End While