Close Accounts wizard; new property added to Business Layer to assist scripting

A new property has been added to the Business Layer to assist scripting in the Close Accounts wizard.

The property finAccountClose.IsAutomaticClose will be True if it is being called from the Close Accounts wizard, i.e. the finAccountAutomaticClose object. The finAccountClose object is used when loading/ refreshing Accounts and committing the Closes.

This allows specific processing to be done for automatic closes, e.g. to clear the fee in the "CloseCalculate" event of a Close.

Case "CloseCalculate"
  ' Account Close has been calculated and can now be overridden.
  AccountClose = DirectCast(source, finAccountClose)

  If AccountClose.IsAutomaticClose Then
    AccountClose.FeeValue = 0
  End If