По теме из базы знаний
- Рассылка расчетных листков для ЗУП 2.5
- Неиспользованные отпуска за период, положенный отпуск, использованный отпуск, остаток отпусков для ЗУП 3, КА 2, ERP
- Сравнение значений констант - поиск расхождений в настройках двух баз. Розница, УТ, КА, ЕРП, ЗУП и другие конфигурации
- Рассылка уведомлений из ЗУП Проф
- Почтовый клиент для стандартных конфигураций 1С (Бухгалтерия 3.0, УНФ 3.0, ЗУП 3.1)
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Можно сделать что бы они удалялись из базы после отправки. Например в процедуре при записи
Если статус письма = отправлено тогда
Объект. Удалить() ;
Отказ =истина;
Конецесли
Но лучше сделать регламентное задание которое будет удалять письма старше Н дней, что бы можно было понимать отправлялись оно или нет
Если статус письма = отправлено тогда
Объект. Удалить() ;
Отказ =истина;
Конецесли
Но лучше сделать регламентное задание которое будет удалять письма старше Н дней, что бы можно было понимать отправлялись оно или нет
(8) Добавляешь в общий модуль процедуру
Добавляешь регламентное задание. Указываешь выполнять эту процедуру. Ставишь глаки использовать и предопределенный. Указываешь расписание.
Обновляешь и радуешься
Процедура УдалениеУстаревшихПисем() Экспорт
ДатаОкончания = ТекущаяДата() - 7 *86400;
выборка = Документы.ЭлектронноеПисьмоИсходящее.Выбрать(,ДатаОкончания);
Пока выборка.Следующий() Цикл
ТекущийОбъект = выборка.ПолучитьОбъект();
ТекущийОбъект.Удалить();
КонецЦикла;
КонецПроцедуры
ПоказатьДобавляешь регламентное задание. Указываешь выполнять эту процедуру. Ставишь глаки использовать и предопределенный. Указываешь расписание.
Обновляешь и радуешься
тогда добавляем
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.Ссылка
|ИЗ
| Справочник.ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы КАК ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы
|ГДЕ
| ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.ДатаСоздания < &ДатаСоздания";
Запрос.УстановитьПараметр("ДатаСоздания", ДатаОкончания);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Пока РезультатЗапроса.Следующий() цикл
ТекущийОбъект = РезультатЗапроса.Ссылка.ПолучитьОбъект();
ТекущийОбъект.Удалить();
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот