-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
20 changed files
with
4,983 additions
and
4,022 deletions.
There are no files selected for viewing
Binary file not shown.
Large diffs are not rendered by default.
Oops, something went wrong.
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,94 @@ | ||
|
||
&НаСервере | ||
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) | ||
|
||
ОписаниеДанных = Параметры.ОписаниеДанных; | ||
|
||
МассивРеквизитов = Новый Массив; | ||
|
||
Для Каждого Колонка из ОписаниеДанных Цикл | ||
|
||
РеквизитФормы = Новый РеквизитФормы(Колонка.Имя, Новый ОписаниеТипов(Колонка.Тип)); | ||
//РеквизитФормы = Новый РеквизитФормы(Колонка.Имя, Новый ОписаниеТипов(Колонка.ТипЗначения, , "NULL"), ИмяТаблицы); | ||
МассивРеквизитов.Добавить(РеквизитФормы); | ||
|
||
КонецЦикла; | ||
|
||
ЭтаФорма.ИзменитьРеквизиты(МассивРеквизитов); | ||
|
||
Обработка = ПолучитьОбработку(); | ||
|
||
Для Каждого Реквизит Из ОписаниеДанных Цикл | ||
|
||
ОписаниеЭлемента = Новый Структура; | ||
|
||
ОписаниеЭлемента.Вставить("Вид", ВидПоляФормы.ПолеВвода); | ||
|
||
Обработка.ДополнитьСтруктуру(ОписаниеЭлемента, Реквизит); | ||
|
||
Если Реквизит.Свойство("Вид") И ТипЗнч(Реквизит.Вид) = Тип("Строка") Тогда | ||
ОписаниеЭлемента.Вставить("Вид", Вычислить("ВидПоляФормы." + Реквизит.Вид)); | ||
КонецЕсли; | ||
Если Реквизит.Свойство("ВидПереключателя") И ТипЗнч(Реквизит.ВидПереключателя) = Тип("Строка") Тогда | ||
ОписаниеЭлемента.Вставить("ВидПереключателя", Вычислить(Реквизит.ВидПереключателя)); | ||
КонецЕсли; | ||
|
||
ОписаниеЭлемента.Вставить("Имя", Реквизит.Имя); | ||
ОписаниеЭлемента.Вставить("Тип", Тип("ПолеФормы")); | ||
ОписаниеЭлемента.Вставить("ПутьКДанным", Реквизит.Имя); | ||
|
||
Обработка.СоздатьЭлементыУправления(ЭтаФорма, , ОписаниеЭлемента, Элементы.ГруппаРеквизиты); | ||
|
||
Если Реквизит.Свойство("Значение") Тогда | ||
ЭтаФорма[Реквизит.Имя] = Реквизит.Значение; | ||
КонецЕсли; | ||
|
||
КонецЦикла; | ||
|
||
Если Параметры.Свойство("Заголовок") Тогда | ||
Заголовок = Параметры.Заголовок; | ||
КонецЕсли; | ||
|
||
КонецПроцедуры | ||
|
||
&НаСервереБезКонтекста | ||
Функция ПолучитьОбработку(Знач СостояниеАдрес = Неопределено) | ||
|
||
Обработка = ВнешниеОбработки.Создать("CodeConsole83"); | ||
|
||
Если СостояниеАдрес <> Неопределено Тогда | ||
Обработка.ВосстановитьСостояние(СостояниеАдрес); | ||
КонецЕсли; | ||
|
||
Возврат Обработка; | ||
|
||
КонецФункции // ПолучитьОбработку() | ||
|
||
&НаКлиенте | ||
Процедура Сохранить(Команда) | ||
|
||
Успешно = Истина; | ||
|
||
Результат = Новый Структура; | ||
Для Каждого Реквизит Из Параметры.ОписаниеДанных Цикл | ||
Если НЕ ЗначениеЗаполнено(ЭтаФорма[Реквизит.Имя]) И Реквизит.Обязательное Тогда | ||
|
||
Сообщение = Новый СообщениеПользователю; | ||
Сообщение.Текст = СтрШаблон("Не заполнено обязательное поле ""%1""", Реквизит.Имя); | ||
Сообщение.Поле = Реквизит.Имя; | ||
Сообщение.УстановитьДанные(ЭтаФорма); | ||
Сообщение.Сообщить(); | ||
Успешно = Ложь; | ||
|
||
КонецЕсли; | ||
|
||
Результат.Вставить(Реквизит.Имя, ЭтаФорма[Реквизит.Имя]); | ||
|
||
КонецЦикла; | ||
|
||
Если НЕ Успешно Тогда | ||
Возврат; | ||
КонецЕсли; | ||
Закрыть(Результат); | ||
|
||
КонецПроцедуры |
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.