Venice
PayWork::SeekByAssigned
 
Seeks a Payment card in the work file that is assigned to a bank.
 
VARIANT_BOOL SeekByAssigned (
    enum eSeekMode eSeekMode,
    BSTR bsBankCode,
    enum ePayType ePayType,
    BSTR bsGroupCode
)
 
Key information
This method uses key number 5 (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
pBankCodeBSTRAscendingCase insensitive
pPayTypeBYTEAscending-
pIsSepaVARIANT_BOOLAscending-
pCircChequeBYTEAscending-
pChargesCodeBSTRAscendingCase sensitive
pGroupCodeBSTRAscendingCase insensitive
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsBankCode
[in] The bank code of the payment you want to seek.
ePayType
[in] A value of the 'ePayType' enumeration.
bsGroupCode
[in] The group 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 local payments in Euro in the working file that are assigned to the bank with code 'BANK'
pPayWork->SeekByAssigned (smGreaterOrEqual, "BANK", ptLocalEUR, "");
while (pPayWork->GetDBStatus () == 0 && (CString)pPayWork->pBankCode == "BANK" && (BYTE)pPayWork->pPayType == ptLocalEUR)
{
    // Process record data
    
    pPayWork->GetNext ();
}

C#
 
// Seek all local payments in Euro in the working file that are assigned to the bank with code 'BANK'
oPayWork.SeekByAssigned (eSeekMode.smGreaterOrEqual, "BANK", ePayType.ptLocalEUR, "");
while (oPayWork.GetDBStatus () == 0 && oPayWork.pBankCode.ToString () == "BANK" && (ePayType)((byte)oPayWork.pPayType) == ePayType.ptLocalEUR)
{
    // Process record data
    
    oPayWork.GetNext ();
}

VBS
 
' Seek all local payments in Euro in the working file that are assigned to the bank with code 'BANK'
Call oPayWork.SeekByAssigned(smGreaterOrEqual, "BANK", ptLocalEUR, "")
While oPayWork.GetDBStatus() = 0 And oPayWork.pBankCode = "BANK" And oPayWork.pPayType = ptLocalEUR
    ' Process record data

    Call oPayWork.GetNext()
Wend

VB.NET
 
' Seek all local payments in Euro in the working file that are assigned to the bank with code 'BANK'
oPayWork.SeekByAssigned(eSeekMode.smGreaterOrEqual, "BANK", ePayType.ptLocalEUR, "")
While oPayWork.GetDBStatus() = 0 And oPayWork.pBankCode = "BANK" And oPayWork.pPayType = ePayType.ptLocalEUR
    ' Process record data

    oPayWork.GetNext()
End While