Click or drag to resize

IProjectStatusMonitors Property

Project Status Monitors - list of all active status monitors indexed by id. May return an error if the Sales Intelligence license is missing. Project status is a list defined by the database administrator. Different statuses of a project may be: “In planning”, “Started”, “Finished” and so on

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOStatusMonitorValues StatusMonitors { get; }

Property Value

Type: SOStatusMonitorValues
IListTextItem - A reference to the iListtextitem object
Examples

Status

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

This example returns the text string from the IListTextItem object, to show the status of the project.

VB
Dim soDB, myProject, msg
enPublishTypeExternal = 1
enTableProjStatus = 88
enTableProjType = 85

Set soDB = CreateObject("SuperOfficeDB.Database")
If soDB.Login ("USERNAME", "PASSWORD") Then


    Set myProject = soDB.CreateProject
    myProject.SetDefaults
    myProject.Name = "Summer party 2007"
    'This will be automagically set for you by using SetDefaults
    myProject.Associate = soDB.GetAssociate(soDB.UserAssociateId)
    myProject.Description = "The annual summer party where we invite all our large customers"
    myProject.PostItText = "This years we will do a barbeque"
    'This will fail if there is no "c:\summerparty.jpg"
    myProject.Picture.ReadFromFile ("c:\summerparty.jpg")
    'The project will be available through audience
    myProject.PublishType = enPublishTypeExternal
    myProject.Urls.Add "www.summerparty.xxx", "The summerparty website"
    'This will be automagically set for you by using SetDefaults
    myProject.ProjectNumber= 1234
    myProject.Status = soDB.GetListItemByName(enTableProjStatus, "Planned")
    myProject.Type  =  soDB.GetListItemByName (enTableProjType, "Other")

    If myProject.Sentry.AreAllRequiredFieldsFilled = True Then
        myProject.Save
        msg = msg & "Project saved with project_id = " & myProject.Identity & vbCrLf 
        msg = msg & "Project is created by " & myProject.CreatedAssociate.FullName & " at " & myProject.CreatedDate & vbCrLf 
        msg = msg & "and belongs to usergroup " & myProject.Group.Text & vbCrLf 
        If myProject.UpdatedDate > #1/1/1970# then
            msg = msg & "Project was last updated by: " & myProject.UpdatedAssociate.FullName & " at " & myProject.UpdatedDate 
        End If

        MsgBox msg

    End If

else
    MsgBox "Unable to log in"
end if
Set soDB = Nothing

Status monitors

VB
 Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    MsgBox "Are there no valid status monitors on the current project: " & objSO.CurrentProject.StatusMonitors.Empty, vbInformation + vbOkOnly, "SuperCOM"
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also