ISAppointmentFilter.ReverseSort

Description

This filter property determines the sort order (direct and reverse) of the collection of appointments.

Syntax

object.ReverseSort

Part	Attribute	Type	Description
`object`	Required	ISAppointmentFilter	The `object` always implements the ISAppointmentFilter interface

Return Value

bool

Example

Display the sort order (direct and reverse) of the collection of appointments.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aAppointment
Dim aReverseSort

set aFilter = Profile.CreateAppointmentFilter
aFilter.DateFrom = #13/01/2018#
aFilter.DateTo = #29/12/2020#
aFilter.OrderBy = 2 ' aobPatientBookTime
aFilter.ReverseSort = false 

set aAppointments = Profile.LoadAppointments(aFilter)

for i = 0 to aAppointments.Count - 1 
  set aAppointment = aAppointments.Item(i)
  aMessage = aMessage & vbNewLine & aAppointment.BookedTime   

  set aPatient = aAppointment.Patient
  if not aPatient is nothing then
    aMessage = aMessage & chr(9) & aPatient.FirstName & " " & aPatient.Lastname  
  end if
next

Note:

In Profile Client v8 on User Interface Reverse Sort cannot be found.

Version information

Added in v7.8.0