ISInvoiceFilter.AfterDate

Example

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

Dim aFilter
Dim aInvoices, aInvoice
Dim aMessage
Dim i    

Set aFilter = Profile.CreateInvoiceFilter
aFilter.AfterDate = #01/01/2000#
set aInvoices = aFilter.Load

aMessage = "Invoices Count = " & aInvoices.Count & vbNewLine

for i = 0 to aInvoices.Count - 1
  set aInvoice = aInvoices.Items(i)
  aMessage = aMessage & (i + 1) & ". " &_
    "Date: " & aInvoice.Date & vbNewLine &_
    "    ID: " & aInvoice.ID & vbNewLine &_
    "    GUID: " & aInvoice.GUID & vbNewLine &_
    "    Pos Code: " & aInvoice.PosCode & vbNewLine &_  
    "    Reference: " & aInvoice.Reference & vbNewLine &_  
    "    Patient: " & aInvoice.Patient.SurnameFirstName & vbNewLine     
next    

Profile.MsgBox(aMessage)