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

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

Чтобы в после переноса платежей из файла СистемаБюджетов в файл ДенежныеПотокиБюджет не было необходимости задумываться какие операции нужно выполнять для получения результатов, запишите подпрограмму СозданиеПлатежногоКалендаря (рис. 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 года