Страницы

01 марта 2020

Удаление записи из табличной части в режиме без использования модальности

Всем привет! Появилась необходимость в написании кода удаления записи из табличной части с обратной связью в режиме без использования модальности. Но как правильно сделать нигде не нашел. Предлагаю свой вариант.




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

 Если Результат = КодВозвратаДиалога.Да Тогда
   Объект.ТабличнаяЧасть1.Удалить(ДополнительныеПараметры);
  Модифицированность = Истина;
  КонецЕсли; 

КонецПроцедуры
Результат полного кода представлен на рисунке ниже.



Комментариев нет:

Отправить комментарий