27require
'../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.
'/loan/class/loan.class.php';
29require_once DOL_DOCUMENT_ROOT.
'/loan/class/loanschedule.class.php';
30require_once DOL_DOCUMENT_ROOT.
'/loan/class/paymentloan.class.php';
31require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
32require_once DOL_DOCUMENT_ROOT.
'/core/lib/loan.lib.php';
34$langs->loadLangs(array(
"bills",
"loan"));
36$action =
GETPOST(
'action',
'aZ09');
37$confirm =
GETPOST(
'confirm',
'alpha');
38$cancel =
GETPOST(
'cancel',
'alpha');
45if ($user->socid > 0) {
46 $socid = $user->socid;
47} elseif (GETPOSTISSET(
'socid')) {
50if (!$user->hasRight(
'loan',
'write')) {
60$res = $ls->fetchAll($chid);
62 foreach ($ls->lines as $l) {
65 if (empty($l->fk_bank)) {
68 } elseif ($line_id == $l->id) {
76if (!empty($line_id)) {
78 $res = $line->fetch($line_id);
80 $amount_capital =
price($line->amount_capital);
81 $amount_insurance =
price($line->amount_insurance);
82 $amount_interest =
price($line->amount_interest);
83 if (empty($datepaid)) {
84 $ts_temppaid = $line->datep;
89$permissiontoadd = $user->hasRight(
'loan',
'write');
96if ($action ==
'add_payment' && $permissiontoadd) {
100 $loc = DOL_URL_ROOT.
'/loan/card.php?id='.$chid;
101 header(
"Location: ".$loc);
106 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"PaymentMode")),
null,
'errors');
109 if ($datepaid ==
'') {
110 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"Date")),
null,
'errors');
113 if (isModEnabled(
"bank") && !
GETPOSTINT(
'accountid') > 0) {
114 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"AccountToCredit")),
null,
'errors');
125 $pay_amount_interest = $line->amount_interest;
130 $amount = (float)
price2num($pay_amount_capital + $pay_amount_insurance + $pay_amount_interest,
'MT');
133 if (!empty($line) && !empty($line->fk_bank)) {
138 if (empty($remaindertopay)) {
153 $payment->chid = $chid;
154 $payment->datep = $datepaid;
155 $payment->label = $loan->label;
156 $payment->amount_capital = $pay_amount_capital;
157 $payment->amount_insurance = $pay_amount_insurance;
158 $payment->amount_interest = $pay_amount_interest;
160 $payment->paymenttype =
GETPOSTINT(
'paymenttype');
161 $payment->num_payment =
GETPOST(
'num_payment',
'alphanohtml');
162 $payment->note_private =
GETPOST(
'note_private',
'restricthtml');
163 $payment->note_public =
GETPOST(
'note_public',
'restricthtml');
166 $paymentid = $payment->create($user);
167 if ($paymentid < 0) {
175 $result = $payment->addPaymentToBank($user, $chid,
'payment_loan',
'(LoanPayment)', $payment->fk_bank,
'',
'');
176 if (!($result > 0)) {
183 if (!$error && !empty($line)) {
185 if (($line->amount_capital != $pay_amount_capital) || ($line->amount_insurance != $pay_amount_insurance) || ($line->amount_interest != $pay_amount_interest)) {
186 $arr_term =
loanCalcMonthlyPayment(($pay_amount_capital + $pay_amount_interest), $remaindertopay, ($loan->rate / 100), $echance, $loan->nbterm);
187 foreach ($arr_term as $k => $v) {
189 if ($k == $echance) {
190 $ls->lines[$k - 1]->fk_bank = $payment->fk_bank;
191 $ls->lines[$k - 1]->fk_payment_loan = $payment->id;
193 $ls->lines[$k - 1]->amount_capital = $v[
'mens'] - $v[
'interet'];
194 $ls->lines[$k - 1]->amount_interest = $v[
'interet'];
195 $ls->lines[$k - 1]->tms =
dol_now();
196 $ls->lines[$k - 1]->fk_user_modif = $user->id;
197 $result = $ls->lines[$k - 1]->update($user, 0);
205 $line->fk_bank = $payment->fk_bank;
206 $line->fk_payment_loan = $payment->id;
207 $result = $line->update($user, 0);
217 $loc = DOL_URL_ROOT.
'/loan/card.php?id='.$chid;
218 header(
'Location: '.$loc);
233$form =
new Form($db);
235$title = $langs->trans(
'Loans');
236$help_url =
"EN:Module_Loan|FR:Module_Emprunt";
238llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'bodyforlist mod-loan page-payment-list');
242if ($action ==
'create') {
243 $total = $loan->capital;
247 $sql =
"SELECT SUM(amount_capital) as total";
248 $sql .=
" FROM ".MAIN_DB_PREFIX.
"payment_loan";
249 $sql .=
" WHERE fk_loan = ".((int) $chid);
250 $resql = $db->query($sql);
252 $obj = $db->fetch_object($resql);
253 $sumpaid = $obj->total;
257 print
'<form name="add_payment" action="'.$_SERVER[
'PHP_SELF'].
'" method="post">';
258 print
'<input type="hidden" name="token" value="'.newToken().
'">';
259 print
'<input type="hidden" name="id" value="'.$chid.
'">';
260 print
'<input type="hidden" name="chid" value="'.$chid.
'">';
261 print
'<input type="hidden" name="line_id" value="'.$line_id.
'">';
262 print
'<input type="hidden" name="remaindertopay" value="'.($total - $sumpaid).
'">';
263 print
'<input type="hidden" name="action" value="add_payment">';
286 print
'<table class="border centpercent">';
288 print
'<tr><td class="titlefield fieldrequired">'.$langs->trans(
"Date").
'</td><td colspan="2">';
289 if (empty($datepaid)) {
290 if (empty($ts_temppaid)) {
293 $datepayment = $ts_temppaid;
296 $datepayment = $datepaid;
298 print $form->selectDate($datepayment,
'', 0, 0, 0,
"add_payment", 1, 1);
302 print
'<tr><td class="fieldrequired">'.$langs->trans(
"PaymentMode").
'</td><td colspan="2">';
303 print
img_picto(
'',
'money-bill-alt',
'class="pictofixedwidth"');
304 $form->select_types_paiements(GETPOSTISSET(
"paymenttype") ?
GETPOST(
"paymenttype",
'alphanohtml') : $loan->fk_typepayment,
"paymenttype");
309 print
'<td class="fieldrequired">'.$langs->trans(
'AccountToDebit').
'</td>';
310 print
'<td colspan="2">';
311 print
img_picto(
'',
'bank_account',
'class="pictofixedwidth"');
312 $form->select_comptes(GETPOSTISSET(
"accountid") ?
GETPOSTINT(
"accountid") : $loan->accountid,
"accountid", 0,
'courant = '.
Account::TYPE_CURRENT, 1);
316 print
'<tr><td>'.$langs->trans(
'Numero');
317 print
' <em>('.$langs->trans(
"ChequeOrTransferNumber").
')</em>';
319 print
'<td colspan="2"><input name="num_payment" type="text" value="'.GETPOST(
'num_payment',
'alphanohtml').
'"></td>'.
"\n";
323 print
'<td class="tdtop">'.$langs->trans(
"NotePrivate").
'</td>';
324 print
'<td valign="top" colspan="2"><textarea name="note_private" wrap="soft" cols="60" rows="'.ROWS_3.
'"></textarea></td>';
328 print
'<td class="tdtop">'.$langs->trans(
"NotePublic").
'</td>';
329 print
'<td valign="top" colspan="2"><textarea name="note_public" wrap="soft" cols="60" rows="'.ROWS_3.
'"></textarea></td>';
337 print
'<table class="noborder centpercent">';
338 print
'<tr class="liste_titre">';
339 print
'<td class="left">'.$langs->trans(
"DateDue").
'</td>';
340 print
'<td class="right">'.$langs->trans(
"LoanCapital").
'</td>';
341 print
'<td class="right">'.$langs->trans(
"AlreadyPaid").
'</td>';
342 print
'<td class="right">'.$langs->trans(
"RemainderToPay").
'</td>';
343 print
'<td class="right">'.$langs->trans(
"Amount").
'</td>';
346 print
'<tr class="oddeven">';
348 if ($loan->datestart > 0) {
349 print
'<td class="left" valign="center">'.dol_print_date($loan->datestart,
'day').
'</td>';
351 print
'<td class="center" valign="center"><b>!!!</b></td>';
354 print
'<td class="right" valign="center">'.price($loan->capital).
"</td>";
356 print
'<td class="right" valign="center">'.price($sumpaid).
"</td>";
358 print
'<td class="right" valign="center">'.price($loan->capital - $sumpaid).
"</td>";
360 print
'<td class="right">';
361 if ($sumpaid < $loan->capital) {
362 print $langs->trans(
"LoanCapital").
': <input type="text" size="8" name="amount_capital" value="'.(GETPOSTISSET(
'amount_capital') ?
GETPOST(
'amount_capital') : $amount_capital).
'">';
367 if ($sumpaid < $loan->capital) {
368 print $langs->trans(
"Insurance").
': <input type="text" size="8" name="amount_insurance" value="'.(GETPOSTISSET(
'amount_insurance') ?
GETPOST(
'amount_insurance') : $amount_insurance).
'">';
373 if ($sumpaid < $loan->capital) {
374 print $langs->trans(
"Interest").
': <input type="text" size="8" name="amount_interest" value="'.(GETPOSTISSET(
'amount_interest') ?
GETPOST(
'amount_interest') : $amount_interest).
'" '.(!empty($line) ?
'disabled title="'.$langs->trans(
'CantModifyInterestIfScheduleIsUsed').
'"' :
'').
'>';
384 print $form->buttonsSaveCancel();
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Class to manage bank accounts.
Class to manage Schedule of loans.
Class to manage payments of loans.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed information (by default a local PHP server timestamp) Rep...
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_now($mode='auto')
Return date for now.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
loanCalcMonthlyPayment($mens, $capital, $rate, $numactualloadterm, $nbterm)
Calculate remaining loan mensuality and interests.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.