Главная Обратная связь

Дисциплины:

Архитектура (936)
Биология (6393)
География (744)
История (25)
Компьютеры (1497)
Кулинария (2184)
Культура (3938)
Литература (5778)
Математика (5918)
Медицина (9278)
Механика (2776)
Образование (13883)
Политика (26404)
Правоведение (321)
Психология (56518)
Религия (1833)
Социология (23400)
Спорт (2350)
Строительство (17942)
Технология (5741)
Транспорт (14634)
Физика (1043)
Философия (440)
Финансы (17336)
Химия (4931)
Экология (6055)
Экономика (9200)
Электроника (7621)






Создание платежного календаря



Последовательность выполнения расчетов

Чтобы в после переноса платежей из файла СистемаБюджетов в файл ДенежныеПотокиБюджет не было необходимости задумываться какие операции нужно выполнять для получения результатов, запишите подпрограмму СозданиеПлатежногоКалендаря (рис. 26.7.) в файле СистемаБюджетов. Задача этой подпрограммы заключается в последовательном запуске на выполнение процедур файла ДенежныеПотокиБюджет для получения отчетов, а в частности:

  • отчета о суммарных оборотов на листе СуммПотоки;
  • отчета о параметрах кредитной линии при нехватке денежных средств;
  • платежного календаря

В начале подпрограммы запускается таймер и по окончанию всплывает пользовательское диалоговое окно с указанием времени выполнения программы. Эти строки кода VBA создаются копированием из подпрограммы ПолныйРасчетДенежныхПотоков (рис. 21.10.) первой и двух последних строк с последующим редактированием последней строки. Обратите внимание - в строке функции MsgBox указано числовое значение второго аргумента (buttons) равное 48. В этом случае пользовательское диалоговое окно появляется с предупреждающим значком .

Рис. 26.7. Подпрограмма подготовки отчетов по прогнозируемым денежным потокам

Для записи подпрограммы СозданиеПлатежногоКалендаря выполните следующие действия изначально находясь в файле СистемаБюджетов:

  • перейдите на листе ИсхДанные и нажмите кнопку Полный расчет листа ИсхДанные, что запустит на выполнение макрос ПолныйРасчетИсхДанные для перерасчета таблицы на этом листе;
  • перейдите на лист СуммПотоки и нажмите на кнопку Денежные потоки ЭКВИВАЛЕНТ для запуска Подпрограммы ДенежныеПотокиБюджет. В результате выполнения макроса на рабочем листе СуммПотоки будет создана таблица ежедневных оборотов и остатков денежных средств (рис. 26.8). Остаток денежных средств по состоянию на 1 августа (конец планируемого периода) в созданной таблице меньше остатка по БДДС на 8 копеек. Это расхождение получено в результате округлений при проведении вычислений;
  • перейдите на лист Кредит и с помощью кнопки Параметры кредитной линии запустите на выполнение подпрограмму ПараметрыДополнительногоКредита. На листе Кредит будет создана таблица (рис. 26.9.), показывающая возможную ежедневно изменяющуюся нехватку денежных средств и возможность их ежедневного возврата в случае привлечения внешних ресурсов, а также сумму начисленных процентов при таком развитии событий. Эта же подпрограмма произведет расчеты для создания диаграммы возможного привлечения и погашения кредитных ресурсов на листе Диаграмма2 (рис. 26.10.);
  • перейдите на лист ПК и в ячейку D2 введите формулу определения месяца периода, за который требуется сформировать платежный календарь:
  • =МЕСЯЦ([СистемаБюджетов.xls]Пульт!$F$2)

После этого нажмите кнопку Заполнение платежного календаря, которой назначен подпрограмма ЗаполнениеПлатежногоКалендаря. На рис. 26.11. показан фрагмент сформированного планового платежного календаря за июль 2003 года.



Рис. 26.8. Таблица ежедневных оборотов и остатков денежных средств

Рис. 26.9. Параметры недостающих денежных средств и начисленным процентам при условии привлечения кредитной линии

Рис. 26.10. График возможного привлечения внешних денежных ресурсов, их возврата и суммарной задолженности

Рис. 26.11. Сформированный платежный календарь на июль 2003 года

Рис. 26.12. График планируемого движения денежных потоков за июль 2003 года


Просмотров 369

Эта страница нарушает авторские права

allrefrs.ru - 2021 год. Все права принадлежат их авторам!