присоединить » Поиск

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

Как сформировать отчет СКД без проверки прав (в привилегированном режиме)?

Что при разработке отчетов требуется чтобы у пользователя с ограниченными правами, отчет формировался полностью без проверки прав!

Особенно если настроен RLS

Есть несколько способов как это сделать:

1. Установить привилегированный режим в модуле отчета

Форма отчета должна быть Управляемой, далее в модуле отчета процедура обработчика «При компоновке результата»:

Код 1C v 8.3

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

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь; 

	УстановитьПривилегированныйРежим(Истина);	

	

	//Сформируем отчет

	СформироватьОтчет(ДокументРезультат, ДанныеРасшифровки);

	

	УстановитьПривилегированныйРежим(Ложь);

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

2. Формирование в привилегированном режиме через Общий модуль с галкой Привелигерованный

Создаем общий модуль

так же как в пункте 1 в обработчике «При компоновке результата» пишем:

Код 1C v 8.3

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

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;  

	

	МЕ_ДляОтчетаСКД_ПривелРежим.СформироватьОтчетПривРеж(ДокументРезультат, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек);



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

В общем модуле МЕ_ДляОтчетаСКД_ПривелРежим код:

Код 1C v 8.3

 Процедура СформироватьОтчетПривРеж(ТабличныйДокумент, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек) Экспорт 



	ТабличныйДокумент.Очистить();  

	

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

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки,,,Ложь);

	

	ВнешниеНаборыДанных  = Новый Структура;

	/// можно передать внешние данные ВнешниеНаборыДанных.Вставить("тзПродаж", СформироватьТЗПродаж());

	

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

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

	

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

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

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

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

3. Если включен режим Использовать ограничение на уровне прав доступа - RLS

Часто используется в типовых. Тут в модуле для текущего пользователя можно на время формирования отчету установить параметр сеанса ИспользоватьОграниченияПравДоступаНаУровнеЗаписей в Ложь и RLS не сработает.

Код 1C v 8.3

 ПараметрыСеанса.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей=Ложь;

После завершения формирования, не забудьте включить rls обратно установив = Истина

4. Если в запросе используется конструкция вида регистратор.дата и это поле не отображается в полях отчета СКД

Допустим Вы сделали запрос по регистру накоплений и через регистратор обратились к дате или сумме документа и при формировании отчета СКД, эти поля недоступны !? как же быть?

Проблема в том - что у регистратором может выступать несколько документов и видимо права чтение/просмотр есть не на все - поэтому через скд эта таблица целиком недоступна, решение:

1. открыть доступ на все регистраторы регистра

2. в запросе четко обозначить тип

Код 1C v 8.3

 //примеры

ВЫРАЗИТЬ(ДокументыОплаты.Регистратор КАК Документ.ПлатежноеПоручениеВходящее).СуммаДокумента

//или так

ВЫБОР

 КОГДА РАЗНОСТЬДАТ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата,КонецПериода, ДЕНЬ) > ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности

   ТОГДА ДОБАВИТЬКДАТЕ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата, ДЕНЬ, ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности)

 ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1)

КОНЕЦ КАК ДеньВозникновенияЗадолженности

В дополнении у пункту 1, код процедуры сформировать отчет(). Для вывода отчета я использую шаблон All4CF.ru_Template_SKD_v4.1 в нем уже реализованы почти все необходимые функции и работает в Обычных и УП формах:

Код 1C v 8.3

 // Процедура выполняет формирование табличного документа по настройкам СКД

