Разработка методики обоснования и оптимизации использования лизинга на предприятиях текстильной промышленности тема диссертации по экономике, полный текст автореферата
- Ученая степень
- кандидата экономических наук
- Автор
- Савоскул, Антонина Владимировна
- Место защиты
- Москва
- Год
- 2001
- Шифр ВАК РФ
- 08.00.05
ДиссертацияДиссертация: содержание автор диссертационного исследования: кандидата экономических наук, Савоскул, Антонина Владимировна
ВЕДЕНИЕ.
ГЛАВА 1. РОЛЬ И ЗНАЧЕНИЕ ЛИЗИНГОВОЙ СДЕЛКИ.
1.1. Сущность лизинга и его особенности.
1.2. Обобщенная классификация основных видов лизинга.
1.3. Формы лизинговых платежей.
1.4. Отечественный и зарубежный опыт в области использования лизинговых операций.
1.5. Привлекательность лизинга.
ГЛАВА 2. ОСОБЕННОСТИ ЛИЗИНГОВОЙ С ДЕЖИ С УЧЕТОМ СПЕЦИФИКИ ТЕКСТИЛЬНОЙ ПРОМЫШЛЕННОСТИ.
2.1. Состояние основных фондов текстильной промышленности
2.2. Специфика применения различных видов лизинга в текстильной промышленности как механизма обновления основных фондов.
2.3. Регулирование лизинговых отношений.
2.3.1. Налогообложение лизинговых операций.
2.3.2. Таможенное и валютное регулирование лизинговых операций.
ГЛАВА 3. ОБОСНОВАНИЕ МЕТОДА И РЕШЕНИЕ ЗАДАЧИ ОПТИМИЗАЦИИ ИСПОЛЬЗОВАНИЯ ЛИЗИНГА ДЛЯ ПРЕДПРИЯТИЙ ТЕКСТИЛЬНОЙ ПРОМЫШЛЕННОСТИ.
3.1. Расчет лизингового платежа методом потока денежных средств и сравнение лизинга с другими способами приобретения оборудования.
3.2. Графический метод решения задачи оптимизации использования лизинга для предприятий текстильной промышленности.!
3.3. Оценка экономической эффективности лизинговой сделки для лизингодателя.
Диссертация: введение по экономике, на тему "Разработка методики обоснования и оптимизации использования лизинга на предприятиях текстильной промышленности"
АКТУАЛЬНОСТЬ ТЕМЫ. В последние годы в России растет интерес к лизинговой деятельности, увеличивается число лизинговых компаний, расширяют поле деятельности существующие.
За рубежом лизинг занимает одно из главных мест среди методов инвестирования как финансирование приобретения и передача арендуемого объекта во временное пользование.
Этот вид деятельности получил широкое распространение благодаря потребности ускорения обновления материально-технической базы, нехватки денег на предприятиях для приобретения оборудования за счет собственных средств вследствие его дороговизны и т.д.
Текстильная промышленность - это одна из сфер деятельности, в которой лизинг пока не получил широкого распространения. Исследования, проведенные в данной работе, показывают, что текстильные предприятия в практике приобретения оборудования начинают использовать лизинговые соглашения. Однако, до конца этот вид инвестиционной деятельности не изучен. Проведенная работа позволит упростить решение задачи применения лизинга участниками сделки.
СТЕПЕНЬ ИЗУЧЕННОСТИ ПРОБЛЕМЫ. Получение необходимого имущества по договору лизинга оценивается специалистами во многих отраслях. Например, в трудах таких авторов, как Тупчиенко В.А. [76],
Винтайкина В.В. [37], Нурмухаметова М.М. [66], Лазина А.И. [58], Рахимова Т.В. [70] и др.
Возможность оценки инвестиционных проектов весьма полно представлена в работе группы авторов Виленского П.Л., Лившица В.Н., Орлова Е.Р., Смоляка С.Л. [36].
Математическое решение проблемы использования лизинга для всех участников сделки рассмотрено Смоляком С.А. [73].
ЦЕЛЬ И ЗАДАЧИ ИССЛЕДОВАНИЯ. Целью диссертационного исследования является разработка методики обоснования и оптимизации использования лизинга при решении проблемы ускорения обновления основных фондов предприятий.
Для достижения поставленной цели в диссертации решаются следующие ЗАДАЧИ:
- обобщение отечественного и зарубежного опыта по использованию лизинга;
- рассмотрение вопросов, касающихся законодательной сферы;
- выбор наиболее приемлемых видов лизинга для текстильной промышленности;
- предложение графического способа принятия решения о целесообразности использования лизинговой сделки лизингополучателем в соответствии с делением составляющих лизингового платежа на переменную и постоянную;
- оптимизация использования лизинга с помощью метода номограмм для лизингополучателя (текстильного предприятия) и для лизингодателя;
- разработка методического подхода к проведению оценки лизинговой сделки для лизингодателя с позиции целесообразности инвестирования средств в данную сделку.
ОБЪЕКТ ИССЛЕДОВАНИЯ. Объект исследования - лизинг как форма инвестирования в текстильной промышленности.
ПРЕДМЕТ ИССЛЕДОВАНИЯ. Предметом исследования является методика выбора способов приобретения основных средств текстильным предприятием. МЕТОДОЛОГИЧЕСКАЯ ОСНОВА ИССЛЕДОВАНИЯ. Методологическую базу исследования составляют фундаментальные работы отечественных и зарубежных экономистов, постановления правительства Российской Федерации, отраслевые экономические нормативы, материалы по обновлению основных фондов текстильной промышленности.
НАУЧНАЯ НОВИЗНА ИССЛЕДОВАНИЯ. Диссертация содержит следующие элементы научной новизны:
- обобщен опыт использования лизинга в текстильной и других отраслях;
- предложена классификация основных видов лизинговых отношений;
- даны рекомендации по наиболее эффективному применению лизинга в текстильной отрасли;
- разработана методика выбора способов приобретения имущества лизингополучателем;
- разработана процедура задачи графической иллюстрации оптимальной области использования лизинговой сделки лизингополучателем при делении составляющих лизингового платежа на переменную и постоянную;
- разработана методика оптимизации использования лизинга для предприятий текстильной промышленности с помощью метода номограмм;
- разработана компьютерная программа для расчетов лизинговых платежей, чистого дохода и сальдо реальных денег с учетом дисконтирования и без него.
ПРАКТИЧЕСКОЕ ЗНАЧЕНИЕ РАБОТЫ. Результаты диссертации могут быть использованы лизингодателями и лизингополучателями при обосновании заключения лизинговых договоров, направленных на обновление основных фондов текстильной промышленности (и других отраслей), при расчетах лизинговых платежей, чистого дисконтированного дохода и сальдо реальных денег по сделке, при разработке бизнес-планов, в учебном процессе при преподавании специальных экономических дисциплин.
ОСНОВНЫЕ ПОЛОЖЕНИЯ ДИССЕРТАЦИОННОЙ РАБОТЫ ДОКЛАДЫВАЛИСЬ И ОБСУЖДАЛИСЬ:
- на всероссийских научно-технических конференциях по проблемам текстильной и легкой промышленности, Москва, 1998, 1999 г., 2000 г., 2001 г.;
- на заседаниях кафедры экономики МГТУ им. А.Н. Косыгина, 1998 г., 1999 г., 2000 г., 2001 г.
АПРОБАЦИЯ. Вопрос применения лизинга текстильными предприятиями рассмотрен на примере ЗАО «Щербаков», в результате предложен механизм реализации методики оценки оптимального использования лизинга.
ПУБЛИКАЦИИ. По теме диссертации опубликовано шесть научных работ.
Диссертация: заключение по теме "Экономика и управление народным хозяйством: теория управления экономическими системами; макроэкономика; экономика, организация и управление предприятиями, отраслями, комплексами; управление инновациями; региональная экономика; логистика; экономика труда", Савоскул, Антонина Владимировна
Выводы и рекомендации
По проведенному исследованию можно сделать следующие выводы и рекомендации:
1. Финансовый лизинг является наиболее приемлемым видом лизинга для текстильной промышленности.
2. Методика выбора способов приобретения имущества лизингополучателем должна включать оценку альтернативных вариантов приобретения оборудования, на основании которой графически определяется оптимальная область заключения лизинговой сделки с последующим вынесением ее на номограмму для определения значений элементов лизингового платежа, соответствующих данной области. Если условия договора лизинга не соответствуют оптимальной области, то необходимо их пересмотреть или отказаться от сделки.
3. Результаты расчетов чистого дисконтированного дохода и сальдо реальных денег по трем вариантам приобретения оборудования текстильным предприятием (покупка за счет собственных средств, банковский кредит и лизинг) свидетельствуют об эффективности использования лизинга по сравнению с банковским кредитом.
4. Расчет лизинговых платежей рекомендуется осуществить по методу потока денежных средств, который основан на реальном движении денежных средств компании.
5. Деление составляющих лизингового платежа на переменную и постоянную предполагает отнести к постоянной составляющей ставку по кредиту, а к переменной составляющей - ставку комиссионного вознаграждения. Выплата основного долга и налога на имущество в сумме с процентами по кредиту и комиссионным вознаграждением образуют выплаты лизингополучателя лизингодателю, т.е. лизинговый платеж.
Графический способ принятия решения об использовании лизинговой сделки лизингополучателем позволяет найти оптимальную область использования лизинга.
Оптимизация использования лизинга для предприятий текстильной промышленности с помощью метода номограмм позволяет быстро и точно рассчитать размер лизингового платежа, чистого дисконтированного дохода и сальдо реальных денег, при изменении составляющих лизингового соглашения.
Разработанная компьютерная программа, предусматривает мобильный расчет лизинговых платежей, чистого дохода, сальдо реальных денег с учетом дисконтирования и без дисконтирования при изменении условий договора и законодательной базы. В основе программы лежит метод номографирования.
Оценка экономической эффективности лизинговой сделки для лизингодателя позволяет определить целесообразность инвестирования им средств в данную сделку.
Диссертация: библиография по экономике, кандидата экономических наук, Савоскул, Антонина Владимировна, Москва
1. Гражданский кодекс Российской Федерации. Часть вторая от 22 декабря 1995 года.
2. Налоговый кодекс Российской Федерации. Часть вторая. Федеральный закон от 5 августа 2000 года №117-ФЗ. В редакции Федерального закона от 29 декабря 2000 года №166-ФЗ.
3. Федеральный закон Российской федерации от 29 декабря 1998 года «О лизинге» №164-ФЗ.
4. Федеральный закон «О налоге на прибыль предприятий и организаций» в редакции от 31 марта 1999 года №-62-ФЗ.
5. Федеральный закон «О налоге на прибыль предприятий и организаций» в редакции от 5 августа 2000 года №-118-ФЗ.
6. Закон Российской Федерации «О налоге на прибыль предприятий и организаций» от 27 декабря 1991 года №2116-1, с учетом изменений и дополнений по состоянию на 1 января 2001 года.
7. Закон Российской Федерации «О налоге на имущество предприятий» от 13 декабря 1991 года №2030-1, с учетом изменений и дополнений по состоянию на 20 января 2001 года.
8. Закон Российской Федерации «О валютном регулировании и валютном контроле» от 9 октября 1992 года №3615-1.
9. Временное положение Правительства Российской Федерации от 29 июня 1995 года №663 (в редакции последующих изменений и дополнений).
10. Положение «О лицензировании лизинговой деятельности в Российской Федерации», утвержденное постановлением Правительства Российской Федерации от 26 февраля 1996 года №167.
11. Положение о порядке начисления амортизационных отчислений по основным фондам в народном хозяйстве, утвержденное Минфином СССР от 29 декабря 1990 года №ВГ-21-Д.
12. Положение по бухгалтерскому учету «Учетная политика предприятия», утвержденное приказом Минфина России от 28 июля 1994 года №100.
13. Основные положения «О регулировании валютных операций на территории СССР от 24 мая 1991 года №352.
14. Единые нормы амортизационных отчислений на полное восстановление основных фондов народного хозяйства СССР, утвержденные Постановлением Совета Министров СССР от 22 октября 1990 года №1072.
15. Указ Президента Российской Федерации «Об основных направлениях налоговой реформы в Российской Федерации и мерах по укреплению налоговой и платежной дисциплины» от 5 мая 1996 года №685.
16. Указание Государственного таможенного комитета России «О некоторых вопросах применения таможенного режима временного ввоза/вывоза» от 25 апреля 1994 года №01-12/328.
17. Инструкция Госналогслужбы России «О порядке исчисления и уплаты в бюджет налога на имущество предприятий» от 8 июня 1995 года №33, с учетом изменений и дополнений №5, зарегистрированных в Минюсте Российской Федерации от 14 декабря 2000 года №2494.
18. Инструкция Министерства налогов и сборов России «О порядке исчисления и уплаты в бюджет налога на прибыль предприятий и организаций» от 15 июня 2000 года №62.
19. Письмо Государственного таможенного комитета (об объектах международного финансового лизинга, временно ввозимых на таможенную территорию Российской Федерации) от 20 июля 1995 года №01-13/10268.
20. Письмо Государственного таможенного комитета (о таможенном режиме для предметов лизинга) от 24 мая 1999 года №01-15/14858.
21. Письмо Центрального Банка России (о порядке предоставления документов, необходимых для получения лицензии по валютным операциям, связанным с движением капитала) от 6 октября 1995 года №12-524.
22. Постановление Правительства Российской Федерации (о лицензировании лизинговой деятельности) от 24 декабря 1994 года №1418.
23. Распоряжение Правительства России (о таможенных льготах на объекты лизингового соглашения) от 24 мая 1994 года №737-р.
24. Общероссийский классификатор основных фондов, введенный в действие с 1 января 1996 года.
25. Аксаков А.Г. Будут условия для развития лизинга будут и инвестиции в российского производителя. Дело за малым - довести до ума закон // Лизинг-курьер. - 2000. - Специальный выпуск. - с. 3 - 5.
26. Алешин А., Юданов В. «Показ мод» мирового текстильного машиностроения // Текстильная промышленность. 2000. - №4. -с. 42-44.
27. Бахановский В.И. Легкая промышленность страны: состояние и направления развития // Текстильная промышленность. 2001. - №1. - с. 29-31.
28. Бездудный Ф.Ф., Павлов А.П. Математические методы и модели в планировании текстильной промышленности. М.: Легкая индустрия, 1979.- 440 с.
29. Блох Л.С. Графические методы технических расчетов (номография). -Харьков: УНИЗДАТ, 1929. 166 с.
30. Блох Л.С. Практическая номография. М.: Высшая школа, 1971. - 328 с.
31. Боукет Г. Обзор рынка финансовой аренды в России // Лизинг курьер. -1999. - №6.-с. 16-22.
32. Вестник. Ежеквартальное издание Министерства Юстиции Российской Федерации Государственной регистрационной палаты.
33. Виленский П.Л., Лившиц В.Н., Орлова Е.Р., Смоляк С.А. Оценка эффективности инвестиционных проектов. М.: Дело, 1998. -248 с.
34. Винтайкин В.В. Методическое обоснование и перспективы применения лизинга в угольной промышленности: Дис. канд. экон. наук. М, 1993. -187 с.
35. Волков Н.Г. Комментарий к Федеральному закону от 29 октября 1998 года № 164 ФЗ «О лизинге» // Главбух. - 1998. - №22. - с. 58-63.
36. Газман В.Д. Рынок лизинговых услуг. М.: Фонд «Правовая культура», 1999.-376 с.
37. Газман В.Д. Участие поставщика оборудования в лизинговом бизнесе // Лизинг курьер. - 1999. - №4. - с. 9-12.
38. Гараджа М. Краткий обзор рынка финансовой аренды в России // Лизинг -курьер. 1999. -№1.- с. 9-11.
39. Гайнетдинов М.Н. // Хозяйство и право. 1994. - №5.
40. Гершгорн А.С. Математическое программирование и его применение в экономических расчетах. Учебник для торг. и кооп. Вузов. -М.: Экономика, 1968.-200 с.
41. Глаголев А.А., Солнцева Т.В. Курс высшей математики. М.: Высшая школа, 1971. - 654 с.
42. Горемыкин В.А. Основы технологий лизинговых операций. М.: Ось-89,2000.-512 с.
43. Данные аналитического Центра журнала «The Economist». 1999. - второй квартал.
44. Дегтярева Е. Принятие новой главы Налогового кодекса: развитие или выживание лизинговых компаний // Лизинг курьер. - 2000. - №6 (12). -с. 7-15.
45. Дементьев В.В. Лицензирование лизинговой деятельности. Статистические данные комиссии по лицензированию лизинговой деятельности в РФ о компаниях на российском рынке // Лизинг курьер. - 1999. - №5. -с. 10-13.
46. Джонстон Дж. Эконометрические методы / Пер. с англ. и предисл. А.А. Рывкина. М.: Статистика, 1980. - 444 с.
47. Джуха В.М. Лизинг. Ростов н / Д.: Феникс, 1999. 320 с.
48. Жуков В.Н. Организация внешнеэкономической деятельности // Международный бизнес России. -1996. №3. - с. 34-36.
49. Кабатова Е.В. Лизинг: правовое регулирование, практика. М.: ИНФРА-М., 1997.-204 с.
50. Кальян Ю.Г. Потенциал возрождения // Текстильная промышленность.2001.-№4.-с. 7-8.
51. Карп М.В., Махмутбв Р.А., Шабалин Е.М. М.: Финансы, ЮНИТИ, 1998. -119с.
52. Кейн Э. Экономическая статистика и эконометрия. Введение в количественный экономический анализ. Вып. 2. / Пер. с англ. Р. Мошкович, С. Николаенко, А. Шмидта / Под ред. Р. Энтова. М.: Статистика, 1977. -232 с.
53. Ковалев В.В. Аренда: право, учет, анализ, налогообложение. М.: Финансы и статистика, 2000. - 272 с.
54. Краснова М.В. Особенности бухгалтерского учета и налогообложения лизинговых операций // Главбух. 1998. - №5. - с. 6- 15.
55. Лещенко М.И. Основы лизинга. М.: Финансы и статистика, 2000. - 336 с.
56. Лизинг: законодательство, практика применения, перспективы // Лизинг -курьер. 2000. - №3,4 (9-10). - с. 1-4.
57. Лизинговая деятельность в Российской Федерации. Министерство экономики Российской Федерации. Государственная регистрационная палата. -М.: 1988.
58. Лизинговые технологии и инвестиции. Российская Ассоциация Лизинговых Компаний. 1999. - №1.
59. Макарьева В.И. Практические советы по применению ПБУ 1 ПБУ 12. - М.: Налоговый вестник, 2000. - 400 с.
60. Невский Б.А. Справочная книга по номографии. М. - Л., Гос. изд. техн. -теорет. лит., 1951. - 376 с.
61. Новости законодательства // Лизинг курьер. - 2000. - №5 (11). - с. 18-19.
62. Нурмухаметова М.М. Экономические и организационные аспекты развития рынка лизинговых услуг в российской промышленности: Дис. канд. экон. наук. СПб., 1996. - 226 с.
63. Полонский Ю.Д. Налог с продаж. 3-е изд., перераб. и доп. - М.: Ось-89, 2001.- 144 с.
64. Прилуцкий JI. Льгота по НДС, которая мешает // Лизинг курьер. - 2000. -№2 (8). - с. 4-8.
65. Прилуцкий Л. Финансовый лизинг. М.: Ось-89, 1997. - 272 с.
66. Рахимов Т.В. Лизинг и его роль в стимулировании производства и сбыта продукции: Дис. канд. экон. наук. М., 1996. -135 с.
67. Россия 2000. Экономическая конъюнктура / Центр экономической конъюнктуры при правительстве Российской Федерации. - 2000. - Выпуск 4. -246 с.
68. Сабитов А., Шишлянникова О. Комментарий к Федеральному закону «О лизинге» // Лизинг курьер. - 1999. - №2. -с. 21-24.
69. Смоляк С.А. Особенности использования лизинга в инвестиционных проектах. М.: ЦЭМИ, 1997. - 70 с.
70. Соснина Т.Н. Ответ на вызов времени // Текстильная промышленность. -2001. -№1.-с. 20-22.
71. Тихонов В.И. Текстильный край: на перепутье // Текстильная промышленность. 2001. - №1. - с. 8-10.
72. Тупчиенко В.А. Формирование лизинговых отношений в системе услуг пассажирского транспорта. На примере авиаперевозок: Дис. канд. экон. наук. 1997.- 117 с.
73. Финансовый менеджмент: Учебник для вузов / Н.Ф. Самсонов, Н.П. Баранникова, A.A. Володин и др.; Под ред. проф. Н.Ф. Самсонова М.: Финансы, ЮНИТИ, 2000.495 с.
74. Хованский Г.С. Методы номографирования. М.: Акад. наук СССР. Труды Вычислит, центра, 1964. - 224 с.
75. Хованский Г.С. Номография и ее возможности. М.: Наука, 1977. - 128 с.
76. Четыркин Е. Методы финансовых и коммерческих расчетов. М.: Дело,
77. Business Речь, 1992. 320 с.
78. Шишлянникова О. Сравнительный анализ альтернативных законопроектов // Лизинг курьер. - 2000. - Специальный выпуск. -с. 5-11.
79. Штельмах В. Возможные последствия принятия II (специальной) части проекта Налогового кодекса для Российского рынка лизинговых услуг // Лизинг курьер. - 2000. - Специальный выпуск. -с. 17-20.
80. Штельмах В., Шишлянникова О. Международный лизинг: одна из сторон сделки резидент РФ // Лизинг - курьер. - 1999. - №3. - с. 24.
81. Штельмах В. Расчет лизинговых платежей исходя из потока денежных средств. Плюсы и минусы // Лизинг курьер. - 2000. - №1 (7). -с. 13-19.
82. Список научных трудов автора
83. Савоскул A.B. Обоснование метода и решение задачи оптимизации использования лизинга для предприятий текстильной промышленности. // Деп. в ООО Легпроминформ. № 3993 лп от 18.04.2001 г.
84. Савоскул A.B. Использование финансового лизинга на предприятиях текстильной промышленности как эффективного способа обновления основных фондов и возможная классификация видов лизинга. // Деп. в ООО Легпроминформ. № 4004 лп от 25.04.2001 г.
85. Савоскул A.B., Жуков В.Н. Использование различных видов лизинга на текстильных предприятиях. / Тезисы докладов Международной научно-технической конференции «Актуальные проблемы науки, техники и экономики легкой промышленности». М.: МГУДТ, 2000. с. 53.
86. Савоскул A.B., Жуков В.Н. Перспективы финансового и оперативного лизинга в текстильной промышленности. / Тезисы докладов Межвузовской научно-технической конференции аспирантов, магистров и студентов
87. Молодые ученые развитию текстильной и легкой промышленности» (ПОИСК -2000). Иваново: ИГТА, 2000. - с. 110-112.program Project!;npmioxeHne 1uses
88. Forms, Unitl in Unit2 in Unit3 in Unit4 in Unit5 in
89. Unitl.pas' 1Unit2.pas 1 1Unit3.pas 1 'Unit4.pas' 1Unit5.pas'
90. Forml}, {LizForm}, {qr: TQuickRep}, {CDDForm}, {SaldoForm};$R *.RES}begin1. Application.Initialize;
91. Application.CreateForm(TForml, Forml); // Application.CreateForm(TLizForm, LizForm);
92. Application.CreateForm(Tqr, qr); // Application.CreateForm(TCDDForm, CDDForm); // Application.CreateForm(TSaldoForm, SaldoForm);1. Application.Run; end.interfaceuses
93. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
94. ExtCtrls, StdCtrls, Buttons, ComCtrls, Grids;const
95. ArrVar : array1.21, 1.2. of String =
96. СтОснСредств=', 'Osn'), ('Аморт=*, 'Amort'), (г ОснДолг=', 'Dolg') ,1Кредит=', 'Kredit'), ('НалНаИм^', 'Nalog'), ('КомиссияМин=' , 1KomMin'), (1НДС=1, 'NDS'), (1Другое=', rOther' ) ,
97. КомиссияМакс=1, 'КошМах'), ('Срок=', 'Years'), ('Период', 1 Delta' ) ,
98. Шаг=', 'Step'), ('НормаДиск=1, 'Disc')/ (1Ускорение=', 'Speed'),
99. Комиссионные=' , 'Komiss'), ('КрПроцМин=', 'KrMin'), ('КрПроцМакс=', 'KrMax'),
100. КрШг=', 'KrStep'), ('МинПроц=1, 'MinProc'), (1МаксПроц=1, 1МахРгос'), ('НалНаПриб=1, 'PNalog'));type
101. MaxProc: TEdit; Label35: TLabel; TabSheet4: TTabSheet; LSG: TStringGrid; Label36: TLabel;
102. Forml: TForml; FName : String;
103. PaidArr, NalogArr, AmortArr, KommArr, KreditArr : Variant;
104. AmV := BaseSum * Amort / 100; for i := 1 to Period do begin
105. PaidArr1. := 0 NalogArri. := 0 AmortArr[i] := 0 KommArr[i] := 0 end;for i := 0 to Period 1 do beginif i = 0 then
106. PaidArri +1. := 0 else begin
107. PaidArri + 1. := (BaseSum RAM) * Nalog / 800;
108. KommArri +1. := (BaseSum RAM) / 8; end; // Началоf := 0;for j := 1 to 3 do beginif (BaseSum (RAM + AmV)) > 0 then Amv := BaseSum * Amort / 4 00else1. AmV := BaseSum RAM;f := f + AmV;1. RAM := RAM + AmV;
109. AmortArri +1. := AmortArr[i +1] + AmV;
110. PaidArri + 1. := PaidArr[i + 1] + (BaseSum -RAM) * Nalog / 400;
111. KommArri +1. := KommArr[i +1] + (BaseSum -RAM) / 4;end; // Окончание
112. AmortArri +1. := AmortArr[i +1] + AmV; KommArr[i +1] := (KommArr[i +1] + (BaseSum RAM - Amv) / 8) * Komiss / 100;if (BaseSum RAM) <= Q then begin
113. AmortArr i + 1. := AmortArr[i + 1] AmV; NalogArr[i + 1] := PaidArr[i + 1] ; PaidArr[i +1] := PaidArr[i +1] + f; break;endelsebegin
114. RAM := RAM + AmV; f := f + AmV;
115. NalogArri +1. := PaidArr[i +1] + (BaseSum -RAM) * Nalog / 800;
116. PaidArri + 1. := PaidArr[i + 1] + (BaseSum -RAM) * Nalog / 800 + f end;end; ^1. AmV := 0;for i := 1 to Period do
117. AmV := AmV + PaidArr1.; ComputeNalog := AmV; end;procedure TForml.FormCreate(Sender: TObject); begin1. FName := '1;
118. PageControll.ActivePage := TabSheetl; end;procedure TForml.BitBtnlClick(Sender: TObject); varf : TextFile; i, j : Integer; s : String; beginif Length(FName) > 0 then
119. SD.FileName := FName; if SD.Execute then begin
120. AssignFile(f, SD.FileName); ^ Rewrite(f);
121. WriteLN (f, 1 CTOcHCpeiiCTB=' + Osn.Text);
122. Componentsj. as TEdit).Texts;end;end;1. CloseFile(f);s := ExtractFileName(OD.FileName); SetLength(s, Length(s) 4); s := s + 1.in~'; AssignFile(f, s); Reset(f);while not EOF(f) do begin
123. ComputeNalog(BaseSum, Amort, Nalog, Komiss, Period); Procent := Kredit / 4 00; for i := 0 to Period 1 do begin
124. PaidArri +1. := 0; KreditArr[i +1] := 0; for j := 1 to 4 do begin
125. BProc := BaseSum * Procent;if BaseSum <> 0 thenbegin
126. KreditArri +1. := KreditArr[i +1] + BProc; PaidArr[i +1] := PaidArr[i +1] + PaidSum1. BProc;end;
127. BaseSum := BaseSum PaidSum + BProc; if BaseSum < 0 then BaseSum := 0;end; end;end;procedure TForml.BitBtn3Click(Sender: TObject); begin try
128. BSum := StrToFloat(Delta.Text); except
129. MessageDlg('Отчетный период' + #13#10 + 'Ошибка ввода только целые числа1, mtError, mbOK., 0); end;
130. BSum := StrToFloat(Osn.Text); except
131. MessageDlg(1 Стоимость основных средств1 + #13#10 + 'Ошибка ввода', mtError, mbOK., 0); end; try
132. Am := StrToFloat(Amort.Text); except
133. MessageDlg('Норма амортизационных отчислений' + #13#10 + 'Ошибка ввода', mtError, mbOK., 0); end; try
134. Nal := StrToFloat(Nalog.Text); except
135. MessageDlg('Налог на имущество' + #13#10 + 'Ошибка ввода', mtError, mbOK., 0); end; try
136. Year := StrToInt(Years.Text); except
137. MessageDlg('Срок действия договора' + #13#10 + 'Ошибка ввода только целые числа', mtError, mbOK., 0) end; try
138. Dsk := StrToFloat(Disc.Text); except
139. MessageDlg('Норма дисконта' + #13#10 + 'Ошибка ввода', mtError, mbOK., 0); end; try
140. Kr := StrToFloat(Kredit.Text); except
141. MessageDlg('Плата за кредит' + #13#10 + 'Ошибка ввода', mtError, mbOK., 0); end; try
142. Dolg := StrToFloat(Dolg.Text); except end; try
143. Speed := StrToFloat(Speed.Text); except
144. MessageDlg(1 Ускорение амортизации1 + #13#10 + 'Ошибка ввода', mtError, mbOK., 0);end; try
145. Kom := StrToFloat(Komiss.Text); except
146. MessageDlg('Комиссионное вознаграждение1 + #13#10 'Ошибка ввода1, mtError, mbOK., 0); end; try
147. PNal := StrToFloat(PNalog.Text); except
148. MessageDlg(1 Налог на прибыль' + #13#10 + 'Ошибка ввода', mtError, mbOK., 0) ; end;1. PaidArr1. NalogArr1. AmortArr1. KommArr1. KreditArr
149. VarArrayCreate(1, 1. = VarArrayCreate([1, 1] = VarArrayCreate([1, 1] = VarArrayCreate([1, 1] := VarArrayCreate([1, 1
150. VarArrayRedim(PaidArr, StrToInt ( VarArrayRedim(NalogArr, StrToInt ( VarArrayRedim(AmortArr, StrToInt( VarArrayRedim(KommArr, StrToInt( VarArrayRedim(KreditArr, StrToInt
151. VarDouble) , VarDouble) , VarDouble) , VarDouble) ., VarDouble Years.Text)) Years.Text) Years.Text) Years.Text)) ( Years.Text; ) ;;
152. DrawGraphl; DrawGraph2; DrawGraph3;
153. VarClear(PaidArr); VarClear(NalogArr); VarClear(AmortArr); VarClear(KommArr); VarClear(KreditArr); Kredit.Text := FloatToStr(Kr); end;procedure TForml.DrawGraphl; varf : Double; i : Integer; begin
154. Расчет платежей при покупке за счет собственных средств1. ClearArrays;
155. ComputeNalog(BSum, Am, Nal, 0, Year); ValuesArr1. := ComputeNPVC(BSum, Dsk, Year);
156. Расчет платежей при банковском кредите
157. СотриteBank(BSum, Am, Nal, Kr, Dolg, 0, Year); for i := 1 to Year do
158. PaidArr1. := PaidArri. + AmortArr[i] + NalogArr[ + kreditArr[i] ;
159. ValuesArr2. := ComputeNPVC(0, Dsk, Year);1.zForm := TLizForm.Create(self); LizForm.Show; end;function TForml.ComputeNPVC(BaseSum, Disc : Double;
160. ValuesArr1. := 0; f := 0; d := 0;for i := 1 to Year do begin
161. ValuesArr2. := ValuesArr[2] + f else
162. ValuesArr1. := ValuesArr1. + f;end;end;1. ЧД или ЧДДprocedure TForml.DrawGraph2; varf, d, n, с, p : Double; i : Integer; begin
163. ClearArrays; //-------------------------------------
164. Расчет платежей при покупке за счет собственных средств-------------------------------------
165. ComputeNalog(BSum, Am, Nal, 0, Year);
166. ComputeMoney(False, False); //-------------------------------------
167. Расчет платежей при банковском кредите //-------------------------------------
168. ComputeBank(BSum, Am, Nal, Kr, Dolg, 0, Year); ComputeMoney(True, False);
169. CDDForm := TCDDForm.Create(self); CDDForm. ShoWsend;
170. Сальдо реальных денег procedure TForml.DrawGraph3; varf : Double; i : Integer; begin
171. ClearArrays; //-------------------------------------
172. Расчет платежей при покупке за счет собственных средств-------------------------------------
173. ComputeNalog(BSum, Am, Nal, 0, Year); ComputeMoney(False, True); ValuesArr1. := ValuesArrl. BSum;
174. Расчет платежей при банковском кредите
175. ComputeBank(BSum, Am, Nal, Kr, Dolg, 0, Year); ComputeMoney(True, True);
176. SaldoForm := TSaldoForm.Create(self); SaldoForm.Show;end;procedure TForml.OsnChange(Sender: TObject); varf, d, Kr : Double; i, j, Delta : Integer; beginif StrToFloat(Kredit.Text) > 0 then begin
177. Cells 0, j. := IntToStr(j + 1);except
178. MessageDlg(1 Срок действия договора целое число!', mtError, mbOK., 0); end; end;1. OsnChange(Sender) end;end.unit Unit2;interfaceuses
179. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
180. Unitl, ComCtrls, ExtCtrls, StdCtrls, Buttons, Unit3type
181. TLizForm = class(TForm) sb: TStatusBar; BUp: TBevel; BitBtn2: TBitBtn; BitBtn3: TBitBtn; Labell: TLabel; ComboBoxl: TComboBox; Image: TImage;
182. TLabel; TShape; TLabel; TLabel; TShape;1.bel4 Shape3 Label2 Label3 Shape2 Shapel1. TShape;procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
183. Y: Integer); procedure FormDeactivate(Sender: TObject);
184. Public declarations } end;var1.zForm: TLizForm; implementation uses Unit4, Unit5; {$R *.DFM}procedure TLizForm.FormDeactivate(Sender: TObject); begin
185. Screen.Cursor := crDefault;end;procedure TLizForm.BitBtn2Click(Sender: TObject); begin
186. Screen.Cursor := crDefault; exit ; end;if (Y > Area.Bottom) or (Y < Area.Top) then begin
187. Screen.Cursor := crDefault; exit;end;
188. Pen.color := clBlack; Pen.width := 1; Brush.Color := clWhite; Font.Color := clBlack; Font.Size := 10; Font.Name := 'Courier New end;
189. TxtW := Image.Canvas.TextWidth('1'); TxtH := Image.Canvas.TextHeight(111); Area.Left := Image.Canvas.TextWidth('1234567'); Area.Right := Image.ClientWidth -Image.Canvas.TextWidth('123456') ;
190. HPosw. := HPos[w 1] + x; HText[w] := IntToStr(i); Image.Canvas.MoveTo(HPos[w], Image.Canvas.LineTo(HPos[w], Round(TxtH / 4));1.age.Canvas.TextOut(HPosw. Round(TxtH /3), IntToStr(i)); i := i + kst; end;1. HPosу 1. := Area.Right;
191. HTextу 1. := Forml.KomMax.Text;1.age.Canvas.TextOut(Area.Right, Area.Bottom + TxtH -Round(TxtH / 3), IntToStr(kmax));
192. Area.Bottom); Area.Bottom +1. Area.Bottom + TxtH 1. Вертикальная разметкаразмеры по вертикали (стоимость оборудования - 10%)->(стоимость оборудования * 2) with Forml do begin
193. MinY := Round(StrToFloat(0sn.Text) + StrToFloat(0sn.Text) * StrToFloat(MinProc.Text) / 100); MaxY Round(StrToFloat(0sn.Text) + » StrToFloat(0sn.Text) * StrToFloat(MaxProc.Text) / 100);end;with Image.Canvas do begin
194. MoveTo(Area.Left, Area.Bottom); LineTo(0, Area.Bottom); MoveTo(Area.Left, Area.Top); LineTo(0, Area.Top); s := FloatToStr(MinY); // Area.Left TextWidth(s) - TxtW
195. TextOut(0, Area.Bottom Round(TxtH / 2), FloatToStr(MinY));s := FloatToStr(MaxY); // Area.Left TextWidth(s) - TxtW
196. TextOut(0, Area.Top Round(TxtH / 2), FloatToStr(MaxY)); end;прочертим линии
197. TextOut(0, Area.Bottom w - Round(TxtH /2), s); // Собств. средства
198. Pen.Color := clRed; w := Round(ValuesArr1. MinY); w := Round(w / ScaleY); MoveTo(0, Area.Bottom - w); LineTo(Area.Right, Area.Bottom - w); s := FloatToStr(Round(ValuesArr1.)); // Area.Left - TextWidth(s) - TxtW
199. TextOut(0, Area.Bottom w - Round(TxtH /2), s); // Кредит
200. Pen.Color := clGreen; ^ w := Round(ValuesArr2. MinY);w := Round(w / ScaleY);1. MoveTo(0, Area.Bottom w);1.neTo(Area.Right, Area.Bottom w);s := FloatToStr(Round(ValuesArr2.));
201. TextOut(Area.Left TextWidth(s) - TxtW, Area.Bottom - w - Round(TxtH /2), s); end;
202. Forml.Kredit.Text := IntToStr(w);
203. Forml.ComputeBank(BSum, Am * Speed, Nal, w, Dolg, kmin, Year);for i := 1 to Year do
204. PaidArr1. := PaidArri. + NalogArr[i] +kreditArr1. + KommArri.; // в конце было * Кот / 100 ? ? ?f := Forml.ComputeNPVC(0, Dsk, Year);
205. Forml.ComputeBank(BSum, Am * Speed, Nal, w, Dolg, kmax, Year);for i := 1 to Year dobegin
206. Other := StrToFloat(Forml.NDS.Text);
207. PaidArr1. := PaidArri. + PaidArr[i] * Other /100;
208. PaidArr1. := PaidArri. + StrToFloat(Forml.Other.Text);
209. ComboBoxl.Itemlndex := 0; InPanel := False;
210. ButtonlClick(Sender); end;end.unit Unit3; interfaceuses Windows, SysUtils, Messages, Classes, Graphi Controls,
211. StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls; type
212. Tqr = class(TQuickRep) QRBandl: TQRBand; Image: TQRImage; privatepublicend;varqr: Tqr;implementation$R *.DFM}end.unit Unit4;interfaceuses
213. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
214. StdCtrls, Buttons, ComCtrls, ExtCtrls;type
215. Y: Integer); procedure FormCreate(Sender: TObject); procedure FormDeactivate(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private
216. Private declarations } HPos, VPos : array of Integer; HText, VText : array of String; BPressed : Boolean; Area : TRect; MinY, MaxY : Integer; ScaleX, ScaleY : Double;
217. Panel : Boblean; Origin, MovePtr : TPoint; procedure DrawGraphic; public
218. Public declarations } function ComputePaids : Double; end;var
219. Screen.Cursor := crDefault; exit; end;if (Y > Area.Bottom) or (Y < Area.Top) then begin
220. Screen.Cursor := crDefault; exit; end;
221. Caption := 'Чистый дисконтированный доход1 else
222. Caption := 'Чистый доход'; ComboBoxl.Itemlndex := 1; InPanel := False;1. DrawGraphic; end;procedure TCDDForm.DrawGraphic; vari, x, y, w, sy : Integer; p : TPoint; kmin, kmax, kst : Integer; krmin, krmax, krst : Integer;
223. TxtW, TxtH : Integer; MinProc, MaxProc : Integer; s, si : String;f, d, Other, Sobst, Banks : Double; beginsi := Forml.Kredit.Text;kmin := StrToInt(Forml.KomMin.Text);kmax := StrToInt(Forml.KomMax.Text);kst := StrToInt(Forml.Step.Text);
224. MinProc := StrToInt(Forml.MinProc.Text)
225. MaxProc := StrToInt(Forml.MaxProc.Text)y := Round((kmax kmin) / kst) ;1. SetLength(HPos, y) ;1. SetLength(HText, y);with Image.Canvas dobegin1. ETOOPAQUE; clBlack; 1;clWhite; clBlack; 10;1. Courier New
226. TextFlags Pen.color Pen.width Brush.Color Font.Color Font.Size Font.Name end;
227. TxtW := Image.Canvas.TextWidth(11'); TxtH := Image.Canvas.TextHeight(*1'); Area.Left := Image.Canvas.TextWidth('12345671); Area.Right := Image.ClientWidth -Image.Canvas.TextWidth('123456');
228. Area.Top := 2 * Image.Canvas.TextHeight('1'); Area.Bottom := Image.ClientHeight Area.Top; Image.Canvas.Rectangle(Area.Left, Area.Top, Area.Right, Area.Bottom);i := kmin + kst;1. HPos 0. := Area.Left;
229. HText0. := Forml.KomMin.Text;x := Round((Area.Right Area.Left) / y);1. Горизонтальная разметка1.age.Canvas.TextOut(Area.Left, Area.Bottom + TxtH -Round(TxtH / 3), IntToStr(kmin)); for w := 1 to у 1 do begin
230. HPosw. := HPos[w 1] + x; HText[w] := IntToStr(i);1.age.Canvas.MoveTo(HPosw., Area.Bottom) ; Image.Canvas.LineTo(HPos[w] , Area.Bottom + Round(TxtH / 4)); ♦ Image.Canvas .TextOut (HPos [w] , Area.Bottom + TxtH -
231. Round(TxtH / 3), IntToStr(i) ) ; i := i + kst; end;1. HPosу 1. := Area.Right;
232. HTextу 1. := Forml.KomMax.Text;1.age.Canvas.TextOut(Area.Right,- Area.Bottom + TxtH -Round(TxtH / 3), IntToStr(kmax));1. Вертикальная разметка
233. MaxY := -100000000; MinY := 100000000;krmin := StrToInt(Forml.KrMin.Text); krmax := StrToInt(Forml.KrMax.Text); krst := StrToInt(Forml.KrStep.Text); w := krMin;
234. Sobst := ValuesArr1.; Banks := ValuesArr2.; // Определить Max & Min Y while w <= krMax do begin
235. Forml.Kredit.Text := IntToStr(w);
236. Forml. ComputeBank (BSum, Am * Speed, Nal, w, Dolg, kmin, Year);f := CDDForm.ComputePaids;
237. Forml. ComputeBank (BSum, Am * Speed, Nal, w, Dolg, kmax, Year);d := CDDForm.ComputePaids; if Round(f) > MaxY then
238. MaxY := Round(f); if Round(d) < MinY then
239. MinY := Round(d); w := w + krst; end;1. Forml.Kredit.Text := si;with Image.Canvas do begin
240. MoveTo(Area.Left, Area.Bottom); LineTo(0, Area.Bottom); MoveTo(Area.Left, Area.Top);1.neTo (0, Area.Top); s := FloatToStr(MinY);
241. TextOut(0, Area.Bottom Round(TxtH / 2), * FloatToStr(MinY));s := FloatToStr(MaxY);
242. TextOut(0, Area.Top Round(TxtH / 2), FloatToStr(MaxY)); end;
243. ScaleY := (MaxY MinY) / (Area.Bottom - Area.Top);
244. VI.Caption := FloatToStr(Int (Sobst));
245. V2.Caption := FloatToStr(Int(Banks));1..Caption := 'Собственные средства';1..Caption := 'Банковский кредит';with Image.Canvas do begin // Собств. средстваif (Sobst <= MaxY) and (Sobst >= MinY) then begin
246. Pen.Color := clRed; w := Round(Sobst MinY); w := Round(w / ScaleY); MoveTo(0, Area.Bottom - w); ^ LineTo(Area.Right, Area.Bottom - w);s := FloatToStr(Round(Sobst));
247. TextOut(0, Area.Bottom w - Round(TxtH /2), s); end; end;
248. Расчет платежей по лизингуkrmin := StrToInt(Forml.KrMin.Text); * krmax := StrToInt(Forml.KrMax.Text);krst := StrToInt(Forml.KrStep.Text);w := krMin;si := Forml.Kredit.Text; with Image.Canvas do beginclBlue; = clBlue; = 6;1. ETO OPAQUE;
249. Pen.color Font.Color Font.Size TextFlags end;while w <= krmax do begin
250. Forml.Kredit.Text := IntToStr(w);
251. Forml.ComputeBank(BSum, Am * Speed, Nal, w, Dolg, kmin, Year);f := CDDForm.ComputePaids;
252. Screen.Cursor := crDefault;end;procedure TCDDForm.BitBtn3Click(Sender: TObject); varp : Pointer; i : Integer; s : String; beginp := AllocMem(l); i := GetTempPath(0, p); if i = 0 then s := 'c:\' else begin
253. ReallocMem(p, i + 1) ; i := GetTempPath(i + 1, p); s := StrPas(p); end;1.age.Picture.SaveToFile(s + 'xxx.bmp'); qr.Image.Picture.LoadFromFile(s + 'xxx.bmp'); qr.Print; end;end.a :: except a : = end;unit Unit5;interface uses
254. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
255. StdCtrls, Buttons, ComCtrls, ExtCtrls;type
256. Y: Integer); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormDeactivate(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private
257. Private declarations } HPos, VPos : array of Integer; HText, VText : array of String; BPressed : Boolean; Area : TRect; MinY, MaxY : Integer;
258. ScaleX, ScaleY : Double; InPanel : Boolean; Origin, MovePtr : TPoint; procedure Drawgraphic; public
259. Public declarations } end;var
260. Screen.Cursor := crDefault; exit ; end;if (Y > Area.Bottom) or (Y < Area.Top) then begin
261. Screen.Cursor := crDefault; exit; end;
262. Screen.Cursor := crCross; if BPressed then begin tryf := 0;for i := 1 to Length(HPos) do if X <= HPosi + 1. then beginf := (x HPosi - 1.) / (HPos1. - HPos[i- Шbreak; end;fsx sy
263. Caption := 'Сальдо реальных денег с учетом дисконтирования' else
264. StrToInt(Forml.KomMin.Text); StrToInt(Forml.KomMax.Text); StrToInt(Forml.Step.Text); := StrToInt(Forml.MinProc.Text); := StrToInt(Forml.MaxProc.Text); Round((kmax kmin) / kst); SetLength(HPos, y); SetLength(HText, y) ; with Image.Canvas do begin
265. ETOOPAQUE; : clBlack; : l;clWhite; : clBlack; = 10;'Courier New';
266. TextFlags Pen.color Pen.width Brush.Color Font.Color Font.Size Font.Nameend;
267. TxtW := Image.Canvas.TextWidth(•1');
268. TxtH := Image.Canvas.TextHeight(11');
269. Area.Left := Image.Canvas.TextWidth(•1234567');
270. Area.Right := Image.ClientWidth -Image.Canvas.TextWidth('123456');
271. Area.Top := 2 * Image.Canvas.TextHeight('1');
272. Area.Bottom := Image.ClientHeight Area.Top;1.age.Canvas.Rectangle(Area.Left, Area.Top, Area.Right, Area.Bottom);i := kmin + kst;1. HPos0. := Area.Left;
273. HText0. := Forml.KomMin.Text;x := Round((Area.Right Area.Left) / y);1. Горизонтальная разметка1.age.Canvas.TextOut(Area.Left, Area.Bottom + TxtH -Round(TxtH /3), IntToStr(kmin)); for w := 1 to у 1 dobegin
274. HTexty 1. := Forml.KomMax.Text;1.age.Canvas.TextOut(Area.Right, Area.Bottom + TxtH -Round(TxtH /3), IntToStr(kmax));1. Вертикальная разметка
275. Forml.Kredit.Text := IntToStr(w); Forml.ComputeBank(BSum, Am * Speed, Nal, w, Dolg, kmin, Year);f := CDDForm.ComputePaids;
276. Forml.ComputeBank(BSum, Am * Speed, Nal, w, Dolg, kmax, Year);d := CDDForm.ComputePaids; if Round(f) > MaxY then
277. MaxY := Round(f); if Round(d) < MinY then
278. MinY := Round(d); w := w + krst; end;1. Forml. Kredit.Text := si;with Image.Canvas dobegin
279. MoveTo(Area.Left, Area.Bottom); LineTo(0, Area.Bottom); MoveTo(Area.Left, Area.Top); LineTo(0, Area.Top); s := FloatToStr(MinY);
280. TextOut(0, Area.Bottom Round(TxtH / 2), FloatToStr(MinY));s := FloatToStr(MaxY);
281. TextOut(0, Area.Top Round(TxtH / 2), FloatToStr(MaxY)); end;
282. ScaleY := (MaxY MinY) / (Area.Bottom - Area.Top);
283. VI.Caption := FloatToStr(Int(Sobst));
284. TextOut(TxtW, Area.Bottom w - Round(TxtH / 2)s) ;end;end;
285. Расчет платежей по лизингуkrmin := StrToInt(Forml.KrMin.Text);krmax := StrToInt(Forml.KrMax.Text);krst := StrToInt(Forml.KrStep.Text);w := krMin;si := Forml.Kredit.Text;with Image.Canvas dobeginclBlue; clBlue; 6;1. ETO OPAQUE;
286. Pen.color Font.Color Font.Size TextFlags end;
287. PaidArr себестоимость без амортизации while w <= krmax do begin
288. Forml.Kredit.Text := IntToStr(w);
289. Forml.ComputeBank(BSum, Am * Speed, Nal, w, Dolg, kmin, Year);f := CDDForm.ComputePaids;
290. Bpressed := True; Forml.Kredit.Text := si; end;procedure TSaldoForm.FormShow(Sender: TObject); begin1. BPressed := False;end;procedure TSaldoForm.FormDeactivate(Sender: TObject); begin
291. Screen.Cursor := crDefault;end;procedure TSaldoForm.BitBtn3Click(Sender: TObject); varp : Pointer; i : Integer; s : String; beginp := AllocMem(l);i := GetTempPath(0, p); if i = 0 then s := 1c:\' else begin
292. ReallocMem(p, i + 1); i := GetTempPath(i + 1, p); s := StrPas(p); end;1.age.Picture.SaveToFile(s + 'xxx.bmp'); qr.Image.Picture.LoadFromFile(s + 'xxx.bmp'); qr.Print; end;end.1. Кредитование