Click or drag to resize

IScriptingEventsOnAfterCentralUpdate Method

Called after central update processing is complete, but before the application starts

Namespace:  SuperOffice.COM.ScriptEvents
Assembly:  Scripting.Interop (in Scripting.Interop.dll) Version: 8.0.0.0
Syntax
void OnAfterCentralUpdate(
	int associateid
)

Parameters

associateid
Type: SystemInt32
Examples

Description

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

VB
Sub OnAfterCentralUpdate(assocID)
    if assocID = 2 then
    Set myContacts = Database.Find.ContactsByName(Database.GetAssociate(Database.UserAssociateId).FullName & " workday")
    set myContact = myContacts.GetFirst
    If myContacts.EOF Then
        'No contact exist, create it.
        Set myContact = Database.CreateContact
        myContact.SetDefaults
        myContact.Name = Database.GetAssociate(Database.UserAssociateId).FullName & " workday"
        myContact.Save
    End If

    Set soApnt = Database.CreateAppointment
    soApnt.SetDefaults
    soApnt.Contact = myContact
    soApnt.Description = Now() & ": Central update performed."
    soApnt.Save    
    SOMessageBox "Welcome home!", "Central update", 2
    end if
End Sub

See Also