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