Click or drag to resize

IAppointmentIdentity Property

The primary key on the primary table. Is zero for new objects. Is set when an object is saved. The appointments database unique internal identity.

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

Property Value

Type: Int32
Long - The database internal ID of the appointment (appointment_id)

Implements

IModelBaseIdentity
Examples

Show Identity

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

VB
Dim soDB, myAppnt
Set soDB = CreateObject("SuperOfficeDB.Database")
enTableTask = 67
enTablePriority = 79 

If soDB.Login ("USERID", "PASSWORD") then

    Set myAppnt = sodb.CreateAppointment
    myAppnt.Alarm = True
    myAppnt.AlarmOffset = 10
    myAppnt.AllDayEvent = False
    myAppnt.Associate = soDB.GetAssociate(soDB.UserAssociateId)
    myAppnt.Completed = False
    myAppnt.Contact = soDB.GetContact(soDB.OwnerContactId)
    myAppnt.Description = "Strawberrys for all - summer pep talk"
    myAppnt.DoBy = #6/1/2007 12:00:00 PM#
    myAppnt.Duration = 60
    myAppnt.FreeBusy = enFreeBusyBusy
    myAppnt.Task = soDB.GetListItemByName(enTableTask, "Meeting (Internal)")
    myAppnt.Priority = soDB.GetListItemByName(enTablePriority, "1 High")
    myAppnt.Location = "Meeting room"
    myAppnt.Private = 0 'public appointment, everyone can see
    myAppnt.Project = soDB.GetProject(2)
    For Each assoc In soDB.GetAssociateList

        myAppnt.AddParticipant assoc

    Next



    If myAppnt.Sentry.AreAllRequiredFieldsFilled = True Then
        myAppnt.Save

        msg = msg & "Appointment saved with appointment_id = " & myAppnt.Identity & vbCrLf
        msg = msg & "Appointment is created by " & myAppnt.CreatedAssociate.FullName & vbCrLf
        msg = msg & "and belongs to usergroup " & myAppnt.Group.Text & vbCrLf
        If myAppnt.UpdatedDate > #1/1/1970# Then
            msg = msg & "Appointment was last updated by: " & myAppnt.UpdatedAssociate.FullName & " at " & myAppnt.UpdatedDate
        Else
            msg = msg & "Appointment has never been updated"
        End If

        MsgBox msg
    End If



Else
    MsgBox "Unable to log in"
End If

See Also