| |
| Seeks a Contact-firm link card by its firm number. |
| |
 |
VARIANT_BOOL SeekByFirm (
enum eSeekMode eSeekMode,
enum eFirmType eFirmType,
LONG lFrmNum,
LONG lFrmSubNum,
LONG lCtcNum
) |
|
| |
| Key information |  | This method uses key number 2 (See SwapKey). | | This is a unique key. |
| | | | Key segment information | | | | | Parameters | | eSeekMode | | [in] A value of the 'eSeekMode' enumeration. | | eFirmType | | [in] A value of the 'eFirmType' enumeration. | | lFrmNum | | [in] The firm number of the contact-firm link you want to seek. | | lFrmSubNum | | [in] The firm subnumber of the contact-firm link you want to seek. | | lCtcNum | | [in] The contact number of the contact-firm link you want to seek. | | | | Return value |
| True if the record with the given properties was found, otherwise false. |
| |
| See Also |
|
|
|
| |
| Samples |
| |
|
C++ |
| |
// Seek all contact-firm links for the supplier with number 25/0
DWORD dwFrmNumber = 25, dwFrmSubNumber = 0;
pCtLnk->SeekByFirm (smGreaterOrEqual, ftSupplier, dwFrmNumber, dwFrmSubNumber, 0);
while (pCtLnk->GetDBStatus () == 0 && pCtLnk->pFrmType.bVal == ftSupplier && (DWORD)pCtLnk->pFrmNumber.ulVal == dwFrmNumber && (DWORD)pCtLnk->pFrmSubNumber.ulVal == dwFrmSubNumber)
{
// Process record data
pCtLnk->GetNext ();
}
|
|
|
C# |
| |
// Seek all contact-firm links for the supplier with number 25/0
int iFrmNumber = 25, iFrmSubNumber = 0;
oCtLnk.SeekByFirm (eSeekMode.smGreaterOrEqual, eFirmType.ftSupplier, iFrmNumber, iFrmSubNumber, 0);
while (oCtLnk.GetDBStatus () == 0 && (eFirmType)Enum.ToObject(typeof(eFirmType), oCtLnk.pFrmType) == ftSupplier && (int)oCtLnk.pFrmNumber == iFrmNumber && (int)oCtLnk.pFrmSubNumber == iFrmSubNumber)
{
// Process record data
oCtLnk.GetNext ();
}
|
|
|
VBS |
| |
' Seek all contact-firm links for the supplier with number 25/0
Dim lFrmNumber, lFrmSubNumber
lFrmNumber = 25
lFrmSubNumber = 0
Call oCtLnk.SeekByFirm(smGreaterOrEqual, ftSupplier, lFrmNumber, lFrmSubNumber, 0)
While oCtLnk.GetDBStatus() = 0 And oCtLnk.pFrmType = ftSupplier And oCtLnk.pFrmNumber = lFrmNumber And oCtLnk.pFrmSubNumber = lFrmSubNumber
' Process record data
oCtLnk.GetNext()
Wend
|
|
|
VB.NET |
| |
' Seek all contact-firm links for the supplier with number 25/0
Dim lFrmNumber, lFrmSubNumber As Long
lFrmNumber = 25
lFrmSubNumber = 0
oCtLnk.SeekByFirm(eSeekMode.smGreaterOrEqual, eFirmType.ftSupplier, lFrmNumber, lFrmSubNumber, 0)
While oCtLnk.GetDBStatus() = 0 And oCtLnk.pFrmType = eFirmType.ftSupplier And oCtLnk.pFrmNumber = lFrmNumber And oCtLnk.pFrmSubNumber = lFrmSubNumber
' Process record data
oCtLnk.GetNext()
End While
|
|
