ISCaseBalance.GetCurrent

Description

This function returns the current balance calculated from the transactions that relate to the selected case.

Syntax

object.GetCurrent()

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

Return Value

Decimal

Returns the current balance calculated from the transactions that relate to the selected case.

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, balance, the dates and time when they were opened.

Dim aPatient 
Dim aFilter
Dim aCases, aCase
Dim aBalance 
Dim i
Dim aMessage
    
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.Patient = aPatient
set aCases = Profile.LoadCases(aFilter)

aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_ 
  " = " & aCases.Count 
  
for i = 0 to aCases.Count -1
  set aCase = aCases.Item(i)
  set aBalance = aCase.GetBalance  
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
    " was opened on " & aCase.OpenedOn & vbNewLine & "  Case Balance: " &_ 
    vbNewLine & "  30 days = " & aBalance.Get30Day & vbNewLine & "  60 days = " &_ 
    aBalance.Get60Day & vbNewLine & "  90 days = " & aBalance.Get90Day &_ 
    vbNewLine & "  Current = " & aBalance.GetCurrent & vbNewLine & "  Total = " &_ 
    aBalance.GetTotal
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Current Balance can be found in Organisation > Work Centre > Work > Cases > Edit Case > Administrative > Financial > Financial tab > Current.

Version information

Added in v7.8.0