Процедура СформироватьОтчет(ТабличныйДокумент, ДанныеРасшифровки) 

	УстановитьПривилегированныйРежим(Истина);	

	// если отчет открывается по расшифровке, отбору, упорядочиванию, 

	// группировке или условному оформлению - восстановим настройки вывода заголовка,

	// т.к., в переданных настройках при этом, вывод заголовка отключен

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

	ВосстановитьНастройкиВыводаЗаголовка();

	

	ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

	

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

	

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

	

	ТабличныйДокумент.Очистить();

	

	// установим обязательные настройки отчета

	УстановитьПараметрыОтчета();

	

	// Сделаем копию настроек вывода заголовка

	СохранитьНастройкиВыводаЗаголовка();

	

	ВыводитьЗаголовок = ВыводитьЗаголовокОтчета();

	Если ВыводитьЗаголовок Тогда

		ПрисоединитьЗаголовокОтчетаКТабличномуДокументу(ТабличныйДокумент, ПолучитьТекстЗаголовкаОтчета());

		

		// Отключим в настройках вывод встроенного заголовка

		НайденнаяНастройкаВыводаЗаголовка = КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок");

		НайденнаяНастройкаВыводаЗаголовка.Значение		= ТипВыводаТекстаКомпоновкиДанных.НеВыводить;

		НайденнаяНастройкаВыводаЗаголовка.Использование	= Истина;

	КонецЕсли;

	

	КопияДополнительныхНастроек = УстановитьДополнительныеНастройкиДляРасшифровки();

	

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

	

	// при необходимости вставим внешние наборы данных в СКД

	ВнешниеНаборыДанных = Новый Структура;

	

	ТаблицаВнешнегоНабораДанных = ПолучитьТаблицуВнешнегоНабораДанных();

	ВнешниеНаборыДанных.Вставить("ТаблицаВнешнегоНабораДанных",ТаблицаВнешнегоНабораДанных);

	

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

	

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

	

	ДополнительнаяОбработкаРезультатаОтчета(ТабличныйДокумент);

	

	Если ВыводитьЗаголовок Тогда

		// вернем настройки вывода заголовка на место		

		ВосстановитьНастройкиВыводаЗаголовка();

	КонецЕсли;

	

	// восстановим дополнительные настройки

	Для Каждого ЭлементСтруктуры Из КопияДополнительныхНастроек Цикл

		КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить(ЭлементСтруктуры.Ключ, ЭлементСтруктуры.Значение);

	КонецЦикла;

	

	// сохраненные настройки нужны только при расшифровке и т.п.

	// и не будуть давать изменить вывоз заголовка при обычном формировании.

	ОчиститьСохраненныеНастройкиВыводаЗаголовка();





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

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

    УстановитьПривилегированныйРежим(Ложь);

КонецПроцедуры // СформироватьОтчет()

Категория: Схема Компоновки Данных

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

Код 1C v 8.х

  // OldthiefXXX

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

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

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

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

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

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

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

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

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

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

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



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

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

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



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

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

КонецЦикла;



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



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

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

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

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

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

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

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

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

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



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

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

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

КонецЦикла;



счетчик=0;

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

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

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

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

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

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

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

  КонецЦикла;

КонецЦикла;



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



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

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

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

КонецЦикла;



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

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

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

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

Выборка из результата запроса всех вошедших в него значений группировок

При обходе результата запроса нередко возникает необходимость получения всех значений группировок внутри какой-либо другой группировки. Такая возможность может понадобиться, например, при выводе кросс отчета. Для обеспечения такой возможности в объекте ВыборкаИзРезультатаЗапроса предусмотрен третий параметр функции Выбрать().

Рассмотрим пример. Пусть нам необходимо получить кросс-отчет по остаткам номенклатуры на различных складах. Номенклатуру необходимо вывести в строках, склады - в колонках.
Запрос для получения остатков будет выглядеть так:

Код 1C v 8.х

 ВЫБРАТЬ

    УчетНоменклатурыОстатки.Номенклатура КАК Номенклатура, 

    УчетНоменклатурыОстатки.Номенклатура.Представление, 

    УчетНоменклатурыОстатки.Склад КАК Склад, 

    УчетНоменклатурыОстатки.Склад.Представление, 

    УчетНоменклатурыОстатки.КоличествоОстаток КАК КоличествоОстаток 

ИЗ 

    РегистрНакопления.УчетНоменклатуры.Остатки КАК УчетНоменклатурыОстатки 

