Различия

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

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