Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия | Следующая версия Следующая версия справа и слева | ||
common_all:priemyraboty:algoritms [2020/03/17 14:54] alexander [Поиск ключа в структуре и заполнение из найденого переменной] |
common_all:priemyraboty:algoritms [2022/04/27 11:56] alexander |
||
---|---|---|---|
Строка 162: | Строка 162: | ||
КонецФункции</code> | КонецФункции</code> | ||
+ | |||
+ | ===== Подтверждение записи документа ===== | ||
+ | |||
+ | <code>&НаКлиенте | ||
+ | Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) | ||
+ | ПроверитьПередЗаписью(Отказ, ПараметрыЗаписи); | ||
+ | КонецПроцедуры | ||
+ | |||
+ | &НаКлиенте | ||
+ | Процедура ПроверитьПередЗаписью(Отказ, ПараметрыЗаписи)() | ||
+ | |||
+ | Если ПараметрыЗаписи.Свойство("ПропуститьПроверку") | ||
+ | И ПараметрыЗаписи.ПропуститьПроверку Тогда | ||
+ | Возврат; | ||
+ | КонецЕсли; | ||
+ | НеобходимоПодтверждение = ПроверкаНеобходимостиПодтверждения(); | ||
+ | Если НЕ НеобходимоПодтверждение Тогда | ||
+ | Возврат; | ||
+ | КонецЕсли; | ||
+ | Отказ = Истина; // Примем решение позже, в зависимости от ответа пользователя | ||
+ | ТекстВопроса = "Записать не смотря на результат проверки"; | ||
+ | ПоказатьВопрос(Новый ОписаниеОповещения("ВопросЗаписатьДокументПродолжение", ЭтотОбъект, ПараметрыЗаписи), ТекстВопроса, РежимДиалогаВопрос.ДаНет); | ||
+ | |||
+ | КонецПроцедуры | ||
+ | |||
+ | &НаКлиенте | ||
+ | Процедура ВопросЗаписатьДокументПродолжение(Ответ, ПараметрыЗаписи) Экспорт | ||
+ | |||
+ | Если Ответ = КодВозвратаДиалога.Да Тогда | ||
+ | ПараметрыЗаписи.Вставить("ПропуститьПроверку", Истина); | ||
+ | Записать(ПараметрыЗаписи); | ||
+ | Если ПараметрыЗаписи.Свойство("Закрыть") | ||
+ | И ПараметрыЗаписи.Закрыть Тогда | ||
+ | Закрыть(); | ||
+ | КонецЕсли; | ||
+ | КонецЕсли; | ||
+ | |||
+ | КонецПроцедуры</code> | ||
===== Проверка наличия реквизита в документе ===== | ===== Проверка наличия реквизита в документе ===== |