Click or drag to resize

IProjectAssociate Property

Project Manager - the project's owning Associate

Associate is displayed in the GUI as Responsible. This is the SuperOffice user that owns this project.

Note! This is part of the area filtering rules

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOAssociate Associate { get; set; }

Property Value

Type: SOAssociate
SOAssociate - object containing the owner of the project
Examples

Associate

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

See Also