База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как настроить регламентное задание для удаления ЧекККМ за прошлый год? › RE: Как настроить регламентное задание для удаления ЧекККМ за прошлый год?
3 февраля 2025 в 8:15
#31413
1C
Процедура УдалениеЧекККМЗаПрошлыйГод() Экспорт
// Устанавливаем привилегированный режим
УстановитьПривилегированныйРежим(Истина);
// Определяем дату начала и конца прошлого года
Год = Год(ТекущаяДата()) - 1;
ДатаНачала = Дата(1, 1, Год);
ДатаКонца = Дата(31, 12, Год);
// Создаем выборку документов ЧекККМ за прошлый год
ВыборкаДокументов = Документ.ЧекККМ.Выбрать();
ВыборкаДокументов.Отбор.Дата.Установить(ДатаНачала, ДатаКонца);
// Перебираем документы и удаляем их
Пока ВыборкаДокументов.Следующий() Цикл
Попытка
ДокументЧекККМ = ВыборкаДокументов.Ссылка.ПолучитьОбъект();
ДокументЧекККМ.Удалить();
Исключение
ЗаписьЖурналаРегистрации("Ошибка при удалении документа ЧекККМ: " + ОписаниеОшибки(), УровеньЖурналаРегистрации.Ошибка);
КонецПопытки;
КонецЦикла;
// Записываем информацию о завершении операции
ЗаписьЖурналаРегистрации("Удаление документов ЧекККМ за " + Год + " год завершено.", УровеньЖурналаРегистрации.Информация);
КонецПроцедуры
### Настройка регламентного задания
1. Откройте конфигуратор 1С.
2. Перейдите в раздел «Регламентные задания».
3. Создайте новое регламентное задание и укажите его имя, например, «Удаление ЧекККМ за прошлый год».
4. В поле «Код» вставьте приведенный выше код.
5. Установите расписание выполнения, например, раз в месяц в начале года.
6. Сохраните и закройте регламентное задание.
Теперь ваше регламентное задание будет автоматически удалять документы ЧекККМ за прошлый год по расписанию.