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