ISProfile.CreateInvoiceFilter

Description

This function creates the filter for loading invoices.

Syntax

object.CreateInvoiceFilter()

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

Return Value

ISInvoiceFilter

Returns the filter for loading invoices.

Example

Display the number of the invoices loaded on the basis of the selected filter, their dates and codes of the linked POSes.

Dim aPatient
Dim aFilter
Dim aInvoices
Dim aInvoice 
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateInvoiceFilter
aFilter.PatientId = aPatient.Id
set aInvoices = aFilter.Load 'ISInvoices

aMessage = "The number of the invoices is " & aInvoices.Count & vbNewLine
for each aInvoice in aInvoices
  aMessage = aMessage & "The date is " & aInvoice.Date & ", " &_
  "the code of the POS is '" & aInvoice.PosCode & "'" & vbNewLine
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Invoices can be found in Financial > Invoice.

Version information

Added in v8.4.0