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';
42$langs->loadLangs(array(
"bills",
"loan"));
44$action =
GETPOST(
'action',
'aZ09');
45$confirm =
GETPOST(
'confirm',
'alpha');
46$cancel =
GETPOST(
'cancel',
'alpha');
53if ($user->socid > 0) {
54 $socid = $user->socid;
55} elseif (GETPOSTISSET(
'socid')) {
58if (!$user->hasRight(
'loan',
'write')) {
68$res = $ls->fetchAll($chid);
70 foreach ($ls->lines as $l) {
73 if (empty($l->fk_bank)) {
76 } elseif ($line_id == $l->id) {
84if (!empty($line_id)) {
86 $res = $line->fetch($line_id);
88 $amount_capital =
price($line->amount_capital);
89 $amount_insurance =
price($line->amount_insurance);
90 $amount_interest =
price($line->amount_interest);
91 if (empty($datepaid)) {
92 $ts_temppaid = $line->datep;
97$permissiontoadd = $user->hasRight(
'loan',
'write');
104if ($action ==
'add_payment' && $permissiontoadd) {
108 $loc = DOL_URL_ROOT.
'/loan/card.php?id='.$chid;
109 header(
"Location: ".$loc);
114 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"PaymentMode")),
null,
'errors');
117 if ($datepaid ==
'') {
118 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"Date")),
null,
'errors');
121 if (isModEnabled(
"bank") && !
GETPOSTINT(
'accountid') > 0) {
122 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"AccountToCredit")),
null,
'errors');
133 $pay_amount_interest = $line->amount_interest;
138 $amount = (float)
price2num($pay_amount_capital + $pay_amount_insurance + $pay_amount_interest,
'MT');
141 if (!empty($line) && !empty($line->fk_bank)) {
146 if (empty($remaindertopay)) {
161 $payment->chid = $chid;
162 $payment->datep = $datepaid;
163 $payment->label = $loan->label;
164 $payment->amount_capital = $pay_amount_capital;
165 $payment->amount_insurance = $pay_amount_insurance;
166 $payment->amount_interest = $pay_amount_interest;
168 $payment->paymenttype =
GETPOSTINT(
'paymenttype');
169 $payment->num_payment =
GETPOST(
'num_payment',
'alphanohtml');
170 $payment->note_private =
GETPOST(
'note_private',
'restricthtml');
171 $payment->note_public =
GETPOST(
'note_public',
'restricthtml');
174 $paymentid = $payment->create($user);
175 if ($paymentid < 0) {
183 $result = $payment->addPaymentToBank($user, $chid,
'payment_loan',
'(LoanPayment)', $payment->fk_bank,
'',
'');
184 if (!($result > 0)) {
191 if (!$error && !empty($line)) {
193 if (($line->amount_capital != $pay_amount_capital) || ($line->amount_insurance != $pay_amount_insurance) || ($line->amount_interest != $pay_amount_interest)) {
194 $arr_term =
loanCalcMonthlyPayment(($pay_amount_capital + $pay_amount_interest), $remaindertopay, ($loan->rate / 100), $echance, (
int) $loan->nbterm);
195 foreach ($arr_term as $k => $v) {
197 if ($k == $echance) {
198 $ls->lines[$k - 1]->fk_bank = $payment->fk_bank;
199 $ls->lines[$k - 1]->fk_payment_loan = $payment->id;
201 $ls->lines[$k - 1]->amount_capital = $v[
'mens'] - $v[
'interet'];
202 $ls->lines[$k - 1]->amount_interest = $v[
'interet'];
203 $ls->lines[$k - 1]->tms =
dol_now();
204 $ls->lines[$k - 1]->fk_user_modif = $user->id;
205 $result = $ls->lines[$k - 1]->update($user, 0);
213 $line->fk_bank = $payment->fk_bank;
214 $line->fk_payment_loan = $payment->id;
215 $result = $line->update($user, 0);
225 $loc = DOL_URL_ROOT.
'/loan/card.php?id='.$chid;
226 header(
'Location: '.$loc);
241$form =
new Form($db);
243$title = $langs->trans(
'Loans');
244$help_url =
"EN:Module_Loan|FR:Module_Emprunt";
246llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'bodyforlist mod-loan page-payment-list');
250if ($action ==
'create') {
251 $total = $loan->capital;
255 $sql =
"SELECT SUM(amount_capital) as total";
256 $sql .=
" FROM ".MAIN_DB_PREFIX.
"payment_loan";
257 $sql .=
" WHERE fk_loan = ".((int) $chid);
258 $resql = $db->query($sql);
260 $obj = $db->fetch_object($resql);
261 $sumpaid = $obj->total;
265 print
'<form name="add_payment" action="'.$_SERVER[
'PHP_SELF'].
'" method="post">';
266 print
'<input type="hidden" name="token" value="'.newToken().
'">';
267 print
'<input type="hidden" name="id" value="'.$chid.
'">';
268 print
'<input type="hidden" name="chid" value="'.$chid.
'">';
269 print
'<input type="hidden" name="line_id" value="'.$line_id.
'">';
270 print
'<input type="hidden" name="remaindertopay" value="'.($total - $sumpaid).
'">';
271 print
'<input type="hidden" name="action" value="add_payment">';
294 print
'<table class="border centpercent">';
296 print
'<tr><td class="titlefield fieldrequired">'.$langs->trans(
"Date").
'</td><td colspan="2">';
297 if (empty($datepaid)) {
298 if (empty($ts_temppaid)) {
301 $datepayment = $ts_temppaid;
304 $datepayment = $datepaid;
306 print $form->selectDate($datepayment,
'', 0, 0, 0,
"add_payment", 1, 1);
310 print
'<tr><td class="fieldrequired">'.$langs->trans(
"PaymentMode").
'</td><td colspan="2">';
311 print
img_picto(
'',
'money-bill-alt',
'class="pictofixedwidth"');
312 $form->select_types_paiements(GETPOSTISSET(
"paymenttype") ?
GETPOST(
"paymenttype",
'alphanohtml') : $loan->fk_typepayment,
"paymenttype");
317 print
'<td class="fieldrequired">'.$langs->trans(
'AccountToDebit').
'</td>';
318 print
'<td colspan="2">';
319 print
img_picto(
'',
'bank_account',
'class="pictofixedwidth"');
320 $form->select_comptes(GETPOSTISSET(
"accountid") ?
GETPOSTINT(
"accountid") : $loan->accountid,
"accountid", 0,
'courant = '.
Account::TYPE_CURRENT, 1);
324 print
'<tr><td>'.$langs->trans(
'Numero');
325 print
' <em>('.$langs->trans(
"ChequeOrTransferNumber").
')</em>';
327 print
'<td colspan="2"><input name="num_payment" type="text" value="'.GETPOST(
'num_payment',
'alphanohtml').
'"></td>'.
"\n";
331 print
'<td class="tdtop">'.$langs->trans(
"NotePrivate").
'</td>';
332 print
'<td valign="top" colspan="2"><textarea name="note_private" wrap="soft" cols="60" rows="'.ROWS_3.
'"></textarea></td>';
336 print
'<td class="tdtop">'.$langs->trans(
"NotePublic").
'</td>';
337 print
'<td valign="top" colspan="2"><textarea name="note_public" wrap="soft" cols="60" rows="'.ROWS_3.
'"></textarea></td>';
345 print
'<table class="noborder centpercent">';
346 print
'<tr class="liste_titre">';
347 print
'<td class="left">'.$langs->trans(
"DateDue").
'</td>';
348 print
'<td class="right">'.$langs->trans(
"LoanCapital").
'</td>';
349 print
'<td class="right">'.$langs->trans(
"AlreadyPaid").
'</td>';
350 print
'<td class="right">'.$langs->trans(
"RemainderToPay").
'</td>';
351 print
'<td class="right">'.$langs->trans(
"Amount").
'</td>';
354 print
'<tr class="oddeven">';
356 if ($loan->datestart > 0) {
357 print
'<td class="left" valign="center">'.dol_print_date($loan->datestart,
'day').
'</td>';
359 print
'<td class="center" valign="center"><b>!!!</b></td>';
362 print
'<td class="right" valign="center">'.price($loan->capital).
"</td>";
364 print
'<td class="right" valign="center">'.price($sumpaid).
"</td>";
366 print
'<td class="right" valign="center">'.price($loan->capital - $sumpaid).
"</td>";
368 print
'<td class="right">';
369 if ($sumpaid < $loan->capital) {
370 print $langs->trans(
"LoanCapital").
': <input type="text" size="8" name="amount_capital" value="'.(GETPOSTISSET(
'amount_capital') ?
GETPOST(
'amount_capital') : $amount_capital).
'">';
375 if ($sumpaid < $loan->capital) {
376 print $langs->trans(
"Insurance").
': <input type="text" size="8" name="amount_insurance" value="'.(GETPOSTISSET(
'amount_insurance') ?
GETPOST(
'amount_insurance') : $amount_insurance).
'">';
381 if ($sumpaid < $loan->capital) {
382 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').
'"' :
'').
'>';
392 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.