28require
'../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.
'/loan/class/loan.class.php';
30require_once DOL_DOCUMENT_ROOT.
'/core/lib/loan.lib.php';
31require_once DOL_DOCUMENT_ROOT.
'/core/lib/date.lib.php';
32require_once DOL_DOCUMENT_ROOT.
'/loan/class/loanschedule.class.php';
33require_once DOL_DOCUMENT_ROOT.
'/loan/class/paymentloan.class.php';
36$action =
GETPOST(
'action',
'aZ09');
40if (GETPOSTISSET(
'socid')) {
44 $socid = $user->socid;
46if (!$user->hasRight(
'loan',
'calc')) {
51$langs->loadLangs(array(
"compta",
"bills",
"loan"));
57$echeances->fetchAll(
$object->id);
59if (
$object->paid > 0 && count($echeances->lines) == 0) {
60 $pay_without_schedule = 1;
62 $pay_without_schedule = 0;
69if ($action ==
'createecheancier' && empty($pay_without_schedule)) {
72 while ($i < $object->nbterm + 1) {
80 $new_echeance->fk_loan =
$object->id;
81 $new_echeance->datec =
dol_now();
83 $new_echeance->datep = $date;
84 $new_echeance->amount_capital = $mens - (float) $int;
85 $new_echeance->amount_insurance = $insurance;
86 $new_echeance->amount_interest = $int;
87 $new_echeance->fk_typepayment = 3;
88 $new_echeance->fk_bank = 0;
89 $new_echeance->fk_user_creat = $user->id;
90 $new_echeance->fk_user_modif = $user->id;
91 $result = $new_echeance->create($user);
95 $echeances->lines = [];
98 $echeances->lines[] = $new_echeance;
106if ($action ==
'updateecheancier' && empty($pay_without_schedule)) {
109 while ($i < $object->nbterm + 1) {
116 $new_echeance->fetch($id);
117 $new_echeance->tms =
dol_now();
118 $new_echeance->amount_capital = $mens - (float) $int;
119 $new_echeance->amount_insurance = $insurance;
120 $new_echeance->amount_interest = $int;
121 $new_echeance->fk_user_modif = $user->id;
122 $result = $new_echeance->update($user, 0);
126 $echeances->fetchAll(
$object->id);
130 $echeances->lines[$i - 1] = $new_echeance;
142$title = $langs->trans(
"Loan").
' - '.$langs->trans(
"Card");
143$help_url =
'EN:Module_Loan|FR:Module_Emprunt';
147print
dol_get_fiche_head($head,
'FinancialCommitment', $langs->trans(
"Loan"), -1,
'money-bill-alt');
149$linkback =
'<a href="'.DOL_URL_ROOT.
'/loan/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
151$morehtmlref =
'<div class="refidno">';
153$morehtmlref .= $form->editfieldkey(
"Label",
'label',
$object->label, $object, 0,
'string',
'', 0, 1);
154$morehtmlref .= $form->editfieldval(
"Label",
'label',
$object->label, $object, 0,
'string',
'',
null,
null,
'', 1);
156if (isModEnabled(
'project')) {
157 $langs->loadLangs(array(
"projects"));
158 $morehtmlref .=
'<br>'.$langs->trans(
'Project').
' : ';
159 if ($user->hasRight(
'loan',
'write')) {
160 if ($action !=
'classify') {
162 if ($action ==
'classify') {
164 $morehtmlref .=
'<form method="post" action="'.$_SERVER[
'PHP_SELF'].
'?id='.
$object->id.
'">';
165 $morehtmlref .=
'<input type="hidden" name="action" value="classin">';
166 $morehtmlref .=
'<input type="hidden" name="token" value="'.newToken().
'">';
167 $morehtmlref .= $formproject->select_projects(-1,
$object->fk_project,
'projectid', $maxlength, 0, 1, 0, 1, 0, 0,
'', 1);
168 $morehtmlref .=
'<input type="submit" class="button valignmiddle" value="'.$langs->trans(
"Modify").
'">';
169 $morehtmlref .=
'</form>';
171 $morehtmlref .= $form->form_project($_SERVER[
'PHP_SELF'].
'?id='.
$object->id, -1,
$object->fk_project,
'none', 0, 0, 0, 1,
'',
'maxwidth300');
175 if (!empty(
$object->fk_project)) {
177 $proj->fetch(
$object->fk_project);
178 $morehtmlref .=
' : '.$proj->getNomUrl(1);
180 $morehtmlref .=
' - '.$proj->title;
187$morehtmlref .=
'</div>';
191dol_banner_tab($object,
'loanid', $linkback, 1,
'rowid',
'ref', $morehtmlref,
'', 0,
'', $morehtmlstatus);
194<script
type=
"text/javascript">
195$(document).ready(
function() {
196 $(
'[name^="mens"]').focusout(
function() {
197 var echeance=$(
this).attr(
'ech');
199 var idcap=echeance-1;
200 idcap =
'#hi_capital'+idcap;
202 console.log(
"Change monthly amount echeance="+echeance+
" idcap="+idcap+
" capital="+capital);
207 data: { echeance: echeance, mens: mens, capital:capital, rate:<?php echo
$object->rate / 100; ?>, nbterm: <?php echo
$object->nbterm; ?>, token:
'<?php echo currentToken(); ?>' },
208 success:
function(data) {
209 $.each(data,
function(index, element) {
210 var idcap_res=
'#hi_capital'+index;
211 var idcap_res_srt=
'#capital'+index;
212 var interet_res=
'#hi_interets'+index;
213 var interet_res_str=
'#interets'+index;
214 var men_res=
'#mens'+index;
215 $(idcap_res).val(element.cap_rest);
216 $(idcap_res_srt).text(element.cap_rest_str);
217 $(interet_res).val(element.interet);
218 $(interet_res_str).text(element.interet_str);
219 $(men_res).val(element.mens);
228if ($pay_without_schedule == 1) {
229 print
'<div class="warning">'.$langs->trans(
'CantUseScheduleWithLoanStartedToPaid').
'</div>'.
"\n";
232print
'<form name="createecheancier" action="'.$_SERVER[
"PHP_SELF"].
'" method="POST">';
233print
'<input type="hidden" name="token" value="'.newToken().
'">';
234print
'<input type="hidden" name="loanid" value="'.$loanid.
'">';
235if (count($echeances->lines) > 0) {
236 print
'<input type="hidden" name="action" value="updateecheancier">';
238 print
'<input type="hidden" name="action" value="createecheancier">';
244print
'<div class="div-table-responsive-no-min">';
245print
'<table class="border centpercent">';
248if (count($echeances->lines) > 0) {
252print
'<tr class="liste_titre">';
253print
'<th class="center">'.$langs->trans(
"Term").
'</th>';
254print
'<th class="center">'.$langs->trans(
"Date").
'</th>';
255print
'<th class="center">'.$langs->trans(
"Insurance");
256print
'<th class="center">'.$langs->trans(
"InterestAmount").
'</th>';
257print
'<th class="center">'.$langs->trans(
"Amount").
'</th>';
258print
'<th class="center">'.$langs->trans(
"CapitalRemain");
259print
'<br>('.price(
$object->capital, 0,
'', 1, -1, -1, $conf->currency).
')';
260print
'<input type="hidden" name="hi_capital0" id ="hi_capital0" value="'.$object->capital.
'">';
262if (count($echeances->lines) > 0) {
263 print
'<th class="center">'.$langs->trans(
'DoPayment').
'</th>';
267if (
$object->nbterm > 0 && count($echeances->lines) == 0) {
271 $insurance =
price2num($insurance,
'MT');
273 while ($i < $object->nbterm + 1) {
274 $mens =
price2num($echeances->calcMonthlyPayments($capital,
$object->rate / 100,
$object->nbterm - $i + 1),
'MT');
275 $int = ($capital * (
$object->rate / 12)) / 100;
277 $insu = ((float) $insurance + (($i == 1) ? (float) $regulInsurance : 0));
278 $cap_rest =
price2num((
float) $capital - ((
float) $mens - (
float) $int),
'MT');
280 print
'<td class="center" id="n'.$i.
'">'.$i.
'</td>';
282 print
'<td class="center amount" id="insurance'.$i.
'">'.
price($insu, 0,
'', 1, -1, -1, $conf->currency).
'</td><input type="hidden" name="hi_insurance'.$i.
'" id ="hi_insurance'.$i.
'" value="'.$insu.
'">';
283 print
'<td class="center amount" id="interets'.$i.
'">'.
price($int, 0,
'', 1, -1, -1, $conf->currency).
'</td><input type="hidden" name="hi_interets'.$i.
'" id ="hi_interets'.$i.
'" value="'.$int.
'">';
284 print
'<td class="center"><input class="width75 right" name="mens'.$i.
'" id="mens'.$i.
'" value="'.$mens.
'" ech="'.$i.
'"></td>';
285 print
'<td class="center amount" id="capital'.$i.
'">'.
price($cap_rest).
'</td><input type="hidden" name="hi_capital'.$i.
'" id ="hi_capital'.$i.
'" value="'.$cap_rest.
'">';
288 $capital = $cap_rest;
290} elseif (count($echeances->lines) > 0) {
294 $insurance =
price2num($insurance,
'MT');
297 foreach ($echeances->lines as $line) {
298 $mens = $line->amount_capital + $line->amount_interest;
299 $int = $line->amount_interest;
300 $insu = ((float) $insurance + (($i == 1) ? (float) $regulInsurance : 0));
301 $cap_rest =
price2num($capital - ($mens - $int),
'MT');
304 print
'<td class="center" id="n'.$i.
'"><input type="hidden" name="hi_rowid'.$i.
'" id ="hi_rowid'.$i.
'" value="'.$line->id.
'">'.$i.
'</td>';
305 print
'<td class="center" id ="date'.$i.
'"><input type="hidden" name="hi_date'.$i.
'" id ="hi_date'.$i.
'" value="'.$line->datep.
'">'.
dol_print_date($line->datep,
'day').
'</td>';
306 print
'<td class="center amount" id="insurance'.$i.
'">'.
price($insu, 0,
'', 1, -1, -1, $conf->currency).
'</td><input type="hidden" name="hi_insurance'.$i.
'" id ="hi_insurance'.$i.
'" value="'.$insu.
'">';
307 print
'<td class="center amount" id="interets'.$i.
'">'.
price($int, 0,
'', 1, -1, -1, $conf->currency).
'</td><input type="hidden" name="hi_interets'.$i.
'" id ="hi_interets'.$i.
'" value="'.$int.
'">';
308 if (empty($line->fk_bank)) {
309 print
'<td class="center"><input class="right width75" name="mens'.$i.
'" id="mens'.$i.
'" value="'.$mens.
'" ech="'.$i.
'"></td>';
311 print
'<td class="center amount">'.price($mens, 0,
'', 1, -1, -1, $conf->currency).
'</td><input type="hidden" name="mens'.$i.
'" id ="mens'.$i.
'" value="'.$mens.
'">';
314 print
'<td class="center amount" id="capital'.$i.
'">'.
price($cap_rest, 0,
'', 1, -1, -1, $conf->currency).
'</td><input type="hidden" name="hi_capital'.$i.
'" id ="hi_capital'.$i.
'" value="'.$cap_rest.
'">';
315 print
'<td class="center">';
316 if (!empty($line->fk_bank)) {
317 print $langs->trans(
'Paid');
318 if (!empty($line->fk_payment_loan)) {
319 print
' <a href="'.DOL_URL_ROOT.
'/loan/payment/card.php?id='.$line->fk_payment_loan.
'">('.
img_object($langs->trans(
"Payment"),
"payment").
' '.$line->fk_payment_loan.
')</a>';
321 } elseif (!$printed) {
322 print
'<a class="butAction smallpaddingimp" href="'.DOL_URL_ROOT.
'/loan/payment/payment.php?id='.
$object->id.
'&action=create">'.$langs->trans(
'DoPayment').
'</a>';
328 $capital = $cap_rest;
337if (count($echeances->lines) == 0) {
338 $label = $langs->trans(
"Create");
340 $label = $langs->trans(
"Save");
342print
'<div class="center"><input type="submit" class="button button-add" value="'.$label.
'" '.(($pay_without_schedule == 1) ?
'disabled title="'.$langs->trans(
'CantUseScheduleWithLoanStartedToPaid').
'"' :
'').
'title=""></div>';
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Class to manage Schedule of loans.
Class to manage projects.
dol_time_plus_duree($time, $duration_value, $duration_unit, $ruleforendofmonth=0)
Add a delay to a date.
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0)
Show a picto called object_picto (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 '.
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.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
price2numjs(amount)
Function similar to PHP price2num()
loan_prepare_head($object)
Prepare array with list of tabs.
if(preg_match('/crypted:/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.