function BORROWER($bt, $bid)
{
switch ($bt) {
case 'B':
$borrower = new SOCIETY($bid);
$members = $borrower->getMembers();
break;
case 'G':
$borrower = new SOCIETY($bid);
$members[$bid] = $borrower->data['name'];
break;
case 'I':
$borrower = new CLIENT($bid);
$members[$bid] = $borrower->data['name'];
break;
default:
WEBPAGE::redirect('index.php?logout=1');
break;
}
$this->data = $borrower->data;
$this->data['members'] = $members;
}
$c++;
}
foreach ($ldata as $key => $val) {
WEBPAGE::$dbh->query(sprintf("insert into tblLoansOnDelinquency values ('null','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s')", $val['loan_id'], $val['date'], $val['hits'], $val['delay'], $val['pmt'], $val['penalties'], $val['interest'], $val['fees'], $val['insurances'], $val['principal']));
}
//require 'index.cron.transactionsUpdate.inc';
//actualiza tblTCredits y fija pagos del dia anterior en tblPayments
//WEBPAGE::$dbh->query("insert into tblTCredits (code,date,branch_id,program_id,amount,principal,fees,insurances,interest,penalties) select CONCAT('C',p.date+0,LPAD(l.zone_id,3,'0'),LPAD(l.program_id,3,'0')) as transaction,p.date,l.zone_id,l.program_id,sum(p.pmt),sum(p.principal),sum(p.fees),sum(p.insurances),sum(p.interest),sum(p.penalties) from tblPayments as p, tblLoans as l where p.transaction_id = '0' and l.id = p.loan_id group by transaction");
WEBPAGE::$dbh->query("insert into tblTCredits (code,date,branch_id,program_id,fund_id,amount,principal,fees,insurances,interest,penalties) select CONCAT('C',p.date+0,LPAD(l.zone_id,3,'0'),LPAD(l.program_id,3,'0'),LPAD(flmp.fund_id,3,'0')) as transaction, p.date, l.zone_id, l.program_id, flmp.fund_id, sum(p.pmt),sum(p.principal),sum(p.fees),sum(p.insurances),sum(p.interest),sum(p.penalties) from tblPayments as p, tblLoans as l, tblFundsLoansMasterPct flmp, tblLoansMasterDetails lmd where lmd.loan_id = l.id and flmp.master_id = lmd.master_id and p.transaction_id = '0' and l.id = p.loan_id group by transaction");
WEBPAGE::$dbh->query("update tblPayments as p, tblLoans as l, tblFundsLoansMasterPct flmp, tblLoansMasterDetails lmd set p.transaction_id = CONCAT('C',p.date+0,LPAD(l.zone_id,3,'0'),LPAD(l.program_id,3,'0'),LPAD(flmp.fund_id,3,'0')) where p.transaction_id = 0 and l.id = p.loan_id and lmd.loan_id = l.id and flmp.master_id = lmd.master_id");
//tblTDebits se actualiza desde LN.SCR.doCheckRelease.inc
WEBPAGE::$dbh->query("delete from tblLoansCurrentDataBackup");
WEBPAGE::$dbh->query("insert into tblLoansCurrentDataBackup select * from tblLoansCurrentData");
//Automatic loan write off
if ($_CONF['auto_write_off']) {
$lod_id = WEBPAGE::$dbh->getAll(sprintf("select max(lod.id) id,lcd.loan_id,lcd.balance_kp,lcd.balance_kaf,lcd.balance_kat,lcd.cn_date from tblLoansOnDelinquency lod, tblLoansCurrentData lcd where lcd.loan_id = lod.loan_id and lcd.cn_delay > '%s' group by lod.loan_id", $_CONF['auto_write_off_margin']));
foreach ($lod_id as $key => $val) {
$lod_info = current(WEBPAGE::$dbh->getAll(sprintf("select lod.interest,lod.penalties from tblLoansOnDelinquency lod where lod.id = '%s'", $val['id'])));
$amount = $val['balance_kp'] + $val['balance_kaf'] + $val['balance_kat'] + $lod_info['interest'] + $lod_info['penalties'];
WEBPAGE::$dbh->query(sprintf("insert into tblLoanWriteOff (id,loan_id,amount,principal,insurance,fees,interest,penalties,date,user_id) values ('Null','%s','%s','%s','%s','%s','%s','%s','%s','%s')", $val['loan_id'], $amount, $val['balance_kp'], $val['balance_kaf'], $val['balance_kat'], $lod_info['interest'], $lod_info['penalties'], $val['cn_date'], '1'));
WEBPAGE::$dbh->query(sprintf("delete from tblLoansCurrentData where loan_id = %s", $val['loan_id']));
WEBPAGE::$dbh->query(sprintf("insert into tblLoanStatusHistory (id,loan_id,p_status,status,date,user_id,memo) values ('Null','%s','G','LI','%s','1','%s')", $val['loan_id'], $val['cn_date'], $_LABELS['loanWriteOff']));
WEBPAGE::$dbh->query(sprintf("update tblLoans set status = 'LI', editor_id = '1', editor_date = '%s' where id = '%s'", $val['cn_date'], $val['loan_id']));
}
}
// Pone sistema en el modo anterior.
WEBPAGE::$dbh->query(sprintf("insert into tblDataLog values ('null','%s',CURTIME(),'normal','index.cron.php','','')", $p_date));
if ($_CONF['auto_cron'] != '1') {
WEBPAGE::redirect('index.cron.php');
exit;
}
function loadBorrowerData()
{
switch ($this->data['borrower_type']) {
case 'B':
// require_once 'class/society.php';
$this->data['borrower'] = new SOCIETY($this->data['borrower_id']);
break;
case 'G':
// require_once 'class/society.php';
$this->data['borrower'] = new SOCIETY($this->data['borrower_id']);
break;
case 'I':
// require_once 'class/client.php';
$this->data['borrower'] = new CLIENT($this->data['borrower_id']);
break;
default:
WEBPAGE::redirect('index.php?logout=1');
exit;
}
}
function CalNumOfPMT()
{
switch ($this->data['payment_frequency']) {
case "W":
return floor($this->data['installment'] / 7);
case "BW":
return floor($this->data['installment'] / 14);
case "M":
return floor($this->data['installment'] / 30);
case "Q":
return floor($this->data['installment'] / 90);
case "SA":
return floor($this->data['installment'] / 180);
case "A":
return floor($this->data['installment'] / 360);
default:
WEBPAGE::redirect('index.php?scr_name=BS.SCR.message&ico=err&msg=err');
}
}
