Бюджетирование в 1С управление торговлей 11

Если Вас интересует автоматизация бюджетирования, внедрения казначейства или учета по МСФО — ознакомьтесь с нашим специальным предложением.

Обновление: на экзамене попалась эта задача, преподаватель сказал что делать на своем регистре — не правильно, следует использовать типовые регистры.

Установка бюджета

Информация о лимитах будет хранится в зависимом и периодическом (месяц) регистре сведений «ЛимитыПодразделений». Измерение — Подразделение, Ресурс — Сумма.

Движения в регистре будет создавать специальный документ — «БюджетПодразделения». Документ будет содержать простой набор реквизитов: табличная часть «Бюджеты», в которой будет два реквизита — «Подразделение» и «Сумма».

Пропишем простые движения для документа с помощью конструктора движений:

Движения.пкм_ЛимитыПодразделений.Записывать = Истина;
Для Каждого ТекСтрокаБюджеты Из Бюджеты Цикл
Движение = Движения.пкм_ЛимитыПодразделений.Добавить();
Движение.Период = Дата;
Движение.Подразделение = ТекСтрокаБюджеты.Подразделение;
Движение.Сумма = ТекСтрокаБюджеты.Сумма;
КонецЦикла;

Документ для заполнения бюджета готов.

Сбор фактических данных и контроль бюджета

Приступим к реализации сбора данных о платежах. Для этого создадим оборотный регистр накопления «ВыработкаБюджета». Регистратор — «СписаниеБезналичныхДенежныхСредств». Измерение  — Подразделение, ресурс — Сумма.

 

В документе «СписаниеБезналичныхДенежныхСредств» добавим новый реквизит и выведем его на форму — «ОтветственноеПодразделение». Данные о том, какое подразделение расходует денежные средства будут браться из этого реквизита:

 

Движения в регистр накопления будем писать с помощью подписки на событие — «ДвиженияВыработкаБюджета», которая привязана к событию «ОбработкаПроведения» документа «СписаниеБезналичныхДенежныхСредств «. Для обработчика данного события создадим новый общий модуль «Бюджетирование».

 

В модуле укажем следующий программный код:

Процедура ДвиженияВыработкаБюджетаОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт

//запись движений
НаборЗаписей = Источник.Движения.ВыработкаБюджета;
НоваяСтрока = НаборЗаписей.Добавить();
НоваяСтрока.Подразделение = Источник.ОтветственноеПодразделение;
НоваяСтрока.Сумма = Источник.РасшифровкаПлатежа.Итог(«Сумма»);
НоваяСтрока.Период = Источник.Дата;
НоваяСтрока.Регистратор = Источник.Ссылка;
НаборЗаписей.Записать();

// Проверка
Если НЕ ЗначениеЗаполнено(Источник.ЗаявкаНаРасходованиеДенежныхСредств) Тогда
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| пкм_ЛимитыПодразделенийСрезПоследних.Сумма КАК Лимит,
| ЕСТЬNULL(ВыработкаБюджетаОбороты.СуммаОборот,0) КАК УжеСписали
|ИЗ
| РегистрСведений.пкм_ЛимитыПодразделений.СрезПоследних(&Дата, Подразделение = &ОтветственноеПодразделение) КАК пкм_ЛимитыПодразделенийСрезПоследних
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ВыработкаБюджета.Обороты(НачалоПериода(&Дата, Месяц), &Дата, , Подразделение = &ОтветственноеПодразделение) КАК ВыработкаБюджетаОбороты
| ПО пкм_ЛимитыПодразделенийСрезПоследних.Подразделение = ВыработкаБюджетаОбороты.Подразделение»;

Запрос.УстановитьПараметр(«Дата», Источник.Дата);
Запрос.УстановитьПараметр(«ОтветственноеПодразделение», Источник.ОтветственноеПодразделение);

Выборка = Запрос.Выполнить().Выбрать();

Если Выборка.Следующий() Тогда
Если Выборка.УжеСписали > Выборка.Лимит Тогда
Отказ = Истина;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр(«ru = ‘Невозможно провести документ, исчерпан лимит! Возможный лимит » + Выборка.Лимит + «, уже израсходовано » + Выборка.УжеСписали + «‘»);
КонецЕсли;
КонецЕсли;
КонецЕсли;

КонецПроцедуры

Сделано для внесение минимальный изменений в модуль типового объекта. Первая часть программного кода делает записи в регистр,  а вторая проверяет возможно ли проведение или нет. Проверка отрабатывает только в том случае, когда документ создан без заявки на расходование средств.

Если подразделение превысит бюджет — система выдаст соответствующее сообщение:

Отчет по бюджету

Отчет по бюджету будем делать как внешний, дополнительный отчет. Для этого сделаем простой отчет на СКД. Данные будут браться из следующего запроса:

ВЫБРАТЬ
ВыработкаБюджетаОбороты.Подразделение,
ВЫБОР
КОГДА пкм_ЛимитыПодразделенийСрезПоследних.Сумма — ВыработкаБюджетаОбороты.СуммаОборот > 0
ТОГДА пкм_ЛимитыПодразделенийСрезПоследних.Сумма — ВыработкаБюджетаОбороты.СуммаОборот
ИНАЧЕ 0
КОНЕЦ КАК ОстатокЛимита,
ВЫБОР
КОГДА ВыработкаБюджетаОбороты.СуммаОборот — пкм_ЛимитыПодразделенийСрезПоследних.Сумма > 0
ТОГДА ВыработкаБюджетаОбороты.СуммаОборот — пкм_ЛимитыПодразделенийСрезПоследних.Сумма
ИНАЧЕ 0
КОНЕЦ КАК Перерасход,
пкм_ЛимитыПодразделенийСрезПоследних.Сумма КАК Лимит,
ВыработкаБюджетаОбороты.СуммаОборот КАК Выработка
ИЗ
РегистрСведений.пкм_ЛимитыПодразделений.СрезПоследних(КОНЕЦПЕРИОДА(&Период, МЕСЯЦ), ) КАК пкм_ЛимитыПодразделенийСрезПоследних
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ВыработкаБюджета.Обороты(НАЧАЛОПЕРИОДА(&Период, МЕСЯЦ), КОНЕЦПЕРИОДА(&Период, МЕСЯЦ), , ) КАК ВыработкаБюджетаОбороты
ПО пкм_ЛимитыПодразделенийСрезПоследних.Подразделение = ВыработкаБюджетаОбороты.Подразделение

Необходимо вывести в форму отчета параметр — &Период. Сделать настройки оформления СКД.

Проверяем отчет:

Встраиваем отчет в конфигурацию

Встроим отчет в конфигурацию. Для это воспользуемся механизмов внешних обработок и отчетов. Для этого необходимо подготовить отчет, встроим в модуль объекта техническую функцию механизма внешних обработок:

Функция СведенияОВнешнейОбработке() Экспорт

РегистрационныеДанные = Новый Структура;
РегистрационныеДанные.Вставить(«Наименование», «Бюджет подразделений»);
РегистрационныеДанные.Вставить(«БезопасныйРежим», Ложь);
РегистрационныеДанные.Вставить(«Версия», «1.0»);
РегистрационныеДанные.Вставить(«ВерсияБСП», «1.2.1.4»);

РегистрационныеДанные.Вставить(«Вид», «ДополнительныйОтчет»);

РегистрационныеДанные.Вставить(«Информация», «Отчет по бюджету подразделений»);

ТЗКоманд = Новый ТаблицаЗначений;
ТЗКоманд.Колонки.Добавить(«Идентификатор»);
ТЗКоманд.Колонки.Добавить(«Представление»);
ТЗКоманд.Колонки.Добавить(«Модификатор»);
ТЗКоманд.Колонки.Добавить(«ПоказыватьОповещение»);
ТЗКоманд.Колонки.Добавить(«Использование»);

СтрокаКоманды = тзКоманд.Добавить();
СтрокаКоманды.Идентификатор = Новый УникальныйИдентификатор;
СтрокаКоманды.Представление = «Отчет по бюджету подразделений»;
СтрокаКоманды.ПоказыватьОповещение = Истина;
СтрокаКоманды.Использование = «ОткрытиеФормы»;

СтрокаКоманды = тзКоманд.Добавить();
СтрокаКоманды.Идентификатор = Новый УникальныйИдентификатор;
СтрокаКоманды.Представление = «Отчет по бюджету подразделений»;
СтрокаКоманды.ПоказыватьОповещение = Истина;
СтрокаКоманды.Использование = «ВызовСерверногоМетода»;

РегистрационныеДанные.Вставить(«Команды», ТЗКоманд);

Возврат РегистрационныеДанные;

КонецФункции

После этого, вы сможете добавить свой отчет в справочник «Дополнительные отчеты и обработки«:

 

Расположим наш отчет на вкладке «Финансы»: