шаблон ИБ

‘;
echo ‘‘;
echo ‘‘;
echo ‘ ‘;
echo ‘‘;
echo ‘‘;
echo ‘

Для выполнения расчёта, заполните следующую форму:

‘;
echo ‘

‘;
echo ‘

‘;
echo ‘‘;
echo ‘

‘;
echo ‘

‘;
echo ‘

‘;
echo ‘

‘;
echo ‘

‘;
echo ‘‘;
echo ‘

‘;
echo ‘

‘;
echo ‘

‘;
echo «

«;
echo «

Сумма в рублях:
Аванс:	‘; echo ‘30%’; echo ‘35%’; echo ‘40%’; echo ‘45%’; echo ‘50%’; echo ‘
Срок:	‘; echo ‘12 мес.’; echo ‘24 мес.’; echo ‘36 мес.’; echo ‘
Валюта:	‘; echo ‘Рубли’; echo ‘Доллары США’; echo ‘Евро’; echo ‘
Предмет лизинга:
E-mail:
Имя:

«;
echo ««;
echo ««;
else:
// Выполняем расчёт…
require_once ‘tcpdf/tcpdf.php’;

$pdf = new TCPDF(‘P’, ‘mm’, ‘A4’, true, ‘UTF-8’, false);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->SetMargins(20, 25, 25); // устанавливаем отступы (20 мм — слева, 25 мм — сверху, 25 мм — справа)
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
$pdf->SetFont(‘arial’, », 10);
$pdf->AddPage(); // создаем первую страницу, на которой будет содержимое
$pdf->setJPEGQuality(75);
$pdf->Image(‘logo.jpg’, 15, 15, 46, 50, ‘JPG’, », », false, 100, », false, false, 0, false, false, false);

$pdf->SetXY(100, 15);
$pdf->Write(0, ‘ООО «Прайм Лизинг»’, », 0, ‘R’, true, 0, false, true, 0);
$pdf->Write(0, ‘г. Москва, Островная ул.,’, », 0, ‘R’, true, 0, false, true, 0);
$pdf->Write(0, ‘д.2, оф. 134’, », 0, ‘R’, true, 0, false, true, 0);
$pdf->Write(0, ‘Тел. 234-74-99’, », 0, ‘R’, true, 0, false, true, 0);
$pdf->Write(0, ‘mail@primeleasing.ru’, », 0, ‘R’, true, 0, false, true, 0);

$pdf->SetXY(15, 60);
$pdf->Write(0, ‘ПРЕДВАРИТЕЛЬНЫЙ РАСЧЕТ ЛИЗИНГОВОГО ПРОЕКТА’, », 0, ‘C’, true, 0, false, true, 0);

$pdf->SetXY(20, 70);
$pdf->Cell(100, 6, ‘Предмет лизинга:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, $_POST[‘user_subject’], 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Стоимость с НДС в валюте договора:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, split_num($_POST[‘user_amount’]), 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Объем авансового платежа (%):’, 1, 0, ‘L’);
$pdf->Cell(50, 6, split_num($_POST[‘user_advance’]), 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Авансовый платеж c НДС, в валюте договора:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, split_num($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)), 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Срок лизинга (мес.):’, 1, 0, ‘L’);
$pdf->Cell(50, 6, $_POST[‘user_period’], 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Валюта договора лизинга:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, $_POST[‘user_currency’], 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Выкупная стоимость объекта лизинга:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, split_num($_POST[‘user_amount’]*0.003), 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Учет на балансе:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, ‘Лизингодателя’, 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘Страхование осуществляет:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, ‘Лизингополучатель’, 1, 1, ‘L’);
$pdf->Cell(100, 6, ‘В расчет включено:’, 1, 0, ‘L’);
$pdf->Cell(50, 6, ‘НДС, налог на имущество’, 1, 1, ‘L’);

$pdf->SetXY(20, 140);
$pdf->Cell(150, 6, ‘График лизинговых платежей:’, 1, 1, ‘C’);
$pdf->Cell(50, 12, ‘Номер платежа:’, 1, 0, ‘C’);
$pdf->Cell(100, 6, ‘Программа’, 1, 1, ‘C’);
$pdf->SetXY(70, 152);
$pdf->Cell(50, 6, ‘Стабильность:’, 1, 0, ‘C’);
$pdf->Cell(50, 6, ‘Развитие:’, 1, 1, ‘C’);

$pdf->Cell(50, 6, ‘1’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)), 1, 1, ‘C’);

// Выполняем расчёт по программе стабильность
$uch_pl = $_POST[‘user_amount’] — ($_POST[‘user_amount’]*($_POST[‘user_advance’]/100));
$k_rasch = ($_POST[‘user_currency’]==’Рубли’?CONST_K11+CONST_K2:CONST_K12+CONST_K2);
$mesch_proc = $k_rasch/12;
$temp_k = ($mesch_proc/100 * pow(( 1 + $mesch_proc/100), $_POST[‘user_period’])) /
(pow(( 1 + $mesch_proc/100), $_POST[‘user_period’]) — 1);
$mesch_plat = $temp_k * $uch_pl;
//echo «

---

uch_pl = $uch_pl; k_rasch = $k_rasch; mesch_proc = $mesch_proc; temp_k = $temp_k; mesch_plat = $mesch_plat

