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

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

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

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

    База знаний 1С