ProjectDet::SeekByCntct (Interface: ProjectDet)
 
Seeks a Project Detail by its contact.
 
VARIANT_BOOL SeekByCntct (
    enum eSeekMode eSeekMode,
    LONG lCtcNum,
    LONG lProject,
    SHORT sSeqNum
)
 
Key information
This method uses key number 4 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pCtcNumLONG (unsigned)Ascending-
pProjectLONG (unsigned)Ascending-
pSeqNumSHORT (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
lCtcNum
[in] The number of the contact that the project you want to seek is assigned to.
lProject
[in] The number of the project of which you want to seek a detail.
sSeqNum
[in] The sequence number of the project detail you want to seek.
 
See Also
CreateProjectDet
 
Samples
 
C++
 
// Seek all project details assigned to the contact with number 17
long lCtcNum = 17;
pProjectDet->SeekByCntct (smGreater, lCtcNum, 0, 0);
while (pProjectDet->GetDBStatus () == 0 && (long)pProjectDet->pCtcNum == lCtcNum)
{
    // Process record data
    
    pProjectDet->GetNext ();
}

C#
 
// Seek all project details assigned to the contact with number 17
int iCtcNum = 17;
oProjectDet.SeekByCntct (eSeekMode.smGreater, iCtcNum, 0, 0);
while (oProjectDet.GetDBStatus () == 0 && (int)oProjectDet.pCtcNum == iCtcNum)
{
    // Process record data
    
    oProjectDet.GetNext ();
}

VBS
 
' Seek all project details assigned to the contact with number 17
Dim dwCtcNum
dwCtcNum = 17
Call oProjectDet.SeekByCntct(smGreater, dwCtcNum, 0, 0)
While oProjectDet.GetDBStatus() = 0 And oProjectDet.pCtcNum = dwCtcNum
    ' Process record data

    Call oProjectDet.GetNext()
Wend

VB.NET
 
' Seek all project details assigned to the contact with number 17
Dim ulCtcNum As ULong
ulCtcNum = 17
oProjectDet.SeekByCntct(eSeekMode.smGreater, ulCtcNum, 0, 0)
While oProjectDet.GetDBStatus() = 0 And oProjectDet.pCtcNum = ulCtcNum
    ' Process record data

    oProjectDet.GetNext()
End While