«;
// Рассчитываем налог на имущество
$stab_arr = array();
$cur_os = $_POST[‘user_amount’];
for ($i = 1; $i <= $_POST['user_period']; $i++) { $nni = ($cur_os<0)?0:$cur_os*(0.022/12); $stab_arr[$i]['mp'] = $mesch_plat; $stab_arr[$i]['cos'] = $cur_os; $stab_arr[$i]['nni'] = $nni; $cur_os = $cur_os - ($_POST['user_amount']/$_POST['user_period']); $tot_mp += $mesch_plat; $tot_nni += $nni; } for ($i = 1; $i <= $_POST['user_period']; $i++) { $stab_arr[$i]['itp'] = $stab_arr[$i]['mp'] + $tot_nni/$_POST['user_period']; $tot_itp += $stab_arr[$i]['itp']; //echo "
$iMP = «.$stab_arr[$i][‘mp’].»; OS = «.$stab_arr[$i][‘cos’].
«; NNI = «.$stab_arr[$i][‘nni’].»; ITP = «.$stab_arr[$i][‘itp’].»;»;
}
//echo «

---

tot_mp = $tot_mp; tot_nni = $tot_nni; tot_itp = $tot_itp;

---

«;
$econ_nds = $tot_itp / 118 * 18;
$econ_prib = ($tot_itp — $econ_nds) * 0.2;
$econ_imush = $tot_nni;
$econ_total = $econ_nds+$econ_prib+$econ_imush;
//echo «econ_nds = $econ_nds; econ_prib = $econ_prib; econ_imush = $econ_imush; econ_total = $econ_total;

---

«;

$od = $uch_pl;
$gos = $_POST[‘user_amount’];
$razv_arr = array();
// Выполняем рассчёт по программе «Развитие»
for ($i = 1; $i <= $_POST['user_period']; $i++) { $pbn = ($uch_pl/$_POST['user_period']) + $od * ($k_rasch/100) / 12; $tot_pbn += $pbn; $nni = ($gos<0)?0:$gos*(0.022/12); $tot_rnni += $nni; $ritp = $pbn + $nni; $tot_ritp += $ritp; //echo "
$i; pbn = $pbn; od = $od; gos = $gos; nni = $nni; ritp = $ritp;»;
$razv_arr[$i][‘pbn’] = $pbn;
$razv_arr[$i][‘od’] = $od;
$razv_arr[$i][‘gos’] = $gos;
$razv_arr[$i][‘nni’] = $nni;
$razv_arr[$i][‘ritp’] = $ritp;
$od = $od — $uch_pl/$_POST[‘user_period’];
$gos = $gos — $_POST[‘user_amount’]/$_POST[‘user_period’];
}
//echo «

---

tot_pbn = $tot_pbn; tot_rnni = $tot_rnni; tot_ritp = $tot_ritp

---

«;
$recon_nds = $tot_ritp / 118 * 18;
$recon_prib = ($tot_ritp — $recon_nds) * 0.2;
$recon_imush = $tot_rnni;
$recon_total = $recon_nds + $recon_prib + $recon_imush;
//echo «recon_nds = $recon_nds; recon_prib = $recon_prib; recon_imush = $recon_imush; recon_total = $recon_total;

---

«;
for ($i=2; $i<=$_POST['user_period']+1;$i++) { $pdf->Cell(50, 6, $i, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($stab_arr[$i-1][‘itp’])), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($razv_arr[$i-1][‘ritp’])), 1, 1, ‘C’);
$tot_stab += $stab_arr[$i-1][‘itp’];
$tot_razv += $razv_arr[$i-1][‘ritp’];
}
$pdf->Cell(50, 6, ‘ИТОГО’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($tot_stab+($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)))), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($tot_razv+($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)))), 1, 1, ‘C’);

$udvg_stab = (($tot_stab+($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)))/$_POST[‘user_amount’]-1)/
$_POST[‘user_period’]*12;

$udvg_razv = (($tot_razv+($_POST[‘user_amount’]*($_POST[‘user_advance’]/100)))/$_POST[‘user_amount’]-1)/
$_POST[‘user_period’]*12;

$pdf->Cell(50, 6, ‘Удорожание в год’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($udvg_stab*100,2)).’ %’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($udvg_razv*100,2)).’ %’, 1, 1, ‘C’);

$pdf->Write(0, », », 0, ‘R’, true, 0, false, true, 0);
$pdf->Write(0, », », 0, ‘R’, true, 0, false, true, 0);

$pdf->Cell(150, 6, ‘Экономия по налогам:’, 1, 1, ‘C’);

$pdf->Cell(50, 6, ‘Налог на прибыль’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($econ_prib)), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($recon_prib)), 1, 1, ‘C’);
$pdf->Cell(50, 6, ‘НДС’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($econ_nds)), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($recon_nds)), 1, 1, ‘C’);
$pdf->Cell(50, 6, ‘Налог на имущество’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($econ_imush)), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($recon_imush)), 1, 1, ‘C’);
$pdf->Cell(50, 6, ‘ИТОГО’, 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($econ_total)), 1, 0, ‘C’);
$pdf->Cell(50, 6, split_num(round($recon_total)), 1, 1, ‘C’);

$pdf->Output(‘calc.pdf’, ‘I’); // выводим документ в браузер
endif;

function split_num($str) {
$res=»»;
if (preg_match(«/^[0-9]{1,}$/i»,$str)) {
while (strlen($str)>3) {
$res=» «.substr($str,strlen($str)-3).$res;
$str=substr($str,0,strlen($str)-3);
}
}
$res=$str.$res;
return ($res);
}

?>