* * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /** * \file htdocs/loan/createecheancier.php * \ingroup loan * \brief Schedule card */ require '../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/loan/class/loan.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/loan.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php'; require_once DOL_DOCUMENT_ROOT.'/loan/class/loanschedule.class.php'; global $user; $loanid = GETPOST('loanid', 'int'); $action = GETPOST('action','aZ09'); $object = new Loan($db); $object->fetch($loanid); $langs->load('loan'); if ($action == 'createecheancier') { $i=1; while($i <$object->nbterm+1){ $date = GETPOST('hi_date'.$i,'int'); $mens = GETPOST('mens'.$i); $int = GETPOST('hi_interets'.$i); $echeance = new LoanSchedule($db); $echeance->fk_loan = $object->id; $echeance->datec = dol_now(); $echeance->tms = dol_now(); $echeance->datepaid = $date; $echeance->amount_capital = $mens-$int; $echeance->amount_insurance = 0; $echeance->amount_interest = $int; $echeance->fk_typepayment = 3; $echeance->fk_bank = 1; $echeance->fk_user_creat = $user->id; $echeance->fk_user_modif = $user->id; $result=$echeance->create($user); if ($result<0) { setEventMessages(null, $echeance->errors,'errors'); } $i++; } } if ($action == 'updateecheancier') { $i=1; while($i <$object->nbterm+1){ $mens = GETPOST('mens'.$i); $int = GETPOST('hi_interets'.$i); $id = GETPOST('hi_rowid'.$i); $echeance = new LoanSchedule($db); $echeance->fetch($id); $echeance->tms = dol_now(); $echeance->amount_capital = $mens-$int; $echeance->amount_insurance = 0; $echeance->amount_interest = $int; $echeance->fk_user_modif = $user->id; $result= $echeance->update($user,0); if ($result<0) { setEventMessages(null, $echeance->errors,'errors'); } $i++; } } $echeance = new LoanSchedule($db); $echeance->fetchall($object->id); top_htmlhead('', ''); $var = ! $var; ?> '; print ''; print ''; if(count($echeance->lines)>0){ print ''; }else{ print ''; } print ''; print ''; print '"; print ''; print ''; Print ''; Print ''; Print ''; Print ''; Print ''; print ''; if ($object->nbterm > 0 && count($echeance->lines)==0) { $i=1; $capital = $object->capital; while($i <$object->nbterm+1){ $mens = round($echeance->calc_mens($capital, $object->rate/100, $object->nbterm-$i+1),2,PHP_ROUND_HALF_UP); $int = ($capital*($object->rate/12))/100; $int = round($int,2,PHP_ROUND_HALF_UP); $cap_rest = round($capital - ($mens-$int),2,PHP_ROUND_HALF_UP); print ''; print ''; print ''; print ''; print ''; print ''; print ''; $i++; $capital = $cap_rest; } }elseif(count($echeance->lines)>0){ $i=1; $capital = $object->capital; foreach ($echeance->lines as $line){ $mens = $line->amount_capital+$line->amount_insurance+$line->amount_interest; $int = $line->amount_interest; $cap_rest = round($capital - ($mens-$int),2,PHP_ROUND_HALF_UP); print ''; print ''; print ''; if($line->datep > dol_now()){ print ''; }else{ print ''; } print ''; print ''; print ''; $i++; $capital = $cap_rest; } } print '
' . "Création d'échéancier
Echéance Date Montant Intérêts Capital restant du
' . $i .'' . dol_print_date(dol_time_plus_duree($object->datestart, $i-1, 'm'),'day') . ''.price($int,0,'',1).' €'.price($cap_rest).' €
' . $i .'' . dol_print_date($line->datep,'day') . '' . price($mens) . ' €'.price($int,0,'',1).' €'.price($cap_rest).' €
'; print '
'; print '
'; print '
'; print ''; llxFooter(); $db->close();