oldthiefxxx » Поиск

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

Переворот или ТРАНСПОНИРОВАНИЕ Таблицы Значений

Задача такова что необходимо поменять местами Колонки со Строками. Условие Первая колонка значений это название колонок будущей таблицы значений.
Исходная таблица:
Индекс Колонка1 Колонка2 Колонка3 Колонка4
0 "Тип11" "Тип21" "Тип31" "Тип41"
1 "Тип12" "Тип22" "Тип32" "Тип42"
2 "Тип13" "Тип23" "Тип33" "Тип43"
3 "Тип14" "Тип24" "Тип34" "Тип44"
4 "Тип15" "Тип25" "Тип35" "Тип45"

Полученная таблица:
Индекс Тип11 Тип12 Тип13 Тип14 Тип15
0 "Тип11" "Тип12" "Тип13" "Тип14" "Тип15"
1 "Тип21" "Тип22" "Тип23" "Тип24" "Тип25"
2 "Тип31" "Тип32" "Тип33" "Тип34" "Тип35"
3 "Тип41" "Тип42" "Тип43" "Тип44" "Тип45"
Минусы :
1.того что имя колонок первоначальных не видно.
2. Значение исходной таблицы первой колонки должны быть типизированны для название колонок.

Код 1C v 8.х

 // OldthiefXXX

// Функция возвращает перевернутую ТЗ

// Кидаем ТЗ

Функция ПеревернутьТЗ(ТЗ)

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

	Массив=Тз.ВыгрузитьКолонку(Тз.Колонки[0]);

	Для Каждого Значения  ИЗ  Массив ЦИКЛ

		ЗН=ВРег(СокрЛП(Значения));

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

	Конеццикла;

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

		ТЗ2.Добавить();

	КонецЦикла;

	СчетчикСтрок=-1;

	Для каждого стр из Тз Цикл

		СчетчикСтрок=СчетчикСтрок+1;

		Мас= Новый Массив;

		счетчик=-1;

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

			счетчик=счетчик+1;

			ЗначениеИндекса=стр[КН.Имя];

			Мас.Вставить(счетчик,ЗначениеИндекса);

		КонецЦикла;

		ТЗ2.ЗагрузитьКолонку(Мас,ТЗ2.колонки[СчетчикСтрок]);

	КонецЦикла;

	Возврат ТЗ2;	

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

Категория: Работа с Таблицей Значений

Вывод (печать) Запроса в Табличный Документ

Код 1C v 8.х

  // OldthiefXXX

//Процедура  формирует и выводит отчет по переданноме запросу

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

//* ПараметрыОтчета - структура

// Пример параметров:

//* ПараметрыОтчета = Новый Структура;

//* ПараметрыОтчета .Вставить("Запрос",текст);

//* ПараметрыЗапроса=Новый Структура;

//* ПараметрыЗапроса.Вставить("Номенклатура",ТоварИзАртикула.Ссылка);

//* ПараметрыЗапроса.Вставить("НачалоМесяца",НачалоМесяца(ДатаВедомости));

//* ПараметрыЗапроса.Вставить("КонецМесяца",КонецМесяца(ДатаВедомости));

//* ПараметрыОтчета .Вставить("ПараметрыЗапроса",ПараметрыЗапроса);



Процедура УниверсальныйОтчетПоЗапросу(ПараметрыОтчета)

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

Запрос.Текст=ПараметрыОтчета.Запрос;



Для каждого ПАРАМЕТР из ПараметрыОтчета.ПараметрыЗапроса Цикл

 Запрос.УстановитьПараметр(ПАРАМЕТР.Ключ,ПАРАМЕТР.Значение);

КонецЦикла;



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



Табл=Новый ТабличныйДокумент;

Макет = ЭтотОбъект.ПолучитьМакет("Макет");

ОбластьШапкаОсновной=Макет.ПолучитьОбласть("Шапка|Основной");

ОбластьСтрокаОсновной=Макет.ПолучитьОбласть("Строка|Основной");

ОбластьИтогОсновной=Макет.ПолучитьОбласть("Итог|Основной");

ОбластьШапкаДОП=Макет.ПолучитьОбласть("Шапка|Показатели");

ОбластьСтрокаДОП=Макет.ПолучитьОбласть("Строка|Показатели");

ОбластьИтогДОП=Макет.ПолучитьОбласть("Итог|Показатели");

Табл.Вывести(ОбластьШапкаОсновной);



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

 ОбластьШапкаДОП.Параметры.ИмяПоказателя=Колонка.Имя;

 Табл.Присоединить(ОбластьШапкаДОП);

КонецЦикла;



счетчик=0;

Для каждого стр из Тз Цикл

 счетчик=счетчик+1;

 ОбластьСтрокаОсновной.Параметры.счетчик=счетчик; 

 Табл.Вывести(ОбластьСтрокаОсновной);

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

   ОбластьСтрокаДОП.Параметры.ЗначениеКолонки=стр[Колонка.Имя];

   Табл.Присоединить(ОбластьСтрокаДОП);

  КонецЦикла;

КонецЦикла;



Табл.Вывести(ОбластьИтогОсновной);



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

 ОбластьИтогДОП.Параметры.Итог=Тз.Итог(Колонка.Имя);

 Табл.Присоединить(ОбластьИтогДОП);

КонецЦикла;



Табл.ТолькоПросмотр=истина;

Табл.Показать();

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

Категория: Запросы

Быстрая загрузка данных большого размера файла Excel в многомерный Массив Категория: Работа с Microsoft Office и OpenOffice