ИТОГИ СУММА(КоличествоОстаток) ПО 

    ОБЩИЕ, 

    Номенклатура, 

    Склад

Для обхода номенклатуры воспользуемся выборкой из результата запроса:

Код 1C v 8.х

 ВыборкаНоменклатура = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура");

Пока ВыборкаНоменклатура.Следующий() Цикл 

    ОбластьНоменклатура.Параметры.Заполнить(ВыборкаНоменклатура);

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

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

Код 1C v 8.х

 ВыборкаСклад = ВыборкаНоменклатура.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Склад", "ВСЕ");

Пока ВыборкаСклад.Следующий() Цикл 

    ОбластьСклад.Параметры.Заполнить(ВыборкаСклад);

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

КонецЦикла;

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

Код 1C v 8.х

 ВыборкаСклад = ВыборкаНоменклатура.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Склад", "Организация");

В данном примере будут получены все значения складов, присутствующие в ранее выбранной организации.

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

Вывод (печать) таблицы значений в табличный документ

Пример кода быстрая Печать таблицы значений

Код 1C v 8.х

  //ТПОтчета - Табличное поле с формы (Таблица значений) с данными

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

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

    ПострПечать.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Интерфейс);

    ПострПечать.Выполнить();

    Для каждого Колонка Из ПострПечать.ВыбранныеПоля Цикл

        Колонка.Представление = ТПОтчета.Колонки[Колонка.Имя].Заголовок;

    КонецЦикла; 

    ПострПечать.Вывести();

Пример функций Печать таблицы значений с использованием Макета

Код 1C v 8.х

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

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

// ТЗ - ТаблицаЗначений

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



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

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

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

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

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

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

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

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

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



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

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

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

КонецЦикла;



счетчик=0;

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

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

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

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

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

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

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

  КонецЦикла;

КонецЦикла;

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



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

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

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

КонецЦикла;



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

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

Код 1C v 7.x

 

//Вывести таблицу значений

Процедура ПечатьТЗвТаб(ТЗ, Заголовок = "",КолонкиПоНазваниям = 0) Экспорт

	Перем ТТЗ;

	ТЗ.Выгрузить(ТТЗ);

	МаксШирина = 50;    // максимальная ширина колонки 

	СпШирина = СоздатьОбъект("СписокЗначений"); // список ширин колонок по таблице

	Для сч = 1 по ТТЗ.КоличествоКолонок() Цикл

		Если КолонкиПоНазваниям = 0  Тогда

			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);

		Иначе

			ИмяРек = "";

			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);

		КонецЕсли;

		СпШирина.ДобавитьЗначение(СтрДлина(ИмяРек)*1.2); // с поправкой на размер шрифта

	КонецЦикла;	

	

	// просто печать таблицы - вывод всех строк и колонок

	// числовые значения - по правому краю. Автоподбор ширины - в пределах МаксШирина

	Таб=СоздатьОбъект("Таблица");

	Таб.ИсходнаяТаблица("ПечатьТЗ");

	Если СокрЛП(Заголовок) <> "" Тогда

		Таб.ВывестиСекцию("Шапка");

	КонецЕсли;

	// заголовки таблицы

	Таб.ВывестиСекцию("Строка|Общая");

	Для сч=1 по ТТЗ.КоличествоКолонок() Цикл

		Если КолонкиПоНазваниям = 0  Тогда

			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);

		Иначе

			ИмяРек = ""; 

			Ном = "";

			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);

		КонецЕсли;

		Таб.ПрисоединитьСекцию("Строка|Столбец");  

	КонецЦикла;

	ВысотаШапки = Таб.ВысотаТаблицы();

	// данные таблицы по строкам

	ТТЗ.ВыбратьСтроки();

	Пока ТТЗ.ПолучитьСтроку()=1 Цикл

		Ном = ТТЗ.НомерСтроки;

		Таб.ВывестиСекцию("Строка|Общая");

		Выс = Таб.ВысотаТаблицы();

		Для сч=1 по ТТЗ.КоличествоКолонок() Цикл

			ИмяРек=ТТЗ.ПолучитьЗначение(Ном,сч);

			Таб.ПрисоединитьСекцию("Строка|Столбец");

			Если ТипЗначения(ИмяРек) = 1 Тогда

				Обл = Таб.Область("R"+Выс+"C"+(Сч+1)); // ячейка в которую поместили данные

				Обл.ГоризонтальноеПоложение(2); // числа - вправо

			КонецЕсли;

			НачШирина = СпШирина.ПолучитьЗначение(Сч);

			Ширина = СтрДлина(ИмяРек);

			СпШирина.УстановитьЗначение(Сч,Макс(НачШирина,Ширина));

		КонецЦикла;

	КонецЦикла;

	

	Для сч = 1 по СпШирина.РазмерСписка() Цикл

		Обл = Таб.Область("R"+ВысотаШапки+"C"+(Сч+1));

		// форматируем ширину таблицы

		Ширина = Мин(МаксШирина,2+СпШирина.ПолучитьЗначение(Сч));

		Обл.ШиринаСтолбца(Ширина);   

		// форматируем заголовок

		Обл.Полужирный(1);

	КонецЦикла;	

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

	Таб.ТолькоПросмотр(1);

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

