ISFinancialTransactions.Item

Description

Each of the financial transactions within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISFinancialTransactions	The `object` always implements the ISFinancialTransactions interface
`aIndex`	In, Required	int	The index of the financial transaction

Restriction: This property is readonly.

Return Value

ISFinancialTransaction

Example

Display the number of the financial transactions loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aTransactions, aTransaction
Dim aMessage
Dim i

Set aFilter = Profile.CreateFinancialTransactionFilter
aFilter.StartDate = #01/01/2019#
aFilter.EndDate = Now
set aTransactions = Profile.LoadFinancialTransactions(aFilter) 

aMessage = "Financial Transactions Count = " & aTransactions.Count & vbNewLine

for i = 0 to aTransactions.Count - 1
  set aTransaction = aTransactions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Date: " & aTransaction.Date & vbNewLine &_ 
    "    ID: " & aTransaction.ID & vbNewLine &_
    "    POS: " & aTransaction.POS.FullName & vbNewLine &_ 
    "    Patient: " & aTransaction.Patient.SurnameFirstName & vbNewLine 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Financial Transactions can be found in Financial > Audit Transactions > All.

Version information

Added in v7.8.0