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

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

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

В наличии

Всем привет!

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

Категория:

Описание

В интернете есть много примеров, где используется глобальная переменная и метод удаление вызывается два раза, первый раз для вопроса пользователю, а второй непосредственно для удаления. Этот вариант мне показался сильно замудренный.

Для демонстрации создадим чистую конфигурацию. В свойствах конфигурации проверяем факт отключения режима модальности.

 

 

 

 

 

 

Создадим документ с именем Документ1. В объекте Документ1 добавим табличную часть с именем ТабличнаяЧасть1. В этой табличной части для демонстрации добавляем реквизит Реквизит1 с типом Строка длинной 10 символов.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Создаем форму документа, для табличной части ТабличнаяЧасть1 создаем событие ПередУдалением(Элемент, Отказ).

В данное событие прописываем код, где в первую очередь отказываемся от стандартной процедуры удаления: Отказ = Истина;

Далее создаем оповещение на процедуру УдалениеСтроки с передачей одного параметра, который содержит текущий элемент коллекции ДанныеФормыКоллекция (Элементы.ТабличнаяЧасть1.ТекущиеДанные). Код оповещения получился таким:

Оповещение = Новый ОписаниеОповещения("УдалениеСтроки", 
		ЭтотОбъект,
 		Элементы.ТабличнаяЧасть1.ТекущиеДанные);

Далее показываем вопрос пользователю:

ПоказатьВопрос(Оповещение, 
		"Удалить?", 
		РежимДиалогаВопрос.ДаНет);

 

 

 

 

 

 

 

 

 

 

В результате получили процедуру кодом:

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

На стороне клиента создаем экспортную процедуру УдалениеСтроки(Результат, ДополнительныеПараметры).

Сначала проверяем, что нажал пользователь Да или Нет. Если пользователь нажал кнопку Да, то строчкой кода Объект.ТабличнаяЧасть1.Удалить(ДополнительныеПараметры); удаляем из коллекции ДанныеФормыКоллекция текущий элемент переданный в параметр ДополнительныеПараметры.

После строки удаления прописываем код установки факта Модифицированности: Модифицированность = Истина; 

В результате получили процедуру с кодом:

&НаКлиенте
Процедура УдалениеСтроки(Результат, ДополнительныеПараметры) Экспорт 

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

КонецПроцедуры

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

Пример проверен на платформе 1С:Предприятие 8.3 (8.3.14.1565).

has been added to your cart:
Оформление заказа