Projekt

Obecné

Profil

Stáhnout (21.7 KB) Statistiky
| Větev: | Tag: | Revize:

freenetis-github/application/controllers/accounts.php @ 7247a0d5

8baed187 Michal Kliment
<?php defined('SYSPATH') or die('No direct script access.');
/*
* This file is part of open source system FreenetIS
* and it is released under GPLv3 licence.
*
* More info about licence can be found:
* http://www.gnu.org/licenses/gpl-3.0.html
*
* More info about project can be found:
* http://www.freenetis.org/
*
*/

/**
* Manages all double-entry accounts in the system including accounting system.
*
* @author Jiri Svitak
* @package Controller
*/
class Accounts_Controller extends Controller
{
c1bdc1c4 Michal Kliment
/**
* Constructor, only test if finance is enabled
*/
public function __construct()
{
parent::__construct();
if (!Settings::get('finance_enabled'))
Controller::error (ACCESS);
}
8baed187 Michal Kliment
/**
* Index redirect to show all
*/
public function index()
{
url::redirect('accounts/show_all/1');
}

/**
* It shows all double-entry accounts.
* They are shown by selected group in filter.
*
* @author Jiri Svitak
* @param $limit_results
* @param $order_by
* @param $order_by_direction
*/
public function show_all(
$group = 1, $limit_results = 500, $order_by = 'id',
$order_by_direction = 'asc', $page_word = null, $page = 1)
{
// access check
if (!$this->acl_check_view('Accounts_Controller', 'accounts'))
{
Controller::error(ACCESS);
}
// account groups
$arr_groups[Account_Model::ACCOUNTING_SYSTEM] = __('Accounting system');
$arr_groups[Account_Model::CREDIT] = __('Credit subaccounts');
$arr_groups[Account_Model::PROJECT] = __('Project subaccounts');
$arr_groups[Account_Model::OTHER] = __('Other');
// account groups with help
$arr_groups_help[Account_Model::ACCOUNTING_SYSTEM] = help::hint('accounting_system');
$arr_groups_help[Account_Model::CREDIT] = help::hint('credit_subaccounts');
$arr_groups_help[Account_Model::PROJECT] = help::hint('project_subaccounts');
$arr_groups_help[Account_Model::OTHER] = help::hint('other_subaccounts');
c1bdc1c4 Michal Kliment
// Create filter form
$filter_form = new Filter_form();
$filter_form->add('id')
->table('aa')
->label('Account');
8baed187 Michal Kliment
c1bdc1c4 Michal Kliment
$filter_form->add('name')
->table('aa')
->label('Account name');
$filter_form->add('datetime')
->label('Balance date')
->type('date');
8baed187 Michal Kliment
// gets grid settings
c1bdc1c4 Michal Kliment
if (is_numeric($this->input->post('record_per_page')))
$limit_results = (int) $this->input->post('record_per_page');
8baed187 Michal Kliment
// order by check
$allowed_order_type = array('id', 'aname', 'comment', 'mname', 'balance');
if (!in_array(strtolower($order_by), $allowed_order_type))
$order_by = 'id';
// order by direction check
if (strtolower($order_by_direction) != 'desc')
$order_by_direction = 'asc';
// gets records
if ($group == Account_Model::ACCOUNTING_SYSTEM)
{
$account_attribute_model = new Account_attribute_Model();
c1bdc1c4 Michal Kliment
$total_accounts = $account_attribute_model->get_accounting_system_count($filter_form->as_sql(array
(
'id', 'name'
)));
8baed187 Michal Kliment
if (($sql_offset = ($page - 1) * $limit_results) > $total_accounts)
$sql_offset = 0;
$accounts = $account_attribute_model->get_accounting_system(
$sql_offset, (int) $limit_results, $order_by,
c1bdc1c4 Michal Kliment
$order_by_direction, $filter_form->as_sql(array(
'id', 'name'
)),
$filter_form->as_sql(array('datetime'))
8baed187 Michal Kliment
);
}
else
{
$account_model = new Account_Model();
c1bdc1c4 Michal Kliment
$total_accounts = $account_model->get_accounts_count($filter_form->as_sql(array
(
'id', 'name'
)),
$group);
8baed187 Michal Kliment
if (($sql_offset = ($page - 1) * $limit_results) > $total_accounts)
$sql_offset = 0;
$accounts = $account_model->get_accounts(
$sql_offset, (int) $limit_results, $order_by,
c1bdc1c4 Michal Kliment
$order_by_direction, $filter_form->as_sql(array(
'id', 'name'
)),
$filter_form->as_sql(array('datetime')),
$group
8baed187 Michal Kliment
);
}

// set correct headline for chosen group
$headline = $arr_groups[$group];

// grid
$grid = new Grid('accounts', null, array
(
'current' => $limit_results,
'selector_increace' => 500,
'selector_min' => 500,
'selector_max_multiplier' => 10,
'base_url' => Config::get('lang') . '/accounts/show_all/' . $group . '/'
. $limit_results . '/' . $order_by . '/' . $order_by_direction,
'uri_segment' => 'page',
'total_items' => $total_accounts,
'items_per_page' => $limit_results,
'style' => 'classic',
'order_by' => $order_by,
'order_by_direction' => $order_by_direction,
'limit_results' => $limit_results,
c1bdc1c4 Michal Kliment
'filter' => $filter_form,
8baed187 Michal Kliment
'variables' => $group . '/',
'url_array_ofset' => 1
));
foreach ($arr_groups as $key => $arr_group)
{
$grid->add_new_button(
'accounts/show_all/' . $key,
$arr_group, array(), $arr_groups_help[$key]
);
}
if ($group == Account_Model::ACCOUNTING_SYSTEM)
{
// button for recalculating balances of all accounts
if ($this->acl_check_edit('Accounts_Controller', 'accounts'))
{
$grid->add_new_button(
'accounts/recalculate_account_balances',
__('Recalculate account balances'),
array(), help::hint('recalculate_account_balances')
);
}
$grid->order_field('id')
->label(__('Account'));
$grid->order_field('name')
->label(__('Account name'));
$grid->order_callback_field('balance')
->callback('callback::balance_field');
}
else
{
// adding project account
if ($group == Account_Model::PROJECT &&
$this->acl_check_new('Accounts_Controller', 'accounts'))
{
$grid->add_new_button(
'accounts/add_project',
__('Add new project account')
);
}
$grid->order_field('id');
$grid->order_field('name')
->label(__('Account name'));
$grid->order_field('account_attribute_id')
->label(__('Type'));
$grid->order_callback_field('balance')
->callback('callback::balance_field');
$grid->order_callback_field('member_name')
->callback('callback::member_field');
$actions = $grid->grouped_action_field();
if ($this->acl_check_view('Accounts_Controller', 'transfers'))
{
$actions->add_action('id')
->icon_action('transfer')
->url('transfers/show_by_account')
->label('Show transfers');
}
if ($this->acl_check_edit('Accounts_Controller', 'accounts'))
{
$actions->add_action('id')
->icon_action('edit')
->url('accounts/edit')
->label('Edit account');
}
}
// load data
$grid->datasource($accounts);
// bread crumbs
$breadcrumbs = breadcrumbs::add(false)
->text($headline)
->html();
// view
$view = new View('main');
$view->title = $headline;
$view->breadcrumbs = $breadcrumbs;
$view->content = new View('show_all');
$view->content->headline = $headline . '&nbsp;' . $arr_groups_help[$group];
$view->content->table = $grid;
$view->render(TRUE);
}

/**
* Adds new project account.
*
* @author Jiri Svitak
* @param integer $member_id
*/
public function add_project()
{
// access rights
if (!$this->acl_check_new('Accounts_Controller', 'accounts'))
{
Controller::error(ACCESS);
}
// members list
$arr_members = ORM::factory('member')
->select_list('id', "CONCAT(id, ' - ', COALESCE(name,''))", 'name');
// form
$form = new Forge('accounts/add_project');
$form->group('Basic information');
$form->dropdown('member')
->label(__('Owner') . ':')
->rules('required')
->options($arr_members)
->style('width:200px');
$form->input('name')
->label(__('Account name') . ':')
->rules('required|length[3,50]');
$form->textarea('comment')
->rules('length[0,250]');
$form->submit('Add');
// posted form
if ($form->validate())
{
$form_data = $form->as_array();
$account = new Account_Model;
$account->member_id = $form_data['member'];
$account->account_attribute_id = Account_attribute_Model::PROJECT;
$account->name = $form_data['name'];
$account->comment = $form_data['comment'];
unset($form_data);
if ($account->save())
{
status::success('Account has been successfully added.');
}
else
{
status::error('Error - cant add new account.');
}
url::redirect('accounts/show_all?name=&group=2&submit=Filter');
}
else
{
// headline
$headline = __('Add new project account');
// bread crumbs
$breadcrumbs = breadcrumbs::add()
->link('accounts/show_all/3', 'Project subaccounts',
$this->acl_check_view('Accounts_Controller', 'accounts'))
->disable_translation()
->text($headline)
->html();
// view
$view = new View('main');
$view->title = $headline;
$view->breadcrumbs = $breadcrumbs;
$view->content = new View('form');
$view->content->headline = $headline;
$view->content->form = $form->html();
$view->render(TRUE);
}
} // end of add_credit_account function

/**
* Function edits double-entry account.
*
* @param integer $acc_id
*/
public function edit($acc_id = NULL)
{
// access rights
if (!$this->acl_check_edit('Accounts_Controller', 'accounts'))
Controller::error(ACCESS);
if (!isset($acc_id) || !is_numeric($acc_id))
Controller::warning(PARAMETER);
$model_account = new Account_Model($acc_id);
if (!$model_account->id)
Controller::error(RECORD);
$form = new Forge('accounts/edit/' . $acc_id);
$form->group('Basic information');
$form->input('name')
->rules('required|length[3,50]')
->value($model_account->name)
->style('width:600px');
$form->textarea('comment')
->rules('length[0,250]')
->value($model_account->comment)
->style('width:600px');
$form->submit('Edit');
// form posted
if ($form->validate())
{
$form_data = $form->as_array();
$model_account->name = $form_data['name'];
$model_account->comment = $form_data['comment'];
unset($form_data);
if ($model_account->save())
{
status::success('Account has been successfully updated.');
}
else
{
status::error('Error - cant update account.');
}
url::redirect("accounts/show_all/1");
}
else
{
// bread crumbs
$breadcrumbs = breadcrumbs::add()
->link('accounts/show_all', 'Project subaccounts',
$this->acl_check_view('Accounts_Controller', 'accounts'))
->disable_translation()
->text($model_account->name . ' (' . $model_account->id . ')')
->html();
// headline
$headline = __('Edit account');
// view
$view = new View('main');
$view->title = $headline;
$view->breadcrumbs = $breadcrumbs;
$view->content = new View('form');
$view->content->headline = $headline;
$view->content->form = $form->html();
$view->render(TRUE);
}
} // end of edit function

/**
* Goes through all double-entry accounts and calculates their balance from their transfers.
* All transfers are primary information about cash flow. Calculating balance of account
* is creating redundant information, but it speeds up all money calculating operations in system.
* This method should be used only in special cases, like changing version of Freenetis
* to version containing this method, or when some data are corrupted.
* The user is familiar with result, when no change to balance is made, then everything is ok.
* In other case user is informed about count of accounts, which transfers are not corresponding
* to its balance
*
* @author Jiri Svitak
*/
public function recalculate_account_balances()
{
if (!$this->acl_check_edit('Accounts_Controller', 'accounts'))
{
Controller::error(ACCESS);
}
// get all accounts with their own and calculated balances
$account_model = new Account_Model();
// recalculates balances and returns array of ids of incorrect accounts
$incorrect_accounts = $account_model->recalculate_account_balances();
// message
status::success(
'All accounts now have correct balances, %d accounts had ' .
'incorrect balances, list of IDs of corrected accounts: %s',
TRUE, array
(
0 => count($incorrect_accounts),
1 => implode(", ", $incorrect_accounts)
)
);
// redirection
url::redirect('accounts/show_all');
}
c1bdc1c4 Michal Kliment
/**
* Recalculates all fees of account
*
* @author Michal Kliment
* @param type $account_id
*/
public function recalculate_fees ($account_id = NULL)
{
// bad parameter
if (!$account_id)
Controller::warning (PARAMETER);
$account = new Account_Model($account_id);
// account doesn't exist
if (!$account->id)
Controller::error (RECORD);
// acccess control
if (!$this->acl_check_edit('Accounts_Controller', 'accounts'))
Controller::error (ACCESS);
try
{
// recalculates entrance fees
$entrance_fee_stats = self::recalculate_entrance_fees($account->id);
// recalculates member fees
$member_fee_stats = self::recalculate_member_fees($account->id);
// recalculates device fees
$device_fee_stats = self::recalculate_device_fees($account->id);

$deleted_transfers_count = $entrance_fee_stats['deleted'] + $member_fee_stats['deleted'] + $device_fee_stats['deleted'];
$created_transfers_count = $entrance_fee_stats['created'] + $member_fee_stats['created'] + $device_fee_stats['created'];

status::success(
'Fees have been successfully recalculated, %d deleted '.
'transfers, %d created new transfers.',
TRUE, array
(
0 => $deleted_transfers_count,
1 => $created_transfers_count
)
);
}
catch (Exception $e)
{
status::error('Error - Cannot recalculate fees', $e);
Log::add_exception($e);
}
$this->redirect('transfers/show_by_account/'.$account->id);
}
/**
* Recalculates entrance fees of account
*
* @author Michal Kliment
* @param type $account_id
* @return type
* @throws Exception
*/
public static function recalculate_entrance_fees ($account_id = NULL)
{
$account = new Account_Model($account_id);
try
{
$account->transaction_start();
$transfer_model = new Transfer_Model();

$last_entrance_fee_transfer = substr($transfer_model->find_last_transfer_datetime_by_type(
Transfer_Model::DEDUCT_ENTRANCE_FEE
), 0,10);

// first of all is necessary to delete previous entrance fee transfers
// user can change debt payment rate, this means that existing transfers are useless
$deleted_transfers_count = $account->delete_entrance_deduct_transfers_of_account($account->id);

// preparation
$created_transfers_count = 0;

// not recalculate fees for applicant
if ($account->member->type != Member_Model::TYPE_APPLICANT)
{
$creation_datetime = date('Y-m-d H:i:s');
$infrastructure = ORM::factory('account')->where(
'account_attribute_id', Account_attribute_Model::INFRASTRUCTURE
)->find();

// debt payment rate is set
if ($account->member->debt_payment_rate)
$amount = $account->member->debt_payment_rate;
else
$amount = $account->member->entrance_fee;

$entrance_fee_left = $account->member->entrance_fee;

$date = date::get_closses_deduct_date_to($account->member->entrance_date);

while (true)
{
// whole entrance fee is deducted
if ($entrance_fee_left == 0)
break;

// stops on last deducted entrace fee's date in system
if ($date > $last_entrance_fee_transfer)
break;
if ($amount > $entrance_fee_left)
$amount = $entrance_fee_left;
$created_transfers_count++;
Transfer_Model::insert_transfer(
$account->id, $infrastructure->id, null, null,
Session::instance()->get('user_id'),
Transfer_Model::DEDUCT_ENTRANCE_FEE,
$date, $creation_datetime, __('Entrance fee'),
$amount
);

$entrance_fee_left -= $amount;

2a205303 Michal Kliment
$date = date::get_next_deduct_date_to($date);
c1bdc1c4 Michal Kliment
}
}
$account->transaction_commit();

return array
(
'deleted' => $deleted_transfers_count,
'created' => $created_transfers_count
);
}
catch (Exception $e)
{
$account->transaction_rollback();
throw $e;
}
}
/**
* Recalculates member fees of account
*
* @author Michal Kliment
* @param type $account_id
* @return type
* @throws Exception
*/
public static function recalculate_member_fees($account_id)
{
$account = new Account_Model($account_id);
try
{
$account->transaction_start();
$transfer_model = new Transfer_Model();

$last_member_fee_transfer = substr($transfer_model->find_last_transfer_datetime_by_type(
Transfer_Model::DEDUCT_MEMBER_FEE
), 0, 10);
// find leaving date of former member
if ($account->member->type == Member_Model::TYPE_FORMER)
{
$leaving_date = date::get_closses_deduct_date_to($account->member->leaving_date);
}
else
{
$leaving_date = '9999-12-31';
}
// first of all is necessary to delete previous entrance fee transfers
// user can change debt payment rate, this means that existing transfers are useless
$deleted_transfers_count = $account->delete_deduct_transfers_of_account($account->id);

// preparation
$created_transfers_count = 0;
// not recalculate fees for applicant
if ($account->member->type != Member_Model::TYPE_APPLICANT)
{
$creation_datetime = date('Y-m-d H:i:s');
$operating = ORM::factory('account')->where(
'account_attribute_id', Account_attribute_Model::OPERATING
)->find();

$date = date::get_closses_deduct_date_to($account->member->entrance_date);

$fee_model = new Fee_Model();

while (true)
{
if ($date == $leaving_date)
break;
if ($date > $last_member_fee_transfer)
break;
$amount = $fee_model->get_regular_member_fee_by_member_date(
$account->member_id, $date
);
$name = $fee_model->get_regular_member_fee_name_by_member_date(
$account->member_id, $date
);
if ($name === NULL)
$name = __('Member fee');

if ($amount)
{
$created_transfers_count++;
Transfer_Model::insert_transfer(
$account->id, $operating->id, null, null,
Session::instance()->get('user_id'),
Transfer_Model::DEDUCT_MEMBER_FEE,
$date, $creation_datetime, $name,
$amount
);
}

2a205303 Michal Kliment
$date = date::get_next_deduct_date_to($date);
c1bdc1c4 Michal Kliment
}
}
$account->transaction_commit();
return array
(
'deleted' => $deleted_transfers_count,
'created' => $created_transfers_count
);
}
catch (Exception $e)
{
$account->transaction_rollback();
throw $e;
}
}
/**
* Recalculates device fees of account
*
* @author Michal Kliment
* @param type $account_id
* @return type
* @throws Exception
*/
public static function recalculate_device_fees($account_id = NULL)
{
$account = new Account_Model($account_id);
try
{
$account->transaction_start();
$devices = ORM::factory('device')
->get_member_devices_with_debt_payments($account->member_id);

$payments = array();
$debt = 0;
$last_deduct_device_fees = Settings::get('last_deduct_device_fees');
// first of all is necessary to delete previous entrance fee transfers
// user can change debt payment rate, this means that existing transfers are useless
$deleted_transfers_count = $account->delete_device_deduct_transfers_of_account($account->id);

$created_transfers_count = 0;

if (count($devices))
{
$creation_datetime = date('Y-m-d H:i:s');
$operating = ORM::factory('account')->where(
'account_attribute_id', Account_attribute_Model::OPERATING
)->find();
foreach ($devices as $device)
{
// finds buy date of this device
$buy_date = date_parse(date::get_closses_deduct_date_to($device->buy_date));

$debt += $device->price;

// finds all debt payments of this device
money::find_debt_payments(
$payments, $buy_date['month'], $buy_date['year'],
$device->price, $device->payment_rate
);
}

$year = min(array_keys($payments));
$month = min(array_keys($payments[$year]));
$day = date::get_deduct_day_to($month, $year);

$date = date::create($day, $month, $year);

while (true)
{
// all device fees are deducted
if ($debt == 0)
break;

// stops on last deducted device fee's date in system
if ($date > $last_deduct_device_fees)
break;

$pd = date_parse($date);

if (isset($payments[$pd['year']][$pd['month']]))
{
$amount = $payments[$pd['year']][$pd['month']];

if ($amount > $debt)
$amount = $debt;

$debt -= $amount;

$created_transfers_count++;
Transfer_Model::insert_transfer(
$account->id, $operating->id, null, null,
Session::instance()->get('user_id'),
Transfer_Model::DEDUCT_DEVICE_FEE,
$date, $creation_datetime, __('Device repayments'),
$amount
);
}

2a205303 Michal Kliment
$date = date::get_next_deduct_date_to($date);
c1bdc1c4 Michal Kliment
}
}
$account->transaction_commit();
return array
(
'deleted' => $deleted_transfers_count,
'created' => $created_transfers_count
);
}
catch (Exception $e)
{
$account->transaction_rollback();
throw $e;
}
}
8baed187 Michal Kliment
}