массиву » Поиск

Результаты по ключевому слову: массиву

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

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

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

Код 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;
 
  КонецЦикла;   
 
  Возврат ТЗ;
 
КонецФункции

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

Категория: Управляемое приложение, Тонкий клиент

Как заменить значение ресурса регистра сведений – универсальная процедура

В том случае, когда в каком-то регистре сведений нужно заменить несколько видов значений какого-то конкретного ресурса на заданное значение, лучше использовать вот такую универсальную процедуру (при ее вызове достаточно подставить название регистра, название ресурса и передать старые заменяемые значения и новое, на которое они заменяются):

Код 1C v 8.х

 // Процедура выполняет в независимом регистре сведений "ИмяРегистраСведений" замену 

// всех значений ресурса "ИмяИзменяемогоРесурса", // соответствующих массиву "МассивСтарыхЗначенийРесурса"

// на новое значение ресурса "НовоеЗначениеРесурса".

// В запрос можно передать дополнительное условие, ограничивающее выборку данных из регистра "ДопУсловие"

Процедура ЗаменаРесурсаНезависимогоРегистра(ИмяРегистраСведений, ИмяИзменяемогоРесурса, МассивСтарыхЗначенийРесурса, НовоеЗначениеРесурса, ДопУсловие = "")

	Запрос = Новый Запрос;

	Запрос.УстановитьПараметр("МассивСтарыхЗначенийИзмерения",	МассивСтарыхЗначенийРесурса);

	Запрос.УстановитьПараметр("НовоеЗначениеИзмерения",			НовоеЗначениеРесурса);



	// Подготовим таблицу значений для позиционирования (установки отбора) на нужных записях регистра:

	Запрос.Текст =

	"ВЫБРАТЬ *

	|ИЗ

	|	РегистрСведений." + ИмяРегистраСведений + " КАК Регистр

	|ГДЕ

	|	Регистр." + ИмяИзменяемогоРесурса + " В (&МассивСтарыхЗначенийИзмерения)" + ДопУсловие;



	Сообщить("1 Приступаем к выполнению запроса к данным регистра """ + ИмяРегистраСведений + """ - " + ТекущаяДата());



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



	Сообщить("2 Приступаем к обработке результата запроса к регистру """ + ИмяРегистраСведений + """ - " + ТекущаяДата());



	// заполнение строки progress bar

	ЭлементыФормы.Индикатор2.Значение = 0; // обнуляем, чтобы при повторном запуске статусбар сбросился в 0

	ЭлементыФормы.Индикатор2.МаксимальноеЗначение = ТаблицаЗаполнения.Количество(); // задаем значение для 100%



	// для каждой строки таблицы значений установим отбор и перезапишем регистр

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



		ЭлементыФормы.Индикатор2.Значение = ЭлементыФормы.Индикатор2.Значение + 1; //указываем прирост внутри цикла



		// попробуем через СоздатьМенеджерЗаписи()

		текЗапись = РегистрыСведений[ИмяРегистраСведений].СоздатьМенеджерЗаписи();



		ЗаполнитьЗначенияСвойств(текЗапись, СтрокаЗаполнения);



		// прочитаем эту запись (внимание, эта команда обязательна, иначе можно ненароком очистить весь регистр!)

		текЗапись.Прочитать();



		Если текЗапись.Выбран() Тогда // убедились, что спозиционироваться удалось

			// сообщаем, что именно и на какое значение нужно изменить в регистре

			текЗапись[ИмяИзменяемогоРесурса] = НовоеЗначениеРесурса;



			// записываем изменения в регистре

			текЗапись.Записать();



		Иначе // спозиционироваться не удалось, можно выходить

			Сообщить("Возникла проблема определения " + НовоеЗначениеРесурса + " в регистре через менеджер записи " + НовоеЗначениеРесурса);

		КонецЕсли;



	КонецЦикла;

	Сообщить("3 Окончание исправления  регистра """ + ИмяРегистраСведений + """ - " + ТекущаяДата());

КонецПроцедуры // ЗаменаИзмеренияНезависимогоРегистра()

Категория: Регистры сведений

Функция выполняет пропорциональное распределение суммы в соответствии с заданными коэффициентами

Код 1C v 8.х

 

// Функция выполняет пропорциональное распределение суммы в соответствии с заданными коэффициентами распределения

//

// Параметры:

//		ИсхСумма - распределяемая сумма

//		МассивКоэф - массив коэффициентов распределения

//		Точность - точность округления при распределении. Необязателен.

//

//	Возврат:

//		МассивСумм - массив размерностью равный массиву коэффициентов, содержит

//			суммы в соответствии с весом коэффициента (из массива коэффициентов)

//          В случае если распределить не удалось (сумма = 0, кол-во коэф. = 0,

//          или суммарный вес коэф. = 0), тогда возвращается значение Неопределено

//

Функция РаспределитьПропорционально(Знач ИсхСумма, МассивКоэф, Знач Точность = 2) Экспорт

	

	Если МассивКоэф.Количество() = 0 Или ИсхСумма = 0 Или ИсхСумма = Null Тогда

		Возврат Неопределено;

	КонецЕсли;

	

	ИндексМакс = 0;

	МаксЗнач   = 0;

	РаспрСумма = 0;

	СуммаКоэф  = 0;

	

	Для К = 0 По МассивКоэф.Количество() - 1 Цикл

		

		МодульЧисла = ?(МассивКоэф[К] > 0, МассивКоэф[К], - МассивКоэф[К]);

		

		Если МаксЗнач < МодульЧисла Тогда

			МаксЗнач = МодульЧисла;

			ИндексМакс = К;

		КонецЕсли;

		

		СуммаКоэф = СуммаКоэф + МассивКоэф[К];

		

	КонецЦикла;

	

	Если СуммаКоэф = 0 Тогда

		Возврат Неопределено;

	КонецЕсли;

	

	МассивСумм = Новый Массив(МассивКоэф.Количество());

	

	Для К = 0 По МассивКоэф.Количество() - 1 Цикл

		МассивСумм[К] = Окр(ИсхСумма * МассивКоэф[К] / СуммаКоэф, Точность, 1);

		РаспрСумма = РаспрСумма + МассивСумм[К];

	КонецЦикла;

	

	// Погрешности округления отнесем на коэффиецент с максимальным весом

	Если Не РаспрСумма = ИсхСумма Тогда

		МассивСумм[ИндексМакс] = МассивСумм[ИндексМакс] + ИсхСумма - РаспрСумма;

	КонецЕсли;

	

	Возврат МассивСумм;

	

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

Категория: Работа с Числами