FreenetIS

* Function finds all deducting transfers from given year and recalculates their amount.

* Deducting transfers have set transfer type to "deduct_member_fee" constant.

* @return unknown_type

*/

function edit_deducted_fees()

{

// access rights

if (!$this->acl_check_new('Accounts_Controller', 'transfers'))

Controller::error(ACCESS);

// content of dropdown for months

for ($i = 1; $i <= 12; $i++)

$arr_months[$i] = $i;

// content of dropdown for years

$year_from = date('Y') - 20;

for ($i = 1; $i <= 20; $i++)

$arr_years[$i] = $year_from + $i;

$form = new Forge(url_lang::base().'transfers/deduct_fees', '', 'POST', array('id' => 'article_form'));

$form->set_attr('class', 'form_class')->set_attr('method', 'post');

$form->dropdown('year')->label(url_lang::lang('texts.Year').':')->rules('required')->options($arr_years)->selected(20);

$form->dropdown('month')->label(url_lang::lang('texts.Month from').':')->rules('required')->options($arr_months)->selected(1);

$form->dropdown('months')->label(url_lang::lang('texts.Number of months').':')->rules('required')->options($arr_months)->selected(1)->callback(array($this, 'valid_months'));

$form->input('fee')->label(url_lang::lang('texts.Monthly member fee').':')->rules('required|valid_numeric');

$form->input('text')->label(url_lang::lang('texts.Text').':');

$form->submit('submit')->value(url_lang::lang('texts.Deduct'));

special::required_forge_style($form, ' *', 'required');

// form validation

if ($form->validate())

{

$form_data = $form->as_array();

foreach($form_data as $key => $value)

{

$form_data[$key] = htmlspecialchars($value);

}

$year = $arr_years[$form_data['year']];

$month = $form_data['month'];

$months = $form_data['months'];

$fee = $form_data['fee'];

$text = $form_data['text'];

// all transfers should have the same date and time of creation

$creation_datetime = date('Y-m-d H:i:s');

// and all transfers should have the same date of deduct start

$datetime = date('Y-m-d H:i:s', mktime(0, 0, 0, $month, 1, $year));

// database models

$transfer = new Transfer_Model();

$member_model = new Member_Model();

$account_model = new Account_Model();

$mi_model = new Membership_interrupt_Model();

// it gets ids and member ids of all credit accounts

//$credit_accounts = $account_model->get_accounts_of_regular_members();

// finding transfer of given year

// it gets id of operating account, the only destination account

$oa = ORM::factory('account')->find_by_account_attribute_id(Account_attribute_Model::$operating);

// it supposes that everything will be ok, if a transfer couldn't be created, it sets to false

$save_successful = true;

// it is suppossed that thousands of transfers will be generated, transaction processing required

$db = new Database();

$db->query("BEGIN;");

// it goes through all credit accounts and it creates their outbound transfers to operating account

foreach($credit_accounts as $ca)

{

// clears transfer model

$transfer->clear();

// starting month

$start = $month;

// finishing month

$finish = $month + $months - 1;

// member fee info includes entrance date, leaving date and member type

$member_fee_info = $member_model->get_fee_information($ca->id);

// for every account it gets entrance year and month of its owning member

$entrance = date_parse($member_fee_info->entrance_date);

// entrance date is rounded

$entrance = date_parse(date::round_month($entrance['day'], $entrance['month'], $entrance['year']));

$e_year = $entrance['year'];

$e_month = $entrance['month'];

$e_day = $entrance['day'];

// fee is deducted only if membership exists before upper date of deducting interval

$e_okay = ($e_year < $year) || ($e_year == $year && $e_month <= $finish);

// if member entered association after start of deducting interval

if ($e_year == $year && $e_month > $start)

{

$start = $e_month;

}

// for every account it gets leaving year and month of its owning member

$leaving_date = date_parse($member_fee_info->leaving_date);

// if leaving date was set

if ($leaving_date['year'] != '0')

{

// leaving date is rounded

$leaving_date = date_parse(date::round_month($leaving_date['day'], $leaving_date['month'], $leaving_date['year']));

$l_year = $leaving_date['year'];

$l_month = $leaving_date['month'];

$l_day = $leaving_date['day'];

// fee is deducted only if membership exists before upper date of deducting interval

$l_okay = ($l_year > $year) || ($l_year == $year && $l_month > $start);

// if member left before end of deducting interval

if ($l_year == $year && $l_month <= $finish)

{

// leaving month is not included in deduction

$finish = $l_month - 1;

}

}

else

{

$l_okay = true;

}

// for every member it searches interrupts of membership

$mis = $mi_model->get_mi($ca->member_id);

// defualt number of months with interrupted membership

$interrupted = 0;

foreach ($mis as $mi)

{

$from = date_parse($mi->from);

$from = date_parse(date::round_month($from['day'], $from['month'], $from['year']));

$to = date_parse($mi->to);

$to = date_parse(date::round_month($to['day'], $to['month'], $to['year']));

// membership was interrupted before starting month and interrupt lasted after finishing one

if ((($from['year'] < $year) || ($from['year'] == $year && $from['month'] <= $start))

&& (($to['year'] > $year) || ($to['year'] == $year && $to['month'] >= $finish)))

{

// all months will be interrupted, no fee is deducted

$interrupted += $finish - $start;

}

// membership was interrupted before starting month,

// but interrupt ended after starting one and before finishing one

else if ((($from['year'] < $year) || ($from['year'] == $year && $from['month'] < $start))

&& ($to['year'] == $year && $to['month'] >= $start)

&& ($to['year'] == $year && $to['month'] < $finish))

{

$interrupted += $to['month'] - $start;

}

// membership was interrupted after starting month and before finishing month,

// and interrupt ended after finishing month

else if (($from['year'] == $year && $from['month'] > $start)

&& ($from['year'] == $year && $from['month'] <= $finish)

&& (($to['year'] > $year) || ($to['year'] == $year && $to['month'] > $finish)))

{

$interrupted += $finish - $from['month'];

}

// membership was interrupted after starting month and before finishing month

else if (($from['year'] == $year && $from['month'] >= $start)

&& ($to['year'] == $year && $to['month'] <= $finish))

{

$interrupted += $to['month'] - $from['month'];

}

}

// total months to deduct fees

$total_months = $finish - $start + 1 - $interrupted;

// if deducting interval is between entrance and leaving date, transfer will be generated

if ($e_okay && $l_okay && $total_months > 0)

{

$transfer->origin_id = $ca->id;

$transfer->destination_id = $oa->id;

$transfer->user_id = $this->session->get('user_id');

$transfer->type = Transfer_Model::$deduct_member_fee;

$transfer->datetime = $datetime;

$transfer->creation_datetime = $creation_datetime;

$transfer->text = $text;

$transfer->amount = $total_months * $fee;

// money transfer is saved and checked

if (!$transfer->save())

$save_successful = false;

}

}

// end of transaction processing

if ($save_successful)

{

$db->query("COMMIT;");

$this->session->set_flash('message', url_lang::lang('texts.Fees have been successfully deducted.'));

}

else

{

$db->query("ROLLBACK;");

$this->session->set_flash('message', url_lang::lang('texts.Error - some fees have not been deducted.'));

}

url::redirect(url_lang::base().'transfers/show_all');

}

else

{

$headline = url_lang::lang('texts.Deduction of member fees');

$view = new View('main');

$view->title = $headline;

$view->content = new View('form');

$view->content->headline = $headline;

$view->content->form = $form->html();

$view->content->link_back = html::anchor(url_lang::base().'transfers/show_all',url_lang::lang('texts.Back to day book'));

$view->render(TRUE);

}

}

/**

// check if there is fee for payment, then new amount is calculated

$fee_model = new Fee_Model();

$fee = $fee_model->get_by_date_type($transfer1->datetime, 'transfer fee');

if (is_object($fee) && $fee->id)

$amount = $form_data['amount'] - $fee->fee;

else

$amount = $form_data['amount'];

$transfer2->amount = $amount;

$transfer2_saved = $transfer2->save();

if ($transfer1_saved && $transfer2_saved)