FreenetIS

* @var object parsed_acc obsahuje data o parsovaném účtu (z tabulky accounts)

* Používá se v callback funkci store_transfer

*/

protected $parsed_acc = NULL;

/**

$transfer_model=new Money_transfer_Model();

$bank_transfer_model=new Money_transfer_bank_info_Model();

$fee_model=new Fees_Model();

if (!isset($this->parsed_acc)) { // mame jiz parsovany ucet v DB? (tato promenna bude nastavena pouze pokud se parsuje ucet zvoleny v gridu uzivatelem)

$acc=new Account_model();

$acc->name = "$data->parsed_acc_nr/$data->parsed_acc_bank_nr";

$acc->parsed_acc->member_id = 1; // majitel = nase sdruzeni

$acc->account_attribute_id = Account_attribute_Model::$bank;

$acc->save();

$this->parsed_acc = $acc;

}

$bank_interests = $acc_model->find_by_account_attribute_id(Account_atribute_Model::$bank_interests);

$bank_interests->name=Account_atribute_Model::$bank_fees;

$suppliers=$acc_model->find_by_account_attribute_id(Account_atribute_Model::$suppliers);

$member_fees=$acc_model->find_by_account_attribute_id(Account_atribute_Model::$member_fees);

$operating=$acc_model->find_by_account_attribute_id(Account_atribute_Model::$operating);

create_transfer_bank_fee($data);

$id=create_transfer($bank_interests->id, $this->parsed_acc->id,

create_bank_transfer(null, $this->parsed_bank_acc->id, $id, $data);

if (!$member->id)

$id=create_transfer($this->parsed_acc->id, $suppliers,

create_bank_transfer($this->parsed_bank_acc->id, $bank_acc->id, $id, $data);

create_transfer_bank_fee($data, $id);

$id=create_transfer($member_fees, $this->parsed_acc->id,

create_bank_transfer($bank_acc->id, $this->parsed_bank_acc->id, $id, $data);

create_transfer_bank_fee($data, $id);

create_transfer($this->parsed_acc->id, $acc_model->id,

if ($fee->id) { // ano? Pak poplatek strhneme z účtu

create_transfer($credit_acc->id, $operating->id,

}

$bank_fees = $acc_model->find_by_account_attribute_id(Account_atribute_Model::$bank_fees);

$bank_fees->name=Account_atribute_Model::$bank_fees;

$id=create_transfer($this->parsed_acc->id, $bank_fees->id,

$transfer_model->datetime = $date_time;

public function parse_ebank_account($account_id=NULL, $url="") {

if (isset($account_id)) {

$this->parsed_acc=new Account_Model($account_id);

$this->parsed_bank_acc = $this->parsed_acc->find_related_bank_account();

}

/**

* pridat parametry:

* + full výpis (včetně čísel účtů) nebo veřejný výpis (bez čísel účtů?)

* + číslo účtu, ze kterého se to má tahat

* Get the value of fee that we (organization) withdraw from member's

* account upon each bank transaction he makes.

* This way we punish members who pay their fees every month, often with

* wrong variable symbols, so we must spend lot of time with

* manual identification of the payments.

*/

