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