Click or drag to resize

IFindProjectsWithLastCompletedActivity Method

Returns list of Projects with matching appointment/document counters. Search by date.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOProjects ProjectsWithLastCompletedActivity(
	EnAppointType Type,
	IListTextItem intent,
	EnDirection direction,
	EnFindOperator op,
	DateTime Value
)

Parameters

Type
Type: SuperOffice.COM.SuperOfficeDBEnAppointType
intent
Type: SuperOffice.COM.SuperOfficeDBIListTextItem
The intention of the activities, NULL equals all intentions
direction
Type: SuperOffice.COM.SuperOfficeDBEnDirection
op
Type: SuperOffice.COM.SuperOfficeDBEnFindOperator
Value
Type: SystemDateTime
Date to use in comparison with the operator

Return Value

Type: SOProjects
SOProjects - a collection of projects matching the query
Examples

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim objSO
Dim myProjs
Dim myProj

Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
    objSO.login "USERID", "PASSWORD"
    Set myProjs = objSO.Find.ProjectsWithLastCompletedActivity(enAppointAllCounters, Nothing, enDirectionAllCounters, enFindOpLessThanOrEqual, #1/1/2007#)
    Set myProj = myProjs.GetFirst
    While Not myProjs.EOF

        msg = msg & myProj.Name & vbCrLf
        Set myProj = myProjs.GetNext
    Wend
    if msg <> "" then
        MsgBox msg, vbInformation & vbOKOnly, "Projects matching search"
    Else
        MsgBox "No match"
    End If
End If

Set objSO = Nothing

See Also