Geum.ru
Темы диссертаций по экономике » Экономика и управление народным хозяйством: теория управления экономическими системами; макроэкономика; экономика, организация и управление предприятиями, отраслями, комплексами; управление инновациями; региональная экономика; логистика; экономика труда

Разработка методики обоснования и оптимизации использования лизинга на предприятиях текстильной промышленности тема диссертации по экономике, полный текст автореферата

Ученая степень кандидат экономических наук
Автор Савоскул, Антонина Владимировна
Место защиты Москва
Год 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. Кредитование

Похожие диссертации