1С 8.3 : Как передать таблицу значений с сервера на клиент?

Многие спрашиваю, как передать тз с сервера на клиент - ниже несколько вариантов как это можно реализовать:

Через ЗначениеВСтрокуВнутр и ЗначениеИзСтрокиВнутр

Код 1C v 8.3

 &НаКлиенте

Процедура ПолучитьТаблицу НаСервер(Команд а)



ТЗВСтроке = ПолучитьТЗНаСер вере();

ТЗ = ЗначениеИзСтрокиВнутр(ТЗВСтрок е);

КонецПроцедуры



// Функция получает данные на сервере

&НаСервере

Функция ПолучитьТЗНаСер вере()

// Для примера сформируем ТЗ с данными

ТЗ = ЗаполнитьТЗДанными();

Возврат ЗначениеВСтрокуВнутр(ТЗ);

КонецФункции

Через реквизит Формы

Код 1C v 8.3

 // Создаем реквизит формы "ВремТабЗнач" с типом данных: Таблица значений

// Ревкизит будет использоваться для передачи данных с сервера на клиент.

&НаСервере

Функция ПолучитьТЧ(ОбъектСсылка,ИмяТЧ)

	ЗначениеОбъекта = ОбъектСсылка.ПолучитьОбъект();

	

	ТабРез = ЗначениеОбъекта[ИмяТЧ].выгрузить();

	

	МассивДобавляемыхРеквизитов = Новый Массив;

	МассивУдаляемыхРеквизитов = Новый Массив;

	МассивКолонок = Новый Массив;

	ИдКоллекции="ВремТабЗнач";

	

	КоллФормы=РеквизитФормыВЗначение(ИдКоллекции);

	

	Для каждого ТекКол из КоллФормы.Колонки Цикл

		МассивУдаляемыхРеквизитов.Добавить(ИдКоллекции+"."+ТекКол.Имя);

	КонецЦикла;

	

	Для каждого ТекКол из ТабРез.Колонки Цикл

		МассивДобавляемыхРеквизитов.Добавить(

			Новый РеквизитФормы(ТекКол.Имя,ТекКол.ТипЗначения,ИдКоллекции));

		МассивКолонок.Добавить(ТекКол.Имя);

	КонецЦикла;

	

	// Добавим новые, удалим старые колонки

	ЭтаФорма.ИзменитьРеквизиты(МассивДобавляемыхРеквизитов,МассивУдаляемыхРеквизитов);

	// Поместим значение в реквизит формы

	ЗначениеВРеквизитФормы(ТабРез,ИдКоллекции);

	

	// вернем массив колонок в обрабатываемой ТЗ, например для более простого перебора

	Возврат МассивКолонок;

КонецФункции

Через Временное хранилище

Код 1C v 8.3

 

АдресХранилища = ПоместитьВоВременноеХранилище(МассивДанных,ЭтаФорма.УникальныйИдентификатор);



ПротоколПереноса = ПолучитьИзВременногоХранилища(АдресХранилища);

Через обычный возврат

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПолучитьТаблицуНаСервер(Команда)

 

  ТЗ = ЗаполнитьТЗДанными();

 

КонецПроцедуры



//Функция заполняет ТЗ

&НаСервере

Функция ЗаполнитьТЗДанными()

 

  ТЗ = Новый ТаблицаЗначений;

  ТЗ.Колонки.Добавить("Поле1");

  ТЗ.Колонки.Добавить("Поле2");

  ТЗ.Колонки.Добавить("Поле3");

  ТЗ.Колонки.Добавить("Поле4");

  ТЗ.Колонки.Добавить("Поле5");

 

  Для i = 1 По 3 Цикл 

 

    НоваяСтр = ТЗ.Добавить();

    НоваяСтр.Поле1 = i;

    НоваяСтр.Поле2 = 2*i;

    НоваяСтр.Поле3 = 3*i;

    НоваяСтр.Поле4 = 4*i;

    НоваяСтр.Поле5 = 5*i;

 

  КонецЦикла;   

 

  Возврат ТЗ;

 

КонецФункции

Пробуйте и пишите в комментариях как делаете это Вы

Разместил: E_Migachev Версии: | 8.2 УП | 8.3 | Дата: 09.10.2014 Прочитано: 169645

Возможно, вас также заинтересует

Ключевые слова и Изображения

Комментарии

Anthon

09.01.2023 09:12

Комментарий: 5

Код 1C v 8.3

 	ТЗ = РезультатЗапроса.Выгрузить();

	

	МассивДобавляемыхРеквизитов = Новый Массив;

	МассивУдаляемыхРеквизитов = Новый Массив;

	МассивКолонок = Новый Массив;

	ИдКоллекции = "Таблица";

	КоллекцияФормы = РеквизитФормыВЗначение(ИдКоллекции);

	

	Для Каждого Колонка из КоллекцияФормы.Колонки Цикл

		МассивУдаляемыхРеквизитов.Добавить(ИдКоллекции + "." + Колонка.Имя);

	КонецЦикла;

	

	Для Каждого Колонка из ТЗ.Колонки Цикл

		МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИдКоллекции));

		МассивКолонок.Добавить(Колонка.Имя);

	КонецЦикла;

	ЭтаФорма.ИзменитьРеквизиты(МассивДобавляемыхРеквизитов, МассивУдаляемыхРеквизитов);

	ЗначениеВРеквизитФормы(ТЗ, ИдКоллекции);

	

	МассивУдаляемыхРеквизитов = Новый Массив;

	Для Каждого Элемент из Элементы Цикл

		Если Лев(Элемент.Имя, 8) = ИдКоллекции + "_" И ТипЗнч(Элемент) = Тип("ПолеФормы") Тогда

			МассивУдаляемыхРеквизитов.Добавить(Элемент);

		КонецЕсли;

	КонецЦикла;

	Для Каждого Элемент Из МассивУдаляемыхРеквизитов Цикл

		Элементы.Удалить(Элемент);

	КонецЦикла;

	Для Каждого Колонка из ТЗ.Колонки Цикл

		НовыйЭлемент = Элементы.Добавить(ИдКоллекции + "_" + Колонка.Имя, Тип("ПолеФормы"), Элементы.Таблица);

		НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;

        НовыйЭлемент.ПутьКДанным = ИдКоллекции + "." + Колонка.Имя;

	КонецЦикла;

