1c_tools/epf_ValueTableEditor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

parameter to load table at start

Browse Source
This commit is contained in:
Dmitry Belyaev 2021-08-09 17:05:17 +03:00
parent 4c5bad1e58
commit 62b410ed4a
Signed by: b4tman
GPG Key ID: 41A00BF15EA7E5F3
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
РедакторТЗ_XML/Forms/Форма/Ext/Form.xml
View File

@ -346,4 +346,15 @@
<Action>ЗагрузитьКолонки</Action> <Action>ЗагрузитьКолонки</Action>
</Command> </Command>
</Commands> </Commands>
<Parameters>
<Parameter name="ТаблицаJSON">
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
</Parameter>
</Parameters>
</Form> </Form>

20
РедакторТЗ_XML/Forms/Форма/Ext/Form/Module.bsl
View File

@ -44,6 +44,7 @@
НовыйЭлемент = Элементы.Добавить(СтрОбТб+"_" +Колонка.Имя, Тип("ПолеФормы"), ЭлементДерево); НовыйЭлемент = Элементы.Добавить(СтрОбТб+"_" +Колонка.Имя, Тип("ПолеФормы"), ЭлементДерево);
НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода; НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
НовыйЭлемент.ПутьКДанным = СтрОбТб+"."+Колонка.Имя; НовыйЭлемент.ПутьКДанным = СтрОбТб+"."+Колонка.Имя;
НовыйЭлемент.Заголовок = Колонка.Заголовок;
Если Не ЗначениеЗаполнено(Колонка.Ширина) Тогда Если Не ЗначениеЗаполнено(Колонка.Ширина) Тогда
НовыйЭлемент.Ширина = 10; НовыйЭлемент.Ширина = 10;
@ -194,4 +195,23 @@
&НаСервере &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Формат = "xml"; Формат = "xml";
Если Параметры.Свойство("ТаблицаJSON") Тогда
ТаблицаJSON = Параметры.ТаблицаJSON;
Если Не ПустаяСтрока(ТаблицаJSON) Тогда
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(ТаблицаJSON);
ТЗ = СериализаторXDTO.ПрочитатьJSON(ЧтениеJSON, Тип("ТаблицаЗначений"));
ЧтениеJSON.Закрыть();
ВывестиТЗНаФорму(ТЗ, "РеквизитТЗ");
Элементы.ГрСтраницы.ТекущаяСтраница = Элементы.Редактирование;
Для Каждого ТекКолонка Из ТЗ.Колонки Цикл
НовСтр = КолонкиНовойТЗ.Добавить();
ЗаполнитьЗначенияСвойств(НовСтр, ТекКолонка, "Имя,Заголовок,Ширина");
НовСтр.ТипКолонки = ТекКолонка.ТипЗначения;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецПроцедуры КонецПроцедуры