FreenetIS

'all accounts now have correct balances' => 'Všechny účty teď mají správné zůstatky.',

'entrance fees have been successfully deducted' => 'Vstupní příspěvky byly úspěšně strženy.',

'fees have been successfully deducted' => 'Členské příspěvky byly úspěšně strženy.',

'recalculate_account_balances' => 'Primárním zdrojem o stavu financí v systému jsou převody. Zůstatky na účtech byly dříve pokaždé počítány na požádání z převodů. Nyní si každý účet ulkádá svůj zůstatek kvůli vyšší rychlosti. Tuto funkci použijete v případě přechodu na verzi systému, která tuto optimalizaci obsahuje.',

'recount_fees' => 'Pro primární strhávání členských příspěvků používejte funkci pro globální strhávání členských příspěvků v Účetním deníku. Tuto funkci používejte opatrně a to jen v případě, že máte správně strženy všechny členské příspěvky pro všechny členy od založení sdružení až po současné datum. Pak můžete tomuto členovi přepočítat stržení členských příspěvků v případě, že u něj došlo k nutnosti je přepočítat, např. chybné datum vstupu, vznikla nutnost přidat přerušení členství apod.',

'recount_entrance_fees' => 'Pro primární strhávání vstupních příspěvků používejte funkci pro globální strhávání v účetním deníku. Tuto funkci používejte jen v případě, že došlo k nějakému omylu, například, že měl zaplatit vstupní a pak se ukázalo, že nemusel.',

mf.name AS fee_name

function get_account_to_recount_entrance_fees($account_id)

/*

$this->db->query("DELETE FROM transfers WHERE type = ".Transfer_Model::$deduct_member_fee."

AND origin_id = $account_id");

*/

// array of accounts to recalculate

$accounts = array();

$accounts[$transfer->origin_id] = 1;

$accounts[$transfer->destination_id] = 1;

throw ErrorException();

// recalculating account balance

foreach ($accounts as $unique_account_id => $nothing)

{

if (!self::recalculate_account_balance($unique_account_id))

throw ErrorException();

}

/*

$this->db->query("DELETE FROM transfers WHERE type = ".Transfer_Model::$deduct_entrance_fee."

AND origin_id = $account_id");

*

*/

$accounts[$transfer->origin_id] = 1;

$accounts[$transfer->destination_id] = 1;

throw ErrorException();

// recalculating account balance

foreach ($accounts as $unique_account_id => $nothing)

{

echo $unique_account_id;

if (!self::recalculate_account_balance($unique_account_id))

throw ErrorException();

}

die();

* Recalculates account balances in case of changing version of system, or when transfers

* are corrupted.

* @return <type>

public static function recalculate_account_balances()

/*

$db = new Database();

return $db->query("

UPDATE accounts a,

SELECT IFNULL(SUM(t.amount), 0) AS outbound, q2.inbound, q2.aid

SELECT IFNULL(SUM(t.amount), 0) AS inbound, q1.aid

FROM

(

SELECT a.id AS aid

FROM accounts a

) q1

LEFT JOIN transfers t ON t.destination_id = q1.aid

GROUP BY q1.aid

) q2

LEFT JOIN transfers t ON t.origin_id = q2.aid

GROUP BY q2.aid

) q3

SET a.balance = (q3.inbound - q3.outbound)

*

*/

$accounts = ORM::factory('account')->find_all();

self::recalculate_account_balance($account->id);

* Recalculates balance of single account.

* @return <type>

public static function recalculate_account_balance($account_id)

$db = new Database();

