PayWork::SeekByValid (Interface: PayWork)
 
Seeks a Payment card in the work file that is assigned to a bank in order of validity.
 
VARIANT_BOOL SeekByValid (
    enum eSeekMode eSeekMode,
    VARIANT_BOOL bIsValid,
    BSTR bsBankCode
)
 
Key information
This method uses key number 6 (See SwapKey).
This key allows duplicates.
This is a null key, only the records where pBankCode is not blank are in the index.
 
Key segment information
Segment NameTypeOrderCollation
pIsValidVARIANT_BOOLAscending-
pBankCodeBSTRAscendingCase insensitive
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bIsValid
[in] True if you are seeking the valid records, otherwise false.
bsBankCode
[in] The bank code of the payment you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreatePayWork
 
Samples
 
C++
 
// Seek all payments in the working file that are assigned to the bank with code 'BANK' and that are not valid
pPayWork->SeekByValid (smGreaterOrEqual, VARIANT_FALSE, "BANK");
while (pPayWork->GetDBStatus () == 0 && (CString)pPayWork->pBankCode == "BANK" && (VARIANT_BOOL)pPayWork->pIsValid != VARIANT_TRUE)
{
    // Process record data
    
    pPayWork->GetNext ();
}

C#
 
// Seek all payments in the working file that are assigned to the bank with code 'BANK' and that are not valid
oPayWork.SeekByValid (eSeekMode.smGreaterOrEqual, false, "BANK");
while (oPayWork.GetDBStatus () == 0 && oPayWork.pBankCode.ToString () == "BANK" && (bool)oPayWork.pIsValid == false)
{
    // Process record data
    
    oPayWork.GetNext ();
}

VBS
 
' Seek all payments in the working file that are assigned to the bank with code 'BANK' and that are not valid
Call oPayWork.SeekByValid(smGreaterOrEqual, False, "BANK")
While oPayWork.GetDBStatus() = 0 And oPayWork.pBankCode = "BANK" And oPayWork.pIsValid = False
    ' Process record data

    Call oPayWork.GetNext()
Wend

VB.NET
 
' Seek all payments in the working file that are assigned to the bank with code 'BANK' and that are not valid
oPayWork.SeekByValid(eSeekMode.smGreaterOrEqual, False, "BANK")
While oPayWork.GetDBStatus() = 0 And oPayWork.pBankCode = "BANK" And oPayWork.pIsValid = False
    ' Process record data

    oPayWork.GetNext()
End While