Различия

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

Ссылка на это сравнение

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