IFindProjectsWithNumSalesNotCompletedPeriod 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
SyntaxSOProjects ProjectsWithNumSalesNotCompletedPeriod(
EnSaleStatus Status,
IListTextItem amountclass,
EnFindOperator op,
int Value
)
Function ProjectsWithNumSalesNotCompletedPeriod (
Status As EnSaleStatus,
amountclass As IListTextItem,
op As EnFindOperator,
Value As Integer
) As SOProjects
Dim instance As IFind
Dim Status As EnSaleStatus
Dim amountclass As IListTextItem
Dim op As EnFindOperator
Dim Value As Integer
Dim returnValue As SOProjects
returnValue = instance.ProjectsWithNumSalesNotCompletedPeriod(Status,
amountclass, op, Value)
SOProjects^ ProjectsWithNumSalesNotCompletedPeriod(
[InAttribute] EnSaleStatus Status,
[InAttribute] IListTextItem^ amountclass,
[InAttribute] EnFindOperator op,
[InAttribute] 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:
SOProjectsSOProjects - a collection of projects matching the query
ExamplesDim 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.ProjectsWithNumSalesNotCompletedPeriod(enSaleAllCounters, Nothing, enFindOpMoreThanOrEqual, 1)
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