1<?php
2/* Copyright (C) 2014-2018  Alexandre Spangaro   <aspangaro@open-dsi.fr>
3 * Copyright (C) 2015       Frederic France      <frederic.france@free.fr>
4 * Copyright (C) 2017       Laurent Destailleur  <eldy@users.sourceforge.net>
5 * Copyright (C) 2020       Maxime DEMAREST      <maxime@indelog.fr>
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 3 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
19 */
20
21/**
22 *  \file       htdocs/loan/card.php
23 *  \ingroup    loan
24 *  \brief      Loan card
25 */
26
27require '../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.'/loan/class/loan.class.php';
29require_once DOL_DOCUMENT_ROOT.'/core/lib/loan.lib.php';
30require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
31if (!empty($conf->accounting->enabled)) {
32	require_once DOL_DOCUMENT_ROOT.'/core/class/html.formaccounting.class.php';
33}
34if (!empty($conf->accounting->enabled)) {
35	require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
36}
37require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
38require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
39
40// Load translation files required by the page
41$langs->loadLangs(array("compta", "bills", "loan"));
42
43$id = GETPOST('id', 'int');
44$action = GETPOST('action', 'aZ09');
45$confirm = GETPOST('confirm');
46$cancel = GETPOST('cancel', 'alpha');
47
48$projectid = GETPOST('projectid', 'int');
49
50// Security check
51$socid = GETPOST('socid', 'int');
52if ($user->socid) {
53	$socid = $user->socid;
54}
55$result = restrictedArea($user, 'loan', $id, '', '');
56
57$object = new Loan($db);
58
59$hookmanager->initHooks(array('loancard', 'globalcard'));
60
61$error = 0;
62
63
64/*
65 * Actions
66 */
67
68$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
69if ($reshook < 0) {
70	setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
71}
72if (empty($reshook)) {
73	// Classify paid
74	if ($action == 'confirm_paid' && $confirm == 'yes' && $user->rights->loan->write) {
75		$object->fetch($id);
76		$result = $object->setPaid($user);
77		if ($result > 0) {
78			setEventMessages($langs->trans('LoanPaid'), null, 'mesgs');
79		} else {
80			setEventMessages($loan->error, null, 'errors');
81		}
82	}
83
84	// Delete loan
85	if ($action == 'confirm_delete' && $confirm == 'yes' && $user->rights->loan->write) {
86		$object->fetch($id);
87		$result = $object->delete($user);
88		if ($result > 0) {
89			setEventMessages($langs->trans('LoanDeleted'), null, 'mesgs');
90			header("Location: list.php");
91			exit;
92		} else {
93			setEventMessages($loan->error, null, 'errors');
94		}
95	}
96
97	// Add loan
98	if ($action == 'add' && $user->rights->loan->write) {
99		if (!$cancel) {
100			$datestart = dol_mktime(12, 0, 0, GETPOST('startmonth', 'int'), GETPOST('startday', 'int'), GETPOST('startyear', 'int'));
101			$dateend	= dol_mktime(12, 0, 0, GETPOST('endmonth', 'int'), GETPOST('endday', 'int'), GETPOST('endyear', 'int'));
102			$capital = price2num(GETPOST('capital'));
103			$rate	   = GETPOST('rate');
104
105			if (!$capital) {
106				$error++; $action = 'create';
107				setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("LoanCapital")), null, 'errors');
108			}
109			if (!$datestart) {
110				$error++; $action = 'create';
111				setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("DateStart")), null, 'errors');
112			}
113			if (!$dateend) {
114				$error++; $action = 'create';
115				setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("DateEnd")), null, 'errors');
116			}
117			if ($rate == '') {
118				$error++; $action = 'create';
119				setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("Rate")), null, 'errors');
120			}
121
122			if (!$error) {
123				$object->label = GETPOST('label');
124				$object->fk_bank = GETPOST('accountid');
125				$object->capital = $capital;
126				$object->datestart = $datestart;
127				$object->dateend = $dateend;
128				$object->nbterm = GETPOST('nbterm');
129				$object->rate = $rate;
130				$object->note_private = GETPOST('note_private', 'restricthtml');
131				$object->note_public = GETPOST('note_public', 'restricthtml');
132				$object->fk_project = GETPOST('projectid', 'int');
133				$object->insurance_amount = GETPOST('insurance_amount', 'int');
134
135				$accountancy_account_capital = GETPOST('accountancy_account_capital');
136				$accountancy_account_insurance = GETPOST('accountancy_account_insurance');
137				$accountancy_account_interest = GETPOST('accountancy_account_interest');
138
139				if ($accountancy_account_capital <= 0) {
140					$object->account_capital = '';
141				} else {
142					$object->account_capital = $accountancy_account_capital;
143				}
144				if ($accountancy_account_insurance <= 0) {
145					$object->account_insurance = '';
146				} else {
147					$object->account_insurance = $accountancy_account_insurance;
148				}
149				if ($accountancy_account_interest <= 0) {
150					$object->account_interest = '';
151				} else {
152					$object->account_interest = $accountancy_account_interest;
153				}
154
155				$id = $object->create($user);
156				if ($id <= 0) {
157					$error++;
158					setEventMessages($object->error, $object->errors, 'errors');
159					$action = 'create';
160				}
161			}
162		} else {
163			header("Location: list.php");
164			exit();
165		}
166	} elseif ($action == 'update' && $user->rights->loan->write) {
167		// Update record
168		if (!$cancel) {
169			$result = $object->fetch($id);
170
171			$datestart = dol_mktime(12, 0, 0, GETPOST('startmonth', 'int'), GETPOST('startday', 'int'), GETPOST('startyear', 'int'));
172			$dateend	= dol_mktime(12, 0, 0, GETPOST('endmonth', 'int'), GETPOST('endday', 'int'), GETPOST('endyear', 'int'));
173			$capital	= price2num(GETPOST('capital'));
174
175			if (!$capital) {
176				setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("LoanCapital")), null, 'errors');
177				$action = 'edit';
178			} else {
179				$object->datestart = $datestart;
180				$object->dateend	        = $dateend;
181				$object->capital	        = $capital;
182				$object->nbterm		        = GETPOST("nbterm", 'int');
183				$object->rate = price2num(GETPOST("rate", 'alpha'));
184				$object->insurance_amount = price2num(GETPOST('insurance_amount', 'int'));
185
186				$accountancy_account_capital = GETPOST('accountancy_account_capital');
187				$accountancy_account_insurance = GETPOST('accountancy_account_insurance');
188				$accountancy_account_interest = GETPOST('accountancy_account_interest');
189
190				if ($accountancy_account_capital <= 0) {
191					$object->account_capital = '';
192				} else {
193					$object->account_capital = $accountancy_account_capital;
194				}
195				if ($accountancy_account_insurance <= 0) {
196					$object->account_insurance = '';
197				} else {
198					$object->account_insurance = $accountancy_account_insurance;
199				}
200				if ($accountancy_account_interest <= 0) {
201					$object->account_interest = '';
202				} else {
203					$object->account_interest = $accountancy_account_interest;
204				}
205			}
206
207			$result = $object->update($user);
208
209			if ($result > 0) {
210				header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
211				exit;
212			} else {
213				$error++;
214				setEventMessages($object->error, $object->errors, 'errors');
215			}
216		} else {
217			header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
218			exit;
219		}
220	}
221
222	// Link to a project
223	if ($action == 'classin' && $user->rights->loan->write) {
224		$object->fetch($id);
225		$result = $object->setProject($projectid);
226		if ($result < 0) {
227			setEventMessages($object->error, $object->errors, 'errors');
228		}
229	}
230
231	if ($action == 'setlabel' && $user->rights->loan->write) {
232		$object->fetch($id);
233		$result = $object->setValueFrom('label', GETPOST('label'), '', '', 'text', '', $user, 'LOAN_MODIFY');
234		if ($result < 0) {
235			setEventMessages($object->error, $object->errors, 'errors');
236		}
237	}
238}
239
240
241/*
242 * View
243 */
244
245$form = new Form($db);
246$formproject = new FormProjets($db);
247if (!empty($conf->accounting->enabled)) {
248	$formaccounting = new FormAccounting($db);
249}
250
251$title = $langs->trans("Loan").' - '.$langs->trans("Card");
252$help_url = 'EN:Module_Loan|FR:Module_Emprunt';
253llxHeader("", $title, $help_url);
254
255
256// Create mode
257if ($action == 'create') {
258	//WYSIWYG Editor
259	require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
260
261	print load_fiche_titre($langs->trans("NewLoan"), '', 'money-bill-alt');
262
263	$datec = dol_mktime(12, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int'));
264
265	print '<form name="loan" action="'.$_SERVER["PHP_SELF"].'" method="POST">'."\n";
266	print '<input type="hidden" name="token" value="'.newToken().'">';
267	print '<input type="hidden" name="action" value="add">';
268
269	print dol_get_fiche_head();
270
271	print '<table class="border centpercent">';
272
273	// Label
274	print '<tr><td class="fieldrequired titlefieldcreate">'.$langs->trans("Label").'</td><td><input name="label" class="minwidth300" maxlength="255" value="'.dol_escape_htmltag(GETPOST('label')).'" autofocus="autofocus"></td></tr>';
275
276	// Bank account
277	if (!empty($conf->banque->enabled)) {
278		print '<tr><td class="fieldrequired">'.$langs->trans("Account").'</td><td>';
279		$form->select_comptes(GETPOST("accountid"), "accountid", 0, "courant=1", 1); // Show list of bank account with courant
280		print '</td></tr>';
281	} else {
282		print '<tr><td>'.$langs->trans("Account").'</td><td>';
283		print $langs->trans("NoBankAccountDefined");
284		print '</td></tr>';
285	}
286
287	// Capital
288	print '<tr><td class="fieldrequired">'.$langs->trans("LoanCapital").'</td><td><input name="capital" size="10" value="'.dol_escape_htmltag(GETPOST("capital")).'"></td></tr>';
289
290	// Date Start
291	print "<tr>";
292	print '<td class="fieldrequired">'.$langs->trans("DateStart").'</td><td>';
293	print $form->selectDate($datestart ? $datestart : -1, 'start', '', '', '', 'add', 1, 1);
294	print '</td></tr>';
295
296	// Date End
297	print "<tr>";
298	print '<td class="fieldrequired">'.$langs->trans("DateEnd").'</td><td>';
299	print $form->selectDate($dateend ? $dateend : -1, 'end', '', '', '', 'add', 1, 1);
300	print '</td></tr>';
301
302	// Number of terms
303	print '<tr><td class="fieldrequired">'.$langs->trans("Nbterms").'</td><td><input name="nbterm" size="5" value="'.dol_escape_htmltag(GETPOST('nbterm')).'"></td></tr>';
304
305	// Rate
306	print '<tr><td class="fieldrequired">'.$langs->trans("Rate").'</td><td><input name="rate" size="5" value="'.dol_escape_htmltag(GETPOST("rate")).'"> %</td></tr>';
307
308	// Insurance amount
309	print '<tr><td>'.$langs->trans("Insurance").'</td><td><input name="insurance_amount" size="10" value="'.dol_escape_htmltag(GETPOST("insurance_amount")).'" placeholder="'.$langs->trans('Amount').'"></td></tr>';
310
311	// Project
312	if (!empty($conf->projet->enabled)) {
313		$formproject = new FormProjets($db);
314
315		// Projet associe
316		$langs->loadLangs(array("projects"));
317
318		print '<tr><td>'.$langs->trans("Project").'</td><td>';
319
320		$numproject = $formproject->select_projects(-1, $projectid, 'projectid', 16, 0, 1, 1);
321
322		print '</td></tr>';
323	}
324
325	// Note Private
326	print '<tr>';
327	print '<td class="tdtop">'.$langs->trans('NotePrivate').'</td>';
328	print '<td>';
329
330	$doleditor = new DolEditor('note_private', GETPOST('note_private', 'alpha'), '', 160, 'dolibarr_notes', 'In', false, true, empty($conf->global->FCKEDITOR_ENABLE_NOTE_PUBLIC) ? 0 : 1, ROWS_6, '90%');
331	print $doleditor->Create(1);
332
333	print '</td></tr>';
334
335	// Note Public
336	print '<tr>';
337	print '<td class="tdtop">'.$langs->trans('NotePublic').'</td>';
338	print '<td>';
339	$doleditor = new DolEditor('note_public', GETPOST('note_public', 'alpha'), '', 160, 'dolibarr_notes', 'In', false, true, empty($conf->global->FCKEDITOR_ENABLE_NOTE_PRIVATE) ? 0 : 1, ROWS_6, '90%');
340	print $doleditor->Create(1);
341	print '</td></tr>';
342
343	// Accountancy
344	if (!empty($conf->accounting->enabled)) {
345		// Accountancy_account_capital
346		print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("LoanAccountancyCapitalCode").'</td>';
347		print '<td>';
348		print $formaccounting->select_account(GETPOST('accountancy_account_capital') ?GETPOST('accountancy_account_capital') : $conf->global->LOAN_ACCOUNTING_ACCOUNT_CAPITAL, 'accountancy_account_capital', 1, '', 1, 1);
349		print '</td></tr>';
350
351		// Accountancy_account_insurance
352		print '<tr><td class="fieldrequired">'.$langs->trans("LoanAccountancyInsuranceCode").'</td>';
353		print '<td>';
354		print $formaccounting->select_account(GETPOST('accountancy_account_insurance') ?GETPOST('accountancy_account_insurance') : $conf->global->LOAN_ACCOUNTING_ACCOUNT_INSURANCE, 'accountancy_account_insurance', 1, '', 1, 1);
355		print '</td></tr>';
356
357		// Accountancy_account_interest
358		print '<tr><td class="fieldrequired">'.$langs->trans("LoanAccountancyInterestCode").'</td>';
359		print '<td>';
360		print $formaccounting->select_account(GETPOST('accountancy_account_interest') ?GETPOST('accountancy_account_interest') : $conf->global->LOAN_ACCOUNTING_ACCOUNT_INTEREST, 'accountancy_account_interest', 1, '', 1, 1);
361		print '</td></tr>';
362	} else // For external software
363	{
364		// Accountancy_account_capital
365		print '<tr><td class="titlefieldcreate">'.$langs->trans("LoanAccountancyCapitalCode").'</td>';
366		print '<td><input name="accountancy_account_capital" size="16" value="'.$object->accountancy_account_capital.'">';
367		print '</td></tr>';
368
369		// Accountancy_account_insurance
370		print '<tr><td>'.$langs->trans("LoanAccountancyInsuranceCode").'</td>';
371		print '<td><input name="accountancy_account_insurance" size="16" value="'.$object->accountancy_account_insurance.'">';
372		print '</td></tr>';
373
374		// Accountancy_account_interest
375		print '<tr><td>'.$langs->trans("LoanAccountancyInterestCode").'</td>';
376		print '<td><input name="accountancy_account_interest" size="16" value="'.$object->accountancy_account_interest.'">';
377		print '</td></tr>';
378	}
379	print '</table>';
380
381	print dol_get_fiche_end();
382
383	print '<div class="center">';
384	print '<input type="submit" class="button" value="'.$langs->trans("Add").'">';
385	print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
386	print '<input type="button" class="button button-cancel" value="'.$langs->trans("Cancel").'" onClick="javascript:history.go(-1)">';
387	print '</div>';
388
389	print '</form>';
390}
391
392// View
393if ($id > 0) {
394	$object = new Loan($db);
395	$result = $object->fetch($id);
396
397	if ($result > 0) {
398		$head = loan_prepare_head($object);
399
400		$totalpaid = $object->getSumPayment();
401
402		// Confirm for loan
403		if ($action == 'paid') {
404			$text = $langs->trans('ConfirmPayLoan');
405			print $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$object->id, $langs->trans('PayLoan'), $text, "confirm_paid", '', '', 2);
406		}
407
408		if ($action == 'delete') {
409			$text = $langs->trans('ConfirmDeleteLoan');
410			print $form->formconfirm($_SERVER['PHP_SELF'].'?id='.$object->id, $langs->trans('DeleteLoan'), $text, 'confirm_delete', '', '', 2);
411		}
412
413		if ($action == 'edit') {
414			print '<form name="update" action="'.$_SERVER["PHP_SELF"].'" method="POST">'."\n";
415			print '<input type="hidden" name="token" value="'.newToken().'">';
416			print '<input type="hidden" name="action" value="update">';
417			print '<input type="hidden" name="id" value="'.$id.'">';
418		}
419
420		print dol_get_fiche_head($head, 'card', $langs->trans("Loan"), -1, 'bill');
421
422		// Loan card
423
424		$linkback = '<a href="'.DOL_URL_ROOT.'/loan/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
425
426		$morehtmlref = '<div class="refidno">';
427		// Ref loan
428		$morehtmlref .= $form->editfieldkey("Label", 'label', $object->label, $object, $user->rights->loan->write, 'string', '', 0, 1);
429		$morehtmlref .= $form->editfieldval("Label", 'label', $object->label, $object, $user->rights->loan->write, 'string', '', null, null, '', 1);
430		// Project
431		if (!empty($conf->projet->enabled)) {
432			$langs->loadLangs(array("projects"));
433			$morehtmlref .= '<br>'.$langs->trans('Project').' ';
434			if ($user->rights->loan->write) {
435				if ($action != 'classify') {
436					$morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&amp;id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> : ';
437				}
438				if ($action == 'classify') {
439					//$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
440					$morehtmlref .= '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
441					$morehtmlref .= '<input type="hidden" name="action" value="classin">';
442					$morehtmlref .= '<input type="hidden" name="token" value="'.newToken().'">';
443					$morehtmlref .= $formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
444					$morehtmlref .= '<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
445					$morehtmlref .= '</form>';
446				} else {
447					$morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
448				}
449			} else {
450				if (!empty($object->fk_project)) {
451					$proj = new Project($db);
452					$proj->fetch($object->fk_project);
453					$morehtmlref .= '<a href="'.DOL_URL_ROOT.'/projet/card.php?id='.$object->fk_project.'" title="'.$langs->trans('ShowProject').'">';
454					$morehtmlref .= $proj->ref;
455					$morehtmlref .= '</a>';
456				} else {
457					$morehtmlref .= '';
458				}
459			}
460		}
461		$morehtmlref .= '</div>';
462
463		$object->totalpaid = $totalpaid; // To give a chance to dol_banner_tab to use already paid amount to show correct status
464
465		dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'ref', $morehtmlref, '', 0, '', $morehtmlright);
466
467		print '<div class="fichecenter">';
468		print '<div class="fichehalfleft">';
469		print '<div class="underbanner clearboth"></div>';
470
471		print '<table class="border centpercent tableforfield">';
472
473		// Capital
474		if ($action == 'edit') {
475			print '<tr><td class="fieldrequired titlefield">'.$langs->trans("LoanCapital").'</td><td>';
476			print '<input name="capital" size="10" value="'.$object->capital.'"></td></tr>';
477			print '</td></tr>';
478		} else {
479			print '<tr><td class="titlefield">'.$langs->trans("LoanCapital").'</td><td>'.price($object->capital, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
480		}
481
482		// Insurance
483		if ($action == 'edit') {
484			print '<tr><td class="titlefield">'.$langs->trans("Insurance").'</td><td>';
485			print '<input name="insurance_amount" size="10" value="'.$object->insurance_amount.'"></td></tr>';
486			print '</td></tr>';
487		} else {
488			print '<tr><td class="titlefield">'.$langs->trans("Insurance").'</td><td>'.price($object->insurance_amount, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
489		}
490
491		// Date start
492		print '<tr><td>'.$langs->trans("DateStart")."</td>";
493		print "<td>";
494		if ($action == 'edit') {
495			print $form->selectDate($object->datestart, 'start', 0, 0, 0, 'update', 1, 0);
496		} else {
497			print dol_print_date($object->datestart, "day");
498		}
499		print "</td></tr>";
500
501		// Date end
502		print '<tr><td>'.$langs->trans("DateEnd")."</td>";
503		print "<td>";
504		if ($action == 'edit') {
505			print $form->selectDate($object->dateend, 'end', 0, 0, 0, 'update', 1, 0);
506		} else {
507			print dol_print_date($object->dateend, "day");
508		}
509		print "</td></tr>";
510
511		// Nbterms
512		print '<tr><td>'.$langs->trans("Nbterms").'</td>';
513		print '<td>';
514		if ($action == 'edit') {
515			print '<input name="nbterm" size="4" value="'.$object->nbterm.'">';
516		} else {
517			print $object->nbterm;
518		}
519		print '</td></tr>';
520
521		// Rate
522		print '<tr><td>'.$langs->trans("Rate").'</td>';
523		print '<td>';
524		if ($action == 'edit') {
525			print '<input name="rate" size="4" value="'.$object->rate.'">%';
526		} else {
527			print price($object->rate).'%';
528		}
529		print '</td></tr>';
530
531		// Accountancy account capital
532		print '<tr>';
533		if ($action == 'edit') {
534			print '<td class="nowrap fieldrequired">';
535			print $langs->trans("LoanAccountancyCapitalCode");
536			print '</td><td>';
537
538			if (!empty($conf->accounting->enabled)) {
539				print $formaccounting->select_account($object->account_capital, 'accountancy_account_capital', 1, '', 1, 1);
540			} else {
541				print '<input name="accountancy_account_capital" size="16" value="'.$object->account_capital.'">';
542			}
543			print '</td>';
544		} else {
545			print '<td class="nowrap">';
546			print $langs->trans("LoanAccountancyCapitalCode");
547			print '</td><td>';
548
549			if (!empty($conf->accounting->enabled)) {
550				$accountingaccount = new AccountingAccount($db);
551				$accountingaccount->fetch('', $object->account_capital, 1);
552
553				print $accountingaccount->getNomUrl(0, 1, 1, '', 1);
554			} else {
555				print $object->account_capital;
556			}
557
558			print '</td>';
559		}
560		print '</tr>';
561
562		// Accountancy account insurance
563		print '<tr>';
564		if ($action == 'edit') {
565			print '<td class="nowrap fieldrequired">';
566			print $langs->trans("LoanAccountancyInsuranceCode");
567			print '</td><td>';
568
569			if (!empty($conf->accounting->enabled)) {
570				print $formaccounting->select_account($object->account_insurance, 'accountancy_account_insurance', 1, '', 1, 1);
571			} else {
572				print '<input name="accountancy_account_insurance" size="16" value="'.$object->account_insurance.'">';
573			}
574			print '</td>';
575		} else {
576			print '<td class="nowrap">';
577			print $langs->trans("LoanAccountancyInsuranceCode");
578			print '</td><td>';
579
580			if (!empty($conf->accounting->enabled)) {
581				$accountingaccount = new AccountingAccount($db);
582				$accountingaccount->fetch('', $object->account_insurance, 1);
583
584				print $accountingaccount->getNomUrl(0, 1, 1, '', 1);
585			} else {
586				print $object->account_insurance;
587			}
588
589			print '</td>';
590		}
591		print '</tr>';
592
593		// Accountancy account interest
594		print '<tr>';
595		if ($action == 'edit') {
596			print '<td class="nowrap fieldrequired">';
597			print $langs->trans("LoanAccountancyInterestCode");
598			print '</td><td>';
599
600			if (!empty($conf->accounting->enabled)) {
601				print $formaccounting->select_account($object->account_interest, 'accountancy_account_interest', 1, '', 1, 1);
602			} else {
603				print '<input name="accountancy_account_interest" size="16" value="'.$object->account_interest.'">';
604			}
605			print '</td>';
606		} else {
607			print '<td class="nowrap">';
608			print $langs->trans("LoanAccountancyInterestCode");
609			print '</td><td>';
610
611			if (!empty($conf->accounting->enabled)) {
612				$accountingaccount = new AccountingAccount($db);
613				$accountingaccount->fetch('', $object->account_interest, 1);
614
615				print $accountingaccount->getNomUrl(0, 1, 1, '', 1);
616			} else {
617				print $object->account_interest;
618			}
619
620			print '</td>';
621		}
622		print '</tr>';
623
624		print '</table>';
625
626		print '</div>';
627		print '<div class="fichehalfright">';
628		print '<div class="ficheaddleft">';
629
630		/*
631		 * Payments
632		 */
633		$sql = "SELECT p.rowid, p.num_payment, datep as dp,";
634		$sql .= " p.amount_capital, p.amount_insurance, p.amount_interest,";
635		$sql .= " c.libelle as paiement_type";
636		$sql .= " FROM ".MAIN_DB_PREFIX."payment_loan as p";
637		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_paiement as c ON p.fk_typepayment = c.id";
638		$sql .= ", ".MAIN_DB_PREFIX."loan as l";
639		$sql .= " WHERE p.fk_loan = ".((int) $id);
640		$sql .= " AND p.fk_loan = l.rowid";
641		$sql .= " AND l.entity IN ( ".getEntity('loan').")";
642		$sql .= " ORDER BY dp DESC";
643
644		//print $sql;
645		$resql = $db->query($sql);
646		if ($resql) {
647			$num = $db->num_rows($resql);
648			$i = 0;
649			$total_insurance = 0;
650			$total_interest = 0;
651			$total_capital = 0;
652
653			print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you dont need reserved height for your table
654			print '<table class="noborder paymenttable">';
655			print '<tr class="liste_titre">';
656			print '<td>'.$langs->trans("RefPayment").'</td>';
657			print '<td>'.$langs->trans("Date").'</td>';
658			print '<td>'.$langs->trans("Type").'</td>';
659			print '<td class="right">'.$langs->trans("Insurance").'</td>';
660			print '<td class="right">'.$langs->trans("Interest").'</td>';
661			print '<td class="right">'.$langs->trans("LoanCapital").'</td>';
662			print '</tr>';
663
664			while ($i < $num) {
665				$objp = $db->fetch_object($resql);
666
667				print '<tr class="oddeven">';
668				print '<td><a href="'.DOL_URL_ROOT.'/loan/payment/card.php?id='.$objp->rowid.'">'.img_object($langs->trans("Payment"), "payment").' '.$objp->rowid.'</a></td>';
669				print '<td>'.dol_print_date($db->jdate($objp->dp), 'day')."</td>\n";
670				print "<td>".$objp->paiement_type.' '.$objp->num_payment."</td>\n";
671				print '<td class="nowrap right">'.price($objp->amount_insurance, 0, $outputlangs, 1, -1, -1, $conf->currency)."</td>\n";
672				print '<td class="nowrap right">'.price($objp->amount_interest, 0, $outputlangs, 1, -1, -1, $conf->currency)."</td>\n";
673				print '<td class="nowrap right">'.price($objp->amount_capital, 0, $outputlangs, 1, -1, -1, $conf->currency)."</td>\n";
674				print "</tr>";
675				$total_capital += $objp->amount_capital;
676				$i++;
677			}
678
679			$totalpaid = $total_capital;
680
681			if ($object->paid == 0 || $object->paid == 2) {
682				print '<tr><td colspan="5" class="right">'.$langs->trans("AlreadyPaid").' :</td><td class="nowrap right">'.price($totalpaid, 0, $langs, 0, -1, -1, $conf->currency).'</td></tr>';
683				print '<tr><td colspan="5" class="right">'.$langs->trans("AmountExpected").' :</td><td class="nowrap right">'.price($object->capital, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
684
685				$staytopay = $object->capital - $totalpaid;
686
687				print '<tr><td colspan="5" class="right">'.$langs->trans("RemainderToPay").' :</td>';
688				print '<td class="nowrap right'.($staytopay ? ' amountremaintopay' : ' amountpaymentcomplete').'">';
689				print price($staytopay, 0, $langs, 0, -1, -1, $conf->currency);
690				print '</td></tr>';
691			}
692			print "</table>";
693			print '</div>';
694
695			$db->free($resql);
696		} else {
697			dol_print_error($db);
698		}
699
700		print '</div>';
701		print '</div>';
702		print '</div>';
703
704		print '<div class="clearboth"></div>';
705
706		print dol_get_fiche_end();
707
708		if ($action == 'edit') {
709			print '<div class="center">';
710			print '<input type="submit" class="button button-save" name="save" value="'.$langs->trans("Save").'">';
711			print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
712			print '<input type="submit" class="button button-cancel" name="cancel" value="'.$langs->trans("Cancel").'">';
713			print '</div>';
714
715			print '</form>';
716		}
717
718		/*
719		 *  Buttons actions
720		 */
721		if ($action != 'edit') {
722			$reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
723			if (empty($reshook)) {
724				print '<div class="tabsAction">';
725
726				// Edit
727				if (($object->paid == 0 || $object->paid == 2) && $user->rights->loan->write) {
728					print '<div class="inline-block divButAction"><a class="butAction" href="'.DOL_URL_ROOT.'/loan/card.php?id='.$object->id.'&amp;action=edit">'.$langs->trans("Modify").'</a></div>';
729				}
730
731				// Emit payment
732				if (($object->paid == 0 || $object->paid == 2) && ((price2num($object->capital) > 0 && round($staytopay) < 0) || (price2num($object->capital) > 0 && round($staytopay) > 0)) && $user->rights->loan->write) {
733					print '<div class="inline-block divButAction"><a class="butAction" href="'.DOL_URL_ROOT.'/loan/payment/payment.php?id='.$object->id.'&amp;action=create">'.$langs->trans("DoPayment").'</a></div>';
734				}
735
736				// Classify 'paid'
737				if (($object->paid == 0 || $object->paid == 2) && round($staytopay) <= 0 && $user->rights->loan->write) {
738					print '<div class="inline-block divButAction"><a class="butAction" href="'.DOL_URL_ROOT.'/loan/card.php?id='.$object->id.'&amp;action=paid&amp;token='.newToken().'">'.$langs->trans("ClassifyPaid").'</a></div>';
739				}
740
741				// Delete
742				if (($object->paid == 0 || $object->paid == 2) && $user->rights->loan->delete) {
743					print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.DOL_URL_ROOT.'/loan/card.php?id='.$object->id.'&amp;action=delete&amp;token='.newToken().'">'.$langs->trans("Delete").'</a></div>';
744				}
745
746				print "</div>";
747			}
748		}
749	} else {
750		// Loan not found
751		dol_print_error('', $object->error);
752	}
753}
754
755// End of page
756llxFooter();
757$db->close();
758