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 ' '; 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&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 ' '; 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.'&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.'&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.'&action=paid&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.'&action=delete&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