Из месяца в месяц. АРМ для копирования услуг предыдущего периода. Получение данных из динамического списка.
Это обработка может быть вам полезна если вам приходится из месяца в месяц создавать (копировать) в своей однотипные документы об оказании услуг и отправлять акты по почте заказчику.
Или как интересный пример работы с динамическими списками через компоновку данных.
На странице отбора отбираем в динамическом списке с помощью флагов пометки нужные документы в нужном периоде. Доступны любые отборы в настройке списка, например по контрагенту.
На странице «Документы к отсылке» нажимаем кнопку «копировать».
Копии отобранных документов создаются в текущем периоде и появляются в динамическом списке.
Отбираем в динамическом списке с помощью флагов пометки нужные документы в текущем периоде, и по кнопке «Отправка» они уходят на электронную почту контрагентов.
Флаг «Пользователь в копии» - текущий пользователь получит копию писем.
Строка Дополнительная копия — почтовые адреса через запятую для получения копии писем. Может понадобиться для контроля.
Перед началом работы откройте обработку в конфигураторе.
//В модуле формы в функции Функция ОтправитьПочтовоеСообщение(ПараметрыПисьма):
Функция ОтправитьПочтовоеСообщение(ПараметрыПисьма):
// ….. Замените на ваши настройки.
Письмо.ИмяОтправителя = "1С робот";
Почта = Новый ИнтернетПочта;
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "*********";
Профиль.ПарольSMTP = "********";
Профиль.ПользовательSMTP = "*********";
Профиль.ПортSMTP = 9090;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
// ….. Замените на ваши настройки
//В модуле формы в функции Функция ПодготовитьПараметрыПисьма(ДокументСсылка):
Функция ПодготовитьПараметрыПисьма(ДокументСсылка)
// ….. Замените шаблон на Ваши настройки.
ТекстОтправки = "Добрый день! &ДатаДок ИСПОЛНИТЕЛЬ передает &ЗАКАЗЧИК затраты по услугам за МЕСЯЦ в сумме &СуммаДокСНДС в т.ч НДС по БУ 20% &СуммаНДС";
// ….. Замените шаблон на Ваши настройки.
В редких случаях Вам, возможно, придется подправить макет акта об услугах.
Для программистов может быть интересен код получения списка документов из динамического списка:
&НаСервере
Процедура ПолучитьСписокВсехДокументовВПериодеОтбора(СписокДокументов)
Перем КомпоновщикМакета, МакетКомпоновки, Настройки, ПроцессорВывода, ПроцессорКомпоновки, Схема, ТаблицаРезультат;
Схема = Элементы.СписокИсходныхДокументов.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
Настройки = Элементы.СписокИсходныхДокументов.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки, , ,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ТаблицаРезультат = ПроцессорВывода.Вывести(ПроцессорКомпоновки);
СписокДокументов = ТаблицаРезультат.ВыгрузитьКолонку("Ссылка");
КонецПроцедуры
Публикации автора (infostart.ru)
Другие разработки автора:
Проверено на следующих конфигурациях и релизах:
- 1С:ERP Управление предприятием 2, релизы 2.5.17.101
