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