helpf.pro
  Регистрация
Все категории » Работа с Таблицей Значений Работа с Таблицей Значений 
 +110 
 
 
Распечатать

Как быстро вывести таблицу значений в табличный документ?

Код 1C v 8.х
 ТекстЗапроса = "ВЫБРАТЬ * ИЗ Справочник.Пользователи";                         

ЗапросаДанных = Новый Запрос(ТекстЗапроса);

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

     

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

Построитель = Новый ПостроительОтчета;

Построитель.ИсточникДанных=Новый ОписаниеИсточникаДанных(РезЗапроса);       

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

ТабДокумент.Показать("Пользователи");
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 184761
 +110 
 
 
Распечатать
Возможно, вас также заинтересует
Как заполнить табличную часть формы программно?  8
  Нужно по кнопке Заполнить - сформировать данные для заполнения табличных частей и заполнить их. Форма имеет вид: Рядом с кнопкой Записать и закрыть добавлена кнопка Заполнить документ , код ее команды: // Код заполнения ТЧ НаСервере П
17 правил для составления оптимального ЗАПРОСа к данным базы 1С  52
  Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C и Google Maps  21
 была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1С 8.x : Как убрать лидирующие нули в номере Документа (вариант2)  0
  Скопировать строку с номером, с лидирующими нулями, в числовом поле (с форматом без групп, без группировки), и вернуть(скопировать) обратно в строковом поле с номером. Возвращает без нулей.
COM-подключение к базе 7.7 из 8.2 1С  7
 Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине. Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)): НаКлиенте Процедура Загрузки() ПутьКБазе=" D:ВашаБаза1с77" ; Пользователь=
Посмотреть все результаты поиска похожих
Комментарии
kuzyara
20.06.2019 07:05Комментарий: 2
kuzyara
Код 1C v 8.х
 	#Если ТолстыйКлиентОбычноеПриложение Тогда

		// На клиенте значение ячейки отличается от представления (обрезает лидирующие нули и т.п.)

		Область = ТабДок.Область(1,1,ТабДок.ВысотаТаблицы, ТабДок.ШиринаТаблицы);

		Область.Защита = Ложь;

		Область.Очистить(Ложь, Истина, Истина);

		Область.СодержитЗначение = Истина;

	#КонецЕсли
kuzyara
10.06.2019 09:38Комментарий: 1
kuzyara

Без отступов:

Код 1C v 8.х
 Функция ПреобразоватТЗвТабДок(ТЗ)

	СхемаКомпоновкиДанных = Новый СхемаКомпоновкиДанных;

	ИсточникДанных = СхемаКомпоновкиДанных.ИсточникиДанных.Добавить();

	ИсточникДанных.Имя = "ИсточникДанных1";

	ИсточникДанных.ТипИсточникаДанных = "Local";

	

	ИмяНабора = "Основной";

	

	Результат = СхемаКомпоновкиДанных.НаборыДанных.Добавить(Тип("НаборДанныхОбъектСхемыКомпоновкиДанных"));

	Результат.Имя = ИмяНабора;

	Результат.ИсточникДанных = СхемаКомпоновкиДанных.ИсточникиДанных[0].Имя;

	Результат.ИмяОбъекта = ИмяНабора;

	

	

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

		ИмяПоля = ЭлементМетаданных.Имя;

		ЗаголовокПоля = ЭлементМетаданных.Заголовок;

		Поле = Результат.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));

		ПутьКДанным = ИмяПоля;

		Поле.Поле = ИмяПоля;

		Поле.Заголовок = ЗаголовокПоля;

		Поле.ТипЗначения = ЭлементМетаданных.ТипЗначения;

	конеццикла;

	

	КомпоновщикНастроек_ = Новый КомпоновщикНастроекКомпоновкиДанных;

	КомпоновщикНастроек_.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));

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

		ЭлементНастроек = КомпоновщикНастроек_.Настройки.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));

		ЭлементНастроек.Поле = Новый ПолеКомпоновкиДанных(Колонка.Имя);

	КонецЦикла;





	Группировки = КомпоновщикНастроек_.Настройки.Структура;

	Группировка = Группировки.Добавить(Тип("ГруппировкаКомпоновкиДанных"));

	Группировка.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));

	Группировка.Порядок.Элементы.Добавить(Тип("АвтоЭлементПорядкаКомпоновкиДанных"));

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек_.ПолучитьНастройки());

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	мВнешниеНаборыДанных = Новый Структура("Основной", ТЗ);

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных, мВнешниеНаборыДанных);

	

	ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

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

	ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент.УстановитьДокумент(ТабДок);

	ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент.Вывести(ПроцессорКомпоновкиДанных);

	

	Возврат ТабДок;

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