Click or drag to resize

IProjectUpdatedDate Property

The date of the most recent update. The date and time the project was last edited. If the contact has never been updated, this will return 0; formatted as a SuperOffice date (see the database manual), this will return 01.01.1970.

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

Property Value

Type: DateTime
Date – formatted as short date format and time format, from the control panel.

Implements

IModelBaseUpdatedDate
Examples

UpdatedDate

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

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