Обработка заполняет табличную часть документами, в которых включен флаг "Ручная корректировка". Иногда нужно для поиска и исправления действий "опытных" бухгалтеров. Проверено на 1С:Бухгалтерия 3.0.47.33.
В обработке реализован следующий код:
&НаСервере
Процедура НайтиДоктыНаСервере()
Объект.Докты.Очистить();
Для каждого МетаДок Из Метаданные.Документы Цикл
ИмяДокумента = МетаДок.Имя;
Если МетаДок.Реквизиты.Найти("РучнаяКорректировка")<>НЕОПРЕДЕЛЕНО Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| " + ИмяДокумента + ".Ссылка,
| " + ИмяДокумента + ".Дата,
| " + ИмяДокумента + ".Проведен,
| " + ИмяДокумента + ".РучнаяКорректировка,
| " + ИмяДокумента + ".ПометкаУдаления
|ИЗ
| Документ." + ИмяДокумента + " КАК " + ИмяДокумента + "
|ГДЕ
| " + ИмяДокумента + ".Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
| И " + ИмяДокумента + ".РучнаяКорректировка = &Истина";
Запрос.УстановитьПараметр("ДатаНачала", Объект.ПериодОбработки.ДатаНачала);
Запрос.УстановитьПараметр("ДатаОкончания", Объект.ПериодОбработки.ДатаОкончания);
Запрос.УстановитьПараметр("Истина", Истина);
РезультатЗапроса = Запрос.Выполнить();
ВДЗ = РезультатЗапроса.Выбрать();
Пока ВДЗ.Следующий() Цикл
НС = Объект.Докты.Добавить();
ЗаполнитьЗначенияСвойств(НС, ВДЗ);
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
---------------------
ВНИМАНИЕ!!! Обработка запускается через файл-открыть. Для пользователя должно быть доступна возможность открытия внешних обработок.
