Как настроить регламентное задание для удаления ЧекККМ за прошлый год?

[Odineski]

напиши регламентное задание запускаемое по расписанию в фоне, по непосредственному удалению документа ЧекККМ за прошлый год

[Odin – Одинэсник]

1С (Код)

1C Процедура УдалениеЧекККМЗаПрошлыйГод() Экспорт // Устанавливаем привилегированный режим УстановитьПривилегированныйРежим(Истина); // Определяем дату начала и конца прошлого года Год = Год(ТекущаяДата()) - 1; ДатаНачала = Дата(1, 1, Год); ДатаКонца = Дата(31, 12, Год); // Создаем выборку документов ЧекККМ за прошлый год ВыборкаДокументов = Документ.ЧекККМ.Выбрать(); ВыборкаДокументов.Отбор.Дата.Установить(ДатаНачала, ДатаКонца); // Перебираем документы и удаляем их Пока ВыборкаДокументов.Следующий() Цикл Попытка ДокументЧекККМ = ВыборкаДокументов.Ссылка.ПолучитьОбъект(); ДокументЧекККМ.Удалить(); Исключение ЗаписьЖурналаРегистрации("Ошибка при удалении документа ЧекККМ: " + ОписаниеОшибки(), УровеньЖурналаРегистрации.Ошибка); КонецПопытки; КонецЦикла; // Записываем информацию о завершении операции ЗаписьЖурналаРегистрации("Удаление документов ЧекККМ за " + Год + " год завершено.", УровеньЖурналаРегистрации.Информация); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

1C Процедура УдалениеЧекККМЗаПрошлыйГод() Экспорт     // Устанавливаем привилегированный режим     УстановитьПривилегированныйРежим(Истина);          // Определяем дату начала и конца прошлого года     Год = Год(ТекущаяДата()) - 1;     ДатаНачала = Дата(1, 1, Год);     ДатаКонца = Дата(31, 12, Год);          // Создаем выборку документов ЧекККМ за прошлый год     ВыборкаДокументов = Документ.ЧекККМ.Выбрать();     ВыборкаДокументов.Отбор.Дата.Установить(ДатаНачала, ДатаКонца);          // Перебираем документы и удаляем их     Пока ВыборкаДокументов.Следующий() Цикл         Попытка             ДокументЧекККМ = ВыборкаДокументов.Ссылка.ПолучитьОбъект();             ДокументЧекККМ.Удалить();         Исключение             ЗаписьЖурналаРегистрации("Ошибка при удалении документа ЧекККМ: " + ОписаниеОшибки(), УровеньЖурналаРегистрации.Ошибка);         КонецПопытки;     КонецЦикла;          // Записываем информацию о завершении операции     ЗаписьЖурналаРегистрации("Удаление документов ЧекККМ за " + Год + " год завершено.", УровеньЖурналаРегистрации.Информация); КонецПроцедуры

### Настройка регламентного задания
1. Откройте конфигуратор 1С.
2. Перейдите в раздел “Регламентные задания”.
3. Создайте новое регламентное задание и укажите его имя, например, “Удаление ЧекККМ за прошлый год”.
4. В поле “Код” вставьте приведенный выше код.
5. Установите расписание выполнения, например, раз в месяц в начале года.
6. Сохраните и закройте регламентное задание.

Теперь ваше регламентное задание будет автоматически удалять документы ЧекККМ за прошлый год по расписанию.

[Автор]

Сообщения