|
1 2 3 4 5 6 7 |
&НаКлиенте Процедура ПоступлениеПередУдалением(Элемент, Отказ) Отказ = Истина; ПредупредитьОбУдаленииСтроки("Поступление", Элемент.ТекущиеДанные.НомерСтроки); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
&НаКлиенте Процедура ПредупредитьОбУдаленииСтроки(ТабличнаяЧасть, НомерСтроки) ПоказатьВопрос(Новый ОписаниеОповещения("ПредупредитьОбУдаленииСтрокиЗавершение", ЭтотОбъект, Новый Структура("ТабличнаяЧасть, НомерСтроки", ТабличнаяЧасть, НомерСтроки)), "Будет удалена вся текущая строка документа. Продолжить удаление?",РежимДиалогаВопрос.ДаНет); КонецПроцедуры &НаКлиенте Процедура ПредупредитьОбУдаленииСтрокиЗавершение(Ответ, Параметры) Экспорт ОтказОтУдаления = (Ответ = КодВозвратаДиалога.Да); Если Ответ = КодВозвратаДиалога.Да Тогда Объект[Параметры.ТабличнаяЧасть].Удалить(Параметры.НомерСтроки -1); КонецЕсли; КонецПроцедуры |