return $db->query("

UPDATE accounts a,

(

SELECT IFNULL(SUM(t.amount), 0) AS outbound, q2.inbound, q2.aid

FROM

(

SELECT IFNULL(SUM(t.amount), 0) AS inbound, q1.aid

FROM

(

SELECT a.id AS aid

FROM accounts a

WHERE a.id = $account_id

) q1

LEFT JOIN transfers t ON t.destination_id = q1.aid

GROUP BY q1.aid

) q2

LEFT JOIN transfers t ON t.origin_id = q2.aid

GROUP BY q2.aid

) q3

SET a.balance = (q3.inbound - q3.outbound)

WHERE a.id = $account_id

");

throw ErrorException();

$grid->add_new_button(url_lang::base().'transfers/recount_fees/'.$account->id, url_lang::lang('texts.Recount of member fees'), array('onclick' => 'return potvrd(\''.url_lang::lang('texts.Are you sure you want to recount fees of this member').'\')'), help::hint('recount_fees'));

$grid->add_new_button(url_lang::base().'transfers/recount_entrance_fees/'.$account->id, url_lang::lang('texts.Recount of entrance fees'), array('onclick' => 'return potvrd(\''.url_lang::lang('texts.Are you sure you want to recount entrance fees of this member').'\')'), help::hint('recount_entrance_fees'));

* Deducts fees of all members in one month. Instead of one transfer per year this function deducts

* one transfer per month. It is possible to recount member fees by deleting previous

* member fee transfers and creating new ones.

// test if there exist already deduct transfer for given month

$transfer = ORM::factory('transfer')->

like(array('type' => Transfer_Model::$deduct_member_fee, 'datetime' => $date))->find_all();

if (count($transfer) > 0)

{

$this->session->set_flash('message', url_lang::lang('texts.This month has been already deducted!'));

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

}

$text = url_lang::lang('texts.Deduction of member fee');

if ($account->fee_is_set)

$amount = $account->fee;

$text = ($account->fee_readonly) ? $text.' - '.url_lang::lang('texts.'.$account->fee_name) : $text.' - '.$account->fee_name;

else

{

$amount = $default_fee;

}

Transfer_Model::insert_transfer($account->id, $operating->id, null, null,

$this->session->get('user_id'), Transfer_Model::$deduct_member_fee, $date, $creation_datetime, $text, $amount);

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

* Function recounts wrong deducted fees of given account of member.

function recount_fees($account_id = 0)

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

* Recounts transfer of one member credit account. Used only in special cases, like changing entrance date.

function recount_entrance_fees($account_id)

$credit_account = $account_model->get_account_to_recount_entrance_fees($account_id);

$grid->add_new_button(url_lang::base().'bank_transfers/add/'.$bank_account_id, url_lang::lang('texts.Add new bank transfer'));

$grid->add_new_button(url_lang::base().'bank_transfers/add_fee/'.$bank_account_id, url_lang::lang('texts.Add new bank transfer without counteraccount'));

class Duplicity_Exception extends Exception

{

public $duplicity;

public function __construct($duplicity=NULL) {$this->duplicity=$duplicity;}

}

// old version, with recalculating account balance and without exception handling

/*

static $transfer; // static variable saves a little bit of memory & time

if (!isset($transfer)) $transfer=new Transfer_Model();

$transfer->clear();

$transfer->amount = $amount;

$transfer->datetime = $datetime;

$transfer->creation_datetime=$this->time_now;

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

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

$transfer->text= $text;

$transfer->previous_transfer_id = $prev_id;

$transfer->member_id = $member_id;

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

$transfer->save();

return $transfer->id;

*

*/

// static variable saves a little bit of memory & time

/*

static $transfer;

static $bank_transfer;

if (!isset($transfer)) {

$transfer=new Transfer_Model();

$bank_transfer=new Bank_transfer_Model();

}

$dups = $bank_transfer->get_duplicities($data);

if ($dups->count() > 0)

throw new Duplicity_Exception($dups);

*

*/

$bank_transfer=new Bank_transfer_Model();

throw new ErrorException();

// old version, with recalculating account balance and without exception handling

/*

$transfer->clear();

$transfer->amount = $amount;

$transfer->datetime = $data->date_time;

$transfer->creation_datetime=$this->time_now;

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

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

$transfer->text= $data->comment;

$transfer->previous_transfer_id=$prev_id;

$transfer->member_id = $member_id;

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

$transfer->save();

*/

// old version, does not support transactions,

// in case of duplicity part of listing is not imported, which is incorrect behaviour

/*

try

{

$duplicity_err='';

$parser->parse($url);

}

catch (Duplicity_Exception $ex)

{

// v případě duplicity commitujeme vše do výskytu duplicity a hned skončíme

$duplicity=new View('table_n_columns'); // tabulka se všemi nalezenými duplicitami

$duplicity->set('table_data', $ex->duplicity);

$duplicity_err = "Končíme, právě importovaný záznam má již v databázi duplicitní záznam(y):\n"

.$duplicity;

}

*/

// safe import is done by transaction processing started in previous method

// in case of exception, no item is imported due to rollback in level above

Account_Model::recalculate_account_balances();

$this->session->set_flash('message', url_lang::lang('texts.All accounts now have correct balances.'));