From 1af4a857be673d85ce6df9106c04632c8cd425bf Mon Sep 17 00:00:00 2001 From: Alexandre SPANGARO Date: Sat, 19 May 2018 08:06:24 +0200 Subject: [PATCH] Remove old code --- htdocs/core/menus/standard/eldy.lib.php | 1 - htdocs/loan/calc.php | 393 ------------------------ 2 files changed, 394 deletions(-) delete mode 100644 htdocs/loan/calc.php diff --git a/htdocs/core/menus/standard/eldy.lib.php b/htdocs/core/menus/standard/eldy.lib.php index 03beab47323..d52818700a9 100644 --- a/htdocs/core/menus/standard/eldy.lib.php +++ b/htdocs/core/menus/standard/eldy.lib.php @@ -942,7 +942,6 @@ function print_left_eldy_menu($db,$menu_array_before,$menu_array_after,&$tabMenu $newmenu->add("/loan/index.php?leftmenu=tax_loan&mainmenu=billing",$langs->trans("Loans"),1,$user->rights->loan->read, '', $mainmenu, 'tax_loan'); if ($usemenuhider || empty($leftmenu) || preg_match('/^tax_loan/i',$leftmenu)) $newmenu->add("/loan/card.php?leftmenu=tax_loan&action=create",$langs->trans("NewLoan"),2,$user->rights->loan->write); //if (empty($leftmenu) || preg_match('/^tax_loan/i',$leftmenu)) $newmenu->add("/loan/payment/list.php?leftmenu=tax_loan",$langs->trans("Payments"),2,$user->rights->loan->read); - if (($usemenuhider || empty($leftmenu) || preg_match('/^tax_loan/i',$leftmenu)) && ! empty($conf->global->LOAN_SHOW_CALCULATOR)) $newmenu->add("/loan/calc.php?leftmenu=tax_loan",$langs->trans("Calculator"),2,$user->rights->loan->calc); } // Various payment diff --git a/htdocs/loan/calc.php b/htdocs/loan/calc.php deleted file mode 100644 index fedf26e6a36..00000000000 --- a/htdocs/loan/calc.php +++ /dev/null @@ -1,393 +0,0 @@ - - * Copyright (C) 2014 Alexandre Spangaro - * Copyright (C) 2015 Frederic France - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 3 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see . - */ - -require '../main.inc.php'; - -$langs->load("loan"); - -/* --------------------------------------------------- * - * Set Form DEFAULT values - * --------------------------------------------------- */ -$default_sale_price = "150000"; -$default_annual_interest_percent = 7.0; -$default_year_term = 30; -$default_down_percent = 10; -$default_show_progress = true; - -/* --------------------------------------------------- * - * Initialize Variables - * --------------------------------------------------- */ -$sale_price = 0; -$annual_interest_percent = 0; -$year_term = 0; -$down_percent = 0; -$this_year_interest_paid = 0; -$this_year_principal_paid = 0; -$form_complete = false; -$show_progress = false; -$monthly_payment = false; -$show_progress = false; -$error = false; - -/* --------------------------------------------------- * - * Set the USER INPUT values - * --------------------------------------------------- */ -if (isset($_REQUEST['form_complete'])) { - $sale_price = GETPOST('sale_price'); - $annual_interest_percent = GETPOST('annual_interest_percent'); - $year_term = GETPOST('year_term'); - $down_percent = GETPOST('down_percent'); - $show_progress = (isset($_REQUEST['show_progress'])) ? GETPOST('show_progress') : false; - $form_complete = GETPOST('form_complete'); -} - -// This function does the actual mortgage calculations -// by plotting a PVIFA (Present Value Interest Factor of Annuity) -// table... -function get_interest_factor($year_term, $monthly_interest_rate) { - global $base_rate; - - $factor = 0; - $base_rate = 1 + $monthly_interest_rate; - $denominator = $base_rate; - for ($i=0; $i < ($year_term * 12); $i++) { - $factor += (1 / $denominator); - $denominator *= $base_rate; - } - return $factor; -} - -// If the form is complete, we'll start the math -if ($form_complete) { - // We'll set all the numeric values to JUST - // numbers - this will delete any dollars signs, - // commas, spaces, and letters, without invalidating - // the value of the number - $sale_price = preg_replace( "[^0-9.]", "", $sale_price); - $annual_interest_percent = preg_replace( "[^0-9.]", "", $annual_interest_percent); - $year_term = preg_replace( "[^0-9.]", "", $year_term); - $down_percent = preg_replace( "[^0-9.]", "", $down_percent); - - if ((float) $year_term <= 0) { - $errors[] = "You must enter a Sale Price of Home"; - } - if ((float) $sale_price <= 0) { - $errors[] = "You must enter a Length of Mortgage"; - } - if ((float) $annual_interest_percent <= 0) { - $errors[] = "You must enter an Annual Interest Rate"; - } - if (!$errors) { - $month_term = $year_term * 12; - $down_payment = $sale_price * ($down_percent / 100); - $annual_interest_rate = $annual_interest_percent / 100; - $monthly_interest_rate = $annual_interest_rate / 12; - $financing_price = $sale_price - $down_payment; - $monthly_factor = get_interest_factor($year_term, $monthly_interest_rate); - $monthly_payment = $financing_price / $monthly_factor; - } -} else { - if (!$sale_price) { $sale_price = $default_sale_price; } - if (!$annual_interest_percent) { $annual_interest_percent = $default_annual_interest_percent; } - if (!$year_term) { $year_term = $default_year_term; } - if (!$down_percent) { $down_percent = $default_down_percent; } - if (!$show_progress) { $show_progress = $default_show_progress; } -} - -if (! empty($errors)) { - setEventMessages('', $errors, 'errors'); - $form_complete = false; -} - - - -/* - * View - */ - -llxHeader(); - -print load_fiche_titre($langs->trans("LoanCalc"), '', 'title_accountancy.png'); - -print $langs->trans('LoanCalcDesc'); - -print '
'; -print '
'; - -dol_fiche_head(''); - -print ''; -//print ''; -//print ''; -//print ''; -//print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print '';print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; - -if (! empty($show_progress)) -{ - print ''; -} -else -{ - print ''; -} - -print ''; -print '
'.$langs->trans('PurchaseFinanceInfo').'
'.$langs->trans('SalePriceOfAsset').': '.$langs->trans("Currency".$conf->currency).'
'.$langs->trans('PercentageDown').':%
'.$langs->trans('LengthOfMortgage').': '.$langs->trans("years").'
'.$langs->trans('AnnualInterestRate').':%
'.$langs->trans('ExplainCalculations').':'.$langs->trans('ShowMeCalculationsAndAmortization').''.$langs->trans('ShowMeCalculationsAndAmortization').'
'; - -dol_fiche_end(); - -print '
    '; -print '
'; - -// If the form has already been calculated, the $down_payment -// and $monthly_payment variables will be figured out, so we can show them in this table -if ($form_complete && $monthly_payment) -{ - print '
'; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - - if ($down_percent < 20) - { - $pmi_per_month = 55 * ($financing_price / 100000); - - /*print ''; - print ''; - print ''; - print '';*/ - print ''; - print ''; - print ''; - print ''; - } - - /*print ''; - print ''; - print ''; - print ''; - */ - - print ''; - print ''; - print ''; - print ''; -} - -print '
'.$langs->trans('MortgagePaymentInformation').'
'.$langs->trans('DownPayment').':' . number_format($down_payment, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '
'.$langs->trans('AmountFinanced').':' . number_format($financing_price, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '
'.$langs->trans('MonthlyPayment').':' . number_format($monthly_payment, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '
(Principal & Interest ONLY)
 '; - print '
'; - echo 'Since you are putting LESS than 20% down, you will need to pay PMI - (Private Mortgage Insurance), which tends - to be about $55 per month for every $100,000 financed (until you have paid off 20% of your loan). This could add - '."\$" . number_format($pmi_per_month, "2", ".", ",").' to your monthly payment.'; - print '
'.$langs->trans('MonthlyPayment').':' . number_format(($monthly_payment + $pmi_per_month), "2", ".", ",") . $langs->trans("Currency".$conf->currency) . '
'; - print '(Principal & Interest, and PMI)
 '; - print '
';*/ - - $assessed_price = ($sale_price * .85); - $residential_yearly_tax = ($assessed_price / 1000) * 14; - $residential_monthly_tax = $residential_yearly_tax / 12; - - if ($pmi_per_month) - { - $pmi_text = "PMI"; - } - /*echo "Residential (or Property) Taxes are a little harder to figure out... In Massachusetts, the average resedential tax rate seems - to be around $14 per year for every $1,000 of your property's assessed value.";*/ - //print '

'; - //print "Let's say that your property's assessed value is 85% of what you actually paid for it - "; - /*print number_format($assessed_price, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . 'This would mean that your yearly residential taxes will be around'; - print number_format($residential_yearly_tax, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency); - print 'This could add ' . number_format($residential_monthly_tax, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . 'to your monthly payment'; - print '
TOTAL Monthly Payment:' . number_format(($monthly_payment + $pmi_per_month + $residential_monthly_tax), "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '
'; - print '(including '.$pmi_text.')
'; -print '
'; - -// This prints the calculation progress and -// the instructions of HOW everything is figured -// out -if ($form_complete && $show_progress) { - $step = 1; - - print '

'; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - print '
'. $step++ .''; - print $langs->trans('DownPaymentDesc').'

'; - print number_format($down_payment,"2",".",",") . ' ' . $langs->trans("Currency".$conf->currency) . ' = '; - print number_format($sale_price,"2",".",",") . ' ' . $langs->trans("Currency".$conf->currency) . ' X (' . $down_percent . ' / 100)'; - print '
' . $step++ . ''; - print $langs->trans('InterestRateDesc') . '

'; - print $annual_interest_rate . ' = ' . $annual_interest_percent . '% / 100'; - print '
'; - print $langs->trans('MonthlyFactorDesc') . ':'; - print '
' . $step++ . ''; - print $langs->trans('MonthlyInterestRateDesc') . '

'; - print $monthly_interest_rate . ' = ' . $annual_interest_rate . ' / 12'; - print '
' . $step++ . ''; - print $langs->trans('MonthTermDesc') . '

'; - print $month_term . ' '. $langs->trans('Months') . ' = ' . $year_term . ' '. $langs->trans('Years') . ' X 12'; - print '
' . $step++ . ''; - print $langs->trans('MonthlyPaymentDesc') . ':
'; - print $langs->trans('MonthlyPayment').' = ' . number_format($financing_price, "2", "", "") . ' * '; - print '(1 - ((1 + ' . number_format($monthly_interest_rate, "4", "", "") . ')'; - print '-(' . $month_term . '))))'; - print '

