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