public function parse_ebank_account_old($url="c:/www/freenetis/kohana/upload/2007.html") {

$model_fee = new Bank_fee_Model(1);

$fee_value = (float)$model_fee->fee;

$model_account = new Account_Model();

$model_account->where('type=\'master\'')->find();

$master_acc_id = $model_account->id;

$model_account->clear();

$model_account->where('type=\'suppliers\'')->find();

$suppliers_acc_id = $model_account->id;

$model_account->clear();

$model_account->where('type=\'operating\'')->find();

$operating_acc_id = $model_account->id;

$model_account->clear();

$model_account->where('type=\'unidentified\'')->find();

$unidentified_acc_id = $model_account->id;

// Get last two transfers

$model_transfer = new Transfer_Model();

$last_transactions = $model_transfer->get_last_transfers($master_acc_id);

$last = array();

$i = 0;

foreach($last_transactions as $lt)

{

$last[$i] = $lt;

$i++;

}

//*

// parse ebank file

echo "Memory usage=".memory_get_usage()."<p>";

if ($url==NULL)

$string=file_get_contents (self::acc_url . self::acc_nr);

else $string=file_get_contents($url);

$string = stristr($string, 'Pohyby na');

$string = stristr($string, '<table');

$pozice = stripos ($string, '</table');

$string = substr ($string, 0, $pozice);

$dopryc = array(" class=\"odd\"", " class=\"even\"",

"\n\n", "<tbody>", "br");

$string = str_ireplace($dopryc, "", $string);

$string = str_ireplace("< />", ";", $string);

$string = str_ireplace("</tr>", "<br />", $string);

$dopryc = array("<tr>","&nbsp;","<td>");

$string = str_ireplace($dopryc, "", $string);

$string = str_ireplace("</td>", ";", $string);

$string = str_ireplace("\n", "", $string);

$string = str_replace(" ", "", $string);

echo "Memory usage=".memory_get_usage()."<p>";

print $string;

$vysledek = html_entity_decode($string, NULL, 'UTF-8');

$radky = explode('<br />', $vysledek);

die("OK");

$model_transfer->clear();

$model_bank_transfer = new transfer_bank_info_Model();

$zaznamy = 0;

$rozeznano = 0;

$pocet_shodnych = 0;

$next = true;

for($i=0;$i<Count($radky)-1;$i++) {

$pole[$i] = explode(';', $radky[$i]);

unset($pole[$i][1]);

unset($pole[$i][2]);

unset($pole[$i][3]);

unset($pole[$i][5]);

unset($pole[$i][8]);

unset($pole[$i][9]);

unset($pole[$i][15]);

unset($pole[$i][17]);

if (isset($last[0]))

if ($last[$pocet_shodnych]->variable_symbol == $pole[$i][12] && $last[$pocet_shodnych]->timestamp == substr($pole[$i][4],0,-2) && $last[$pocet_shodnych]->amount == (float)$pole[$i][16] && $last[$pocet_shodnych]->text == $pole[$i][6])

{

$pocet_shodnych++;

$next = false;

}

else $next = true;

if ($next)

{

$previous_id = NULL;

// pokus o identifikovani prijemce

if ((float)$pole[$i][16]>0)

{

// jedna se o prichozi platbu

$prijemce = false;

$model_user = new User_Model();

$model_user->find_by_phone(trim($pole[$i][12]));

if ($model_user->member_id!='') $prijemce = $model_user->member_id;

else

{

// pokus o identifikaci pomoci ID

$model_member = new Member_Model(trim($pole[$i][12]));

if ($model_member->id!='') $prijemce = $model_member->id;

}

if ($prijemce)

{

// prijemce identifikovan

$model_account->clear();

$model_account->where('type=\'analytic\' AND owner_id='.$prijemce.'')->find();

// ulozeni informace o bankovnim prevodu

$model_bank_transfer->identified = 1;

$model_bank_transfer->variable_symbol = $pole[$i][12];

$model_bank_transfer->constant_symbol = $pole[$i][13];

$model_bank_transfer->specific_symbol = $pole[$i][14];

$model_bank_transfer->name = $pole[$i][7]=='' ? ' ' : $pole[$i][7];

$model_bank_transfer->date_time = substr($pole[$i][4],0,-2);

$model_bank_transfer->save();

// prevod na analyticky ucet membera

$model_transfer->destination_id = $model_account->id;

$model_transfer->amount = (float)$pole[$i][16];

//$model_transfer->origin_id = $master_acc_id;

$model_transfer->bank_info_id = $model_bank_transfer->id;

$model_transfer->text = $pole[$i][6];

$model_transfer->save();

$previous_id = $model_transfer->id;

$model_transfer->clear();

// poplatek clena

$model_transfer->destination_id = $operating_acc_id;

$model_transfer->amount = $fee_value;

$model_transfer->origin_id = $model_account->id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

$model_transfer->clear();

// poplatek banky

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $master_acc_id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

$model_transfer->clear();

// poplatek baky - prevod z provozniho

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $operating_acc_id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

$model_transfer->clear();

// prepocitani hodnoty current_credit

$model_members = new Member_Model($model_account->owner_id);

$model_members->current_credit = (float)$model_members->current_credit + (float)$pole[$i][16] - $fee_value;

$model_members->save();

$rozeznano++;

}

else

{

$model_bank_transfer->variable_symbol = $pole[$i][12];

$model_bank_transfer->constant_symbol = $pole[$i][13];

$model_bank_transfer->specific_symbol = $pole[$i][14];

$model_bank_transfer->name = $pole[$i][7]=='' ? ' ' : $pole[$i][7];

$model_bank_transfer->date_time = substr($pole[$i][4],0,-2);

$model_bank_transfer->save();

}

$model_transfer->destination_id = $master_acc_id;

$model_transfer->amount = (float)$pole[$i][16];

$model_transfer->bank_info_id = $model_bank_transfer->id;

$model_transfer->timestamp = substr($pole[$i][4],0,-2);

$model_transfer->text = $pole[$i][6];

$model_transfer->save();

$previous_id = $model_transfer->id;

$model_transfer->clear();

// poplatek banky

if (abs((float)$pole[$i][18]) > 0)

{

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $master_acc_id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

$model_transfer->clear();

// poplatek baky - prevod z provozniho

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $operating_acc_id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

}

$model_transfer->clear();

}

else

{

// nulova nebo odchozi platba

if ((float)$pole[$i][16]==0)

{

// jen nejaky poplatek

$pole[$i][16] = abs((float)$pole[$i][18]); // castka se primo rovna poplatku

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $master_acc_id;

$model_transfer->text = url_lang::lang('texts.Fee').': '.$pole[$i][6];

$model_transfer->save();

$previous_id = $model_transfer->id;

$model_transfer->clear();

// z provozniho dodavatelum

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->destination_id = $suppliers_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $operating_acc_id;

$model_transfer->text = url_lang::lang('texts.Fee').': '.$pole[$i][6];

$model_transfer->save();

$model_bank_transfer->identified = 1;

$model_bank_transfer->variable_symbol = $pole[$i][12];

$model_bank_transfer->constant_symbol = $pole[$i][13];

$model_bank_transfer->specific_symbol = $pole[$i][14];

$model_bank_transfer->name = $pole[$i][7]=='' ? ' ' : $pole[$i][7];

$model_bank_transfer->date_time = substr($pole[$i][4],0,-2);

$model_bank_transfer->save();

}

else

{

// odchozi platba

$pole[$i][16] = abs((float)$pole[$i][16]);

$model_bank_transfer->variable_symbol = $pole[$i][12];

$model_bank_transfer->constant_symbol = $pole[$i][13];

$model_bank_transfer->specific_symbol = $pole[$i][14];

$model_bank_transfer->name = $pole[$i][7]=='' ? ' ' : $pole[$i][7];

$model_bank_transfer->date_time = substr($pole[$i][4],0,-2);

$model_bank_transfer->save();

$model_transfer->origin_id = $master_acc_id;

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = (float)$pole[$i][16];

$model_transfer->bank_info_id = $model_bank_transfer->id;

$model_transfer->timestamp = substr($pole[$i][4],0,-2);

$model_transfer->text = $pole[$i][6];

$model_transfer->save();

$previous_id = $model_transfer->id;

$model_transfer->clear();

if (abs((float)$pole[$i][18]) > 0)

{

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $master_acc_id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

$model_transfer->clear();

// poplatek baky - prevod z provozniho

$model_transfer->destination_id = $unidentified_acc_id;

$model_transfer->amount = abs((float)$pole[$i][18]);

$model_transfer->origin_id = $operating_acc_id;

$model_transfer->text = url_lang::lang('texts.Bank transfer fee.');

$model_transfer->previous_transfer_id = $previous_id;

$model_transfer->save();

}

}

}

$model_transfer->clear();

$model_bank_transfer->clear();

$zaznamy++;

}

if ($pocet_shodnych > 2) break;

}

echo "done...naimportovano ".$zaznamy." zaznamu. Z toho bylo ".$rozeznano." uspesne rozeznano a prirazeno";

}