Click or drag to resize

IFindProjectsWithNumSalesNotCompletedTotal Method

Returns list of Projects with matching sale counters. Search by total number of sales.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOProjects ProjectsWithNumSalesNotCompletedTotal(
	EnSaleStatus Status,
	IListTextItem amountclass,
	EnFindOperator op,
	int Value
)

Parameters

Status
Type: SuperOffice.COM.SuperOfficeDBEnSaleStatus
amountclass
Type: SuperOffice.COM.SuperOfficeDBIListTextItem
The amountclass of the sales, NULL equals all amountclasses
op
Type: SuperOffice.COM.SuperOfficeDBEnFindOperator
Value
Type: SystemInt32
Number of sales in total to compare 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
enSaleAllCounters = 4
enFindOpMoreThanOrEqual = 5

Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
    objSO.login "USERID", "PASSWORD"
    Set myProjs = objSO.Find.ProjectsWithNumSalesNotCompletedTotal(enSaleAllCounters, Nothing, enFindOpMoreThanOrEqual, 10)
    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
Else
    MsgBox "Could not log in"
End If

Set objSO = Nothing

See Also