Имя: Пароль:
1C
1С v8
Неправильно работает отправка письма
0 remont16
 
28.01.21
15:59
При нажатии на кнопку открывается форма отправки письма. При нажатии на кнопку "отправить", все работает, письмо отправляется, но при закрытии этой формы, оно все равно отправляется. Почему так происходит и как это исправить?
1 ДенисЧ
 
28.01.21
16:01
Нужно открыть код и посмотреть процедуру ПриЗакрытии
2 remont16
 
28.01.21
16:04
(1) при закрытии ничего нет, есть только ПередЗакрытием

Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка)
    
    Если Не ЗавершениеРаботы
        И Модифицированность
        И Объект.СтатусПисьма = ПредопределенноеЗначение("Перечисление.СтатусыИсходящегоЭлектронногоПисьма.Черновик") Тогда
        
        ЕстьРедактируемыеФайлы = Ложь;
        МассивРедактируемыхФайлов = Новый Массив;
        
        Для Каждого Вложение Из Вложения Цикл
            
            Если Вложение.Редактируется Тогда
                ЕстьРедактируемыеФайлы = Истина;
                МассивРедактируемыхФайлов.Добавить(Вложение.Ссылка);
            КонецЕсли;
            
        КонецЦикла;
        
        Если ЕстьРедактируемыеФайлы Тогда
            
            Отказ                = Истина;
            СтандартнаяОбработка = Ложь;
            
            ТекстВопроса = НСтр("ru = 'Данные были изменены, Записать?'");
            ДополнительныеПараметры = Новый Структура;
            ДополнительныеПараметры.Вставить("МассивРедактируемыхФайлов", МассивРедактируемыхФайлов);
            ОповещениеПослеВопросаОЗакрытии = Новый ОписаниеОповещения("ПослеВопросаПриЗакрытии", ЭтотОбъект, ДополнительныеПараметры);
            
            ПоказатьВопрос(ОповещениеПослеВопросаОЗакрытии, ТекстВопроса, РежимДиалогаВопрос.ДаНетОтмена);
            
        КонецЕсли;
        
    КонецЕсли;
        
КонецПроцедуры
AdBlock убивает бесплатный контент. 1Сергей