diff --git a/htdocs/loan/card.php b/htdocs/loan/card.php index ac27da29628..ca28b16261c 100644 --- a/htdocs/loan/card.php +++ b/htdocs/loan/card.php @@ -425,18 +425,6 @@ if ($id > 0) dol_fiche_head($head, 'card', $langs->trans("Loan"), -1, 'bill'); - print ''; - - // Loan card $linkback = ''.$langs->trans("BackToList").''; @@ -792,8 +780,6 @@ if ($id > 0) // Edit if ($object->paid == 0 && $user->rights->loan->write) { - // print ''.$langs->trans('CreateCalcSchedule').''; - print '
'.$langs->trans("Modify").'
'; } diff --git a/htdocs/loan/createschedule.php b/htdocs/loan/createschedule.php deleted file mode 100644 index ccd6026580b..00000000000 --- a/htdocs/loan/createschedule.php +++ /dev/null @@ -1,228 +0,0 @@ - - * Copyright (C) 2018 Alexandre Spangaro - * - * 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/createschedule.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'; - -$loanid = GETPOST('loanid', 'int'); -$action = GETPOST('action', 'aZ09'); - -$object = new Loan($db); -$object->fetch($loanid); - -// Load translation files required by the page -$langs->loadLangs(array("compta", "bills", "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); - $insurance = GETPOST('hi_insurance'.$i); - - $echeance = new LoanSchedule($db); - - $echeance->fk_loan = $object->id; - $echeance->datec = dol_now(); - $echeance->tms = dol_now(); - $echeance->datep = $date; - $echeance->amount_capital = $mens - $int; - $echeance->amount_insurance = $insurance; - $echeance->amount_interest = $int; - $echeance->fk_typepayment = 3; - $echeance->fk_bank = 0; - $echeance->fk_user_creat = $user->id; - $echeance->fk_user_modif = $user->id; - $result = $echeance->create($user); - if ($result < 0) { - setEventMessages($echeance->error, $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); - $insurance = GETPOST('hi_insurance'.$i); - - $echeance = new LoanSchedule($db); - $echeance->fetch($id); - $echeance->tms = dol_now(); - $echeance->amount_capital = $mens - $int; - $echeance->amount_insurance = $insurance; - $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 ''; -$colspan = 6; -if (count($echeance->lines) > 0) $colspan++; -print ''; -print ''; - -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -if (count($echeance->lines) > 0) print ''; -print ''."\n"; - -if ($object->nbterm > 0 && count($echeance->lines) == 0) -{ - $i = 1; - $capital = $object->capital; - $insurance = $object->insurance_amount / $object->nbterm; - $insurance = price2num($insurance, 'MT'); - $regulInsurance = price2num($object->insurance_amount - ($insurance * $object->nbterm)); - while ($i < $object->nbterm + 1) - { - $mens = price2num($echeance->calcMonthlyPayments($capital, $object->rate / 100, $object->nbterm - $i + 1), 'MT'); - $int = ($capital * ($object->rate / 12)) / 100; - $int = price2num($int, 'MT'); - $cap_rest = price2num($capital - ($mens - $int), 'MT'); - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''."\n"; - $i++; - $capital = $cap_rest; - } -} -elseif (count($echeance->lines) > 0) -{ - $i = 1; - $capital = $object->capital; - $insurance = $object->insurance_amount / $object->nbterm; - $insurance = price2num($insurance, 'MT'); - $regulInsurance = price2num($object->insurance_amount - ($insurance * $object->nbterm)); - foreach ($echeance->lines as $line) { - $mens = $line->amount_capital + $line->amount_insurance + $line->amount_interest; - $int = $line->amount_interest; - $cap_rest = price2num($capital - ($mens - $int), 'MT'); - print ''; - print ''; - print ''; - print ''; - print ''; - if ($line->datep > dol_now()) { - print ''; - } else { - print ''; - } - - print ''; - print ''; - print ''."\n"; - $i++; - $capital = $cap_rest; - } -} - -print '
'; -print $langs->trans("FinancialCommitment"); -print '
'.$langs->trans("Term").''.$langs->trans("Date").''.$langs->trans("Insurance"); -print ''.$langs->trans("InterestAmount").''.$langs->trans("Amount").''.$langs->trans("CapitalRemain"); -print ' ('.price2num($object->capital).')'; -print ''; -print ''.$langs->trans('DoPayment').'
'.$i.''.dol_print_date(dol_time_plus_duree($object->datestart, $i - 1, 'm'), 'day').''.price($insurance + (($i == 1) ? $regulInsurance : 0), 0, '', 1).' €'.price($int, 0, '', 1).' €'.price($cap_rest).' €
'.$i.''.dol_print_date($line->datep, 'day').''.price($insurance + (($i == 1) ? $regulInsurance : 0), 0, '', 1).' €'.price($int, 0, '', 1).' €'.price($mens).' €'.price($cap_rest).' €'.$langs->trans('DoPayment').'
'; -print '
'; -print '
'; -print '
'; -print ''; - -// End of page -llxFooter(); -$db->close(); diff --git a/htdocs/loan/schedule.php b/htdocs/loan/schedule.php index a951b9c9b0f..fb3cd86ebe3 100644 --- a/htdocs/loan/schedule.php +++ b/htdocs/loan/schedule.php @@ -17,7 +17,7 @@ */ /** - * \file htdocs/loan/createschedule.php + * \file htdocs/loan/schedule.php * \ingroup loan * \brief Schedule card */ @@ -229,10 +229,10 @@ if ($object->nbterm > 0 && count($echeance->lines) == 0) print ''; print ''.$i.''; print ''.dol_print_date(dol_time_plus_duree($object->datestart, $i - 1, 'm'), 'day').''; - print ''.price($insurance + (($i == 1) ? $regulInsurance : 0), 0, '', 1, -1, -1, $conf->currency).' €'; - print ''.price($int, 0, '', 1, -1, -1, $conf->currency).' €'; - print ' €'; - print ''.price($cap_rest).' €'; + print ''.price($insurance + (($i == 1) ? $regulInsurance : 0), 0, '', 1, -1, -1, $conf->currency).''; + print ''.price($int, 0, '', 1, -1, -1, $conf->currency).''; + print ''; + print ''.price($cap_rest).''; print ''."\n"; $i++; $capital = $cap_rest; @@ -255,10 +255,10 @@ elseif (count($echeance->lines) > 0) print ''; print ''.$i.''; print ''.dol_print_date($line->datep, 'day').''; - print ''.price($insu, 0, '', 1, -1, -1, $conf->currency).' €'; - print ''.price($int, 0, '', 1, -1, -1, $conf->currency).' €'; + print ''.price($insu, 0, '', 1, -1, -1, $conf->currency).''; + print ''.price($int, 0, '', 1, -1, -1, $conf->currency).''; if ($line->datep > dol_now() && empty($line->fk_bank)) { - print ' €'; + print ''; } else { print ''.price($mens, 0, '', 1, -1, -1, $conf->currency).''; }