Различия

Здесь показаны различия между двумя версиями данной страницы.

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