Поставленная задача.
Необходимо удалить все документы по списку контрагентов. По каждому контрагенту есть документы от 500 шт. до 2000 шт. Полученную базу передать ...
Варианты решения:
1. Пометить контрагента на удаление и удалить документы через стандартную обработку Удаление помеченных объектов. - Долго по времени
2. Через обработку Групповое изменение реквизитов установить флаг пометки на удаление. Далее п.1. Учитывая что Контрагент может быть в различных реквизитах: Плательщик, Покупатель, Поставщик и тд. - Вообще не вариант
3. Написать собственную обработку
Реализация:
Получаем список всех объектов метаданных
Для Каждого Элемент из Метаданные.Документы Цикл
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ Ссылка ИЗ [ИмяВМетаданных]";
Запрос.Текст = СтрЗаменить(Запрос.Текст, "[ИмяВМетаданных]", Элемент.ПолноеИмя());
чКоличествоЗаписей = Запрос.Выполнить().Выгрузить().Количество();
...
Находим реквизиты где Тип("СправочникСсылка.Контрагенты")
Для Каждого Реквизит Из Метаданные.Документы[Элемент.Имя].Реквизиты Цикл
Если Реквизит.Тип.СодержитТип(Тип("СправочникСсылка.Контрагенты")) Тогда
...
КонецЕсли;
КонецЦикла;
Находим реквизиты в Табличных частях где Тип("СправочникСсылка.Контрагенты")
Для каждого ТабЧасть ИЗ Элемент.ТабличныеЧасти Цикл
Для Каждого Реквизит Из ТабЧасть.Реквизиты Цикл
Если Реквизит.Тип.СодержитТип(Тип("СправочникСсылка.Контрагенты")) Тогда
...
КонецЕсли;
КонецЦикла;
КонецЦикла;
Далее находим, в каких документах и каких табличных частях указан выбранный контрагент
Не забываем, что контрагент может быть указан в табличных частях
Ну а далее помечаем на удаление или удаляем физически. Как вам больше нравится.
Если ДокументОбъект.Проведен Тогда
ДокументОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
КонецЕсли;
ДокументОбъект.ОбменДанными.Загрузка = Истина;
ДокументОбъект.Удалить();
При удалении записей по контрагенту в табличных частях документ перезаписывается.
Протестировано:
- на платформе 1С:Предприятие 8.3 (8.3.27.1688);
- на различных конфигурациях, типовых и не типовых, самописных. Единственное требование управляемые формы и наличие справочника Контрагенты.
Возможные проблемы:
При отмене проведения документа может возникнуть ошибка, при проверке логической целостности если такая проверка установлена на уровне модуля объекта.
Например:
Номенклатура Мясорубка
Отгружено со склада Бытовая техника больше, чем указано в распоряжении на отгрузку, на 4 шт
Проверено на следующих конфигурациях и релизах:
- Бухгалтерия предприятия, редакция 3.0, релизы 3.0.206.19
- Зарплата и управление персоналом, редакция 3.1, релизы 3.1.38.92
- Управление торговлей, редакция 11, релизы 11.6.1.64
- 1С:Комплексная автоматизация 2, релизы 2.6.1.64
Вступайте в нашу телеграмм-группу Инфостарт