'; - print $langs->trans('AmortizationPaymentDesc'); - print '
'; - print '
'; - - - // Set some base variables - $principal = $financing_price; - $current_month = 1; - $current_year = 1; - - // This basically, re-figures out the monthly payment, again. - $power = -($month_term); - $denom = pow((1 + $monthly_interest_rate), $power); - $monthly_payment = $principal * ($monthly_interest_rate / (1 - $denom)); - - print '

'.$langs->trans('AmortizationMonthlyPaymentOverYears', number_format($monthly_payment, "2", ".", ","), $year_term)."
\n"; - - print ''; - - // This LEGEND will get reprinted every 12 months - $legend = ''; - $legend.= ''; - $legend.= ''; - $legend.= ''; - $legend.= ''; - $legend.= ''; - - print $legend; - - // Loop through and get the current month's payments for - // the length of the loan - while ($current_month <= $month_term) - { - $interest_paid = $principal * $monthly_interest_rate; - $principal_paid = $monthly_payment - $interest_paid; - $remaining_balance = $principal - $principal_paid; - - $this_year_interest_paid = $this_year_interest_paid + $interest_paid; - $this_year_principal_paid = $this_year_principal_paid + $principal_paid; - - $var = !$var; - print ''; - print ''; - print ''; - print ''; - print ''; - print ''; - - ($current_month % 12) ? ($show_legend = false) : ($show_legend = true); - - if ($show_legend) { - print ''; - print ''; - print ''; - - $total_spent_this_year = $this_year_interest_paid + $this_year_principal_paid; - print ''; - print ''; - print ''; - print ''; - - print ''; - print ''; - print ''; - - $current_year++; - $this_year_interest_paid = 0; - $this_year_principal_paid = 0; - - if (($current_month + 6) < $month_term) - { - echo $legend; - } - } - $principal = $remaining_balance; - $current_month++; - } - print "
' . $langs->trans("Month") . '' . $langs->trans("Interest") . '' . $langs->trans("LoanCapital") . '' . $langs->trans("Position") . '
' . $current_month . '' . number_format($interest_paid, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '' . number_format($principal_paid, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '' . number_format($remaining_balance, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency) . '
' . $langs->trans("Totalsforyear") . ' ' . $current_year . '
 '; - print $langs->trans('YouWillSpend', number_format($total_spent_this_year, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency), $current_year) . '
'; - print $langs->trans('GoToInterest', number_format($this_year_interest_paid, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency)) . '
'; - print $langs->trans('GoToPrincipal', number_format($this_year_principal_paid, "2", ".", ",") . ' ' . $langs->trans("Currency".$conf->currency)) . '
'; - print '
 
\n"; -} - -llxFooter(); - -$db->close();