ИЛИ

Код 1C v 7.x

 Процедура глВывестиТаблицуЗначений(ТаблицаЗначений, Заголовок = "") Экспорт

Перем Таб, ИИ, ЖЖ, НазваниеКолонки, ТипКолонки, Ширина, Значение, Сообщение;



Таб = СоздатьОбъект("Таблица");



Если ТипЗначенияСтр(ТаблицаЗначений) <> "ТаблицаЗначений" Тогда

Сообщение = "В процедуру ""глВывестиТаблицуЗначений()"" передана переменная не типа ""ТаблицаЗначений"", "+

"а типа """+СокрЛП(ТипЗначенияСтр(ТаблицаЗначений))+"""";

Таб.Область(1, 1, 1, 1).Текст = Сообщение;

Таб.Область(1, 1, 1, 1).ШиринаСтолбца(СтрДлина(Сообщение));



Таб.ТолькоПросмотр(1);

Таб.Показать("Не таблица значений: "+Заголовок);



Возврат;

КонецЕсли;



Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл

ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ,,,, НазваниеКолонки);

Таб.Область(1, ЖЖ, 1, ЖЖ).Текст = СокрЛП(НазваниеКолонки);

Таб.Область(1, ЖЖ, 1, ЖЖ).РамкаОбвести(5, 5, 5, 5);

Таб.Область(1, ЖЖ, 1, ЖЖ).ВертикальноеПоложение(3);

Таб.Область(1, ЖЖ, 1, ЖЖ).ГоризонтальноеПоложение(3);

Таб.Область(1, ЖЖ, 1, ЖЖ).РазмерШрифта(7);

Таб.Область(1, ЖЖ, 1, ЖЖ).Полужирный(1);



Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();

Ширина = Макс(Ширина, СтрДлина(СокрЛП(НазваниеКолонки)));

Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);

КонецЦикла;



Для ИИ = 1 по ТаблицаЗначений.КоличествоСтрок() цикл

Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл

Значение = ТаблицаЗначений.ПолучитьЗначение(ИИ, ЖЖ);

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Текст = Значение;

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Расшифровка(Значение, 0);

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).РамкаОбвести(3, 0, 3, 0);



Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();

Ширина = Макс(Ширина, СтрДлина(СокрЛП(Строка(Значение))));

Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);



ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ, ТипКолонки); ;

Если ТипКолонки = "Число" тогда

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ГоризонтальноеПоложение(2);

КонецЕсли;

Если ИИ = ТаблицаЗначений.ТекущаяСтрока() тогда

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ЦветФона(255, 0, 0);

КонецЕсли;

КонецЦикла;

КонецЦикла;



Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица значений: "+Заголовок);

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

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