Click or drag to resize

IScriptingEventsOnAfterGeneratePrototype Method

Called after the prototype has been generated

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

Parameters

identity
Type: SystemInt32
Examples

Description

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

VB
Sub OnAfterGeneratePrototype(DbID)
if DbID = 0 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() & ": a new prototype for the central database was generated"
    soApnt.Save    
end if
End Sub

See Also