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

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

Привет, hzhz!

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

**Цель:** Удаление документов ЧекККМ, созданных в прошлом году, для оптимизации базы данных и освобождения места.

**Шаги выполнения:**

1. **Подготовка:**
— Убедитесь, что у вас есть права на удаление документов.
— Создайте резервную копию базы данных перед выполнением операции.

2. **Создание запроса на удаление:**
— Откройте конфигуратор 1С.
— Перейдите в модуль, где будет выполняться удаление.
— Напишите следующий код для выполнения запроса на удаление:

1С (Код)

1C Процедура УдалитьЧекККМ() // Определяем дату начала и конца прошлого года НачДата = НачалоГода(ТекущаяДата()) - 1; КонДата = КонецГода(НачДата); // Создаем запрос на выборку документов ЧекККМ за прошлый год Запрос = Новый Запрос("ВЫБРАТЬ ЧекККМ.Ссылка ИЗ Документ.ЧекККМ КАК ЧекККМ ГДЕ ЧекККМ.Дата >= &НачДата И ЧекККМ.Дата <= &КонДата"); Запрос.УстановитьПараметр("НачДата", НачДата); Запрос.УстановитьПараметр("КонДата", КонДата); // Выполняем запрос Выборка = Запрос.Выполнить().Выбрать(); // Удаляем найденные документы Пока Выборка.Следующий() Цикл ОбъектДокумент = Выборка.Ссылка.ПолучитьОбъект(); ОбъектДокумент.Удалить(); КонецЦикла; Сообщить("Документы ЧекККМ за прошлый год успешно удалены."); КонецПроцедуры

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

1C    Процедура УдалитьЧекККМ()        // Определяем дату начала и конца прошлого года        НачДата = НачалоГода(ТекущаяДата()) - 1;        КонДата = КонецГода(НачДата);               // Создаем запрос на выборку документов ЧекККМ за прошлый год        Запрос = Новый Запрос("ВЫБРАТЬ ЧекККМ.Ссылка ИЗ Документ.ЧекККМ КАК ЧекККМ ГДЕ ЧекККМ.Дата >= &НачДата И ЧекККМ.Дата <= &КонДата");        Запрос.УстановитьПараметр("НачДата", НачДата);        Запрос.УстановитьПараметр("КонДата", КонДата);               // Выполняем запрос        Выборка = Запрос.Выполнить().Выбрать();               // Удаляем найденные документы        Пока Выборка.Следующий() Цикл            ОбъектДокумент = Выборка.Ссылка.ПолучитьОбъект();            ОбъектДокумент.Удалить();        КонецЦикла;               Сообщить("Документы ЧекККМ за прошлый год успешно удалены.");    КонецПроцедуры

3. **Запуск процедуры:**
— Запустите процедуру УдалитьЧекККМ() из модуля.

4. **Проверка результатов:**
— Проверьте, что документы были удалены, выполнив запрос на выборку документов ЧекККМ за прошлый год.

5. **Отчетность:**
— Подготовьте отчет о выполненных действиях и сохраните его в архив.

**Примечание:** Убедитесь, что удаляемые документы не имеют связанных операций, которые могут повлиять на учет.

—

Если у вас есть дополнительные вопросы или нужна помощь, дайте знать!