ISLetter.FindVersions

Description

This function returns the versions of the letter loaded on the basis of the selected filter.

Syntax

object.FindVersions(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISLetter	The `object` always implements the ISLetter interface
`aFilter`	In, Required	ISVersionFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns the collection of the letter versions loaded on the basis of the selected filter.

Example

Display the number of the letter versions, their IDs, subjects and statuses.

Dim aPatient
Dim aLetters, aLetter
Dim aVersionFilter
Dim aLettersVersions, aLettersVersion
Dim i
Dim j
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF
set aVersionFilter = Profile.CreateVersionFilter

aVersionFilter.FromDate = #01/01/2017#
aVersionFilter.ToDate = #01/01/2020# 
                                                                 
aMessage =_
  "The number of the letters of the selected format is " & aLetters.Count & vbNewLine

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i) 
  set aLettersVersions = aLetter.FindVersions(aVersionFilter)                           
  aMessage = aMessage & vbNewLine &_
    "Letter Id: " & aLetter.Id & vbNewLine &_  
    "Letter Date: " & aLetter.Date & vbNewLine &_
    "Letter Subject: " & aLetter.Subject2 & vbNewLine &_
    "Letter Status: " & aLetter.Status & vbNewLine &_   
    "Versions Count: " & aLettersVersions.Count & vbNewLine
    
  for j = 0 to aLettersVersions.Count -1
    set aLettersVersion = aLettersVersions.Item(j)
    aMessage = aMessage & vbNewLine &_
      "   - Version ID: " & aLettersVersion.ID & vbNewLine &_    
      "   - Version Date: " & aLettersVersion.Date & vbNewLine &_    
      "   - Version Subject: " & aLettersVersion.Subject2 & vbNewLine &_      
      "   - Version Status: " & aLettersVersion.Status & vbNewLine
  next 'j  
next  'i

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Versions can be found in Report > Find Objects > Letters > Letter Version.

Version information