ISLegalStatusChange.Sections

Example

Display the number of the legal status changes and some information about them, including the sections.

Dim aFilter
Dim aLegalStatusChanges, aLegalStatusChange
Dim aMessage
Dim i, j
Dim aSection 

set aFilter = Profile.CreateLegalStatusChangeFilter
aFilter.FromDate = #09/09/2015#
set aLegalStatusChanges = Profile.LoadLegalStatusChanges(aFilter)

aMessage = "Legal Status Changes 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 

  if not aLegalStatusChange.Sections is nothing then
    aMessage = aMessage & "Sections Count = " & aLegalStatusChange.Sections.Count & vbNewLine
    for j = 0 to aLegalStatusChange.Sections.Count -1
      set aSection = aLegalStatusChange.Sections.Item(j)
      aMessage = aMessage & aSection.Description  & vbNewLine        
    next
  end if
next     

Profile.MsgBox(aMessage)