Имя: Пароль:
1C
1С v8
E-mail для отправки сообщения в отчете
0 Casper211
 
25.03.17
23:01
Сделал отчет. Хочу отправить отчет через электронку. Проблема в автоматическом подтягивании элетронной почты получателя (получатель это параметр СКД.Контрагент). Нашел в общей форме отчетов кнопку для отправки сообщений. Как туда запихнуть этого получателя?? Как сделать чтобы автоматически подтягиваться электронная почта и сам контрагент??
1 Casper211
 
25.03.17
23:01
&НаКлиенте
Процедура ОтправитьПоЭлектроннойПочте(Команда)
    ОтображениеСостояния = Элементы.Результат.ОтображениеСостояния;
    Если ОтображениеСостояния.Видимость = Истина
        И ОтображениеСостояния.ДополнительныйРежимОтображения = ДополнительныйРежимОтображения.Неактуальность Тогда
        ТекстВопроса = НСтр("ru='Отчет не сформирован. Сформировать?';uk='Звіт не сформований. Сформувати?'");
        Обработчик = Новый ОписаниеОповещения("ОтправитьПоЭлектроннойПочтеЗавершение", ЭтотОбъект);
        ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да);
    Иначе
        ПоказатьДиалогОтправкиПоЭлектроннойПочте();
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПоказатьДиалогОтправкиПоЭлектроннойПочте()
    ТабличныеДокументы = Новый СписокЗначений;
    ТабличныеДокументы.Добавить(ЭтотОбъект.Результат, ЭтотОбъект.НаименованиеТекущегоВарианта);
    
    ФормаЗаголовок = СтрЗаменить(НСтр("ru='Отправка отчета ""%1"" по почте';uk='Відправлення звіту ""%1"" поштою'"), "%1", ЭтотОбъект.НаименованиеТекущегоВарианта);
    
    ПараметрыФормы = Новый Структура;
    ПараметрыФормы.Вставить("ТабличныеДокументы", ТабличныеДокументы);
    ПараметрыФормы.Вставить("Тема",               ЭтотОбъект.НаименованиеТекущегоВарианта);
    ПараметрыФормы.Вставить("Заголовок",          ФормаЗаголовок);
    
    ОткрытьФорму("ОбщаяФорма.ОтправкаТабличныхДокументовПоПочте", ПараметрыФормы,,, );
КонецПроцедуры

&НаКлиенте
Процедура ОтправитьПоЭлектроннойПочтеЗавершение(Ответ, ДополнительныеПараметры) Экспорт
    Если Ответ = КодВозвратаДиалога.Да Тогда
        ПоказатьДиалогОтправкиПоЭлектроннойПочте();
    КонецЕсли;
КонецПроцедуры



В печатной форме в документах это делает вот эта процедура в общем модуле "формирование печатных форм".

ЗаполнитьПараметрыОтправки(ПараметрыОтправки, ДанныеОбъектовПечати, КоллекцияПечатныхФорм)
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn