This filter property is used to load the information about the changes of the legal statuses by the specified event ID.
object.EventID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISLegalStatusChangeFilter interface |
int
Display the number of the legal status changes and some information about them.
Dim aFilter
Dim aLegalStatusChanges, aLegalStatusChange
Dim aMessage
Dim i
set aFilter = Profile.CreateLegalStatusChangeFilter
aFilter.EventID = 55
set aLegalStatusChanges = Profile.LoadLegalStatusChanges(aFilter)
aMessage = "Legal Status Change Count = " & aLegalStatusChanges.Count
for i = 0 to aLegalStatusChanges.Count - 1
set aLegalStatusChange = aLegalStatusChanges.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
"Created Date/Time: " & aLegalStatusChange.CreatedDT & vbNewLine &_
"ID: " & aLegalStatusChange.ID & vbNewLine &_
"Modified Date/Time: " & aLegalStatusChange.ModifiedDT & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Event ID cannot be found.