Anthon

09.01.2023 09:02

Комментарий: 4

добейте кодик в через реквизит формы

МассивДобавляемыхРеквизитов = Новый Массив;

МассивУдаляемыхРеквизитов = Новый Массив;

МассивКолонок = Новый Массив;

ИдКоллекции = "Таблица";

КоллекцияФормы = РеквизитФормыВЗначение(ИдКоллекции);

Для Каждого Колонка из КоллекцияФормы.Колонки Цикл

МассивУдаляемыхРеквизитов.Добавить(ИдКоллекции + "." + Колонка.Имя);

КонецЦикла;

Для Каждого Колонка из ТЗ.Колонки Цикл

МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИдКоллекции));

МассивКолонок.Добавить(Колонка.Имя);

КонецЦикла;

ЭтаФорма.ИзменитьРеквизиты(МассивДобавляемыхРеквизитов, МассивУдаляемыхРеквизитов);

ЗначениеВРеквизитФормы(ТЗ, ИдКоллекции);

МассивУдаляемыхРеквизитов = Новый Массив;

Для Каждого Элемент из Элементы Цикл

Если Лев(Элемент.Имя, 8) = ИдКоллекции + "_" Тогда

МассивУдаляемыхРеквизитов.Добавить(Элемент);

КонецЕсли;

КонецЦикла;

Для Каждого Элемент Из МассивУдаляемыхРеквизитов Цикл

Элементы.Удалить(Элемент);

КонецЦикла;

Для Каждого Колонка из ТЗ.Колонки Цикл

НовыйЭлемент = Элементы.Добавить(ИдКоллекции + "_" + Колонка.Имя, Тип("ПолеФормы"), Элементы.Таблица);

НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;

НовыйЭлемент.ПутьКДанным = ИдКоллекции + "." + Колонка.Имя;

КонецЦикла;

Возврат МассивКолонок;

krikmarin

05.08.2022 11:42

Комментарий: 3

Единственный способ передать таблицу значений с сервера на клиент - это преобразовать её в массив. При попытках использовать тип значений переменных ТаблицаЗначений на клиенте 1С выдавало ошибку, то есть третий вариант через временное хранилище тоже не будет работать. На просторах infostart.ru нашел функции преобразования ТЗ в Массив и обратно.

// Функция преобразует ТаблицуЗначений в Массив из структур.

Функция ПреобразоватьТаблицуЗначенийВМассив(тзДанные) Экспорт

мсДанные = Новый Массив;

// Запишем в массив

Для Каждого СтрокаТЗ Из тзДанные Цикл

стСтрокаТаблицы = Новый Структура;

Для Каждого ИмяКолонки Из тзДанные.Колонки Цикл

стСтрокаТаблицы.Вставить(ИмяКолонки.Имя, СтрокаТЗ[ИмяКолонки.Имя]);

КонецЦикла;

мсДанные.Добавить(стСтрокаТаблицы);

КонецЦикла;

Возврат мсДанные;

КонецФункции // ПреобразоватьТаблицуЗначенийВМассив()

// Функция преобразует Массив из структур в ТаблицуЗначений.

Функция ПреобразоватьМассивВТаблицуЗначений(мсДанные) Экспорт

тзДанные = Новый ТаблицаЗначений;

Для Каждого ЭлементМассива Из мсДанные Цикл

// Рисуем колонки для таблицы

Если тзДанные.Колонки.Количество() = 0 Тогда

Для Каждого ЗначениеСтруктуры Из ЭлементМассива Цикл

тзДанные.Колонки.Добавить(ЗначениеСтруктуры.Ключ);

КонецЦикла;

КонецЕсли;

// Добавляем данные в таблицу

НоваяСтрока = тзДанные.Добавить();

Для Каждого ЗначениеСтруктуры Из ЭлементМассива Цикл

НоваяСтрока[ЗначениеСтруктуры.Ключ] = ЗначениеСтруктуры.Значение;

КонецЦикла;

Возврат тзДанные;

КонецФункции // ПреобразоватьМассивВТаблицуЗначений()

enginf

20.10.2021 08:13

Комментарий: 2

Второй способ. На тонком клиенте.Вот передали мы ТЗ в реквизит на форме.А как теперь эту ТЗ из этого реквизита достать?

miXna5

23.05.2015 21:31

Комментарий: 1

Первый способ не заработал: ЗначениеИзСтрокиВнутр() доступен только на сервере, толстом клиенте и внешнем соединении.

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.

1С 8.3 : Как передать таблицу значений с сервера на клиент?

Похожие FAQ

Еще в этой же категории

Ключевые слова и Изображения

Слова упорядочены по частоте использования в тексте

Изображения